#Include CARDUTIL.DEF #Include COMMERR.DEF #Include MISC.DEF Declare Command &HFF &HCA UID(S$) Declare Command &HFF &HB0 RBIN(S$) Public V As Long, P As Byte ComPort=101 REM (c)2013 Patrick GUEULLE CLS:PRINT"VALTIC (pour lecteur LoGO ASK)":PRINT Call WaitForCard:Call Sleep(100):ResetCard Print:Print:Print "Le ticket "; Call UID(P1P2=&H0000,Lc=0,S$,Le=8) If SW1SW2<>&H9000 Then Print "est inconnu !":Goto Fin Print"Numero "; For F=1 TO 8 C$=MID$(S$,F,1):C=ASC(C$):C$=HEX$(C) IF LEN(C$)=1 then C$="0"+C$ Print C$; Next F:Print" "; If Right$(S$,2)<>Chr$(&H02)+Chr$(&HD0) Then Print"est inconnu !":Goto Fin R$=Mid$(S$,6,1):R=Asc(R$) And &HFC If R<>&H30 Then Print"est inconnu !":Goto Fin Print:Print Call RBIN(P1=0,P2=1,Lc=0,S$,Le=4):Call CheckSW1SW2 If Right$(S$,1)<>Chr$(&H25) Then Print"est inconnu !":Goto Fin Call RBIN(P1=0,P2=2,Lc=0,S$,Le=4):Call CheckSW1SW2 V$=Mid$(S$,2,1)+Mid$(S$,1,1) Call RBIN(P1=0,P2=0,Lc=0,S$,Le=4):Call CheckSW1SW2 C$=Left$(S$,1) P=ASC(C$) And &H1F W$=Right$(S$,1) Call RBIN(P1=0,P2=3,Lc=0,S$,Le=4):Call CheckSW1SW2 If P>16 Then W$=Right$(S$,1) V$=V$+W$:T$="" For F=1 TO 3 C$=MID$(V$,F,1):C=ASC(C$):C$=HEX$(C) IF LEN(C$)=1 then C$="0"+C$ T$=T$+C$ Next F T$=Mid$(T$,2,4):V=ValH(T$) And &H3FFF Print"est valide";V;"jours au-dela du 01/01/1997, soit :" Print Print" ";V-6209,"jours au-dela du 01/01/2014" Fin: Print:Print Call WaitForNoCard