پاسخ : فرسنده و گیرنده HMبا بسکام
ممنون
اره درست شد
متشکرم
نوشته اصلی توسط reza javahery
اره درست شد
متشکرم
Enable Urxc
On Urxc Getdata
Getdata: Recive_data = Udr Return
$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Portb = Input Dim Send_data As Byte Main: '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Send_data = Pinb '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Printbin Send_data Waitms 110 jmp Main End
$regfile = "m8def.dat" $crystal = 1000000 Config Portb = Output $baud = 9600 Dim Recive_data As Byte Enable Interrupts Enable Urxc On Urxc Getdata Main: '############################################################################### Portb = Recive_data JMP MAIN '############################################################################### Getdata: Recive_data = Udr Return
Enable Urxc
On Urxc Getdata
دیدگاه