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 : Sélectionner tout - Visualiser dans une fenêtre à part
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