Bonjour à tous.
 
Je tiens tout d'abord à remercier tout ceux qui m'ont aidé lors de mon dernier "projet" que j'ai reussi à mener à bien.
 
Je suis actuellement en train de develloper une petite application en vba pour pouvoir recuper des données RS 232 issues d'un appareil de mesure branché sur un port COM (en DB9 ou DB25).
Seul petit probleme, je ne connais pas la procedure de lecture d'un port com en vba.
 
J'avais deja fais le meme genre d'application en quick basic, j'utilisais alors ce code:
 
Open "COM1:4800, N, 7,2,RS,CS,DS,CD" AS #2
val$ = Input$(14, #2)
Close #2
 
pour info: la chaine transmise par l'appareil fait 14 octets en ascii non etendu (7bits), la vitesse est de 4800 bps, pas de parité et 2 stop-bits.
 
Merci d'avance pour vos conseils ou aides.

personne ne sait exploiter le port com ici ?

Il faut utiliser le composant « Microsoft Comm control 6.0 » (MSCOMM32.OCX) pour gérer ton port.
Tu l'ajoutes à ta boîte à outils de contrôles de ton interface VB6 et tu en poses un exemplaire sur un formulaire.
À partir de la tu pourras traiter l'événement _OnComm lié et connaître l'état de la communication via la valeur de la propriété .CommEvent

Merci pour ta reponse tegu, je vais chercher de ce coté.
Si je n'arrive pas à le mettre en oeuvre il est possible que je vienne redemander à nouveau de l'aide ^^

essaie une recherche sur http://www.planet-source-code.com/ par exemple

Salut coco
 
Je travaille actuellement sur des RS232 via excel.
La solution est de télécharger un OCX concurrent de MSComm32 et opensource!!
Il s'appelle Netcomm32 (recherche sur google).
Une fois installé il apparais dans les controles supplémentaires de la boite a outils.
Il faut alors paramétré le netcomm (vitesse du port, parité ,bit de données, bit stop) et le numéro du port (utilise l'hyperterminal pour ça)
L'instruction est alors :
[nomdetonnetcomm1].portopen = true
[nomdetonnetcomm1].output = [instruction de demande de données]
Temporisation de quelques disièmes de seconde
variable = [nomdetonnetcomm1].inputdata
Temporisation
[nomdetonnetcomm1].portopen = false
 
Voila dit-moi si ça marche

Salut Gaillac2
 
Merci pour ta remarque, d'autant plus que tu semble t'etre inscrit specialement pour intervenir sur mon sujet, je suis flatté
 
J'ai fais une recherche sur google avec "Netcomm32" et j'ai trouvé...0 resultat. Est ce que tu es sur du nom de cet OCX ?  
J'ai commencé à faire des essais avec MSComm32 et il semble me convenir tout à fait, mais pourquoi ne pas en tester un autre.
 
A tout hasard je me permet de poser une petite question supplementaire: Existe il un OCX permettant de lire/ecrire des données sur le port LPT ? (simplement verifier l'etat d'une entree ou passer une sortie à 0/1).

Salut dsl je suis pas trop habitué à venir sur des forum donc ça fait un moment que je ne t'ai pas répondu
 
Pas de soucis avec MScomm32 sauf que normalement il n'est débloqué sur ton PC que si tu as VB 6 PRO ou VBExpress 2005. Sinon c'est exactement le meme OCX sauf que dans Netcomm c'est [objet].Inputdata
et dans Mscomm c'est [objet].Input
 
Voila sinon aucune idée pour les LPT. Moi j'utilise labwindows ou labview pour ces ports-la.
 
ciao

Sinon le site c'est http://ourworld.compuserve.com/hom [...] ommOCX.htm