Mensajes

Tenes razon Zeroql    solo hay que cambiar el puerto y en vez de enviar hasta 255, solo enviaria hasta 64 creo o menos.



Sancho.Mazorka   

Man era Serial no paralelo, yo tmb le ofreci paralelo y no necesita eso


Sancho.Mazorka   

y bueno si no te molestas te ayudo igual, de paso aprendemos los 2    Si no keres no hay problema


Sancho.Mazorka   

jajjaja que buen chiste Topo! Si kieren se los comparto por aca, pero yo decia por msn porque es mejor, y el Dsp aclaramos bien las cosas fue para aclarar el tema del paralelo, mal pensado

Si kieren avisen, a vos tmb Topo


Sancho.Mazorka   

que es semiabierto SYN ? si aclaras te puedo ayudar se mucho de Winsock


Sancho.Mazorka   

Man te agregue al msn, y te puedo ayudar estoy en el tema, pero x puerto paralelo te puedo ayudar mejor que por el serial. Dsp aclaramos bien las cosas


Sancho.Mazorka    

man te conviene usar el puerto paralelo para eso es mucho mas facil, si kieres agregame al msn y te doy la DLL mas unos ejemplos que yo hice de entrada/salida del puerto paralelo, mas un manejador de display numerico de 7 luces, y un mouse hasta con hardware me hice   rhcp_269@hotmail.com
PD: el voltaje es de 5volts y el amperaje era re bajo no me acuerdo bien.


Sancho.Mazorka   

Solo se bloquear un puerto mediante el firewall de windows, pero hecho desed VB



Sancho.Mazorka   

Man el ScriptControl1 es un OCX o que es ? y no pudes agregar en una variable una operacion de este modo :

Código [Seleccionar] Expandir

Valor = "suma 5+10"

Por favor cuando postees codigo usa la el boton de codigo asi es mas facil leer la programacion

Disculpa que no te pueda ayudar 

Sancho.Mazorka 

Mira si una funcion es asi:

Código [Seleccionar] Expandir

Public Function Sumar(Num1 As Integer, Num2 As Integer) As Integer
Para llamar a esa funcion tenes que poner:

Código [Seleccionar] Expandir

Call Sumar(5,8) 'Como tiene un "Call" antes los valores van entre ()
Ret = Sumar(5,8) 'Obtenes el resultado Ret, tons los parametros de Sumar van entre ()  A veces Ret es como control
Sumar 5,8 'Esta sin nada entonces los paramentro no necesitan ir entre ()
El valor devuelto de la suma es almacenado en Sumar entonces podes hacer esto:

Código [Seleccionar] Expandir

Msgbox Sumar(5,8) 'Sale un msgbox con el resultado
Text1.text = Sumar(5,8) 'En un textbox se guarda el resultado
Ret = Sumar(5,8) 'Guardamos en Ret el valor
Msgbox Ret 'Hacemos un msgbox de Ret

PD: Al final de la funcion dice As Integer eso significa que el nombre de la funcion puede conterner el resultado para devolverlo, si no tiene alguna varialbe al final es porque en el procedimiento ese no se puede guardar ningun valor
Espero que te sirva de algo! Salu2


Sancho.Mazorka