VB y COMUNICACION PIC VIA PARALELO LPT

[diego_z]

hola alguien me puede decir por que no puedo usar la libreria "Inpout32.dll" en mi maq. solo "io"
 es la que funciona tiene xp sp2
saludos

[LordLafebre]

Hola:

Yo tambien tengo XP SP2 y no he tenido problemas, porqué dices que no puedes usar la libreria inpout32?

[diego_z]

no la podia usar porque cuando queria simular se me colgaba la maquina ni idea porque lo probe un par de veces despues lei que de otros que tenian el mismo problema asi que opte por !io dll si tenes algun dato extra te agradeceria saludos !!

[LordLafebre]

Hola:

Pues la verdad no se me ocurre, yo nunca he tenido problemas con esa librería en ningún computador, la he probado en muchos.

[manuelroin24]

Hola amigotes bueno solo pedirles una ayuda ya q quize intentar simular el puerto paralelo en el proteus con los ejemplos aqui mencionados y nada no obtuve resultados ni en el visual basic ni en el proteus aqui esta mi codigo en visual basic


Private Declare Function Leer Lib _
  "inpout32.dll" _
  Alias "Inp32" (ByVal PortAddress As Integer) As Byte
 
Private Declare Sub Escribir Lib _
  "inpout32.dll" _
  Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Byte)

Private Sub cmdEnviar_Click()
Dim Dato As Byte
Dato = Val(txtDato.Text)
Escribir &H378, Dato
txtDato.Text = ""
End Sub

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

al compilar esto me arroja un error si coloco las funciones como PUBLIC sale NO SE PERMITEN CONSTANTES, CADENAS DE LONGITUD FIJA, MATRICES E INSTRUCCIONES DECLARE COMO MIEMBROS PUBLIC DE MODULOS DE OBJETO
al colocar ambas funciones como PRIVATE me sale LA CONVENCION DE LLAMADAS A DLL ES INCORRECTA.

[IAO]

Holaaaaa:

Sr. manuelroin24:
Te comento que existe 2 versiones de la inpout32.dll, fijate si la tuya tiene 32k, si mal no recuerdo
es la que funciona en xp. La de win9x tiene como 23k o algo así.

Espero te sirva este mensje.
Bye('_').

[manuelroin24]

Si amigo ya pude hacerlo funcionar el problema era con mi visual basic asi q formatee todo lo volvi a correr y como nueva jajaja acabo de probarlo muchas gracias por la ayuda

[manuelroin24]

Se puede leer en el LPT Virtual del Proteus ????

[manuelroin24]

Espero q con este programita pueda leer la info del puerto paralelo si hay algun error espero su ayuda por lo pronto intentare probarlo en hardware.

Código: [Seleccionar]

Private Declare Function Leer Lib _
  "inpout32.dll" _
  Alias "Inp32" (ByVal PortAddress As Integer) As Byte
 
Private Declare Sub Escribir Lib _
  "inpout32.dll" _
  Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Byte)

Private Sub cmdEnviar_Click()
Dim Dato As Byte
Dato = Val(txtDato.Text)
Escribir &H378, Dato
txtDato.Text = ""
End Sub

Private Sub cmdLeer_Click()
Escribir &H37A, 16 'Ponemos el bit C5 en 1 ENTRADAS
Dato = Leer(&H378)
txtDato.Text = Dato
Escribir &H37A, 4  'Ponemos el bit C5 en 0 SALIDAS
End Sub

Private Sub Form_Load()
Dato = 0
Escribir &H378, Dato
End Sub


[neon197335]

amigos disculpen pero no encuentro en esta direccion http://proyectosfie.tk/ las librerias para trabajar con proteus y vb si alguien me puede decir mas especificamente dnde estan mil gracias de antemanos