OVH Cloud OVH Cloud

Erreur 424 avec Com1

7 réponses
Avatar
coconuts
Bonjour,

Apres execution de mon code, j'ai un message d'erreur 424 : un objet
est requis

Cette erreur se fait sur la ligne suivante :

If COM1.PortOpen = False Then

J'ai VB6 et je ne sais pas si il faut un fichier special et si il en
faut un, ou le mettre ?
Et est ce qu'il faut declarer ce fichier dans le script vb, et si oui
comment !

Merci pour votre aide !

Jean-Michel

7 réponses

Avatar
jmn
Sous VB l'utilisation desports séries se fait en utilisant l'ocx :
mscomm32.ocx (il faut lire la doc !)
Avatar
Jean-Michel
Merci !
Je ne trouve pas de doc sur les fonctions et comment les utiliser, et en
Francais !
Tu pourrai me donner des bonnes adresses !
Et me dire ou trouver ce fameux fichier, merci :)

Merci d'avance


"jmn" a écrit dans le message news:

Sous VB l'utilisation desports séries se fait en utilisant l'ocx :
mscomm32.ocx (il faut lire la doc !)




Avatar
Clive Lumb
C'est un peu plus complique que cela....
D'abord il faut ajouter le contrôle au projet en tant que composant.
Projet>Composants>Contrôles Sélectioner "Microsoft Comm Control 6" puis OK
Ensuite on glisse le "téléphone" de la boite à outils sur ton formulaire,
cela crée un contrôle MSComm qui va s'appeler MSComm1, on peut changer son
nom.
Ensuite on peut programmer avec, du style (exemple tiré d'un logiciel de
contrôle d'oscillo)
Dim Buffer As String
Dim cmdBuffer As String
Me.MSComm1.CommPort = 1
Me.MSComm1.PortOpen = True
cmdBuffer = "COMM_RS232 EI,13,EO, ""rnEND""" & vbCr
Me.MSComm1.Output = cmdBuffer
Buffer = ""
Do
DoEvents
Buffer = Buffer & MSComm1.Input
Loop Until InStr(Buffer, "COMM_RS232")
Debug.Print Buffer
Me.MSComm1.PortOpen = False

Il y a un bon exemple dans VBTerm.vbp qui se trouve dans le repertoire
"samples" de VB6.

Bon courage
Clive

"Jean-Michel" a écrit dans le
message de news:uGp%
C'est bizarre !
J'ai trouvé le fichier, je l'ai mis dans le meme dossier du projet !
Et ca me fait toujours la même erreur !

Merci d'avance de me repondre !

Jean-Michel

"jmn" a écrit dans le message news:

> Sous VB l'utilisation desports séries se fait en utilisant l'ocx :
> mscomm32.ocx (il faut lire la doc !)
>
>




Avatar
Jean-Michel
C'est bizarre !
J'ai trouvé le fichier, je l'ai mis dans le meme dossier du projet !
Et ca me fait toujours la même erreur !

Merci d'avance de me repondre !

Jean-Michel

"jmn" a écrit dans le message news:

Sous VB l'utilisation desports séries se fait en utilisant l'ocx :
mscomm32.ocx (il faut lire la doc !)




Avatar
jmn
Reprenons par le commencement !
Sous VB les composants OCX doivent être chargés dans le projet :
Projet -> composants -> (décocher éventuellement 'Eléments
Sélectionnés')
Retrouver Microsoft Comm Control 6.0 (le cas échéant) et le cocher, puis
Ok
(si il n'apparait pas, utiliser le bouton parcourir pour retrouver
mscomm32.ocx dans ..system32 ; ne copiez jamais un ocx dans votre
répertoire d'exécution ou de développement sous peine de problème de
portabilité :les ocx doivent être dans system32 (Wnt, W2k et suivant) ou
system (W9x).

Une nouvelle icone (téléphone) apparait dans la Boite à outils

C'est cette icone (représentant l'OCX) que vous allez poser sur un
formulaire et qui va servir d'interface pour le pilotage des ports séries.

Pour le mode d'emploi : F1
Avatar
Jean-Michel
Merci pour vos reponses Clive et jmn,

Mais j'ai un soucis, c'est que quand j'essaye de poser le telephone dans mon
formulaire, ca me fait une erreur comme ceci :

"Les informations de licence de cette partie sont introuvables. Vous n'avez
pas la licence adéquate pour utiliser cette caractéristique dans
l'environnement de création."

J'utilise VB6 Pro, est ce que vous pouvez m'aider !

Merci d'avance

Jean-Michel

"jmn" a écrit dans le message news:
uae#
Reprenons par le commencement !
Sous VB les composants OCX doivent être chargés dans le projet :
Projet -> composants -> (décocher éventuellement 'Eléments
Sélectionnés')
Retrouver Microsoft Comm Control 6.0 (le cas échéant) et le cocher,


puis
Ok
(si il n'apparait pas, utiliser le bouton parcourir pour retrouver
mscomm32.ocx dans ..system32 ; ne copiez jamais un ocx dans votre
répertoire d'exécution ou de développement sous peine de problème de
portabilité :les ocx doivent être dans system32 (Wnt, W2k et suivant) ou
system (W9x).

Une nouvelle icone (téléphone) apparait dans la Boite à outils

C'est cette icone (représentant l'OCX) que vous allez poser sur un
formulaire et qui va servir d'interface pour le pilotage des ports séries.

Pour le mode d'emploi : F1




Avatar
Jean-Michel
C'est bon, en fait ca marche !
Merci pour tout c'est gentil de m'avoir aider !

Bonne journée à vous deux !
"jmn" a écrit dans le message news:
uae#
Reprenons par le commencement !
Sous VB les composants OCX doivent être chargés dans le projet :
Projet -> composants -> (décocher éventuellement 'Eléments
Sélectionnés')
Retrouver Microsoft Comm Control 6.0 (le cas échéant) et le cocher,


puis
Ok
(si il n'apparait pas, utiliser le bouton parcourir pour retrouver
mscomm32.ocx dans ..system32 ; ne copiez jamais un ocx dans votre
répertoire d'exécution ou de développement sous peine de problème de
portabilité :les ocx doivent être dans system32 (Wnt, W2k et suivant) ou
system (W9x).

Une nouvelle icone (téléphone) apparait dans la Boite à outils

C'est cette icone (représentant l'OCX) que vous allez poser sur un
formulaire et qui va servir d'interface pour le pilotage des ports séries.

Pour le mode d'emploi : F1