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

A voir également:

Port série en VB6
Nettoyer port usb c - Guide
Vb6 - Télécharger - Divers Utilitaires
Port 21 - Forum Réseaux sociaux
Comment regarder la série erkenci kuş en français ✓ - Forum Cinéma / Télé
Série turque en français gratuit - Forum Cinéma / Télé

2 réponses

Réponse 1 / 2

roby
14 mai 2007 à 17:51


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

papatrice
30 mai 2008 à 10:08

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)

Réponse 2 / 2

sfley Messages postés 191 Date d'inscription vendredi 3 mai 2002 Statut Membre Dernière intervention 19 mars 2009 27
4 déc. 2008 à 14:15

IMPEC ça MARCHE !

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

Discussions similaires

Qu'est-ce qu'un port WSD pour imprimante?

port icmp

Regarder Erkenci kus en français

télécharger saison 1 et 2 de merlin sur ipod

ping quel port ?

Discussions similaires

Newsletters