Re: port com et balance | Sujet: Re: port com et balance par Guizmo sur 31/7/2009 15:54:59
bon je te donne ça vite fait (pas envie de bosser cet aprem) c'est fait de tête en 5 min alors dsl si c'est pas trop détailé :
//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
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|