1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| LOCAL
nNombre est un entier
srepmachine est une chaîne
sToto est une chaîne
sTata est une chaîne
stonton est une chaîne
nvitesse est un entier
ncom est un entier
nParite est un entier
nLongueur est un entier
nBit est un entier
sFlux1 est une chaîne
sFlux2 est une chaîne
sFlux3 est une chaîne
sVirtuel est une chaîne
TableSelect(TABLE_machines)
srepmachine=TableVersTexte(TABLE_machines,taSansTitre+taLigneSélectionnées)
sToto="c:\DNC\machines\"+srepmachine
sTata=sToto+"\"+srepmachine
stonton=sTata+".ini"
ncom=INILit("com","com","",stonton)
nvitesse = INILit("com", "vitesse", "", stonton)
nParite=INILit("com","parite","",stonton)
nLongueur = INILit("com", "longueur", "", stonton)
nBit=INILit("com","bit","",stonton)
sFlux1 = INILit("com", "flux1", "", stonton)
sFlux2=INILit("com","flux2","",stonton)
sFlux3 = INILit("com", "flux3", "", stonton)
Port=ncom
// Ouverture du Port série
SI sOuvre(Port,32768,32768)=Faux ALORS
Erreur("Erreur lors de l'ouverture du port "+Port)
Ferme()
FIN
sFixeParamètre(Port, nvitesse,nParite,nLongueur,nBit,sFlux1,sFlux2,sFlux3)
Timer("sReception",50,1) |
Partager