سلام من این برنامه رو نوشتم سریال نرم افزاریم کار میکنه اما سخت افزار Uart با بافر کار نمیکنه. کسی میدونه چرا؟
$regfile = "m8adef.dat"
$crystal = 16000000
$baud = 1200
Config Serialout = Buffered , Size = 11
Enable Interrupts
Dim Dta As Byte
Dim Repeat As Byte
Open "comd.2:1200,8,n,1" For Output As #2
Main:
Do
For Repeat = 0 To 10
Print Dta
Print #2 , Dta
Waitms 1
Next
Incr Dta
Waitms 500
Loop
Goto Main
End
دیدگاه