سلام
من برنامه زیر رو برای میکرو نوشتم اما بعد از حدود 5 دقیقه دیگه حلقه DO-LOOP کار نمیکنه و متغیر VALUE اضافه نمیشه. اما اینتراپت سریال درسته.
دلیش رو کسی میدونه؟
$regfile = "M32DEF.dat"
$crystal = 8000000
Config Graphlcd = 128 * 64 , Dataport = Porta , Controlport = Portc , Ce = 5 , _
Cd = 4 , Wr = 3 , Rd = 2 , Reset = 6 , Fs = 7 , Mode = 8
Cursor Off
Cls
$baud = 19200
On Urxc Urx_lable
Enable Urxc
Dim Receive As Byte
Dim Value As Word
Enable Interrupts
'------------------------------
Do
Locate 1 , 1
Lcd "DATA: " ; Value ; " "
Waitms 200
Incr Value
Loop
'------------------------------
Urx_lable:
Receive = Udr
Locate 2 , 1
Lcd Receive
Return
من برنامه زیر رو برای میکرو نوشتم اما بعد از حدود 5 دقیقه دیگه حلقه DO-LOOP کار نمیکنه و متغیر VALUE اضافه نمیشه. اما اینتراپت سریال درسته.
دلیش رو کسی میدونه؟
$regfile = "M32DEF.dat"
$crystal = 8000000
Config Graphlcd = 128 * 64 , Dataport = Porta , Controlport = Portc , Ce = 5 , _
Cd = 4 , Wr = 3 , Rd = 2 , Reset = 6 , Fs = 7 , Mode = 8
Cursor Off
Cls
$baud = 19200
On Urxc Urx_lable
Enable Urxc
Dim Receive As Byte
Dim Value As Word
Enable Interrupts
'------------------------------
Do
Locate 1 , 1
Lcd "DATA: " ; Value ; " "
Waitms 200
Incr Value
Loop
'------------------------------
Urx_lable:
Receive = Udr
Locate 2 , 1
Lcd Receive
Return
دیدگاه