Dann funktioniert Dein Leser genauso wie meine Kiste. Sobald ein Transponder sich in Leseweite befindet, wird die Zeichenfolge ausgegeben und permanent wiederholt.
Bei mir besteht der aus zehn einzelnen Zeichen. Zunaechst wird alles eingelesen was da kommt. Aber sobald der ASCII-Wert 32 ueberschritten wird (schau mal in die ASCII-Tabelle: ab dann kommen die Buchstaben, usw), wird ne Feldvariable mit den einzelnen Zeichen deklariert. C wird am Ende inkrementiert.
Das ganze geht bis 10 (denn ich weiss ja das die Nummer des Transponders in meinem Falle 10 Zeichen lang ist). Und dann wird der ganze Schlunz auf dem LCD angezeigt, oder was man auch immer damit machen will...
Zu Schluss wird C wieder auf 0 gesetzt. Und dann geht das Spiel von vorne los.
Es geht sicherlich auch noch auf anderem Wege, aber da hatte ich nur experimentiert und das mal schnell zusammengeschustert...


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