Selasa, 17 April 2012

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

Diposting oleh di Tidak ada komentar:

tugas pra uts-2.hardiyanto(11100567)







    KETENTUAN SOAL :
  1. pada saat form dijalankan,semua objek dalam kondisi aktif .textbox tanggal berisi tanggal hari      ini.kursor berada pada textbox nama penyewa.
  2. pilih kode kamar,jenis kamar akan tampil sesuai dengan ketentuan berikut:
Kode kamar
JENIS KAMAR
SU01
SUITE
BS01
BUSSINES
PR01
PRESIDENT
3         3. pilih type kamar,akan tampil harga sewa sesuai dengan ketentuan berikut:
Jenis kamar
Type kamar
Harga sewa
suite
Single
300000

Double
400000

family
500000
bussines
Single
500000

Double
600000

family
700000
president
Single
800000

Double
900000

family
1000000
4        4. lama sewa  di input ,tekan enter maka ;
        total harga = harga sewa * lama sewa
5        5.uang bayar diinput,tekan enter maka ;
       uang kembali= uang bayar – total harga,
       jika uang bayar kurang,tampil:
       warning
? UANG ANDA KURANG

OK
6        6.   klik tombol isi data,bersih & kursor di nama penyewa..tombol keluar u/ keluar dari form dan tampil    pesan 
KONFIRMASI


 TUTUP FORM ?
YES
NO




LISTING:


Private Sub cmbkode_Click()
If cmbkode.Text = "SU01" Then
txtjenis.Text = "Suit"
ElseIf cmbkode.Text = "BS01" Then
End If
End Sub

Private Sub cmdisi_Click()
aktif
bersih
txtnama.SetFocus
cmbkode.Text = "-Pilih-"
cmdisi.Enabled = True
cmdkeluar.Enabled = True
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox("Tutup Form?", vbYesNo + vbQuestion, "konfirmasi")
If x = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Activate()
nonaktif
bersih
txttgl.Text = Date
cmbkode.AddItem "SU01"
cmbkode.AddItem "BS01"
cmbkode.AddItem "PR01"
cmdisi.Enabled = True
cmdkeluar.Enabled = True
End Sub

Sub aktif()
txtnama.Enabled = True
cmbkode.Enabled = True
opt1.Enabled = True
opt2.Enabled = True
opt3.Enabled = True
txtlama.Enabled = True
txtubay.Enabled = True
End Sub

Sub nonaktif()
txtnama.Enabled = False
cmbkode.Enabled = False
txtjenis.Enabled = False
opt1.Enabled = False
opt2.Enabled = False
opt3.Enabled = False
txtharga.Enabled = False
txtlama.Enabled = False
txttotal.Enabled = False
txtubay.Enabled = False
txtukem.Enabled = False
txttgl.Enabled = False
End Sub

Sub bersih()
txtnama.Text = ""
cmbkode.Text = ""
txtjenis.Text = ""
opt1.Value = 0
opt2.Value = 0
opt3.Value = 0
txtharga.Text = ""
txtlama.Text = ""
txttotal.Text = ""
txtubay.Text = ""
txtukem.Text = ""
End Sub

 
Private Sub opt1_Click()
If opt1.Value = True And txtjenis.Text = "Suit" Then
txtharga.Text = 300000
ElseIf opt1.Value = True And txtjenis.Text = "Bussines" Then
txtharga.Text = 500000
Elsetxtharga.Text = 800000
End If
txtlama.SetFocus
End Sub

Private Sub opt2_Click()
If opt2.Value = True And txtjenis.Text = "Suit" Then
txtharga.Text = 400000
ElseIf opt2.Value = True And txtjenis.Text = "Bussines" Then
txtharga.Text = 600000
Elsetxtharga.Text = 900000
End If
txtlama.SetFocus
End Sub

Private Sub opt3_Click()
If opt3.Value = True And txtjenis.Text = "Suit" Then
txtharga.Text = 500000
ElseIf opt3.Value = True And txtjenis.Text = "Bussines" Then
txtharga.Text = 7000000
Elsetxtharga.Text = 1000000
End If
txtlama.SetFocus
End Sub

Private Sub txtlama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtharga.Text) * Val(txtlama.Text)
End If
End Sub

Private Sub txttotal_Change()
txtubay.SetFocus
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = Val(txttotal.Text) - Val(txtubay.Text)
If txtubay.Text < txttotal.Text Then
MsgBox "Uang Anda Kurang" & a, vbOKOnly, "WARNING!"
txtubay.Text = ""
txtubay.SetFocus
Else
txtukem.Text = Val(txtubay.Text) - Val(txttotal.Text)
End If
End If
End Sub
Private Sub txtukem_Change()
If Val(txtukem.Text) < 0 Then
txtukem.Enabled = "False"
End If
End Sub

