RFID 125Khz und Bascom

kann man sicher beser machen, aber es funzt;-)

@PeterL

Hallo,

erstmal vielen Dank für das Beispiel.Ich werde das später mal 
ausprobieren.

Hallo,

vielen Dank für das Beipiel. Ich werde es später gleich ausprobieren !

Hallo Peter,

kannst du mir noch kurz erlären ob die Eeprom Daten jeweils 2*5 Byte von 
einem oder 5 Tags sind. Und wenn von 5 Tags, welches Bytepaar nimmst du 
?
Code = 5 ist mir leider auch nicht ganz klar.Guckt er bei Code = 5 bei 
der EEprom Data 5 nach den bytes ? Wenn ich versuche meine ausgelesen 
Tags, die 5*2 bytes in die eprom Data einzutragen passiert nichts. 
Vielen Dank im voraus.

in meinem Beispiel generiere ich ein EEpromfile mit:
hex 0A  53  88  06  01
diese 5 Bytes sind z. B. bei meinem Tag als Seriennummer hinterlegt.
For J = 5 To 1 Step -1
If Tags(j) = Tag_test(j) Then Incr Code
damit prüfe ich ein Byte nach dem anderen, sind alle 5 richtig ist Code 
5,
sonst halt nicht 5

If Code = 5 Then
                Locate 2 , 1
                Lcd "isse OK"

                Code = 0
                'Disable Int0
                Else
                Locate 2 , 1
                Lcd "isse nix gut"
                Code = 0
                End If