Einen wunderschoenen guten Tag!

Ich hatte mir mal dieses kleine Proggie zusammengeschustert:

--------------------------------------
$regfile = "m128def.dat"
$crystal = 16000000

Dim A As Byte , B1(10) As Byte , B2(10) As String * 1 , C As Byte , T As Bit
Dim Rfid As String * 10
Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6

Cursor Off
Cls

C = 1
Locate 1 , 1
Lcd " 125Khz RFID-Reader"
Locate 2 , 1
Lcd " Unique, HT4102"

Do
A = Inkey()
If A > 32 Then
B1(c) = A
B2(c) = Chr(b1(c))
If C = 10 Then
Rfid = B2(1) + B2(2) + B2(3) + B2(4) + B2(5) + B2(6) + B2(7) + B2(8) + B2(9) + B2(10)
Locate 4 , 1
Lcd Rfid
Locate 6 , 1
Lcd B1(1) ; B1(2) ; B1(3) ; B1(4) ; B1(5) ; B1(6) ; B1(7) ; B1(8) ; B1(9) ; B1(10)
C = 0
End If
Incr C
End If

Loop

End

--------------------------------------

Damit habe ich dann erfolgreich Rfid-Tags ausgelesen. Ein Tag in Form einer Chipkarte und ein Bioglastransponder. Siehe Fotos:

http://www.speckmann.de/atmel/b8.html
http://www.speckmann.de/atmel/b5.html

Ich hatte mir mal vor Monaten ein 125khz-Reader auf eBucht ersteigert. Ist auch eins mit seriellem Ausgang.