MSComm pour débutant

Signaler
Messages postés
6
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
26 mars 2006
-
Messages postés
21
Date d'inscription
mardi 3 avril 2012
Statut
Membre
Dernière intervention
12 avril 2012
-
Je dois créer une appli qui fait l'interface entre un modul RFID et un PC mais je ne sais ABSOLUMENT pas comment marche la commande MSComm (je ne connais pas le basic du tout), si qqun pouvait m'aider ce serait très sympa !!!!!!!
MERCI

5 réponses


Bonjour,



Je suis dans un cas un peu similaire puisque sans m'y connaitre, je
dois migrer du code VB6 vers du code VB.net, le generateur de code
automatique m'a transforme ce code (VB6) :



Private Sub Home_Click()

MSComm1.Output = "STX G C 7 : 902001AFF ETX"

End Sub



En ceci :



Private Sub Home_Click()

Dim MSComm1 As Object

'UPGRADE_WARNING: Couldn't
resolve default property of object MSComm1.Output. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

MSComm1.Output = "STX G C 7 : 902001AFF ETX"

End Sub
Messages postés
6
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
26 mars 2006

Private Sub Command1_Click()
'Vider le buffer
MSComm1.InBufferCount = 0
'choisir un port série
MSComm1.CommPort = 1
' 1 est le n° de port que l'on peut modifier
'Paramétrage du port; les valeurs sont fournies par le constructeur de l'appareil.
'Ces valeurs peuvent être entrées ici (pas très "propre"!)
'ou dans une procédure d'initialisation (c'est mieux)
'La balance utilisée dans cet exemple requiert les valeurs suivantes: 9600 bauds, aucun bit de parité, 8 bits de données, 1 bit d'arrêt
MSComm1.Settings = "9600,n,8,1"
' indique au contrôle qu'il doit lire 1 seul caractère
'ce caractère servira à repérer la stabilisation de la balance
MSComm1.InputLen = 1
'ouvre le port
MSComm1.PortOpen = True
'lecture sur le port des 10 1ers caractères et stockage dans la boite de dialogue et dans la feuille active
MSComm1.InputLen = 10
Affichage_Change = MSComm1.input


'ferme le port
MSComm1.PortOpen = False

End Sub

Private Sub Form_Load()
'Command1_Click()
End Sub

Voici mon programme et il me dit erreur 424 un objet est requis !!!!!
Je n'ai pas déclarer MSComm, faut il le faire ??? Si oui Ou ? et Comment ?????
Messages postés
21
Date d'inscription
mardi 3 avril 2012
Statut
Membre
Dernière intervention
12 avril 2012

Bonjour,

Je suis dans le même cas que lotoinevb...quelques années plus tard !
Je ne sais pas comment résoudre l'erreur 424...
Quelqu'un de plus expérimenté aurait il une réponse?
Je vous remercie.

julienexam
Messages postés
272
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
30 décembre 2015
1
En VBNET perso j'ai l'ache le MScom1 car trop de probleme

pourquoi n'utilisez vous pas le component serialport? dispo dans la boite a outlis
Messages postés
21
Date d'inscription
mardi 3 avril 2012
Statut
Membre
Dernière intervention
12 avril 2012

Car je dois juste corriger le programme qu'un autre a fait avant moi.
Et il l'a fait comme ça, ce serait trop long de tout recommencer car tout son programme s'enchaine dessus.

julienexam