Diposting oleh di Tidak ada komentar:

tugas pra uts-1.hardiyanto(11100567)


     KETENTUAN SOAL
  1.  Buat sub-sub yang dibutuhakan
  2. Pada saat  form dijalankan,objek dalam kondisi aktif. textbox tanggal berisi tanggal hari ini.kursor berada pada textbox nip. 
  3. Pilih golongan,akan tampil jabatan ,gapok,tunj,jabatan dan transport,dengan ketentuan sebagai berikut:
Gol
JABATAN
GAPOK
TUJ.JABATAN
TRANSPORT
I
PAINTRY
1000000
200000
0
II
SATFF
17500000
300000
200000
III
SUPERVISOR
22500000
500000
300000
IV
MANEJAR
5000000
700000
500000
V
DIREKTUR
10000000
1000000
1000000





4.Pilih status pernikahan,maka akan tampil tunjangan status,gaji kotor,pph dan gaji bersih dengan    ketentuan sbb;
Status pernikahan                                   tunjangan status
Menikah                                                       Rp.300000,-
Belum menikah                                             Rp.0,-
Janda/duda                                                   Rp.100000,-
Gaji kotor-gapok+tujangan. jb = transport + tnj.status
ü                      Pph-10%*gaji kotor
ü                     Gaji bersih =gaji kotor - pph
5. klik tombol hitung lagi,bersih & kotor di nip.tombol keluar u/ keluar dari form. 

listing

Sub aktif()
txtnip.Enabled = True
txtnama.Enabled = True
Cmbgol.Enabled = True
opt1.Enabled = True
opt2.Enabled = True
opt3.Enabled = True
End Sub

Sub nonaktif()
txtnip.Enabled = False
txtnama.Enabled = False
Cmbgol.Enabled = False
txtjab.Enabled = False
txtgapok.Enabled = False
txttunj.Enabled = False
txttrans.Enabled = False
opt1.Enabled = False
opt2.Enabled = False
opt3.Enabled = False
txtstat.Enabled = False
txtbruto.Enabled = False
txtpph.Enabled = False
txtnett.Enabled = False
txttgl.Enabled = False
End Sub

Sub bersih()
txtnip.Text = ""
txtnama.Text = ""
Cmbgol.Text = ""
txtjab.Text = ""
txtgapok.Text = ""
txttunj.Text = ""
txttrans.Text = ""
opt1.Value = 0
opt2.Value = 0
opt3.Value = 0
txtstat.Text = ""
txtbruto.Text = ""
txtpph.Text = ""
txtnett.Text = ""
 End Sub

Private Sub cmbgol_Click()
If Cmbgol.Text = "I" Then
txtjab.Text = "Paintry"
txtgapok.Text = 1000000
txttunj.Text = 200000
txttrans.Text = 0
ElseIf Cmbgol.Text = "II" Then
txtjab.Text = "Staff"
txtgapok.Text = 1750000
txttunj.Text = 300000
txttrans.Text = 200000
ElseIf Cmbgol.Text = "III" Then
txtjab.Text = "Supervisor"
txtgapok.Text = 2250000
txttunj.Text = 500000
txttrans.Text = 300000
ElseIf Cmbgol.Text = "IV" Then
txtjab.Text = "Manajer"
txtgapok.Text = 5000000
txttunj.Text = 700000
txttrans.Text = 500000
Elsetxtjab.Text = "Direktur"
txtgapok.Text = 10000000
txttunj.Text = 1000000
txttrans.Text = 1000000
End If
End Sub

Private Sub cmdhitung_Click()
bersih
aktif
txtnip.SetFocus
Cmbgol.Text = "-Pilih-"
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox("Anda Ingin Keluar?", vbYesNo + vbQuestion, "Konfirmasi")
If x = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Activate()
bersih
aktif
txttgl.Text = Date
Cmbgol.AddItem "I"
Cmbgol.AddItem "II"
Cmbgol.AddItem "III"
Cmbgol.AddItem "IV"
Cmbgol.AddItem "V"
cmdhitung.Enabled = True
cmdkeluar.Enabled = True
End Sub

Private Sub opt1_Click()
If opt1.Value = True Then
txtstat.Text = 300000
txtbruto.Text = Val(txtgapok.Text) + Val(txttunj.Text) + Val(txttrans.Text) + Val(txtstat.Text)
txtpph.Text = 0.1 * Val(txtbruto.Text)
txtnett.Text = Val(txtbruto.Text) - Val(txtpph.Text)
End If
End Sub

Private Sub opt2_Click()
If opt2.Value = True Then
txtstat.Text = 0
txtbruto.Text = Val(txtgapok.Text) + Val(txttunj.Text) + Val(txttrans.Text) + Val(txtstat.Text)
txtpph.Text = 0.1 * Val(txtbruto.Text)
End Sub
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)