Program Hitung Resistor

Private Sub Command1_Click()
panjang = Shape1.Width
For i = 0 To 10000
Shape1.Width = i / 10000 * panjang
Label5.Caption = "Proses " & i / 100000 * 100 & " %"
Next
Text1.Text = ((Combo1.ListIndex * 10) + Combo2.ListIndex) * 10 ^ Combo3.ListIndex
If Combo4.ListIndex = 0 Then Text2.Text = 0.05 * Val(Text1.Text)
If Combo4.ListIndex = 1 Then Text2.Text = 0.1 * Val(Text1.Text)
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
End
End Sub

Read more »