ارسال: #44
RE: سرانجام راه اندازی ماژول فرستنده گیرنده وایرلس
درخواست کمک
من برای پروزه پایانیم مقاله چت متنی به صورت وایرلس کار آقای علیان رو برداشتم.
الان یه مشکل بزرگ دارم اونم اینه که برنامه میکرو درست کار نمیکنه.
برای تایپ کردن روی ال سی دی ها مشکلی نیست
زمانی که برای ارسال اینتر را میزنیم چراغ قرمز ماژول فرستنده روشن میشه و همزمان چراغ سبز ماژول گیرنده هم روشن میشه ولی چیزی روی ال سی دی گیرنده نمایش داده نمیشه و این اشکال برای هر دو طرف وجود داره
برای امتحان برنامه مدار رو به صورت با سیم ( اتصال پایه تی ایکس میکرو اولی به پایه آر ایکس میکرو دومی و اتصال پایه آر ایکس اولی به پایه تی ایکس دومی) اجرا کردم ولی باز هم جواب نداد
خواهش میکنم کمکم کنین.
http://www.ir-micro.com/ZiP2,/ir-micro.c...D_HMTR.rar
$regfile = "M8def.dat"
$crystal = 8000000
Config Portb.0 = Output
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Config Keyboard = Pinb.5 , Data = Pinb.4 , Keydata = Keydata
Cursor Off
Cls
Dim A As Byte , Code As Byte , S As String * 16 , Rec_code As Byte , Rec_data As String * 16
Dim Rec_eprom As String * 16 , N As Byte , N1 As Byte , N2 As Byte
Code = 3
Tx:
Cls
Do
A = Getatkbd()
Select Case A:
Case 44 :
Cls
Home
S = ""
Case 13 :
Printbin Code
Print S
If S = "end" Then Goto Rx
Case 27 :
Goto Rx
Case Else Lcd String(1 , A)
S = S + String(1 , A)
N = Len(s)
If N > 16 Then
Cls
Lcd "error"
End If
End Select
Loop
End
Rx:
Cls
Do
Home L
Lcd "*mode RX*"
Rec_code = Inkey()
If Rec_code = 3 Then
Input Rec_data
If Rec_data <> "" Then
N1 = Len(rec_eprom)
N2 = Len(rec_data)
If N2 <> N1 Then Cls
Home
Lcd Rec_data
Rec_eprom = Rec_data
If Rec_data = "ch1 on" Then Set Portb.0
If Rec_data = "ch1 off" Then Reset Portb.0
If Rec_data = "end" Then Goto Tx
End If
End If
Loop
Keydata:
'normal keys lower case
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 27 , 0 , 0 , 0 , 0 , 9 , 9 , &H5E , 0
Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0
Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0
Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0
Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0
Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0,
Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
'shifted keys UPPER case
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0
Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0
Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0
Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0
Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0
Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
اینم لینک دانلود پروژه
http://www.ir-micro.com/ZiP2,/ir-micro.c...D_HMTR.rar
در ضمن همان طور که میدونید برای ارتباط با هر میکرو از کیبورد استفاده میشه.
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :