Ketentuan soal:
- Buat sub aktif, nonaktif, dan bersih.
- Pada saat form dijalankan semaua objek dalam kondisi tidak aktif dan bersih.hanya tombol input dan keluar yang dalam kondisi aktif.buat pilihan isi list box,diantaranya kukus,goreng,rebus
- Klik tombol input,maka textbox,list box,combobox,dan option button dalam kondisi bersih dan aktif,kursor berada pada nama customer.untuk tanggal biarkan non aktif dan tidak usah dibersihkan
- Harga per dus ditentukan berdasarkan daftar
brownis dengan ketentauan sebagai berikut :
Jika daftar=kukus,maka harga per dus Rp.25000,-Jika daftar=goreng,maka harga per dus Rp.35000,-Jika daftar=rebus,maka harga per dus Rp.45000,-5. Biaya antar diperoleh dari jenis pesanan yang dipilih dengan rincian sbb:Jika jenis pesanan = delivery order,biaya antar sebesar Rp.10000,-Jika jenis pesanan =take away,biaya antar sebesar Rp.0,-Kursor berada pada jumlah beli.6. Jumlah beli diinput,tekan enter maka:Total harga =(harga per dus=biaya antar)*jumlah beli7. Untuk kategori pelanggan,Jika member,maka mendapatkan diskon 10% dari total hargaJika non member,maka tidak mendapatkan diskon8. Klik tombol hitung ,Total bayar = total harga – discount9. Klik tombol keluar,maka akan tampil pesan “tutup form?”jika dipilih yes maka akan keluar dari form.
listing:
sub aktif()txtnama.Enablead= True
List1.Enabled = True
opt1.Enabled
= True
opt2.Enabled
= True
Cmbkategori.Enabled
= True
txtjumbel.Enabled
= True
End Sub
Sub nonaktif()
txtnama.Enabled = False
List1.Enabled
= False
txthrg.Enabled
= False
Cmbkategori.Enabled
= False
opt1.Enabled
= False
opt2.Enabled
= False
txtantar.Enabled
= False
txtjumbel.Enabled
= False
txttohar.Enabled
= False
txtdis.Enabled
= False
txttobay.Enabled
= False
txttgl.Enabled
= False
End Sub
Sub bersih()
txtnama.Text
= ""
List1.Text =
""
txthrg.Text =
""
Cmbkategori.Text
= ""
opt1.Value =
0
opt2.Value =
0
txtantar.Text
= ""
txtjumbel.Text
= ""
txttohar.Text
= ""
txtdis.Text =
""
txttobay.Text
= ""
End Sub
Private Sub
Cmbkategori_Click()
If
Cmbkategori.Text = "member" Then
txtdis.Text =
0.1 * Val(txttohar.Text) - Val(txtdis.Text)
Else
txtdis.Text =
0
End If
cmdhitung.Enabled
= True
End Sub
Private Sub
cmdhitung_Click()
txttobay.Text
= Val(txttohar.Text) - Val(txtdis.Text)
cmdinput.Enabled
= True
cmdhitung.Enabled
= False
cmdkeluar.Enabled
= True
End Sub
Private Sub
cmdinput_Click()
aktif
bersih
txtnama.SetFocus
Cmbkategori.Text
= "-piih-"
cmdinput.Enabled
= False
cmdhitung.Enabled
= False
cmdkeluar.Enabled
= True
End Sub
Private Sub
cmdkeluar_Click()
x =
MsgBox("tutup program?", vbYesNo + vbQuestion,
"konfirmasi")
If x = vbYes
Then
Unload Me
End If
End Sub
Private Sub
Form_Activate()
nonaktif
bersih
txttgl.Text =
Date
List1.AddItem
"kukus"
List1.AddItem
"goreng"
List1.AddItem
"rebus"
Cmbkategori.AddItem
"member"
Cmbkategori.AddItem
"non member"
cmdinput.Enabled
= True
cmdhitung.Enabled
= False
cmdkeluar.Enabled
= True
End Sub
Private Sub
list1_click()
If List1.Text
= "kukus" Then
txthrg.Text =
25000
ElseIf
List1.Text = "goreng" Then
txthrg.Text =
35000
Else: txthrg.Text
= 45000
End If
End Sub
Private Sub
opt1_Click()
If opt1.Value
= True Then
txtantar.Text
= 10000
End If
txtjumbel.SetFocus
End Sub
Private Sub
opt2_Click()
If opt2.Value
= True Then
txtantar.Text
= 0
End If
txtjumbel.SetFocus
End Sub
Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii =
13 Then
txttohar.Text
= (Val(txthrg.Text) + Val(txtantar.Text)) * Val(txtjumbel.Text)
End If
End Sub