درخواست کمک
من برای پروزه پایانیم مقاله چت متنی به صورت وایرلس کار آقای علیان رو برداشتم.
الان یه مشکل بزرگ دارم اونم اینه که برنامه میکرو درست کار نمیکنه.
برای تایپ کردن روی ال سی دی ها مشکلی نیست
زمانی که برای ارسال اینتر را میزنیم چراغ قرمز ماژول فرستنده روشن میشه و همزمان چراغ سبز ماژول گیرنده هم روشن میشه ولی چیزی روی ال سی دی گیرنده نمایش داده نمیشه و این اشکال برای هر دو طرف وجود داره
برای امتحان برنامه مدار رو به صورت با سیم ( اتصال پایه تی ایکس میکرو اولی به پایه آر ایکس میکرو دومی و اتصال پایه آر ایکس اولی به پایه تی ایکس دومی) اجرا کردم ولی باز هم جواب نداد
خواهش میکنم کمکم کنین.
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
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :