Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"Marc" a écrit dans le message de news:%
Bonjour à tous,
Je souhaiterais à partir de VB ouvrir un tiroir caisse.
J'ai la sequence ESCAPE,
ESCAPE P ou en Hex 27 112 0 200 200
Comment dois-je proceder, pour réaliser cette procedure.
Hello,
Avex un controle MSCOMM, voir la doc dans MSDN au besoin. Principe: fabriquer la chaine par concaténation des valeurs en hexa, et envoyer, comme ceci:
Private Sub MSComm1_OnComm() Dim data As String
data = Chr$(&H27) & Chr$(&H112) & Chr$(0) & Chr$(&H200) & Chr$(&H200) MSComm1.Output = data ' connais pas le protocole, mais éventuellement, faire ' MSComm1.Output = data & vbcrlf End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de
news:%23Y9v97vxEHA.2568@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
Je souhaiterais à partir de VB ouvrir un tiroir caisse.
J'ai la sequence ESCAPE,
ESCAPE P ou en Hex 27 112 0 200 200
Comment dois-je proceder, pour réaliser cette procedure.
Hello,
Avex un controle MSCOMM, voir la doc dans MSDN au besoin.
Principe: fabriquer la chaine par concaténation des valeurs
en hexa, et envoyer, comme ceci:
Private Sub MSComm1_OnComm()
Dim data As String
data = Chr$(&H27) & Chr$(&H112) & Chr$(0) & Chr$(&H200) & Chr$(&H200)
MSComm1.Output = data
' connais pas le protocole, mais éventuellement, faire
' MSComm1.Output = data & vbcrlf
End Sub
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Je souhaiterais à partir de VB ouvrir un tiroir caisse.
J'ai la sequence ESCAPE,
ESCAPE P ou en Hex 27 112 0 200 200
Comment dois-je proceder, pour réaliser cette procedure.
Hello,
Avex un controle MSCOMM, voir la doc dans MSDN au besoin. Principe: fabriquer la chaine par concaténation des valeurs en hexa, et envoyer, comme ceci:
Private Sub MSComm1_OnComm() Dim data As String
data = Chr$(&H27) & Chr$(&H112) & Chr$(0) & Chr$(&H200) & Chr$(&H200) MSComm1.Output = data ' connais pas le protocole, mais éventuellement, faire ' MSComm1.Output = data & vbcrlf End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
Marc
Bonjour,
Merci pour la reponse,
Dans le procedure que tu as transmis, dans la ligne data =, j'obtient un message erreur (Error 5, Appel ou argument incorrect) Est-ce que j'ai raté quelque chose ?
Merci pour le coup de main
+ Marc
"Jean-Marc" a écrit dans le message de news:4191d96a$0$15715$
"Marc" a écrit dans le message de news:% > Bonjour à tous, > > Je souhaiterais à partir de VB ouvrir un tiroir caisse. > > J'ai la sequence ESCAPE, > > ESCAPE P ou en Hex 27 112 0 200 200 > > Comment dois-je proceder, pour réaliser cette procedure. >
Hello,
Avex un controle MSCOMM, voir la doc dans MSDN au besoin. Principe: fabriquer la chaine par concaténation des valeurs en hexa, et envoyer, comme ceci:
Private Sub MSComm1_OnComm() Dim data As String
data = Chr$(&H27) & Chr$(&H112) & Chr$(0) & Chr$(&H200) & Chr$(&H200) MSComm1.Output = data ' connais pas le protocole, mais éventuellement, faire ' MSComm1.Output = data & vbcrlf End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
Bonjour,
Merci pour la reponse,
Dans le procedure que tu as transmis, dans la ligne data =, j'obtient un
message erreur (Error 5, Appel ou argument incorrect)
Est-ce que j'ai raté quelque chose ?
Merci pour le coup de main
+
Marc
"Jean-Marc" <nospam_jean_marc_n2@yahoo.fr> a écrit dans le message de
news:4191d96a$0$15715$ba620e4c@news.skynet.be...
"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de
news:%23Y9v97vxEHA.2568@TK2MSFTNGP10.phx.gbl...
> Bonjour à tous,
>
> Je souhaiterais à partir de VB ouvrir un tiroir caisse.
>
> J'ai la sequence ESCAPE,
>
> ESCAPE P ou en Hex 27 112 0 200 200
>
> Comment dois-je proceder, pour réaliser cette procedure.
>
Hello,
Avex un controle MSCOMM, voir la doc dans MSDN au besoin.
Principe: fabriquer la chaine par concaténation des valeurs
en hexa, et envoyer, comme ceci:
Private Sub MSComm1_OnComm()
Dim data As String
data = Chr$(&H27) & Chr$(&H112) & Chr$(0) & Chr$(&H200) & Chr$(&H200)
MSComm1.Output = data
' connais pas le protocole, mais éventuellement, faire
' MSComm1.Output = data & vbcrlf
End Sub
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Dans le procedure que tu as transmis, dans la ligne data =, j'obtient un message erreur (Error 5, Appel ou argument incorrect) Est-ce que j'ai raté quelque chose ?
Merci pour le coup de main
+ Marc
"Jean-Marc" a écrit dans le message de news:4191d96a$0$15715$
"Marc" a écrit dans le message de news:% > Bonjour à tous, > > Je souhaiterais à partir de VB ouvrir un tiroir caisse. > > J'ai la sequence ESCAPE, > > ESCAPE P ou en Hex 27 112 0 200 200 > > Comment dois-je proceder, pour réaliser cette procedure. >
Hello,
Avex un controle MSCOMM, voir la doc dans MSDN au besoin. Principe: fabriquer la chaine par concaténation des valeurs en hexa, et envoyer, comme ceci:
Private Sub MSComm1_OnComm() Dim data As String
data = Chr$(&H27) & Chr$(&H112) & Chr$(0) & Chr$(&H200) & Chr$(&H200) MSComm1.Output = data ' connais pas le protocole, mais éventuellement, faire ' MSComm1.Output = data & vbcrlf End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
jean-marc
"Marc" wrote in message news:
Bonjour,
Merci pour la reponse,
Dans le procedure que tu as transmis, dans la ligne data =, j'obtient un message erreur (Error 5, Appel ou argument incorrect) Est-ce que j'ai raté quelque chose ?
Hello,
non c'est moi qui ai raté quelque chose! J'ai cru que toutes les valeurs étaient en hexa, j'ai pas fait attention. Voici la bonne version:
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
"Marc" <nospam-fgm.marc@wanadoo.fr> wrote in message
news:erfsnwzxEHA.748@TK2MSFTNGP14.phx.gbl...
Bonjour,
Merci pour la reponse,
Dans le procedure que tu as transmis, dans la ligne data =, j'obtient un
message erreur (Error 5, Appel ou argument incorrect)
Est-ce que j'ai raté quelque chose ?
Hello,
non c'est moi qui ai raté quelque chose! J'ai cru que toutes les valeurs
étaient
en hexa, j'ai pas fait attention. Voici la bonne version:
Dans le procedure que tu as transmis, dans la ligne data =, j'obtient un message erreur (Error 5, Appel ou argument incorrect) Est-ce que j'ai raté quelque chose ?
Hello,
non c'est moi qui ai raté quelque chose! J'ai cru que toutes les valeurs étaient en hexa, j'ai pas fait attention. Voici la bonne version:
