PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2025 → Convertir une séquence qbasic pour tiroire caisse
Convertir une séquence qbasic pour tiroire caisse
Débuté par skilzeur, 05 jan. 2005 21:27 - 3 réponses
Posté le 05 janvier 2005 - 21:27
Bonjour
On vient de me confier un tiroire caisse MyPos (compatible epson) que je dois piloter via mon port COM ou a travers l'imprimante de ticket (ouverture). selon la doc, je dois utiliser la séquence

Ouverture depuis le port com

OPEN "COM1:300,N,8,1"
FOR RANDOM AS #1
PRINT #1,"0000000000"

Ouverture depuis l'imprimante
PRINT #1,CHR$(&H1B);"p";CHR$(0);CHR$(100);CHR$(250)

commen convertire ces code vers du windev (aucune connaissance du VB ou Qbasic).

Merci pour votre aide j'en ai besoin
Posté le 05 janvier 2005 - 22:47
Bonjour,

Pourquoi ne pas compiler le code avec QBASIC 4.5 et de faire appel de l'executable dans WinDev ?
Posté le 06 janvier 2005 - 08:29
Salut

OPEN "COM1:300,N,8,1" devient sFixeParamètre + sOuvre

PRINT devient sEcrit

CHR$(&H1B) devient Caract(0x1B)

Piece of cake !

Ciao
http://wdgotcha.atspace.com
Posté le 06 janvier 2005 - 09:17
et pourquois pas tout simplement faire
sOuvre(1,..........)
sFixeParametre(1........)
sEcrit(1,"0000000000")
sEcrit(1, Caract(0x1B)+"p"+Caract(0)+Caract(100)+Caract(250) )
Windev intégre la gestion des port // et Serie pas besoin de faire appel à
une dll écrite en VB !

"mouhsine" <skilzeur@hotmail.com> a écrit dans le message de
news:41dc3553@news.pcsoft.fr...
Bonjour
On vient de me confier un tiroire caisse MyPos (compatible epson) que je

dois piloter via mon port COM ou a travers l'imprimante de ticket
(ouverture). selon la doc, je dois utiliser la séquence

Ouverture depuis le port com

OPEN "COM1:300,N,8,1"
FOR RANDOM AS #1
PRINT #1,"0000000000"

Ouverture depuis l'imprimante
PRINT #1,CHR$(&H1B);"p";CHR$(0);CHR$(100);CHR$(250)

commen convertire ces code vers du windev (aucune connaissance du VB ou

Qbasic).

Merci pour votre aide j'en ai besoin