Aplikasi Perhitungan (Penjumlahan, Pengurangan, Perkalian, bagi)

Aplikasi Perhitungan

Source code

1.       Deklarasi Variabel , letakkan pada General

Dim angka1 As Integer

Dim angka2 As Integer

Dim hasil As Double

2.       Object Command1, Event Click

Private Sub Command1_Click()

//option 1 => option Penjumlahan

If Option1.Value = True Then

angka1 = Text1.Text

angka2 = Text2.Text

hasil = angka1 + angka2

 Text3.Text = hasil

   

//Option  2 => Pengurangan

ElseIf Option2.Value = True Then

angka1 = Text1.Text

angka2 = Text2.Text

hasil = angka1 - angka2

 Text3.Text = hasil

 //Option 3 => Perkalian

ElseIf Option3.Value = True Then

angka1 = Text1.Text

angka2 = Text2.Text

hasil = angka1 * angka2

 Text3.Text = hasil

//Option 4 => bagi

Else

angka1 = Text1.Text

angka2 = Text2.Text

hasil = angka1 / angka2

 Text3.Text = hasil

End If

End Sub

3.       Object Command1, Event Click

Private Sub Command2_Click()

Unload Me

End Sub