Comm avec timer
Résolu
cs_bentic
Messages postés
63
Date d'inscription
dimanche 4 mai 2003
Statut
Membre
Dernière intervention
11 janvier 2013
-
23 avril 2005 à 22:38
cs_bentic Messages postés 63 Date d'inscription dimanche 4 mai 2003 Statut Membre Dernière intervention 11 janvier 2013 - 29 avril 2005 à 23:51
cs_bentic Messages postés 63 Date d'inscription dimanche 4 mai 2003 Statut Membre Dernière intervention 11 janvier 2013 - 29 avril 2005 à 23:51
A voir également:
- Comm avec timer
- Wpf timer ✓ - Forum VB.NET
- C++ timer ✓ - Forum C++ & C++ .NET
- Vb.net timer ✓ - Forum Visual Basic
- Fonctionnement du timer ??? - Forum VB.NET
- Thread ou timer ? ✓ - Forum C / C++ / C++.NET
3 réponses
cs_bentic
Messages postés
63
Date d'inscription
dimanche 4 mai 2003
Statut
Membre
Dernière intervention
11 janvier 2013
24 avril 2005 à 17:34
24 avril 2005 à 17:34
Merci pour le tuyau, Par contre je bloque sur l'erreur "Text1.text = comm1.input
" ou il me donne le code erreur 424. En temps que debutant je tourne autour sans trouver la raison.
merci
" ou il me donne le code erreur 424. En temps que debutant je tourne autour sans trouver la raison.
merci
radcur
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
24 avril 2005 à 03:26
24 avril 2005 à 03:26
Salut ... dans ce style. Il peut manquer 1 ou 2 détails selon tes besoins mais les grandes lignes sont là!
private sub Cmd1_Click()
comm1.commport= ' ton port comm
comm1.portsettings = 'tes setting
comm1.inputlen= 0 'tout ce qui arrive s'en va dans le buffer immédiatement
if comm1.portopen=true then 'si le port est déjà ouvert on le ferme
comm1.portopen = false
endif
comm1.portopen = true 'ouvre le port
Timer1.interval=200 '200 ms
timer1.enabled = true 'active le timer
end sub
private sub Timer1_Timer()
timer1.enabled=false 'désactive le timer pour ne pas y revenir à toutes les 200 ms
Text1.text comm1.input 'Textbox ce que le comm a reçu
comm1.portopen=false ' ferme le port
end sub
private sub Cmd1_Click()
comm1.commport= ' ton port comm
comm1.portsettings = 'tes setting
comm1.inputlen= 0 'tout ce qui arrive s'en va dans le buffer immédiatement
if comm1.portopen=true then 'si le port est déjà ouvert on le ferme
comm1.portopen = false
endif
comm1.portopen = true 'ouvre le port
Timer1.interval=200 '200 ms
timer1.enabled = true 'active le timer
end sub
private sub Timer1_Timer()
timer1.enabled=false 'désactive le timer pour ne pas y revenir à toutes les 200 ms
Text1.text comm1.input 'Textbox ce que le comm a reçu
comm1.portopen=false ' ferme le port
end sub
cs_bentic
Messages postés
63
Date d'inscription
dimanche 4 mai 2003
Statut
Membre
Dernière intervention
11 janvier 2013
29 avril 2005 à 23:51
29 avril 2005 à 23:51
Ne pas tenir compte de ma précédente question en revanche la je ne trouve pas.
J'ai rajouter MSComm.PortOpen = true dans la FormLoad. Quand j’exécute l’application il va bien lire le port mais il ne conserve pas sa lecture dans le TextBox. Que manque t-il, merci pour le coup de pouce.
J'ai rajouter MSComm.PortOpen = true dans la FormLoad. Quand j’exécute l’application il va bien lire le port mais il ne conserve pas sa lecture dans le TextBox. Que manque t-il, merci pour le coup de pouce.