Programación General > Visual Basic 6.0 e inferiores

 Re: Cajon portamonedas para TPV

(1/2) > >>

MindEye:
- Sabe alguien como se controla la apertura del cajon portamonedas a codigo, y la impresora de tickets.

 - Gracias

HurryCrack:
La impresora de tickets funciona igual ke cualquier otra, simplemente le das el tipo de letra, el tamaño .... y le das al:

printer.print xxxxx

lo de la apertura del cajon ya o veo mas dificil, supongo que tendras ke atacar al sistema del TPV.
Un saludo
:hippi:

Jordi_BCN:
Hola!
He conseguido el codigo para abrir el cajon portamondeas:
OPEN "LPT1" FOR RANDOM AS #1
PRINT #1, CHR$(&H1B); "p"; CHR$(0); CHR$(100); CHR$(250);
CLOSE #1

Ese codigo lo he conseguido de: www.jrubi.com (resumen)

Salu2

enyelber:

_vgt_:
Buenas!!, he estado investigando un par de dias sobre lo de la apertura de cajones portamonedas y he visto que entre otras cosas las impresoras nuevas de tickets ya vienen con la opción de apertura automática:  open cash drawer1 ... con la seleccion de esta opcion el driver de la impresora (yo tengo una térmica SAMSUNG SRP350) abre automáticamente el cajon conectada a la impresora a los milisegundos que le especifiques... muxo mas facil k tener k programarlo aunk si no tienes mas cojones k programarlo aki dejo el codigo:

--- Código: Text --- > > > Public Sub AbrirCajon()> > > On Error GoTo HayError> > > Dim intFichero As Integer> > > Dim strCadenaApertura As String> > > nfile = FreeFile> > > strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(0)> > >> > > Open "Lpt1" For Output As #intFichero> > >     Print #intFichero, strCadenaApertura;> > >     Close #intFichero> > > Exit Sub> > >> > > HayError:> > >     MsgBox "No puedo abrir el cajón", _> > >                 vbInformation, _> > >                 " Error en el procedimiento AbrirCajon"> > >     Resume Next> > > End Sub  
saludos  :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente