programme utilisant le port COM
Bonjour à tous,
voilà je réalise un programme qui doit communiquer par port com avec une pointeuse. J'aimerais récupérer le numéro de badge lorsque celui-ci est introduit dans la pointeuse. J'aimerais savoir si cette partie du programme que j'ai réalisé est correcte. Soyez indulgent car je suis loin d'être un expert en informatique.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| Dim tampon as String
Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Handshaking = 2
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
'l'input est 1 caractere donc on va a chaque
'envoi de caractere créer un tampon qui stocke les
'données
tampon = tampon + MSComm1.Input
Call traitement_badge
End Select
End Sub
Sub traitement_badge()
'Récupère le numéro de badge
Dim badge As Integer
MSComm1.Output = "*01S" + Chr$(13) + Chr$(10) 'envoi instruction
Do While MSComm1.InBufferCount < 20
DoEvents
Loop
badge = Mid(tampon, 8, 6)
MSComm1.InBufferCount = 0
End Sub |
Merci
