VB et port com

Bonjour a tous,

Je suis tout nouveau sur le forum et j'utilise VB pour mon projet de fin d'année. Le projet consiste à la mise en place d'un outil codé en VB permettant de configurer un switch par le port com.
J'ai fait un test en écrivant ce code pour envoyant la commande "reload" au switch mais j'ai une erreur à l'exécution :

Private Sub cmdEnvoi_Click()
 MSComm.CommPort = 1 'On définit le port série qui sera utilisé (ici Port 1)
 MSComm.Settings = "9600,n,8,1" 'On définit ici les paramètres de transmission (je les explique dans un instant).
 MSComm.PortOpen = True 'Ici on ouvre le port de communication
 MSComm.Output = "reload" 'Maintenant on envoie nos informations, ici le caractère "M"
 MSComm.PortOpen = False 'Et pour finir on ferme le port de communication
End Sub

J'ai une erreur 424 qui dit objet manquant !
Et apparemment il ne connait pas la première ligne puisqu'il la surligne en jaune...

Quelqu'un pourrait-il m'aider s'il vous plait ??

Merci d'avance

salut,

il faut poser un composant mscomm sur ta form
Microsoft Comm Control 6.0 (VB6)
pour VB.NET, sans certitude, contrôle SerialPort

++

---

Je l'avais deja mis le composant mais ca a rien changé

normal, il ne se nomme pas MSComm par défaut, mais MSComm1

EN .Net, il est préférable d'abandonner le composant MSCOMM (et tous les ocx de manière générale) et utiliser à la place la classe System.IO.SerialPort.

SerialPort n'a pas obligatoirement besoin d'être posé sur l'écran, il peut être instancié directement par le code.


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

(salut casy, d'accord avec toi mais vue la déclaration du CLICK..... )

Merci de vos réponses, mais dans ce cas comment puis je envoyer une chaine de caractère sur le port console ?

Encore merci

Effectivement PCPT, vu la déclaration du click, on est bien en VB6. C'est donc bien MSCOMM qu'il faut utiliser.

Dans ce cas, il faut obligatoirement poser le composant sur la form. Par défaut il va s'appeler mscomm1.

Par contre, une fois la chaine envoyée au composant, il afut peut-etre lui laisser le temps de l'emettre avant de refermer le port.

Private Sub cmdEnvoi_Click() MSComm.CommPort = 1                   'On définit le port série qui sera utilisé (ici Port 1) MSComm.Settings = "9600,n,8,1"    'On définit ici les paramètres de transmission (je les explique dans un instant). MSComm.PortOpen = True                'Ici on ouvre le port de communication MSComm.Output = "reload"              'Maintenant on envoie nos informations, ici le caractère "M" While MSComm1.OutBufferCount > 0    DoEvents Loop MSComm.PortOpen = False               'Et pour finir on ferme le port de communication End Sub

Coloration Syntaxique pour VB6 By

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

J'ai une erreur a la compliation :

"Loop sans do"

Je suppose qu'il faut rajouter un "do" mais ou ça ?

Lorsque que j'enlève la boucle je retombe encore sur mon erreur "un objet est requis"