Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 11-may-2008, 06:41   #1 (permalink)
ci2000 ha deshabilitado el karma
 
Fecha de Ingreso: abril-2005
Mensajes: 177
Expulsar cajón de dinero

Hola, tengo una impresora serial Epson TM-U950 para imprimir tickets conectada a un cajón de dinero.

La impresora imprime bien, pero no logro expulsar el cajón de dinero.

El cajón es un AQ-4000/7000 Series.

En el manual trae la secuencia de escape para expulsar el cajón en QBASIC que es:

PRINTER #1,CHR$(&H1B);"P";CHR$(0);CHR$(100);CHR$(250);

He buscado en la web y encontré esta misma secuencia utilizada por otros, también hay otras secuencias, pero ninguna de ella logra expulsar al cajón.

Tal vez deba fijarme en algún dato del hardware, pero la conexión es simple porque un cable conecta la impresora con el cajón.

Desde ya, les agradezco las respuestas.
Saludos
ci2000 está desconectado   Responder Citando
Antiguo 12-may-2008, 09:19   #2 (permalink)
Colaborador
David el Grande tiene algunos puntos positivos de karma
 
Avatar de David el Grande
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 2.516
Idea Re: Expulsar cajón de dinero

Cita:
Iniciado por ci2000 Ver Mensaje
Hola, tengo una impresora serial Epson TM-U950 para imprimir tickets conectada a un cajón de dinero.

La impresora imprime bien, pero no logro expulsar el cajón de dinero.

El cajón es un AQ-4000/7000 Series.

En el manual trae la secuencia de escape para expulsar el cajón en QBASIC que es:

PRINTER #1,CHR$(&H1B);"P";CHR$(0);CHR$(100);CHR$(250);

He buscado en la web y encontré esta misma secuencia utilizada por otros, también hay otras secuencias, pero ninguna de ella logra expulsar al cajón.

Tal vez deba fijarme en algún dato del hardware, pero la conexión es simple porque un cable conecta la impresora con el cajón.

Desde ya, les agradezco las respuestas.
Saludos
La única idea que se me ocurre para hacerlo con Visual Basic sería:
Código:
 
Printer.Print Chr$(&H1B);"P";Chr$(0);Chr$(100);Chr$(250);
Printer.EndDoc
No sé si funcionará pues no tengo el HardWare, pero puedes intentarlo.
Si no funciona puedes crear un programa en QBASIC que abra el cajón y lo llamas desde Visual Basic usando Shell...
__________________
"En la vida muchas veces tenemos que ser aprendices, y muchas veces maestros"
P.S.: Pregunta siempre en el foro correcto.
David el Grande está desconectado   Responder Citando
Respuesta
No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 16:00.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93