Discussion :

[stolken]

Salut tt le monde c'est mon premier post ici.

Je voudrais faire un programme de dialogue avec une carte bancaire mais j'ai deja un soucis.
J'utilise le controle mscomm pour dialoguer via le port com avec un programmateur/lecteur phoenix.

Je n'arrive meme pas à faire un reset. Voici mon code :

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
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 reset_Click()
MSComm1.Output = "MCLR"
End Sub

L'input se fait dans une textbox.
Quand je clique sur reset il me retourne MCLR.


Merci d'avance

[AlainTech]

Bonjour et bienvenue sur ce forum.

J'espère pour toi qu'il y a, par ici, quelqu'un qui a déjà bidouillé avec des cartes à puce.

Personnellement, jamais fait.

[SfJ5Rpw8]

L'input se fait dans une textbox.
Quand je clique sur reset il me retourne MCLR.

ou ... ?

je connais pas les programmateur Phoenix et leur protocole de dialogue... mais je suis pas sur que cela soit la chaîne de caractére "MCLR" qu'il attends pour un reset je pencherai plutôt pour un signal un peu plus "binaire.."

[stolken]

Merci de vos réponses.

Il me retourne MCLR dans la textbox de reception que j'ai fait.

[stolken]

J'ai trouver la commande ici :

http://fribotte.free.fr/bdtech/cours..._cours19a.html


Chapitre 19.4

[AlainTech]

D'après ce que je lis sur ton lien, "MCLR" est un des contacts de la carte.

[SfJ5Rpw8]

donc il faut voir le câblage de ta phoenix ... et voir sur quelle broche du port série et connecté la "Pin4"

[stolken]

Je ne pense pas que ce soit si compliqué.

Voici le code qui fait le reset avec le controle mscomm (dialogue port com) :

Code :

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

1
2
3
4
5
6
7
MSComm1.PortOpen = True 'ouvrir le port com1
'//reset de la carte --------_____-----
For y = 0 To 300
MSComm1.RTSEnable = True
Next
MSComm1.RTSEnable = False
'//fin de reset

Je ne sais pas d'ou sort la variable y, elle n'est déclaré nulle part dans la source et pourtant ca ne bug pas. En revanche en copiant le code dans mon programme, le debugger me dit que la variable y nest pas déclaré.
Je comprend rien.

[SfJ5Rpw8]

la variable "y" ne semble être la que pour simuler une pause... ou peu être une durée d'impulsion à true sur RTS ( RTS étant une des "pin" du port série et qui doit être donc relier à la fameuse pin 4..) ... c'est pas terrible comme code ... la durée de l'impulsion est vraiment aléatoire ( suivant pc, processeur ..) bon sinon tu peu essayer en déclarant ta variable en entier au début de ta procédure ...

Code :

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

dim y as integer

le code d'ou est extrait la procédure ne devait pas contenir l'option explicit qui oblige la déclaration des variables ( et évite bien des erreurs de syntaxes sur nom de variables..) , voir 1° ligne de ton code..

[stolken]

le code d'ou est extrait la procédure ne devait pas contenir l'option explicit qui oblige la déclaration des variables ( et évite bien des erreurs de syntaxes sur nom de variables..) , voir 1° ligne de ton code..

Exactement

[stolken]

la variable "y" ne semble être la que pour simuler une pause... ou peu être une durée d'impulsion à true sur RTS ( RTS étant une des "pin" du port série et qui doit être donc relier à la fameuse pin 4..) ... c'est pas terrible comme code ... la durée de l'impulsion est vraiment aléatoire ( suivant pc, processeur ..)

Donc vaut mieux mettre un timer ?

[stolken]

Voici une réponse trouvé sur un autre forum :

Salut, pour provoquer un Reset sur un lecteur de carte type 'phoenix' ou 'smartmouse',il suffit de monter et descendre la sortie RTS (ou le contraire sur smartmouse).

voici un bout de code d'une fonction Reset

strtemp = "1" si le reset est inversé (smartmouse)
strtemp="0"pour phoenix
CommOcx est ton Mscomm passé en paramètre
Mysleep(X) est une fonction qui fait doevents pendant X millisecondes.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If strtemp = "1" Then
CommOcx.RTSEnable = False
MySleep (100)
CommOcx.RTSEnable = True
MySleep (400) 
Else
CommOcx.RTSEnable = True
MySleep (100)
CommOcx.RTSEnable = False
MySleep (400)
End If