Mscomm
damd
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008
-
14 avril 2003 à 17:29
phenojeff Messages postés 87 Date d'inscription jeudi 10 octobre 2002 Statut Membre Dernière intervention 4 avril 2008 - 14 avril 2003 à 23:45
phenojeff Messages postés 87 Date d'inscription jeudi 10 octobre 2002 Statut Membre Dernière intervention 4 avril 2008 - 14 avril 2003 à 23:45
2 réponses
cs_jackky
Messages postés
50
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
6 juillet 2003
14 avril 2003 à 18:37
14 avril 2003 à 18:37
c'est quoi tu voudrais faire au juste car ya port.dll qui te facilitera bien la vie
jackky
jackky
phenojeff
Messages postés
87
Date d'inscription
jeudi 10 octobre 2002
Statut
Membre
Dernière intervention
4 avril 2008
14 avril 2003 à 23:45
14 avril 2003 à 23:45
bien tu mais un button
Private Sub Button1_Click()
MSComm1..PortOpen = True
End Sub
et dans un timer tu mais ta routine
Private Sub Timer1_Timer()
Dim InString As String
MSComm1.InputLen = 0
'Regarde s'il y a une entré dans le buffer
If MSComm1.InBufferCount Then
' Lire data.
InString = MSComm1.Input
RxText.Text = RxText.Text + InString
End If
End Sub
et dans ta form tu mais le timer1.enable=true
et voila tu as la réception
Private Sub Button1_Click()
MSComm1..PortOpen = True
End Sub
et dans un timer tu mais ta routine
Private Sub Timer1_Timer()
Dim InString As String
MSComm1.InputLen = 0
'Regarde s'il y a une entré dans le buffer
If MSComm1.InBufferCount Then
' Lire data.
InString = MSComm1.Input
RxText.Text = RxText.Text + InString
End If
End Sub
et dans ta form tu mais le timer1.enable=true
et voila tu as la réception
