سلام من در vb یه برنامه نوشتم اطلاعات میفرسته به میکرو والان میخوام اطلاعات از میکرو به کامپیوتر بیاد لطفا کمک کنید
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Config Portb.0 = Output
Config Portc = Output
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1
Config Lcd = 16 * 2
Dim Computernumber As Double
Enable Interrupts
Enable Urxc
On Urxc Data_received
Do
If Computernumber = 85 Then Portb.0 = 0
Loop
End
Data_received:
Input Computernumber
Select Case Computernumber
Case 85 : Portb.0 = 1
End Select
Return
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Config Portb.0 = Output
Config Portc = Output
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1
Config Lcd = 16 * 2
Dim Computernumber As Double
Enable Interrupts
Enable Urxc
On Urxc Data_received
Do
If Computernumber = 85 Then Portb.0 = 0
Loop
End
Data_received:
Input Computernumber
Select Case Computernumber
Case 85 : Portb.0 = 1
End Select
Return
دیدگاه