$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Portb.5 , E = Portb.4 , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 Dim B As Byte Dim I As Byte Dim Y1 As Byte Dim Y2 As Byte Cursor Off Do Cls Locate 1 , 1 Lcd "RFID" For I = 1 To 14 B = Inkey() If I = 1 Then Y1 = B If I = 2 Then Y2 = B . . . . Next I Locate 2 , 1 Lcd Y1 ; " " ; Y2 . . . . . . . . Wait 1 Loop
$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Portb.5 , E = Portb.4 , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 Dim B As Byte Dim X As Byte Dim Y As String * 15 Cursor Off Do Cls Locate 1 , 1 Lcd "RFID" For X = 1 To 10 B = Inkey() Y = Y + Chr(b) Next X Locate 2 , 1 Lcd Y Waitms 500 Y = "" Loop
دیدگاه