TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: mos en 07 de Mayo de 2006, 16:05:06

Título: Como gobernar puerto paralelo?
Publicado por: mos en 07 de Mayo de 2006, 16:05:06
Hola compañeros, estoy empezando en vb y una de las cosas por las que me gustaria empezar es programando el puerto paralelo, utilizo el editor vb 5.0 y me gustaria saber como mandar un digito  ( 0 a 255 ) y tambien como leerlo, he visitado una pagina aqui que habla del tema pero los enlances no funcionan, no se descarga el archivo, desearia si alguien tiene esa parte del programa haber si me lo puede poner y tambien la libreria del puerto que  necesita vb o saber donde encontrarlo. Un saludo a todos los compañeros del foro.  :P
Título: Re: Como gobernar puerto paralelo?
Publicado por: LordLafebre en 07 de Mayo de 2006, 16:27:30
Hola:

mos, en el otro post te puse ya el ejemplo y el link para que te descargues la libreria, revisalo.
Título: Re: Como gobernar puerto paralelo?
Publicado por: LordLafebre en 07 de Mayo de 2006, 16:35:38
Hola:

Se me olvidaba, la dll te la adjunto aqui, descomprimela y pegala en el system32 del SSOO.

Suerte...!!!  :-/
Título: Librerias?
Publicado por: mos en 11 de Mayo de 2006, 15:32:29
Hola compañero, me he descargado inpout32 y el iot  pero no se que hacer con esto, donde lo tengo que poner
utilizo la version 5.0 que es la que me he podido descargar de internet, el programa que he visto es muy sencillito
pero no me funciona nada, seguro que es por la libreria que no se donde lo tengo que poner. Una ayudita y un saludo
compañero. :?
Título: Re: Como gobernar puerto paralelo?
Publicado por: atlasdelcarinakeel en 11 de Mayo de 2006, 16:06:56
Bueno deberia ser en la carpeta system32 de windows.
Título: se me resiste el puerto
Publicado por: mos en 11 de Mayo de 2006, 16:42:03
Hola compañeros, ya he puesto las dll en la carpeta correspondiente , gracias compañeros, he probado el programita simple pero no me funciona tal y como esta aqui

Option Explicit
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)
Escribir &H378, 0
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

Private Sub Form_Unload(Cancel As Integer)_
Public Declare Function Leer Lib "Inpout32.dll" ()
End Sub

le he dado nombre a los botones, por ejmplo en vb me sale text1, aqui lo he cambiado por txt
pero nada , no me funciona
no se que hago mal, un saludo compañeros foristas.
Título: Re: Como gobernar puerto paralelo?
Publicado por: LordLafebre en 12 de Mayo de 2006, 01:05:26
Hola:

mos, probaste el ejemplo que te puse en el oto post???
Título: Re: Como gobernar puerto paralelo?
Publicado por: BrunoF en 12 de Mayo de 2006, 01:57:12
Hola, proba asi:

Código: Visual Basic
  1. Option Explicit
  2. Private Declare Function Leer Lib "Inpout32.dll" _
  3. Alias "Inp32" (ByVal PortAddress As Integer) As Byte
  4.  
  5. Private Declare Sub Escribir Lib "Inpout32.dll" _
  6. Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Byte)
  7.  
  8. Private Declare Sub Sleep Lib "Kernel32.dll" (ByVal PortAddress As Integer)
  9.  
  10. Dim dato As Byte
  11.  
  12. Private Sub Command1_Click()
  13. If IsNumeric(txt) Then dato = CByte(txt) Else GoTo Erroneo
  14. If dato > 255 Or dato < 0 Then
  15. Erroneo:
  16.     MsgBox "Ingrese numeros entre 0 - 255"
  17.     txt = 0
  18. Else
  19.     Escribir &H378, dato
  20. End If
  21. End Sub
  22.  
  23. Private Sub Form_Load()
  24.     Escribir &H378, 0
  25. End Sub
Exitos!
Título: gracias compañeros
Publicado por: mos en 12 de Mayo de 2006, 15:46:21
Siiiiii yaaa me funcionaaaa, era el archivo bas que no sabia donde tenia que ponerlo, gracias compañeros. :-)