بچه ها یه RFID EM18 از قروشگاه سایت گرقتم
ولی متاسفانه کد کارت رو اینجوری نشون میده
اینم برنامم:
ولی متاسفانه کد کارت رو اینجوری نشون میده
اینم برنامم:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Cursor Off
Dim E As Byte , P As Byte
Dim C(12) As String * 1
Dim Code As String * 10
Hom:
Cls
Home : Lcd "Rfid"
Do
Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next
E = 0
P = 0
Locate 2 , 1
Lcd Code
Wait 3
Loop
$crystal = 1000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Cursor Off
Dim E As Byte , P As Byte
Dim C(12) As String * 1
Dim Code As String * 10
Hom:
Cls
Home : Lcd "Rfid"
Do
Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next
E = 0
P = 0
Locate 2 , 1
Lcd Code
Wait 3
Loop
دیدگاه