۱۲-شهریور-۱۳۸۹, ۲۳:۰۶:۳۹
سلام به همه مهندسین فروم.
بعد از کلی زور زدن وخوندن مطالب بسیار در مورد میکرو بالاخره یک برنامه نوشتم که اون چیزی رو که میخام با زدن کلید مربوطه،روی glcdنشون بده.
این برنامش هست!
طرز کارش هم اینطوری هست که با زدن یک کلیدزیر شاخه m1رو اجرا میکنه وبا زدن یک کلید دیگه میاد وm2رو اجرا میکنه.
حالا مشکلی که هست اینه که وقتی می خام با دستور"lcdat 2,1,"mohammad یک متن بنویسم،روی lcdنشون نمیده ومیریزه به هم.
ومشکل دوم اینه که تو زیر شاخه m2 فقط تا سه خط اولش اجرا میشه وبقیش رواجرا نمی کنه.
حالا از دوستان خواهش میکنم در جهت رفع این مشکل نظر بدن.
ممنون
بعد از کلی زور زدن وخوندن مطالب بسیار در مورد میکرو بالاخره یک برنامه نوشتم که اون چیزی رو که میخام با زدن کلید مربوطه،روی glcdنشون بده.
این برنامش هست!
کد php:
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Cls
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Config Portd.3 = Input 'switch echo
Config Portd.2 = Output 'relay & led echo
Config Portd.4 = Input 'switch wireless
Config Portd.1 = Output 'relay wireless
Config Portd.0 = Output 'led wireless
Main:
Portd.3 = 1
Portd.4 = 1
Debounce Pind.3 , 0 , M1
If Pind.3 = 1 Then Portd.2 = 0
If Pind.3 = 1 Then Cls
Debounce Pind.4 , 0 , M2
If Portd.4 = 1 Then Goto M3
If Pind.4 = 1 Then Cls
M1:
Set Portd.2
Showpic 0 , 0 , M4
Waitms 1000
Cls
Showpic 100 , 0 , M5
lcdat 2,1,"mohammad"
Debounce Pind.4 , 0 , M2
If Portd.4 = 1 Then Goto M3
Goto Main
M2:
Portd.0 = 1
Showpic 0 , 0 , M4
Waitms 1000
Portd.1 = 1
Cls
Showpic 100 , 10 , M5
Return
M3:
Portd.1 = 0
Portd.0 = 0
Goto Main
M4:
$bgf "bnnnn.bgf"
M5:
$bgf "bnnnn1.bgf"
حالا مشکلی که هست اینه که وقتی می خام با دستور"lcdat 2,1,"mohammad یک متن بنویسم،روی lcdنشون نمیده ومیریزه به هم.
ومشکل دوم اینه که تو زیر شاخه m2 فقط تا سه خط اولش اجرا میشه وبقیش رواجرا نمی کنه.
حالا از دوستان خواهش میکنم در جهت رفع این مشکل نظر بدن.
ممنون
