eu gostaria que quando ele recebe o sinal 01000000..

ele pega o valor em decimal gostaria de saber como faço para pegar o valor de lpt1 em bit

 

x = "01000000"

 

ltpt1 = inp(889) ' Aqui ele tá pegando o valor em decimal...

if lpt1 = x then

  text1.text = "gravando"

end if

 Tente assim:

 

ae blz.. então nao funciona..

então no caso eu estou usando o pino 10... como faço para o programa saber que eu quero usar apenas o pino 10. e dar o valor de 0 ou 1.

 Desulpe Marcos mas ainda não esta claro, vc quer tipo:

 >tenho 10 I/O na lpt

 >vc quer tipo colocar em nivel alto determinada I/O via código?

 >exe:

' seta a porta em 00000000 
           out 889, 0  

' seta a porta em 00000001 (pino 2, D0)
           out 889, 1 

           ' seta a porta em 00000010 (pino 3, D1)
           out 889, 2

           ' seta a porta em 00000100  (pino 4, D2)
           out 889, 4

           'seta a porta em 00001000  (pino 5, D3)
           out 889, 8

           ' seta a porta em 11111111
           out 889, 255

 

  

entao trabalhar com o comando  ( OUT ) ENVIAR sinal eu consigo normal, agora ( INP ) RECEBER sinal não estou conseguindo especificar o pino 10...

 

PROBLEMA SOLUCIONADO...

 

Codigo OK...

Option Explicit
'Declaração das funções da DLL
Private Declare Sub Out32 Lib "inpout32.dll" (ByVal PortAddress As Integer, ByVal PortData As Byte)
Private Declare Function Inp32 Lib "inpout32.dll" (ByVal PortAddress As Integer) As Byte

 

Private Sub Timer1_Timer() 'Loop
Dim lpt1 as byte
    lpt1 = (Inp32(&H379) and 64) 'Lê um byte do Registro de Status. 

   if lpt1 = 0 then '
       msg.txt = "Ok"
    else
       msg.txt = "Falha"
    end if
End Sub