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.
Merci
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
Partager