Port série en VB6
Résolu
sfley
Messages postés
191
Date d'inscription
Statut
Membre
Dernière intervention
-
sfley Messages postés 191 Date d'inscription Statut Membre Dernière intervention -
sfley Messages postés 191 Date d'inscription Statut Membre Dernière intervention -
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 :
merci de votre aide
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
A voir également:
- Port série en VB6
- Vb6 - Télécharger - Divers Utilitaires
- Télécharger idm gratuitement sans numéro de série - Télécharger - Téléchargement & Transfert
- Port icmp - Forum Réseau
- E/s en série intel - Forum Carte graphique
- Advanced port scanner - Télécharger - Utilitaires
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
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)