Lecteur NFC EHUOYAN 301/302...

Petite contribution pour ceux qui voudraient s’initier au NFC ; avec cet engin ->

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

------------------------------------------------------------------------------------------------
CONSTANTE
CS_Key_A = "FFFFFFFFFFFF" // Clé A
FIN

snTAG est une chaîne ANSI // ID du Tag

nBaud est un entier = 115200 // Vitesse en bauds
sResult est une chaîne = 1 // Reponse API
nDeviceID est un entier // Port COM
------------------------------------------------------------------------------------------------


------------------------------------------------------------------------------------------------
PROCEDURE RF_SNIFF() //On parle pas de drogue ici !

nINT est un entier
nSN est un entier sur 4 octets // SerialNumber
nBlink est une entier = 0 // Compteur pour le clignotement de la led

BOUCLE
start_request:
SI sResult = 1 _OU_ sResult = 2 ALORS RF_CONNECT()
sResult=API("MasterRD", "rf_request",nDeviceID,0x26,&nINT)

SI sResult<>"0" ALORS // On attend le tag
nBlink++ // Ambiance disco
SELON nBlink
CAS 1:
sResult=API("MasterRD", "rf_light",nDeviceID,2)
CAS 2:
sResult=API("MasterRD", "rf_light",nDeviceID,0)
nBlink=0
FIN
ThreadPause(30)
GOTO start_request
FIN

nLength, nSize est un octet
sResult=API("MasterRD", "rf_anticoll",nDeviceID,4,&nSN,&nLength)
sResult=API("MasterRD", "rf_select",nDeviceID,&nSN,nLength,&nSize)

SI sResult="0" ALORS // On a un tag !
sTAG est une chaîne
sTAG=NumériqueVersChaîne(EntierVersHexa(nSN))
sTAG=Milieu(sTAG,7,2)+Milieu(sTAG,5,2)+Milieu(sTAG,3,2)+Milieu(sTAG,1,2)

SI sTAG = "" ALORS GOTO start_request
sResult=API("MasterRD", "rf_halt",nDeviceID)

snTAG = sTAG
sFEN est une chaîne = FenEnCours()
API("MasterRD", "rf_light",nDeviceID,1) // un peu de son et lumiere
API("MasterRD", "rf_beep",nDeviceID,10)
SI sFEN <> "" ALORS PostMessage(Handle(sFEN),"SCAN",0,0) // On envoie la notif a la fenetre actuelle en ayant declare un ... Evénement(PR_RFID, "FEN_MAIN", "SCAN")...

SI ThreadAttendSignal(300) = Faux ALORS RF_BEEP_ERROR() // Si pas de reponse ca couine et rebelotte

FIN

SI gbTHREAD_RUN = Faux ALORS SORTIR //Globale que je met a 0 sur findeprogramme pour terminer les threads

FIN
------------------------------------------------------------------------------------------------


------------------------------------------------------------------------------------------------
PROCEDURE RF_BEEP_ERROR()

API("MasterRD.dll", "rf_light",nDeviceID,2)
API("MasterRD", "rf_beep",nDeviceID,10)
API("MasterRD.dll", "rf_light",nDeviceID,0)
Temporisation(20)
API("MasterRD.dll", "rf_light",nDeviceID,2)
API("MasterRD", "rf_beep",nDeviceID,70)
API("MasterRD.dll", "rf_light",nDeviceID,0)
------------------------------------------------------------------------------------------------


------------------------------------------------------------------------------------------------
PROCEDURE RF_BEEP_SUCCESS()

API("MasterRD.dll", "rf_light",nDeviceID,1)
API("MasterRD.dll", "rf_beep",nDeviceID,5)
API("MasterRD.dll", "rf_light",nDeviceID,0)
Temporisation(5)
API("MasterRD.dll", "rf_light",nDeviceID,1)
API("MasterRD.dll", "rf_beep",nDeviceID,5)
------------------------------------------------------------------------------------------------


------------------------------------------------------------------------------------------------
PROCEDURE RF_CONNECT()

nDeviceID = gCHARDWARE.m_nRFID
sResult=API("MasterRD", "rf_ClosePort", nDeviceID)
sResult=API("MasterRD", "rf_init_com", nDeviceID,nBaud)
sResult=API("MasterRD", "rf_init_device_number", nDeviceID)

SI sResult = 0 ALORS RF_BEEP_SUCCESS()
------------------------------------------------------------------------------------------------

La lecture/ecriture d'un block suivra d'ici peu. Cheers ;-)

 

Tout à fait. Tu as tout pour commencer. Dès que j' ai le temps je publierai la suite pour l écriture/lecture. Cheers