راهنمایی برای ریموت کنترل
سلام من می خوام یه کنترل بسازم با استفاده از ماژول hm tr که اگه در فرستنده یک کلید خورد در گیرنده یک خروجی 1 بشه و اگه دستو از رو کلید در فرستنده برداشتیم خروجی در گیرنده 0 بشه و همچنین اطلاعات به صورت کد شده ارسال بشه
اینم خودم نوشتم که جواب نداد
گیرنده
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Porta = Output
Dim A As String * 10
Do
Input A
If A = "canal1" Then Set Porta.0
If A = "canal2" Then Reset Porta.0
If A = "canal3" Then Set Porta.1
If A = "canal4" Then Reset Porta.1
Loop
End
فرستنده
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Config Portb = Input
Do
If Pinb.0 = 1 Then : Print "canal1" : Waitms 20 : End If
If Pinb.0 = 0 Then : Print "canal2" : Waitms 20 : End If
If Pinb.1 = 1 Then : Print "canal3" : Waitms 20 : End If
If Pinb.1 = 0 Then : Print "canal4" : Waitms 20 : End If
Loop
End
پاسخ با نقل قول