Menghitung Hambatan Total, Arus Total, Arus R1, R2 dan R3 Menggunakan Program VB 6.0

Struktur Program

source koding nya :

Private Sub Command1_Click()

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(Text4)
e = Val(Text5)
f = Val(Text6)
g = Val(Text7)
h = Val(Text8)
i = (a * b * c) / ((a * b) + (a * c) + (b * c))
Text6 = i
j = d / i
Text5 = j
k = d / a
Text7 = k
l = d / b
Text8 = l
m = d / c
Text9 = m
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Ini hasil programnya...

TERIMAKASIH SEMOGA BERMANFAAT..... :)