۰۵-اسفند-۱۳۸۸, ۰۴:۵۴:۵۹
سلام من برنامه زیر نوشتم اما خروجی ندارم نمی دونم مشکل کجاست
اگه ممکنه راهنمایی کنید
یه کنترل 2 کانال که در حالت عادی باید خروجی ها صفر باشه و با فشردن کلید 1 بشه
فرستنده
اگه ممکنه راهنمایی کنید
یه کنترل 2 کانال که در حالت عادی باید خروجی ها صفر باشه و با فشردن کلید 1 بشه
کد:
'Rx
$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