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
Komentar
Posting Komentar
Tulis komentar anda disini.....