programacion medicion porcentaje de una pila

[noble10]

hola espero me puedan ayudar en estos momentos estoy haciendo un programa en visual basic el cual debe medir el porcentaje de una pila se hizo un circuito el cual lleva un amplificador operacional de 4 salidas los cuales van al bus de datos del puerto paralelo en los pines 2,3,4y5 segun como yo creo solo se debe leer el bus de datos y con un if anidado para que muestre en la interfaz el porcentaje me dijeron que si pin 2=5volts estaria en un 25%, pin3=5volt 50%, pin4=5volt 75% y pin5=5 olt 100%les mando el codigo que he hecho para que me ppuedan asesorar de antemano les agradesco su atencion y su tiempo

codigo:

Dim BD, leerbd As Integer

Private Sub Form_Load()
BD = &H378
leerbd = Inp(&H378)
leerbd = leerbd And &H1
Out BD, leerbd


If (leerbd And &H1) = 1 Then
Shape1.BackColor = &HFF0000
Label1.Caption = "25%"
ElseIf ((leerbd And &H1) And (leerbd And &H2)) = 1 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Label1.Caption = "50%"
ElseIf ((leerbd And &H1) And (leerbd And &H2) And (leerbd And &H3)) = 1 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Label1.Caption = "75%"
ElseIf ((leerbd And &H1) And (leerbd And &H2) And (leerbd And &H3) And (leerbd And &H4)) = 1 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Label1.Caption = "100%"
End If
End If
End If
End If
End Sub

[davidcr]

No entiendo mucho de tu circuito si por ejemplo ya puedes obtener la lectura digamos pin 2=5volts representa un 25% entonces puedes agregar un progressbar y asignarle estos valores

progressbar1.min = 0
progressbar1.max = 100
progressbar1.value=(tu lectura de puerto) ej 25 o el equivalente

Ahora he visto codigo y parece bien, explicanos por que no te funciona o si tienes algun error.