Puerto Paralelo

Programa
Para poder manejar puertos en Visual Basic.Net es necesario contar con la librería Inpout32.dll de la cual hablamos anteriormente reiterando que es necesario Poner la librería correspondiente en la carpeta c:\windows\system32 una vez hecho eso tenemos que crear una clase en nuestro proyecto donde se importa la librería .
-------------------------------------------------Imports System
Imports System.Runtime.InteropServices
 
Public Class Puerto
_
Public Shared Function output(ByVal adress As Integer, ByVal value As Integer) As Boolean
 
End Function
 
End Class-------------------------------------------------

Una vez hecho esto pasamos a nuestro formulario e insertamos un botón, en este botón probaremos si todo sale correctamente en el botón ira el siguiente código:
-------------------------------------------------


Private Sub Probar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Probar.Click
Puerto.output(888, 255)
End Sub
-------------------------------------------------

Para poder encender el led numero 1 ,2 y 3 de nuestra Protoboard necesitamos el siguiente codigo que ira dentro de un boton como se muestra respectivamente :
888 porque es la dirección hexadecimal que utiliza VB.NET para mandar señal al puerto y 1,2 y 4 por que es la dirección dondeesta ubicada el primer led para poder saber la dirección del led se debe hacer lo siguiente:
Los pines se enumeraran del 0 en adelante en este caso del 0 al 7 tomando referencia los pines del conector del 2 al 9 se realiza la siguiente operación:
Led | Pin |
1 | 3 |
2 | 4 |
3 | 5 |
4 | 6 |
5 | 7 |
6 | 8 |
7 | 9 |
Tomando en cuenta la tablita anterior se realiza lo siguiente:2^0 (led)=1 (direccion en VB.NET)
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
Esa es toda la operación y así se realiza sucesivamente.
Este es el ejemplo, para esto se necesita inserta 8 botones y 1 timer el formulario y la clase anteriormente mencionada.
-------------------------------------------------


Private Sub Led1_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Led1.Click
Puerto.output(888, 1)
End Sub
Private Sub Led2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Led22.Click
Puerto.output(888, 2)
End Sub
 
Private Sub Led3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Led3.Click
Puerto.output(888, 4)-------------------------------------------------
End Sub

Public Class Form1
Dim i As Integer = 0
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Puerto.output(888, 0)
End Sub
 
Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosedPuerto.output(888, 0)
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Puerto.output(888, 1)
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Puerto.output(888, 2)
End Sub
 
Private SubButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Puerto.output(888, 4)
End Sub
 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Puerto.output(888, 8)
End Sub
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click...