Caja Registradora SHARP XE-A206

[wolf_kof]

Necesito ayuda para poder hacer que mi sistema de vb 6.0 se comunique libremente con esta caja registradora.

Lo que necesito es que abra la caja cuando tenga que cobrar y que imprima el ticket.

No quiero utilizar la caja en sí, si no hacerla funcionar desde la computadora.
Help!!!!1 

[coco]

No hay datos de que tecnicamente se pueda desde la pc, sino que te deja programarla desde la pc. Posiblemente tenga unos cables que habilitan un electroiman adentro que la abre, pero ... Necesitaria fotos de la cosa abierta o datos tecnicos, etc etc.

[wolf_kof]

lo que en si necesito es saber como se apaga o enciende un puerto usb, mas bien como dejo de mandar corriente por medio de un puerto usb, por que ya desmantele la caja registradora, ahra estoy parobando si pudiera ayudarme en ese sentido se lo agradeceria.

[coco]

los puertos usb en teoria no se apagan, pero si pueden enviar un evento para "que se apague el dispositivo". la verdad que lo que estas pidiendo es mas dificil de lo que te imaginas.

saludos

[wolf_kof]

tengo la necesidad de enviar un impulso electrico a una celenoide para activarlo, no quiero activarlo por el puerto paralelo ya que las pc no tienen puerto paralelo ya, testiando el puerto usb me di cuenta de que cuento con una linea viva, mi pregunta es: Solamente esta linea la que tiene corriente o puedo cortar la corriente de esta linea para cuando necesite enviar el impulso con alguna tecla?

[coco]

para activar esa solenoide necesitas un par de mA los cuales el USB posiblemente no entregue. 2º, el USB da 5v, y no se puede prender o apagar. para eso necesitarias algun dispositovo USB que haga lo que vos queres (lo cual es complicado)

[wolf_kof]

entiendo lo de los microamperios pero impresionantemente el celenoide se activa con el usb, el dilema es como hago para mandar el impulso, para abrir la caja registradora.

[ssccaann43]

Hola,

Pega un objeto MSCOMM en tu form, ese que parece un telefono, y luego pegas este codigo..

Código: [Seleccionar]

Public Function OpenCashDrawer(CashComm As MSComm)
On Error GoTo ERRHANDLE
CashComm.CommPort = 1
CashComm.Settings = "1200,n,8,1"
CashComm.InputLen = 0
CashComm.PortOpen = True
Exit Function
ERRHANDLE: Resume Next
End Function

La manera de usarlo es..

Código: [Seleccionar]

Private Sub Btn_AbreGaveta()
OpenCashDrawer MSCOMM1
End Sub

Saludos...!

[wolf_kof]

Grax funka muy bien.....