Argentina Warez » Zona Libre » Educación, Ciencia y Tecnología Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
18-ago-2011
MacGyverX
Community Manager
Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Hola a todos!


Muchos conoceran el Visual BASIC 6, además algunos y otros tenemos más o menos conocimientos de programación. En esta entrega les dejaré un pequeño tutorial con el fin de que puedas programar tu propia aplicación para que puedas aplicarla en tus proyectos de robótica.

Comencemos por el hardware



El software podrá emitir unicamente la salida en el puerto paralelo, en este caso en las patillas que dicen (Out: Data0 -Data7), con la posibilidad de obtener más de 256 combinaciones en 8 bits.

En el ejemplo utilizaremos las salidas que irán conectadas a tres diodos LED de la siguiente forma:



Nota: No intentes jugar conectando bombillos u otros dispositivos que consuman mas de 100mA en el puerto, ya que lo puedes dañar e inutilizar. Le recomiendo utilizar dispositivos Opto-Copladores.

Ahora el Software

Para utilizar el puerto paralelo tenés que tener en tu directorio un archivo "DLL" llamado "inpout32.dll". Este archivo permite comunicar a algunas aplicaciones no compiladas por corporaciones controlar el puerto paralelo.

Aquí les dejo el enlace:

http://www.mediafire.com/?ifm7wfiix7i2nxo

Ya obtenido y descargado el archivo, pégalo en un sitio que sea de confianza y cuya ruta no sea muy extensa, les recomiendo pegarlo en "C:/Windows/System32/"

Posteriormente abrimos el VB6 y creamos un ejecutable normal



Luego haremos un módulo donde montaremos la dll y podamos facilitar la comunicación de nuestra aplicación.



En Dicho módulo escribiremos:

Código:
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)


Luego listo el módulo, procederemos a hacer nuestra aplicación por medio del formulario normal:



Para comenzar procederemos a crear tres botones de comando en el formulario, de la siguiente forma:



A los botones les haremos estos cambios en las propiedades:

Código:
 
Command1 - cambios
 
Nombre: bit2
Caption: LED 2
 
Command2 - cambios
 
Nombre: bit1
Caption: LED 1
 
Command3 - cambios
 
Nombre: bit0
Caption: LED 0
Luego de cambiar todo debe de quedarles de la siguiente forma:



Ya hecho esto agregaremos otro boton que diga "LEDs APAGADOS" con el nombre de "OFF"

Luego procedemos a programar todo. A continuación les mostraré la programación del software:

Código:
Private Sub bit0_Click() 'Programación equivalente al pulsar el LED 0
Out &H378, 1    'Coloca un "1" decimal en el puerto paralelo
End Sub
Private Sub bit1_Click() 'Programación equivalente al pulsar el LED 1
Out &H378, 2    'Coloca un "2" decimal en el puerto paralelo
End Sub
Private Sub bit2_Click() 'Programación equivalente al pulsar el LED 3
Out &H378, 4    'Coloca un "4" decimal en el puerto paralelo
End Sub
Private Sub off_Click() 'Programación equivalente al pulsar el LEDs OFF
Out &H378, 0    'Coloca un "0" decimal en el puerto paralelo
End Sub
Explicaré acerca de la línea de código con "Out"

Código:
 
El "Out" le indica al módulo que el comando es salida
El "&" le indica cual puerto desea controlar
El "H" le indica que se le brindará el número del puerto en HEX
El "378" es el bus de datos en el puerto paralelo
El ", X" es el número que se desea a enviar al puerto paralelo en forma decimal
Basicamente si todo está correcto, pueden hacer correr el software y debe de funcionarte el circuito.





El circuito es únicamente para controlar tres leds, cuando pulsar por ejemplo "LED 2", se te enciende el led que está conectado al Data2, y así sucesivamente. En cambio si pulsas el "LESDs Off" apagas todos los leds, ya que coloca un "0" en el puerto.

Este es la base para programar cualquier programa.

Si te da error, puede ser, por mala programación o bien no pegastes el "Inpout32.dll" en el System32 de Windows. Además te recomiendo que hagas la programación y la pongas tal como está y luego analicesn las partes y las estructuras del software

Nota: No juegues con el puerto paralelo, tiene una tensión de salida baja por lo que es recomendado usar los opto-copladores

Que disfrutes del post y comentes tu experiencia. Tambien puedes dar puntos

Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)


18-ago-2011
kaleb Warez
Colaborador Destacado
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
La verdad esta muy bueno, aunq no sepa nada ya que mi fuerte no es la electronica O_o, Pero es un buen tuto para los que les gusta la informatica
Esta Muy bueno, los puntos te los debo.
Saludos!!!
18-ago-2011
MacGyverX
Community Manager
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Iniciado por kaleb Warez
La verdad esta muy bueno, aunq no sepa nada ya que mi fuerte no es la electronica O_o, Pero es un buen tuto para los que les gusta la informatica
Esta Muy bueno, los puntos te los debo.
Saludos!!!

Siii muchos no lo entenderán a simple vista pero ojalá esto pueda ayudarle a tanto aficionado que hay en internet
18-ago-2011
cristian adherido
Moderador General
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Muy interesante compañero, seria bueno que se hicieran mas post de estos.
18-ago-2011
manuelx2
Premium User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Wow Excelente .. Hermano
19-ago-2011
gera13sar
Moderador Honorífico
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Te quedo de 10, lo añado a favoritos
19-ago-2011
javi009
Moderador Jubilado
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
+10, excelente!
19-ago-2011
ELSORBO
Premium User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Hermano aunque me queda mucho por aprender, en realidad veo q el post esta demasiado bueno gracias por enseÑar hermano
21-ago-2011
mjjacobo
Gold User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
que interesante bro grax
21-ago-2011
masterloco1000
Premium User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
muy bueno hermano esta genial...
21-ago-2011
Makoto Kun
Premier User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
realmente entendi poqo pero entendi jajajaja !! graciaz lleon !!
21-ago-2011
Super Sauron Warez
King User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
jajaja.. me quedo con ojos de plato.. pero ya lo pondré a prueba por que me llama la atencion estos tutos raros pero muy bueno..
+5 por que estos esfuerzos valen la pena
EXITO!
21-ago-2011
Isra5
Premier User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
mucho sin entrar y ya cambió mucho el foro, ahi te van los puntos por el trabajo, voy a darle al vb, primero con mi manual y luego ya a ver si logró hacer algo de esto
22-ago-2011
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
buen comienso para los grumetes, grumetes en este barco que navega en algo llamado intertet!

saludos.

(estaria bueno que tengas un archivo para descargar)
22-ago-2011
MacGyverX
Community Manager
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Iniciado por losiramluziferblavatsky
buen comienso para los grumetes, grumetes en este barco que navega en algo llamado intertet!

saludos.

(estaria bueno que tengas un archivo para descargar)
Está hecho
22-ago-2011
FABIANNO
Premier User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
muy bueno.
23-ago-2011
jevipe
Platinum User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Muy buena la clase. Gracias.
24-ago-2011
f0x
Moderador Jubilado
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Gracias por tu aporte
28-ago-2011
fredycru
White User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
interesante lo probare
13-sep-2011
leoixtacuy1964
New User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
es bueno gracias
22-sep-2012
LUNITA68
Colaboradora Honorífica
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
¡¡¡Muy Educativo, actual e interesante. Gracias!!!
17-may-2013
peterpointer
Premier User
Re: Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)
Muy buen aporte!!! Gracias Master!!!

Necesitás estar Registrado para dejar comentarios en Tutorial para crear una aplicación en VB6 para controlar el puerto paralelo (Util en proyectos)

Información del Post