1. 3 combo box
2. 2 command button
3. 1 label
Langkah Pembuatan :
1. di combo1 , isi listnya dengan angka 0-9
2. di combo2, isi listnya dengan angka 0-9
3. di combo3,isi listnya dengan angka 0-9
4. Ganti text combo1 menjadi Angka Pertama
5. Ganti text combo2 menjadi Angka Kedua
6. Ganti text combo3 menjadi Angka Ketiga
7. Ganti Caption pada command 1 menjadi "Temukan nilai kapasitansi"
8. Ganti Caption pada command 2 menjadi "Bersihkan"
9. Ganti visible pada label1 menjadi False
Masukkan Koding :
Private Sub Command1_Click()
Select Case Combo3.Text
Case "0"
Combo3.Text = 1
Case "1"
Combo3.Text = 10
Case "2"
Combo3.Text = 100
Case "3"
Combo3.Text = 1000
Case "4"
Combo3.Text = 10000
Case "5"
Combo3.Text = 100000
Case "6"
Combo3.Text = 1000000
Case "7"
Combo3.Text = 10000000
Case "8"
Combo3.Text = 100000000
Case "9"
Combo3.Text = 1000000000
End Select
If Combo1.Text = "Angka Pertama" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"
ElseIf Combo2.Text = "Angka Kedua" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"
ElseIf Combo3.Text = "Angka Ketiga" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"
ElseIf Combo1.Text = "" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"
ElseIf Combo2.Text = "" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"
ElseIf Combo3.Text = "" Then
MsgBox "Belum Memilih Angka", vbCritical, "Error"
Else
Label1.Visible = True
Label1.Caption = Combo3.Text * (Combo2.Text & Combo1.Text)
End If
End Sub
Private Sub Command2_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label1.Caption = ""
End Sub