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
Memuat foto
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

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word