Abrir cajon de dinero

Marcos E
12 de Marzo del 2008
Hola a todos y todas de este foro.

Necesito un programa o algo que me ayude a hacer un programa para abrir una caja de dinero, que se conecta por el puerto del mouse (com1). Que sea en Visual Basic 6.0.
Lo que necesito es para montar una caja de dinero con una computadora para que me haga la funcion de una caja registradora que es parte de mi tesis y mas adelante sera para un negocio y me puedes permitir el codigo en Visual Basic 6.0. Mira yo tengo este codigo pero me dice que ya el puerto esta abierto y no me lo abre:

Private Sub Abrir_Click() (Este es un command button)
MSComm1.CommPort = 1
MSComm1.Settings = "19200,n,8,1" MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 5
MSComm1.PortOpen = True
End Sub

Tambien para conectar un lector de codigo de barras que se conecta por el puerto del teclado.

Bueno espero que me puedan ayudar ya que de esto depende mi tesis


merche
12 de Marzo del 2008
Esta es la forma de hacerlo:

Public Sub AbrirCajon()
If Donde = "Servidor" Then
Open "lpt1" For Output As #1
Else
Open "lpt1" For Output As #1
End If

Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(60) + Chr(240);
Close #1
end sub

jose
12 de Marzo del 2008
hola necesito una ayuda por favor

yo estoy haciendo una aplicación de vb 6.0 y necesito q el lector de codigo de barras se conecte a la aplicacion y busque a un codigo y me aparesca los datos de ese codigo

si me puedes ayudar gracias
si quieres agregame al hotmail