PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Je souhaites récupérer des données dun micro mètre
Je souhaites récupérer des données dun micro mètre
Débuté par l.leduc, 24 oct. 2005 10:38 - 1 réponse
#1
Posté le 24 octobre 2005 - 10:38
Bonjour,
Je souhaites récupérer des données d’un micro mètre
Il est branché sur un port PS2 ou Port com
S.V.P
Pourriez-vous me donner la procédure avec windev ou un exemple de récupération de donnée
Et pour convertir le protocole de communication
Merci d’avance
#2
Posté le 24 octobre 2005 - 14:34
En étudiant et adaptant le code ci-dessous tu devrais t'en tirer :

*****Ouverture et paramètrage du port ********************

resultat = sOuvre(Parametres.num_port,100,100,2)
SI resultat = Vrai ALORS
SI resultat=sFixeParamètre(Parametres.num_port,Parametres.bauds,Parametres.parite,Parametres.bit_donnees,Parametres.bit_stop) ALORS
SI resultat=sEchap(Parametres.num_port,"CLRRTS") ALORS
EcranPremier(Code_op)
SINON
Erreur("Erreur d'ouverture du port de communication (Erreur sEchap)")
Ferme()
FIN
SINON
Erreur("Erreur d'ouverture du port de communication (Erreur sFixeParamètre)")
Ferme()
FIN
SINON
Erreur("Erreur d'ouverture du port de communication")
Ferme()
FIN

************************************************************

************Récupération des données****************************

TANTQUE Position("-+0123456789",Gauche(SansEspace(lecture),1))=0
lecture=""
gmessage="?"+Caract(13) // chaîne de contrôle du micromètre
sEcrit(Parametres.num_port,gmessage)
BOUCLE
SI sDansFileSortie(Parametres.num_port) = 0 ALORS
SORTIR
FIN
//tantque sDansFileentree(Parametres.num_port) <> 0
// si sDansFileEntrée(Parametres.num_port)=0 alors sortir
lecture=sLit(Parametres.num_port,100)
Multitâche()
//FIN
FIN
gchamp=Val(lecture)

****************************************************************

gmessage contient une chaine de controle qui dépend de ton matériel, et qui conditionne l'envoie de données.

Hubert
→ Revenir à WINDEV 2024