tugas made in hardiyanto(11100567)

Ketentuan soal:

1.  Buat sub aktif, nonaktif, dan bersih. 
2. 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
3. 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  
4.  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 beli
   7.       Untuk kategori pelanggan,
   Jika member,maka mendapatkan diskon 10% dari total harga
   Jika  non member,maka  tidak mendapatkan diskon
   8.       Klik tombol hitung ,
   Total bayar = total harga – discount
   9.       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