7. APLIKASI TIKET KERETA API
7. APLIKASI TIKET KERETA API
TUGAS 7
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdLagi_Click()
TxtKode.SetFocus
TxtKode = “”
txtharga = “”
txtjenis = “”
txtjam = “”
txtjumlah = “”
TxtTotal = “”
End Sub
Private Sub CmdProses_Click()
Dim s As String
Dim TxtTotal As Integer
s = Left(TxtKode.Text, 3)
If s = “BIM” Then
txtharga = 50000
txtjenis = “BIMA”
txtjam = “16.00”
ElseIf s = “EKO” Then
txtharga = 35000
txtjenis = “EKONOMI”
txtjam = “19.00”
ElseIf s = “MUT” Then
txtharga = 23000
txtjenis = “MUTIARA”
txtjam = “17.00”
ElseIf s = “SEN” Then
txtharga = 15000
txtjenis = “SENJA”
txtjam = “20.00”
End If
txtjumlah.SetFocus
End Sub
Private Sub TxtJumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotal = Val(txtharga) * Val(txtjumlah)
End If
End Sub
8. APLIKASI PENJUALAN LEPTOP
TUGAS 8
Private Sub CboKode_Click()
Dim jenis As String
Dim kode, jk, hs As Variant
kode = Cbokode
Select Case Cbokode.Text
Case “P205”
jenis = “Pentium II 500 Mega Hz”
satuan = 1500000
Case “P308”
jenis = “Pentium III 800 Mega Hz”
satuan = 2100000
Case “P310”
jenis = “Pentium III 1.0 Giga Hz”
satuan = 3500000
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
satuan = 4000000
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz”
satuan = 4200000
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
satuan = 5500000
End Select
TxtJeniskomputer = jenis
TxtHargasatuan = satuan
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdLagi_Click()
Cbokode.SetFocus
Cbokode.Text = “Pilih Kode Komputer”
TxtJeniskomputer = “”
TxtHargasatuan = “”
TxtJumlahjual = “”
TxtHargaJual = “”
TxtDiskon = “”
TxtHargaBayar = “”
End Sub
Private Sub CmdProses_Click()
Dim hargasatuan, jumlah, penjualan, diskon, bayar As Variant
jumlah = Val(TxtJumlahjual)
hargasatuan = Val(TxtHargasatuan)
penjualan = hargasatuan * jumlah
TxtHargaJual = penjualan
Select Case penjualan
Case Is > 30000000
diskon = penjualan * 0.15
Case Is > 25000000
diskon = penjualan * 0.1
Case Is > 20000000
diskon = penjualan * 0.05
Case Is > 15000000
diskon = penjualan * 0.02
Case Is <= 150000000
diskon = penjualan * 0
End Select
TxtDiskon = diskon
bayar = penjualan – diskon
TxtHargaBayar = bayar
End Sub
Private Sub Form_Load()
Cbokode.AddItem “P205”
Cbokode.AddItem “P308”
Cbokode.AddItem “P310”
Cbokode.AddItem “P415”
Cbokode.AddItem “P417”
Cbokode.AddItem “P419”
End Sub
Oktafiani Stmik Pringsewu 