سلام دوستان
مدتیه میخوام نحوه ی کارکرد یک تابع ساده رو در بسکام درک کنم ولی نمی تونم،از دوستان میخوام که برنامه زیر رو که از کتاب 1nafar کپی کردم ،برام مفصل توضیح بدهید ....تشکر
[/code]
مدتیه میخوام نحوه ی کارکرد یک تابع ساده رو در بسکام درک کنم ولی نمی تونم،از دوستان میخوام که برنامه زیر رو که از کتاب 1nafar کپی کردم ،برام مفصل توضیح بدهید ....تشکر
کد:
[code]$regfile = "m16def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = PORTC.4 , Db5 = PORTC.5 , Db6 = PORTC.6 , Db7 = PORTC.7 , E = PORTC.2 , Rs = PORTC.0 Declare Function Myfunction ( Byval I As Integer , S As String ) As Integer Dim K As Integer , Z As String *10, T As Integer K = 5 : Z = "123 " : T = Myfunction(k , Z) LocAte 1 , 1 Lcd T '25 Locate 1 , 7 Lcd Z 'Bascom Locate 2 , 1 Lcd K '5 End Myfunction ( Byval I As Integer , S As String ) As Integer local P As Integer Functions: P = I * 5 I = 5 S = "Bascom" T = P Myfunction = T End Function
دیدگاه