Membuat Kalkulator Menggunakan Option Button
Komponen Yang Di Gunakan Adalah:
a. Empat buah label
b. Tiga command Button dan
c. Lima buah optionButton
Buatlah Form Seperti Dibawah Ini

Lalu Masukkan Listing Dibawah Ini
Klik Dua Kali Pada Tombol (=) Lalu Masukkan Listing Dibawah Ini:
Private Sub Command1_Click()
If Option1.Value = True Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
ElseIf Option2.Value = True Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
ElseIf Option3.Value = True Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
ElseIf Option4.Value = True Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
ElseIf Option5.Value = True Then
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
Text1.SetFocus
End If
End Sub
Klik Dua Kali Pada Tombol (ON) Lalu Masukkan Listing Dibawah Ini:
Private Sub Command3_Click()
Text1 = "": Text1.SetFocus
Text2 = ""
Text3 = ""
End Sub
Klik Dua Kali Pada Tombol (OFF) Lalu Masukkan Listing Dibawah Ini:
Private Sub Command2_Click()
End
End Sub
Program ini dibuat oleh Heri Afrizal di bireuen
