High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Port série en VB6

Dernière réponse le 4 déc 2008 à 14:15:55 sfley, le 12 mai 2007 à 16:49:42 
 Signaler ce message aux modérateurs

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
Configuration: Windows XP
Internet Explorer 6.0
VB6

Meilleures réponses pour « Port série en VB6 » dans :
Port série et port parallèle VoirIntroduction aux ports d'entrée-sortie Les ports d'entrée-sortie sont des éléments matériels de l'ordinateur, permettant au système de communiquer avec des éléments extérieurs, c'est-à-dire d'échanger des données, d'où l'appellation d'interface...
Posez votre question Répondre

1

roby, le 14 mai 2007 à 17:51:00


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

   
Répondre à roby

2

papatrice, le 30 mai 2008 à 10:08:05

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épondre à papatrice

3

 sfley, le 4 déc 2008 à 14:15:55
   
Répondre à sfley
Posez votre question Répondre
Ils ont besoin de votre aide