8074
کاربر فعال
وضعيت: آفلاين 29 فروردين ماه ، 1389 تعداد ارسالها: 12 امتياز: 20 تشکر کرده: 0 تشکر شده 0 بار در 0 پست
|
ارسال شده در: سه شنبه، 29 تير ماه ، 1389 21:09:04 موضوع مطلب: مشكل در ارسال عدد خوانده شده از ك |
|
|
من ميخوام با زدن كليد 0 از كيبرد فرستنده و دريافت اون توسط گيرنده موتور START بشه و شروع بكار كنه و در حين كار اگه كليد 1 زده و در يافت شد موتور متوقف بشه و با زدن كليد 2 روي LCD 'گيرنده رشته PAYAN نمايش داده بشه. برنامش بصورت زيره ولي نمي دونم از چه دستور براي دريافت استفاده كنم كه مدام كليد زده شده رو دريافت كنه. در اينجا من از دستور PRINTBIN استفاده كردم و تا زماني كه كليد صفر زده باشه موتور كار ميكنه ولي زمانيكه اين كليد قطع بشه موتور هم متوقف ميشه
دوستان از دوستاني كه كار كردند خواهش دارم منو كمك كنند كه خيلي كارم گيره
ايميل من: JT.MRE2008@GMAIL.COM
:كد |
'''''''''''''''''''''''''
'%FRESTANDEH- MICRO 1
''''''''''''''''''''''''
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , _
Db7 = Porta.7 , Rs = Porta.1 , E = Porta.0
Config Lcd = 16 * 2
Config Porta = Output
Config Kbd = Portc , Debounce = 50 , Delay = 10
Dim Code As Byte , M As Integer
Cursor Off
Lcd "salam"
Waitms 800
Lowerline
Cursor On Blink
Main:
Do
M = Getkbd()
If M > 15 Then Goto Main
Cls
Lcd M
Printbin M
Waitms 19
Loop
End
[/align]
'%GIRANDEH- MICRO 2
''''''''''''''''''''''''
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , _
Db7 = Portc.0 , Rs = Portc.5 , E = Portc.4
Config Lcd = 16 * 2
Config Portc = Output
'Config Portc = Output
Cursor Off
Dim Code As Byte , M As Integer
Dim A As Byte , B As Byte , E As Byte , F As Byte
Cls
Cursor Off
Lcd "KONTROLE MOTOR"
Lowerline
Main:
Do
Inputbin M
If M = 0 Then Goto Low1
If M = 1 Then Goto Low2
If M = 2 Then Goto Low3
Loop
End
Low1:
Do
Cls
Lcd "start"
For A = 1 To 100
F = 129
E = 128
For B = 1 To 4
Inputbin M
If M = 1 Then Goto Low2
If M = 2 Then Goto Low3
Rotate E , Left
Porta = E
Waitms 20
Rotate F , Left
If F = 24 Then F = 9
Porta = F
Waitms 20
Next B
Next A
Loop
End
Low2:
Cls
Lcd "stop"
Portd = 0
Goto Main
Low3:
Cls
Lcd "PAYAN"
Portd = 0
Goto Main
|
|
|