من یک پروژه ی rfid دارم که درست کارنمیکنه وقتی تگ رو نزدیک میکنم led چشمک میزنه اما کد روی lcd نشان داده نمیشه
کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
Dim A As String * 10
Enable Interrupts
Enable Urxc
On Urxc Rx_interrupt
Cursor Off
Do
Cls
Locate 1 , 7
Lcd "RF01D"
Locate 2 , 1
Lcd "code:" ; A
Waitms 5
Loop
End
Rx_interrupt:
Input , A
Return
کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
Dim A As String * 10
Enable Interrupts
Enable Urxc
On Urxc Rx_interrupt
Cursor Off
Do
Cls
Locate 1 , 7
Lcd "RF01D"
Locate 2 , 1
Lcd "code:" ; A
Waitms 5
Loop
End
Rx_interrupt:
Input , A
Return
دیدگاه