Abrir cajon de dinero
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
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
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
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