VB y COMUNICACION PIC VIA PARALELO LPT

[olotill]

Hola compadres...

Pues bien ya me ven aqui, empezando a aprender VB pues con la ayuda de mi brother Lord_Lafebre y por supuesto con la ayuda de todos nuestros grandes foristas...

Pues bien, este tema esta abierto para empezar a postear ejemplos de comunicacion entre Pic y PC via puerto Paralelo LPT, y el soft de interfase pues vamos a manejar el famosisimo VB..

Bueno yo no se mucho pero vamos a aprender porque mi profesor Lord_Lafebre nos va a dar clases con las cuales el manejo de este puerto se hace sencillo..

y pues vamos a empezar a subir ejemplos... probarlos y seguir con nuevos...

Luego nos vamos por RS232 y al final nos vamos por USB...

Tiempo estimado:  Uyyyyy mejor pongamos ejemplos  

Ok compadres, entonces esperamos sus mensajes

SALUDOS Y UN ABRAZO DESDE MI ECUADOR  

[LordLafebre]

Hola:

Pues gracias por las flores Olotill pero yo tambien soy principiante... antes que nada mi propuesta seria antes de meternos con el pic hacer unos ejemplos sencillos con todos los puertos es decir el de Datos Estados Y control... po lo que aconsejo que empecemos con el de Datos... y utilicemos lo siguiente...

Un buffer 74Ls244 ó 74LS245
8 resistencias de 220 ohms
8leds....

y fuente de alimentacion de CC de 5V....

Si alguien se anima a participar o tiene alguna sugerencia, pues ya saben que aqui estamos para aprender o darnos concejos o comentarios...

PD: pensaba poner hoy mismo el esquema pero ya me duermo... pero mañana en la mañana lo hago...

[LordLafebre]

Hola:

Aqui esta el esquema para un 74LS245 y estoy utilizando proteus con las librerias de la pagina del pana Yoel Ocmin que la pueden encontrar aqui:





http://proyectosfie.tk/  ---->puertos ----->puerto paralelo

Estan las librerias para VB y tambien para proteus, con esto nos ahorramos de hacer los circuitos en un Protoboard...

[LordLafebre]

Hola:

Pues ¡¡¡YA ESTA!!!....

aqui les pongo el primer ejemplo:



El programa es muy sencillo:

en el formulario va esto:

Codigo:Option Explicit
Dim dato As Integer

Private Sub Command1_Click()
    dato = Val(txt)
    If dato > 255 Or dato < 0 Then
        MsgBox "Ingrese numeros entre 0 - 255"
        txt = 0
    Else
        Escribir &H378, dato
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Escribir &H378, 0
End Sub

Y tambien esta un modulo en el cual va la declaracion para el uso de la libreria:

Codigo:Public Declare Function Leer Lib "Inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Byte
Public Declare Sub Escribir Lib "Inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Byte)
Public Declare Sub Sleep Lib "Kernel32.dll" (ByVal PortAddress As Integer)

Es muy sencillo...!

[LordLafebre]

Hola:

Aqui les pongo otro ejemplito, esta ves con barios command button uno para cada bit.... en la tarde subo los ejemplos al almacen...

[LordLafebre]

Hola:

Aqui estan los archivos del primer ejemplo, lo colgue en rapidshare porque para variar mi @ esta con problemas, pero cuando se arregle lo cuelgo en el almacen....

http://rapidshare.de/files/6489438/Ejemplo_1__lpt_.rar.html

[LordLafebre]

Hola:

Aqui esta el segundo ejemplo:

http://rapidshare.de/files/6489734/Ejemplo_2__lpt_.rar.html

[lord_10]

Muy bien pana Giovanni arreglo el problema de mi pc y cuando quede bien  me uno al hilo

[LordLafebre]

Hola:

Te doy un remedio eficaz para tu PC... dale Format C: y queda como nueva... ja ja ja ja....

