Procedure test_tpe(port=0,vitesse=0,parite=0,bitsdonnees=0,bitstop=0,caisse="00",p_Mnt=0)


Port_TPE est un entier=port

ListeSupprimeTout(LISTE_TEST)

sENQ est une chaîne=Caract(5)// demande d'ouverture de session
sACK est une chaîne=Caract(6)// acquittement positif de réception
sNAK est une chaîne=Caract(15)// acquittement négatif de réception


sReponse est une chaîne

gnTPETailBuffEntr est un entier =2000
gnTPETailBuffSort est un entier =2000

ListeAjoute(LISTE_TEST,gImage(IMG_VALIDE)+" Ouverture du port de communication : Port COM"+Port_TPE)


// INITIALISATION PORT SERIE (Port COMx)
//--------------------------------------
sFerme(Port_TPE) // Ferme le port serie
SI sOuvre(Port_TPE, gnTPETailBuffEntr,gnTPETailBuffSort)=Vrai ALORS
// Paramétrage de COM1
sFixeParamètre(Port_TPE, vitesse, parite, bitsdonnees, bitstop) //5,9600,1,7,0
SINON
ListeAjoute(LISTE_TEST,gImage(IMG_ERREUR)+" LA CONNEXION AVEC LE TPE EST IMPOSSIBLE , sur le port série "+Port_TPE)
RENVOYER(Faux)
FIN
// Vide le port Serie
SI sDansFileEntrée(Port_TPE) > 0 ALORS
sReponse=sLit(Port_TPE,sDansFileEntrée(Port_TPE))
FIN

ListeAjoute(LISTE_TEST,gImage(IMG_VALIDE)+" Demande ouverture session avec le TPE")
SI PAS sEcrit(Port_TPE,sENQ) ALORS
ListeAjoute(LISTE_TEST,gImage(IMG_ERREUR)+"Impossible d'ouvrir une session avec le TPE")
sFerme(Port_TPE)
RENVOYER(Faux)
FIN

// attente ACK ou NAK
v est un entier
BOUCLE
nbOctects est un entier = sDansFileEntrée( Port_TPE )
sReponse = sLit( Port_TPE, nbOctects )
ListeAjoute(LISTE_TEST,gImage(IMG_VALIDE)+sReponse)
SI sReponse = sACK OU sReponse= sNAK ALORS SORTIR
v++
SI v=10000 ALORS SORTIR
FIN