سلام دوستان
یه مشکل دارم
وقتی که به یکی از پایه های میکرو یک میدم نمیتونه اونو بخونه و صفر رو بر میگردونه
به طور مثال برنامه زیر رو ببینید
Dim Q As Byte
Dim Co As Byte
Config Portc.0 = Input
Q = Portc.0
Do
If Q = 1 Then Co = 5
Locate 1 , 1
Lcd Co
Loop
End
ممنون میشم از اساتید اگه زودتر جواب بدن
یه مشکل دارم
وقتی که به یکی از پایه های میکرو یک میدم نمیتونه اونو بخونه و صفر رو بر میگردونه
به طور مثال برنامه زیر رو ببینید
Dim Q As Byte
Dim Co As Byte
Config Portc.0 = Input
Q = Portc.0
Do
If Q = 1 Then Co = 5
Locate 1 , 1
Lcd Co
Loop
End
ممنون میشم از اساتید اگه زودتر جواب بدن
دیدگاه