Port série en VB6 Résolu/Fermé

Question

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

roby · Answer

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

sfley · Answer

IMPEC ça MARCHE !


http://pagesperso-orange.fr/mikael.pouponnot/PRISE/

Port série en VB6

2 réponses

Discussions similaires