Discussion :

[jerdel]

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

[DAUDET78]

moi, j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1" 
MSComm1.Handshaking = 0
MSComm1.InputLen = 0
MSComm1.PortOpen = True

et ça marche avec une liaison 3 fils RX, TX et Gnd

[Pascal Lob]

Salut,

Rien de choquant dans le code,
As-tu testé en pas à pas ?
Est-ce que ton MSComm1_OnComm se déclanche bien ?
Est-ce que tu reçois bien des données cohérentes dans le buffer ?
Est-ce que ton lecteur de badge est aussi paramétré en 9600,N,8,1 ?

[jerdel]

Mais je ne sais pas si le programme marche car je n'ai pas eu l'occasion de tester les modifs avec la badgeuse. C'est juste que je veux un programme qui est déjà bien avancé.
Comment on fait pour voir si le MSComm se déclenche? Afficher les données reçues dans une zone texte?
Oui d'après la doc de la badgeuse les paramètres sont les mêmes. Enfin je suppose car la doc est en néerlandais en fait et ça indique ça:

Baudrate : 7 snelheden van 150-19200 baud
Pariteit : Even, odd, mark, space, no
Databits : 7 of 8
Stopbits : 1 of 2

[DAUDET78]

Ta badgeuse est entièrement paramétrable. Mais elle est paramétrée avec quoi ?

[jerdel]

Je savais pas qu'il fallait la paramétrer aussi. Je sais pas si on sait la paramétrer avec le programme ou si il faut le faire sur le pavé numérique de la badgeuse. C'est peut être écrit dans la doc mais c'est en néerlandais donc c'est la m****