Discussion :

[mah00]

Bonjour,

J'ai une carte avec des interrupteurs communicant avec un port com.
Je veux savoir ce qu'envoie cette carte quand j'appuie sur un des interrupteurs, pour cela je relie la carte à l'ordinateur via un port com et j'ai écrit le code suivant sur vb6 qui est censé lire les données d'un port com:

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
51
52
53
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
Text1.Text = ""
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port quand l'appli quitte
End Sub
 
Private Sub MSComm1_OnComm()
Dim InBuff As String
 
Select Case MSComm1.CommEvent
' On effectue la gestion des erreurs (cf. le modèle ci-dessus)
 
'liste des erreurs possibles
Case comEventBreak 'On a reçu un signal d’interruption (Break)
Case comEventCDTO ' Timeout de la porteuse
Case comEventCTSTO ' Timeout du signal CTS (Clear To Send)
Case comEventDSRTO ' Timeout du signal de réception
Case comEventFrame ' Erreur de trame
Case comEventOverrun ' Des données ont été perdues
Case comEventRxOver ' Tampon de réception saturé
Case comEventRxParity ' Erreur de parité
Case comEventTxFull ' Tampon d’envoi saturé
Case comEventDCB ' Erreur de réception DCB (jamais vu)
 
'liste des événements possibles qui sont, eux, normaux
Case comEvCD 'Changement dans la broche CD (porteuse)
Case comEvCTS 'Changement dans broche CTS
Case comEvDSR 'Changement dans broche DSR (réception)
Case comEvRing 'Changement dans broche RING (sonnerie)
 
Case comEvReceive
      tampon = MSComm1.Input
      Call Traitement(tampon) 'traitement données
 
End Select
End Sub
 
Sub Traitement(tampon As String)
'cette procédure sert à traiter l’information reçue dans le tampon
     Text1.SelStart = Len(Text1.Text)
     Text1.SelText = tampon 'ici, on affiche le résultat dans un champ de texte
End Sub

A la compilation, j'ai l'erreur: Type d'argument ByRef incompatible, avec tampon dans Call Traitement(tampon) surligné.

Auriez-vous une idée de quoi il s'agit?

Petite précision: j'ai besoin de lire ces données pour pouvoir envoyer les mêmes après avec le clavier de l'ordinateur. J'ai donc besoin de savoir sous quelle forme je les reçois, en gros je veux remplacer les interrupteurs par le clavier.

Merci

[OhMonBato]

Bonjour,

tu as bien déclaré ta variable tampon en tant que String quelquepart ?

[mah00]

j'ai essayé comme ça:

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
51
52
53
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
Text1.Text = ""
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port quand l'appli quitte
End Sub
 
Private Sub MSComm1_OnComm()
Dim InBuff As String
Dim tampon As String
Select Case MSComm1.CommEvent
' On effectue la gestion des erreurs (cf. le modèle ci-dessus)
 
'liste des erreurs possibles
Case comEventBreak 'On a reçu un signal d’interruption (Break)
Case comEventCDTO ' Timeout de la porteuse
Case comEventCTSTO ' Timeout du signal CTS (Clear To Send)
Case comEventDSRTO ' Timeout du signal de réception
Case comEventFrame ' Erreur de trame
Case comEventOverrun ' Des données ont été perdues
Case comEventRxOver ' Tampon de réception saturé
Case comEventRxParity ' Erreur de parité
Case comEventTxFull ' Tampon d’envoi saturé
Case comEventDCB ' Erreur de réception DCB (jamais vu)
 
'liste des événements possibles qui sont, eux, normaux
Case comEvCD 'Changement dans la broche CD (porteuse)
Case comEvCTS 'Changement dans broche CTS
Case comEvDSR 'Changement dans broche DSR (réception)
Case comEvRing 'Changement dans broche RING (sonnerie)
 
Case comEvReceive
      tampon = MSComm1.Input
      Call Traitement(tampon) 'traitement données
 
End Select
End Sub
 
Sub Traitement(tampon As String)
'cette procédure sert à traiter l’information reçue dans le tampon
     Text1.SelStart = Len(Text1.Text)
     Text1.SelText = tampon 'ici, on affiche le résultat dans un champ de texte
End Sub

et ça ne marche pas non plus

[ProgElecT]

j'ai essayé comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim tampon As String
...........
Case comEvReceive
      tampon = MSComm1.Input
      Call Traitement(tampon) 'traitement données
..........
Sub Traitement(tampon As String)
'cette procédure sert à traiter l’information reçue dans le tampon
     Text1.SelStart = Len(Text1.Text)
     Text1.SelText = tampon 'ici, on affiche le résultat dans un champ de texte
End Sub

et ça ne marche pas non plus

Toujours la même erreur ?
C'est curieux car chez moi cela fonctionne en typant la variable, mais j'ai le même premier message d'erreur si elle n'est pas typée.
essais

Code :

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

1
2
3
4
5
Sub Traitement(ByVal tampon As String)
'cette procédure sert à traiter l’information reçue dans le tampon
     Text1.SelStart = Len(Text1.Text)
     Text1.SelText = tampon 'ici, on affiche le résultat dans un champ de texte
End Sub

ByVal Facultatif. Indique que l'argument est passépar valeur.
ByRef Facultatif. Indique que l'argument est passépar référence. ByRef est l'option par défaut dans Visual Basic.

là tu n'auras pas de problème même si tu ne type pas la variable dans la sub MSComm1_OnComm()

A propos ...
Dans la discussion Lecture écriture RFID, les informations que je t'ai fournis t'ont elles servis ?

[mah00]

ah là je n'ai plus l'erreur, c'est déjà un bon signe!
Mais bon je n'ai rien qui apparaît dans mon textbox.

Sinon dans le post précédent, ben c'est pareil, il me dit: erreur à la lecture du périphérique de communication.

[mah00]

ah, je viens de régler le problème de connexion avec le programme que j'ai récupéré sur ta page.

je ne sais pas pourquoi mais rien qu'en lançant le programme, il y à plein de chose qui sont émises sur le port com et je ne sais pas ce que c'est pour l'instant.

Pour être plus clair, j'ai une platine de swtich connectée à cette maquette.

Mon but final est d'envoyer des infos avec le clavier de l'ordinateur à la place des switchs pour coder les tags RFID. Pour l'instant mon gros problème est que je ne sais pas du tout comment ces deux morceaux communiquent et j'essaye juste d'envoyer des octects en binaire pour voir ce que ça donne