Port série en VB6

Résolu/Fermé
sfley Messages postés 191 Date d'inscription vendredi 3 mai 2002 Statut Membre Dernière intervention 19 mars 2009 - 12 mai 2007 à 16:49
sfley Messages postés 191 Date d'inscription vendredi 3 mai 2002 Statut Membre Dernière intervention 19 mars 2009 - 4 déc. 2008 à 14:15
Bonjour,

Je débute en Visual Basic, et j'aurais besoin d'un petit coup de pouce !

Je veux créer un logiciel ON OFF pour commander le port série de la manière suivante :

un bouton ON qui envoie "10101010" en boucle sur le port série.
un bouton OFF qui n'envoie rien.

pour l'instant j'en suis à ça :

Private Sub Form_Load()


Form1.Caption = "COM 1"
With Com1 'configuration du port
.CommPort = 1 'On utilise le port COM1:
.Settings = "9600,n,8,1"
.PortOpen = True 'ouverture du port
End With

End Sub


Private Sub on_Click()

Com1.Output = "101010101" 'on envoie la chaine 101010101 mais pour l'instant pas de boucle ?????

End Sub

Private Sub off_Click()

'on stop l'envoie la chaine 101010101 mais comment ????

End Sub

Private Sub Form_Unload(Cancel As Integer)
Com1.PortOpen = False 'on ferme le port à la fermeture de l'appli
End Sub


merci de votre aide

2 réponses


Private Sub Form_Load()


Form1.Visible = False
With Com1 'configuration du port
.CommPort = 1 'On utilise le port COM1:



End With

End Sub






Private Sub TrayIcon1_DblClick()
TrayIcon1.AboutBox
End
End Sub

Private Sub TrayIcon1_Click()
Set TrayIcon1.Icon = PictureOFF
If Com1.PortOpen = True Then Com1.PortOpen = False 'on ferme le port à la fermeture de l'appli
TrayIcon1.ToolTipText = "OFF"



End Sub

Private Sub TrayIcon1_RIGHTClick()
Set TrayIcon1.Icon = PictureON

If Com1.PortOpen = False Then Com1.PortOpen = True 'on ouvre le port
TrayIcon1.ToolTipText = "ON"
End Sub
0
Je pense qu'il faut déjà effectuer la boucle physique. Ton câble série doit être croisée.
Connecteur1 Connecteur2
2 - 3
3 - 2
5 - 5

Ce qui fait que les infos transmis arrivent sur ton port physique.
Ensuite, il te faut surveiller l'arrivée des données sur le port ou utiliser un timer de lecture du port avec une fréquence de 9600 (Timer1.interval=9600)
0
sfley Messages postés 191 Date d'inscription vendredi 3 mai 2002 Statut Membre Dernière intervention 19 mars 2009 26
4 déc. 2008 à 14:15
IMPEC ça MARCHE !


http://pagesperso-orange.fr/mikael.pouponnot/PRISE/
0