Selasa, 12 November 2013
Ket :
Kode Fasilitas :
PAKET A
|
Fasilitas 1
|
25.000.000
|
PAKET B
|
Fasilitas 2
|
30.000.000
|
PAKET C
|
Fasilitas 3
|
35.000.000
|
PAKET 1
|
MENU 1
|
15.000.000
|
PAKET2
|
MENU2
|
20.000.000
|
PAKET3
|
MENU3
|
35.000.000
|
· 0- Jika check box es doger di clik maka harga Rp. 3.000,00xjumlah porsi
· 0-Jika check box es krim di clik maka harga Rp. 4.000,00 xjumlah porsi
· 0-Jika check box somay di clik maka harga Rp. 5.000,00 xjumlah porsi
- Nama customer, alamat customer diketik manual dan untuk tanggal pesan tampil otomatis.
- Bila di click Lunas maka akan mendapat potongan harga 10% dari total harga, sedangkan total harga didapat dari harga paket pelaminan ditambah harga paket menu ditambah harga dari semua menu tambahan . sedangkan jika di click kredit maka tidak akan mendapat potongan harga
- Untuk uang bayar dan uang kembali diinput manual.
Langsung copas aja list nya !
Private Sub kodepaket_Click()
If kodepaket = "PAKET A" Then
Text12 = "Fasilitas A"
Text1 = 25000000
ElseIf kodepaket = "PAKET B" Then
Text12 = "Fasilitas B"
Text1 = 30000000
Else
Text12 = "Fasilitas C"
Text1 = 35000000
End If
End Sub
Private Sub List2_Click()
If List2 = "PAKET 1" Then
Text13 = "MENU 1"
Text2 = 15000000
ElseIf List2 = "PAKET 2" Then
Text13 = "MENU 2"
Text2 = 20000000
Else
Text13 = "MENU 3"
Text2 = 35000000
End If
End Sub
 |
Private Sub esdoger_Click()
If esdoger.Value = 1 Then
Text6 = 3000
End If
End Sub
Private Sub escream_Click()
If escream.Value = 1 Then
Text7 = 4000
End If
End Sub
Private Sub syomai_Click()
If syomai.Value = 1 Then
Text8 = 5000
End If
End Sub
Private Sub Text3_Change()
Text6 = Val(Text3) * 3000
End Sub
Private Sub Text4_Change()
Text7 = Val(Text4) * 4000
End Sub
Private Sub Text5_Change()
Text8 = Val(Text5) * 5000
End Sub
|
Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text10.SetFocus
End If
End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
Text11 = Label18
End Sub
Private Sub lunas_Click()
Text15 = Val(Text14) * 0.1
Text14 = Val(Text1) + Val(Text2) + Val(Text6) + Val(Text7) + Val(Text8)
Text16 = Val(Text14) - Val(Text15)
End Sub
Private Sub kredit_Click()
Text15 = 0
Text14 = Val(Text1) + Val(Text2) + Val(Text6) + Val(Text7) + Val(Text8)
Text16 = Val(Text14) - Val(Text15)
End Sub
Private Sub Text17_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text18 = Val(Text17) - Val(Text16)
End If
End Sub
Private Sub tambahdata_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
kodepaket = "-Pilih-"
esdoger = False
escrea= False
syomai = False
lunas = False
kredit = False
End Sub
Private Sub keluar_Click()
Unload me
End If
End Sub
Private Sub Timer1_Timer()
Label17.Caption = Date
Label18.Caption = Time
End Sub
Hasil akhirnya !
untuk lebih jelasnya silahkan download sajadi http://www.4shared.com/file/EIzZd7-Z/Contoh_Soal_UTS_BSI.html
