سلام دوستان من این برنامهرو نوشتم که یه عدد 4 رقمیرو از پورت سریال دریافت کنم بعد یکی یکی اعدادشو جدا کنم اما فقط بار اول جواب میده دفعه های بعدی با اصلا کار نمیکنه یا قاطی جواب میده ..
اینم کدام ..
$regfile = "m32def.dat">
$crystal = 1000000
$baud = 1200
Config Porta = Output
Config Portb = Output
Enable Interrupts
Enable Urxc
On Urxc Rea
Dte Alias Porta
Block Alias Portb
Dim A As String * 5
Dim Ch_1 As String * 1
Dim Ch_2 As String * 1
Dim Ch_3 As String * 1
Dim Ch_4 As String * 1
Main:
Ch_1 = ""
Ch_2 = ""
Ch_3 = ""
Ch_4 = ""
A = ""
Do
Loop
Rea:
Input , A
Ch_1 = Mid(a , 1 , 1)
Ch_2 = Mid(a , 2 , 1)
Ch_3 = Mid(a , 3 , 1)
Ch_4 = Mid(a , 4 , 1)
Print "ch1=" ; Ch_1
Print "ch2=" ; Ch_2
Print "ch3=" ; Ch_3
Print "ch4=" ; Ch_4
Goto Main
Return
>
پیشاپیش ممنون و متشکر
اینم کدام ..
$regfile = "m32def.dat">
$crystal = 1000000
$baud = 1200
Config Porta = Output
Config Portb = Output
Enable Interrupts
Enable Urxc
On Urxc Rea
Dte Alias Porta
Block Alias Portb
Dim A As String * 5
Dim Ch_1 As String * 1
Dim Ch_2 As String * 1
Dim Ch_3 As String * 1
Dim Ch_4 As String * 1
Main:
Ch_1 = ""
Ch_2 = ""
Ch_3 = ""
Ch_4 = ""
A = ""
Do
Loop
Rea:
Input , A
Ch_1 = Mid(a , 1 , 1)
Ch_2 = Mid(a , 2 , 1)
Ch_3 = Mid(a , 3 , 1)
Ch_4 = Mid(a , 4 , 1)
Print "ch1=" ; Ch_1
Print "ch2=" ; Ch_2
Print "ch3=" ; Ch_3
Print "ch4=" ; Ch_4
Goto Main
Return
>
پیشاپیش ممنون و متشکر
دیدگاه