| Control del puerto paralelo en visual net |
|
|
|
| Mediante este programa utilizando la libreria inpout32.dll, podemos manejar el puerto paralelo en xp. |
Option Strict Off
Option Explicit On
Module InpOut32_Declarations
'Inp and Out estan declararadas en inpout32.dll, bajala de internet, deberás meterla en system32
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Out(&H378S, &HFFS) 'cambiando el valor FF, por otro en hexadecimal por ejemplo 2,4,8,16,32,64 por el hexa correspondiente 2,4,6,10,20,40,80,FF
Dim Value1 As String
Value1 = Inp(&H378S) 'lee valor
MessageBox.Show(Value1)
End Sub
End Class
|
|
| |
| Terminos de Uso |
|
1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.
2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.
3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.
4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.
|
|
|
|
|
