سلام . من چند وقتیه رو پروژه هایlcd کار میکنم .به نظرم رسید کلیدی تعبیه کنم تا پس از فشردن کلید متن مورد نظر نمایش داده شود.برنامه اش را با بیس کام نوشتم و در پروتوس جواب گرفتم.اما همین که رو برد آزمایشی بستمش انگار نه انگار که کلیدی تعریف شده یکسره رفت سراغ متن و اونو نشون داد . بارها هم مدارمو چک کردم. این هم متن برنامه ام . حالا بگین اشکال کجاست ؟ :angry:
$regfile = "M8def.dat"
$crystal = 8000000
Config Pind.3 = Input
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , _
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcd = 16 * 2
Config Debounce = 100
Do
Debounce Pind.3 , 1 , Show , Sub
Loop
End
Show:
Cls
Lcd " www.eca.ir"
Wait 2
Cls
Return :angry:
[
$regfile = "M8def.dat"
$crystal = 8000000
Config Pind.3 = Input
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , _
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcd = 16 * 2
Config Debounce = 100
Do
Debounce Pind.3 , 1 , Show , Sub
Loop
End
Show:
Cls
Lcd " www.eca.ir"
Wait 2
Cls
Return :angry:
[
دیدگاه