none
Ayuda con visual basic 2008 express RRS feed

  • Pregunta

  • Hola a tod@s soy novato en este foro, la cuestión es que hice un programa para una caja registradora en visual basic, y el programa funciona perfecto pero el problema es que el cajón de la caja registradora es antiguo por lo que no tiene conexion  para ordenador, entonces lo desmonté y vi que tenia dos cables que ivan a un motor (12v) y solo necesita un pulso electrico para que expluse la bandeja que contiene el dinero.

    Entonces pense en un relé conectado al USB o a un puerto serie (15pines) el relé en cuestion es un cebek T4 ya que es el mas barato y el unico que puedo conseguir, hasta aquí esta todo bien el problema es que necesito el código fuente (delphi) para enviar un pulso electrico de 3v por el puerto o USB a dicho relé (ya se que el USB tiene 5v).

    Ahora viene la segunda parte, el relé no tiene conexión para USB ni para el puerto, solo tiene una regleta para conectar el cable positivo y el negativo.

    Necesito ayuda URGENTE!! les agradeceria mucho el que me diera una solución estoy harto de buscar en google, youtube, yahoo, etc pero no he encontrado nada que me sirva y lo poco que me podria ayudar esta en vb 06 o C++ 

    viernes, 24 de mayo de 2013 11:39

Todas las respuestas

  • Yo hice algo parecido pero la caja estaba conectada a una impresora  y se mandaba un comando por el puerto serie y el cajón abría...
    Ejemplo 1
    
    Sub Abrir_Cajon() 
    
    Dim Fichero as integer 
    
    Fichero=FreeFile 
    
    Open "LPT1" For Output as #Fichero 
    Print #Fichero,Chr(27)+Chr(112)+Chr(0)+Chr(40)+Chr(40) 
    Close #Fichero 
    End Sub 
    
    Ejemplo 2
    Public Sub AbrirCajon() 
    Dim intFichero As Integer 
    intFichero = FreeFile 
    Open "COM1" For Output As #intFichero 
    'Chr$(27) es el carácter de escape y a continuación 
    'se envía el carácter que abre el cajón 
    'usualmente el Chr$(7) 
    Print #intFichero , Chr$(27) + Chr$(7) 
    Close #intFichero 
    End Sub 
    
    Ejemplo 3
    Open "com1:" For Output As #1 Len = 1 
    Write #1, Chr(13) 
    Close #1 


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    domingo, 26 de mayo de 2013 20:08
  • hola agradezco de corazon que me intentes ayudar, he provado los 3 ejemplos pero ninguno me funcionan te adjunto  imagenes para que los puedas visualizar, creo que el problema esta en la version de vb.

    Un saludo

    http://www.subirimagenes.net/i/130528015530664513.png

    http://www.subirimagenes.net/i/130528015534279924.png

    http://www.subirimagenes.net/i/130528015539207247.png

    martes, 28 de mayo de 2013 11:57
  • Perdona!!! Los ejemplos estan en vb6, no me he percatado que lo querías en vb.net... lo siento en cuanto tenga un huequito en el trabajo intento hacer mas ejemplos ok?


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    martes, 28 de mayo de 2013 12:02
  • no losiento no me ayudo mucho :( estoy bastante ocupado, asique cuando tenga tiempo libre procurare ponerme con eses codigos aver si puedo hacer algo con ellos, si es asi no dudare en marcarte como mejor respuesta.

    PD: agradezco que me respondieses por eso te voto como util

    Un saludo
    jueves, 30 de mayo de 2013 7:31