خلاصه و مفید:
یک مستر و 2 اسلو
درحال کارکردن و ارسال دیتا میکروهای اسلو(2عدد) پس از دریافت دیتا ریست می شن اما دیتا رو دریافت میکنن و روی ال سی دی نمایش میدن و یا دیگه دیتایی دریافت نمی کنن ولی فعال هستند(شمارش a در حال انجام هست)
برای ارسال از max485 استفاده کردم
برنامه مستر :
'
برنامه اسلو:
'
یک مستر و 2 اسلو
درحال کارکردن و ارسال دیتا میکروهای اسلو(2عدد) پس از دریافت دیتا ریست می شن اما دیتا رو دریافت میکنن و روی ال سی دی نمایش میدن و یا دیگه دیتایی دریافت نمی کنن ولی فعال هستند(شمارش a در حال انجام هست)
برای ارسال از max485 استفاده کردم
برنامه مستر :
'
************************************
Main:
Keybord = Getkbd()
Select Case Keybord
Case 0 To 9 : Goto Show_lcd
Case 15 : Goto Send_to_all
End Select
jmp main
'*************************************
Show_lcd:
Locate Row , Column
Lcd Keybord
Sendkey = Sendkey + Str(keybord)
Waitms 500
Incr Column
If Column > 15 Then
Column = 2 : Incr Row
End If
If Row > 2 Then
Cls : Row = 1
End If
jmp main
'****************************************
Send_to_all:
Porta.0 = 1
Waitms 10
Print Sendkey
Sendkey = ""
Cls
Waitms 10
Porta.0 = 0
jmp main
Main:
Keybord = Getkbd()
Select Case Keybord
Case 0 To 9 : Goto Show_lcd
Case 15 : Goto Send_to_all
End Select
jmp main
'*************************************
Show_lcd:
Locate Row , Column
Lcd Keybord
Sendkey = Sendkey + Str(keybord)
Waitms 500
Incr Column
If Column > 15 Then
Column = 2 : Incr Row
End If
If Row > 2 Then
Cls : Row = 1
End If
jmp main
'****************************************
Send_to_all:
Porta.0 = 1
Waitms 10
Print Sendkey
Sendkey = ""
Cls
Waitms 10
Porta.0 = 0
jmp main
برنامه اسلو:
'
************************************
Main:
If Val(resiv_pc_kalame) > 0 Then Goto Pr
Locate 2 , 3
A = A + 1 ‘ این قسمت رو فقط برای این گذاشتم که ببینم میکرو ریست میشه و هنگ میکنه یا نه
Wait 1
Lcd A
jmp main
‘**************************
Pr:
Cls
Lcd Val(resiv_pc_kalame)
Resiv_pc_kalame = ""
jmp main
‘******************************
Get_char_urxc:
Resiv_pc_harf = Waitkey()
Resiv_pc_kalame = Resiv_pc_kalame + Resiv_pc_harf
Return
Main:
If Val(resiv_pc_kalame) > 0 Then Goto Pr
Locate 2 , 3
A = A + 1 ‘ این قسمت رو فقط برای این گذاشتم که ببینم میکرو ریست میشه و هنگ میکنه یا نه
Wait 1
Lcd A
jmp main
‘**************************
Pr:
Cls
Lcd Val(resiv_pc_kalame)
Resiv_pc_kalame = ""
jmp main
‘******************************
Get_char_urxc:
Resiv_pc_harf = Waitkey()
Resiv_pc_kalame = Resiv_pc_kalame + Resiv_pc_harf
Return
دیدگاه