Dim Port1 As Integer
Dim Port2 As Integer
Dim Port3 As Integer

Private Sub Command1_Click()
Port1 = 632
Port2 = 633
Port3 = 634
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Port1 = 888
Port2 = 889
Port3 = 890
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Out Port3, 1
Call Delay
Out Port3, 3
Call Delay
Out Port3, 1
Call Delay

Cntr = 1
Do Until Cntr = 5
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Cntr = Cntr + 1
Loop

Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = 2048 Else Reading = 0
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 1024
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 512
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 256
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 128
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 64
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 32
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 16
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 8
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 4
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 2
Out Port3, 0
Call Delay
Out Port3, 1
Call Delay
Dta = Inp(Port2) And 32
If Dta = 32 Then Reading = Reading + 1
Current = Reading / 800
Voltage = Reading / 100
Power = Current * Voltage
Power = Power * 100
Power = Power \ 1
Power = Power / 100
Label1.Caption = Power
Label2.Caption = Voltage
Power = Power * 20
Power = Power \ 1
Power = Power + 3500
Line1.X2 = Power
End Sub
Sub Delay()
For D = 1 To 5000
Next D
End Sub
