Kamis, 17 Maret 2016

Perhitungan Kapasitor Seri Paralel 2 Input



Private Sub Command1_Click()
Label1.Caption = Int(Text1.Text) + Int(Text2.Text)
End Sub

Private Sub Command2_Click()
Label1.Caption = ((Int(Text1.Text) * Int(Text2.Text)) / (Int(Text1.Text) + Int(Text2.Text)))
End Sub

Private Sub Command3_Click()
Label1.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub