//com est un combo Num du port
//Taux est un combo vitesse en bit
//Parité est un combo Parité
//nb_bit est un combo Nbre de Bit
//Bit_stop est un combo Bit stop
//Flux
//
//com : >Com1 Taux: >9600 Parité : >Aucune nb_bit : >4 Bit_stop : >1 Flux : >Xon/Xoff
// Com2 19200 Paire 5 1.5 Matériel
// Com3 28800 Impaire 6 2 Aucun
// Com4 38400 7
// Com5 48000 8
// Com6 57600
// Com7
// Com8
// Com9
// Com10
// Com11
matos,xon sont des booléens
SELON Flux
CAS 1
matos = Faux
xon = Vrai
CAS 2
matos = Vrai
xon = Faux
CAS 3
matos = Faux
xon = Faux
FIN
Résultat = sOuvre(com, 2000, 2000) // Ouverture du Com(com)
SI Résultat = Vrai ALORS
sFixeParamètre(com, Taux..ValeurAffichée, Parité-1, nb_bit..ValeurAffichée, Bit_stop-1,matos,0,xon)
// traitement
// on affiche ce qu'on reçoit par le COM, en général à mettre dans un thread qui se charge de remplir un champ texte que l'on exploite à coté.
// msg_aff est un champ de saisie multiligne en affichage
msg_aff = sLit(com, sDansFileEntrée(com))+CR+msg_aff
// on écrit la chaine mon_txt sur le COM
sEcrit(com,mon_txt)
// on ferme le COM pour libérer la ressource (et avant on ferme les threads)
sFerme(com)
SINON
Erreur("Erreur d'ouverture de "+com..ValeurAffichée)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6252&post_id=24858