۱۲-شهریور-۱۳۸۸, ۱۱:۲۱:۰۳
با سلام خدمت شما دوستان عزیز.
من این برنامه رو نوشتم ولی یه مشکل داره.
برنامه از این قراره که وقتی کلید فشار داده شد حرف "m" رو بفرسته برای میکرو گیرنده.بار اول که کلید میزنم "m" نشون میده ولی بار دوم دو تا m با فاصله از هم نشون میده ببینید مشکل از کجاست؟
برنامه میکرو فرستنده:
برنامه میکرو گیرنده:
من این برنامه رو نوشتم ولی یه مشکل داره.
برنامه از این قراره که وقتی کلید فشار داده شد حرف "m" رو بفرسته برای میکرو گیرنده.بار اول که کلید میزنم "m" نشون میده ولی بار دوم دو تا m با فاصله از هم نشون میده ببینید مشکل از کجاست؟
برنامه میکرو فرستنده:
کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Dim A As String * 13
Config Porta.0 = Input
A = "m"
Do
If Pina.0 = 0 Then
Gosub Pr
End If
Loop
Pr:
Print A
Waitms 100
Returnکد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Porta.0 = Output
Dim A As String * 13
Cls
Do
Input A
Home
Lcd A
If A = "m" Then
Gosub O
End If
Loop
O:
Cls
Set Porta.0
Waitms 500
Reset Porta.0
Return