Olá Cleber,
crie um buffer flip-flop e faça a leitura em 2 bits da porta, e para deixar a leitura mais rápida monte um do loop.
Não esqueça que alem da &H378 vc tb tem a &H379 e &H37A para a LPT1
Dim Entrada as Byte, Aux as Byte, Acumulador as Long
Entrada = PortIn(&H378)
Do
DoEvents 'Não permite que a rotina Trave o PC e permite finalizar a tarefa a qq
'momento
Aux = PortIn(&H378)
'Depois de fazer a leitura da porta não altere seu estado se qdo vc leu ela estava
'00000101 mantenha neste estado e quando o sistema acionar o contador
'novamente ela passará a ser 00000011 por exemplo, isto caso vc esteja usando
'apenas os bits 2 e 3, note que apenas eles mudaram o valor, assim dificilmente vc
'perderá a contagem
if Not Aux = Entrada then
Entrada = Aux
Acumulador = Acumulador + 1
me.cls
me.Print Acumulador & " voltas"
End If
Loop
Abraços, e entre em contato se precisar
Eder Guaitoli
