Re: port com et balance

Posté par Guizmo le 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

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6252&post_id=24858