OVH Cloud OVH Cloud

Envoyer une chaîne de caractères sur un port COM

1 réponse
Avatar
Bernard_Michel
Bonjour !

J'arrive au terme du développement d'une application sous Access et je
rencontre un big problème :

Je dois afficher sur un "Afficheur client", la somme d'un ticket de caisse.
Cet afficheur client est de marque Epson et est relié au PC via le port
COM2.

Le seul code que j'ai réussi à trouver jusqu'à présent est un morceau de
code VB (et non pas VBA) qui est le suivant:

>
MSComm1.PortOpen = True

MSComm1.Output = Chr(12) ' Clear the pole
MSComm1.Output = Line1 ' Display the first line of output
MSComm1.Output = Chr(10) ' Go to the next line
MSComm1.Output = Chr(13) ' Move to the beginning of the line
MSComm1.Output = Line2 ' Display the second line of input

MSComm1.PortOpen = False
>

Malheureusement, même si Access accepte de le compiler, il bug lors de
son exécution.

Mille mercis d'avance à celle ou celui qui pourra m'aider à me sortir de
ce mauvais pas.

Bernard.

1 réponse

Avatar
Arnaud [lwa]
Bonjour,
Pour envoyer une information sur le port série 2, essayer la syntaxe suivante :

Open "COM2:" For Binary As #1
Put #1, , "ce que tu veux"
Close #1

ça marche ?
a+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Bonjour Bernard_Michel,

| Bonjour !
|
| J'arrive au terme du développement d'une application sous Access et je
| rencontre un big problème :
|
| Je dois afficher sur un "Afficheur client", la somme d'un ticket de
| caisse. Cet afficheur client est de marque Epson et est relié au PC
| via le port COM2.
|
| Le seul code que j'ai réussi à trouver jusqu'à présent est un morceau
| de code VB (et non pas VBA) qui est le suivant:
|
| >
| MSComm1.PortOpen = True
|
| MSComm1.Output = Chr(12) ' Clear the pole
| MSComm1.Output = Line1 ' Display the first line of output
| MSComm1.Output = Chr(10) ' Go to the next line
| MSComm1.Output = Chr(13) ' Move to the beginning of the line
| MSComm1.Output = Line2 ' Display the second line of input
|
| MSComm1.PortOpen = False
| >
|
| Malheureusement, même si Access accepte de le compiler, il bug lors de
| son exécution.
|
| Mille mercis d'avance à celle ou celui qui pourra m'aider à me sortir
| de ce mauvais pas.
|
| Bernard.