Ya sabes cualquier cosa estamos aui para ayudar en lo que se pueda...! vas a ver que le coges mucho cariño al Basic.... es algo facil de aprender....

[LordLafebre]

Hola:

Les propongo ahora lo siguiente:

Hacer un contador de 0-9 y visualizarlo en un display...

Lo que he hecho para visual basic es crear un vector e ir almacenando en cada posicion los valores correcpondientes para generar cada numero...

Adicionalmente hice una matriz de controles de un Image para asignar dibujos con los numeros del display... y para ir visualizando el conteo e asignado cada subindice a otra imagen es decir asignando a una imagen adicional cada subindice de la matriz para que tome el efecto del conteo... este es el codigo:

Codigo:Option Explicit
Dim i As Integer
Dim vec(16) As Integer

Private Sub Command1_Click()
    For i = 0 To 9
        Display2.Picture = Display(i)
        Escribir &H378, vec(i)
        Delay (0.5)
    Next i
End Sub

Private Sub Command2_Click()
    Escribir &H378, 0
    End
End Sub

Private Sub Form_Load()
    vec(0) = BinADec(111111)
    vec(1) = BinADec(110)
    vec(2) = BinADec(1011011)
    vec(3) = BinADec(1001111)
    vec(4) = BinADec(1100110)
    vec(5) = BinADec(1101101)
    vec(6) = BinADec(1111101)
    vec(7) = BinADec(111)
    vec( = BinADec(1111111)
    vec(9) = BinADec(1101111)
    Escribir &H378, vec(0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Escribir &H378, 0
End Sub

y aqui el como funciona el ejemplo:

[LordLafebre]

Hola:

Aqui estan los archivos del ejemplo anterior....

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3745726

[olotill]

Que hubo hermano Lord..

Pues te cuento que todo va bien, y he realizado ya los dos primeros ejemplos, pero tengo algunas pregunticas y te las posteo por aqui por si alguien en algun momento llega a necesitar una explicaciòn...

Para el 1er ejemplo..

1.  Como agrego el modulo de in32 y out32, es una libreria que debemos tener o algo asi, porque yo lo que hice fue copiar tu codigo pero lo hice medio a ciegas ya que en el fondo no se lo que hace este modulo..

para el 2do ejemplo.

2. pues lo mismo, tienes agregado en el modulo unas rutinas que no para que sirven aparte de la in32 y out32, pues hay otras que ni idea esa de DecABin y BinADec, y una sobre un Delay...

Entonces no se si estas son librerias que debemos incluir y si es asi, puedes indicarme en donde estan porque no las encuentro ... ç

Bueno hermano, seguimos pa adelante y pues vamos a ver como me va con el tercer ejemplo

SALUDOS A TODOS NUESTROS COMPADRES DEL FORO

[LordLafebre]

Hola:

El modulo lo puedes agregar asi:








En el modulo para el primer ejemplo esta solamente el llamado a la dll, esa dll como veras en la pagina del pana Yoel o en un archivo de texto te explica en donde tienes que pegarla conjuntamente con un .ocx que trae...


Para el ejemplo 2 esas rutinas la de BinaDec es para transformar un numero de binario a decimal, y la de DecaBin es para transformar un numero de decimal a binario, y la de delay es una rutina para crear retardos como los de PBP por ejemplo, ninguna de esas tres son propias de visual basic, las tengo pero no recuerdo de donde las saque... lo que hice fues ponerla en el modulo...

BinaDec, DecaBin y Delay estan en el modulo....

Suerte, sino logro aclarar tus dudas pues comentame en que falle...!

[lord_10]

hasta aqui todo bien pana lord vamos por buen camino... ah y gracias por el consejo   "dale Format C: "

[LordLafebre]

Hola:

ja ja ja eso es lo mejor.... oye pana y ya arreglaste el probelama con la libreria o como estas haciendo las pruebas, en un proto o en donde...?