coding_pembelian buah_visual_basic

Private Sub Command1_Click()
If C.Text = "" Then
MsgBox "Anda Belum Memilih Buah"
End If
If C.Text = "Apel Merah" Then
T = 5000
ElseIf C.Text = "Apel Hijau" Then T = 4000
ElseIf C.Text = "Asem" Then T = 4352
ElseIf C.Text = "Anggur" Then T = 9000
ElseIf C.Text = "Avokat" Then T = 7500
ElseIf C.Text = "Belimbing" Then T = 3000
ElseIf C.Text = "Cerry" Then T = 9500
ElseIf C.Text = "Cempedak" Then T = 10000
ElseIf C.Text = "Coklat" Then T = 17250
ElseIf C.Text = "Durian" Then T = 21500
ElseIf C.Text = "Duku" Then T = 3500
ElseIf C.Text = "Jeruk" Then T = 2240
ElseIf C.Text = "Jambu Mete" Then T = 5500
ElseIf C.Text = "Jambu Air" Then T = 4500
ElseIf C.Text = "Jambu Biji" Then T = 3000
ElseIf C.Text = "Kelengkeng" Then T = 7500
ElseIf C.Text = "Kedondong" Then T = 5650
ElseIf C.Text = "Kokosan" Then T = 2350
ElseIf C.Text = "Lemon" Then T = 7600
ElseIf C.Text = "Langsep" Then T = 5400
ElseIf C.Text = "Mentimun" Then T = 2100
ElseIf C.Text = "Melon" Then T = 7550
ElseIf C.Text = "Markisa" Then T = 8900
ElseIf C.Text = "Manggis" Then T = 9800
ElseIf C.Text = "Nanas" Then T = 3450
ElseIf C.Text = "Nangka" Then T = 3210
ElseIf C.Text = "Pepaya" Then T = 1250
ElseIf C.Text = "Pisang" Then T = 2300
ElseIf C.Text = "Rambutan" Then T = 4590
ElseIf C.Text = "Rambutan Kelengkeng" Then T = 6500
ElseIf C.Text = "Srikaya" Then T = 3980
ElseIf C.Text = "Strowberi" Then T = 19800
ElseIf C.Text = "Salak" Then T = 2345
ElseIf C.Text = "Sirsak" Then T = 1987
ElseIf C.Text = "Semangka" Then T = 2300
ElseIf C.Text = "Tomat" Then T = 1350
ElseIf C.Text = "Leccy" Then T = 5679
End If
End Sub
Private Sub Command2_Click()
If u = "" Then
MsgBox "Berapa Kilo Yang Akan Anda Beli?"
ElseIf T = "" Then
MsgBox "Pilih Jenis Buah"
ElseIf u <= 25 Then
v = 0 & "%"
w = "Rp." & T * u
x = "Rp." & T * u
ElseIf u <= 49 Then
v = 5 & "%"
w = "Rp." & T * u - (T * u / 100 * 5)
x = T * u
ElseIf u <= 99 Then
v = 15 & "%"
w = "Rp." & T * u - (T * u / 100 * 15)
x = "Rp." & T * u
ElseIf u > 100 Then
v = 25 & "%"
w = "Rp." & T * u - (T * u / 100 * 25)
x = "Rp." & T * u
End If
End Sub
Private Sub Command3_Click()
T.Text = ""
u.Text = ""
v.Text = ""
w.Text = ""
x.Text = ""
T.SetFocus
u.SetFocus
v.SetFocus
w.SetFocus
x.SetFocus
End Sub
Private Sub Form_Load()
'tambah combo
C.AddItem "Anggur"
C.AddItem "Apel Hijau"
C.AddItem "Apel Merah"
C.AddItem "Asem"
C.AddItem "Avokat"
C.AddItem "Belimbing"
C.AddItem "Cempedak"
C.AddItem "Cerry"
C.AddItem "Coklat"
C.AddItem "Duku"
C.AddItem "Durian"
C.AddItem "Jambu Air"
C.AddItem "Jambu Biji"
C.AddItem "Jambu Mete"
C.AddItem "Jeruk"
C.AddItem "Kedondong"
C.AddItem "Kelengkeng"
C.AddItem "Kokosan"
C.AddItem "Langsep"
C.AddItem "Leccy"
C.AddItem "Lemon"
C.AddItem "Mangga"
C.AddItem "Manggis"
C.AddItem "Markisa"
C.AddItem "Melon"
C.AddItem "Mentimun"
C.AddItem "Nanas"
C.AddItem "Nangka"
C.AddItem "Pepaya"
C.AddItem "Pisang"
C.AddItem "Rambutan"
C.AddItem "Rambutan Kelengkeng"
C.AddItem "Salak"
C.AddItem "Semangka"
C.AddItem "Sirsak"
C.AddItem "Srikaya"
C.AddItem "Strowberi"
C.AddItem "Tomat"
End Sub
Private Sub mnTutup_Click()
a = MsgBox("Apakah Anda Yakin Ingin Keluar?", vbYesNo + vbInformation, "keluar")
If a = vbYes Then
End
Else
Exit Sub
End If
End Sub