Visual Basic - Ayuda con compilado

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Ayuda con compilado

Publicado por Paco (1 intervención) el 15/06/2010 03:23:46
Hola, soy programador PHP y no tengo ni pajolera idea de Visual Basic, el caso es que he hecho un TPV con PHP y necesito abrir el cajón portamonedas.

Tengo la manera de ejecutar en el cliente un (.exe) a través de ActiveX, entonces, necesito que algún alma caritativa, me compile el código de apertura de cajón para poder usarlo.

Creo haber encontrado el código necesario:

Private Sub Abre_cajon()
Open "LPT1" For Output As #1
Print #1, Chr$(27); "p"; Chr$(0); Chr$(25); Chr$(250)
Close #1
End Sub

Indicar que la impresora de tickets está instalada como genérica a un puerto com, si hubiese la posibilidad de pasarle los parámetros al (.exe) en la línea de comandos perfecto.

Si hay alguien que quiera hacerme ésto último pero cobrándome, pues que me llame 695 399 101.

Un saludo y muchas gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con compilado

Publicado por Julio (72 intervenciones) el 15/06/2010 16:42:48
Haber !!!!

Puedes abrir un form en visual basic y colocas esto:

Private Sub Form_Load()
Call Abre_cajon
End Sub

Sub Abre_cajon()
Open "LPT1" For Output As #1
Print #1, Chr$(27); "p"; Chr$(0); Chr$(25); Chr$(250)
Close #1
End Sub

luego lo compilas desde el menu > Archivo en la opcion generar .exe, para que te cree el ejecutable

Luego tendras que ver como levantar ese ejecutable desde PHP

Con Visual Basic seria algo asi, utilizando una Api de Windows

Declaracion de la Api: ShellExecute

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Por ejemplo si yo quisiera abrir el excel

Abrir = ShellExecute(Me.hwnd, "Open", "Path o Ruta donde se encuentra el .exe\programa.exe", "", "", 1)

Claro esto desde visual basic.....

Bueno saludos !!!! cualquier cosa mi correo es [email protected]

Julio de Santa Fe Argentina
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar