tugas 3.1

Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogolongan.Text
Case "I"
gapok = 1500000
tunjangan = 150000
Case "II"
gapok = 2000000
tunjangan = 200000
Case "III"
gapok = 2500000
tunjangan = 250000
Case "IV"
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttotal.Text = total - pajak
End Sub

Private Sub cmdbatal_Click()
kosong
End Sub
Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = ""
txtnama.Text = ""
cbogolongan.Text = ""
txtgapok.Text = ""
txttunjangan.Text = ""
txtpajak.Text = ""
txttotal.Text = ""
End Sub

Private Sub txtnind_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub Form_Load()
cbogolongan.AddItem "I"
cbogolongan.AddItem "II"
cbogolongan.AddItem "III"
cbogolongan.AddItem "IV"
End Sub

PT. PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()
txtnakar = ""
txtnik = ""
txtgo = ""
txtkode = ""
txtsta = ""
txttah = ""
txtjaba = ""
txtbagian = ""
txtgapo = ""
txttunja = ""
txttoga = ""
txtnakar.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnakar = ""
txtnik = ""
txtgo = ""
txtkode = ""
txtsta = ""
txttah = ""
txtjaba = ""
txtbagian = ""
txtgapo = ""
txttunja = ""
txttoga = ""
txtnakar.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttah = Left(txtnik, 4)
S = Mid(txtnik, 5, 1)
If S = "A" Then
txtgo = "A"
txtjaba = "Manajer"
txtgapo = "4000000"
txttunja = "1025000"
ElseIf S = "B" Then
txtgo = "B"
txtjaba = "Ka. Seksi"
txtgapo = "3500000"
txttunja = "975000"
ElseIf S = "C" Then
txtgo = "C"
txtjaba = "Staff"
txtgapo = "3000000"
txttunja = "925000"
End If
S = Mid(txtnik, 7, 1)
If S = "S" Then
txtkode = "S"
txtsta = "Single"
ElseIf S = "M" Then
txtkode = "M"
txtsta = "Menikah"
ElseIf S = "J" Then
txtkode = "J"
txtsta = "Janda"
ElseIf S = "D" Then
txtkode = "D"
txtsta = "Duda"
End If
S = Right(txtnik, 3)
If S = "KEU" Then
txtbagian = "Accounting"
ElseIf S = "ADM" Then
txtbagian = "Administrasi"
ElseIf S = "SDM" Then
txtbagian = "General Affair"
ElseIf S = "EDP" Then
txtbagian = "IT Unit"
ElseIf S = "SPM" Then
txtbagian = "Security"
End If
txttoga = Val(txtgapo) + Val(txttunja)
End Sub

DATA BUKU STMIK PRINGSEWUU

Private Sub Cmdbatal_Click()
cbokode = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(txtkode, 3)
If A = "SIM" Then
txtjb = "Sistem Informasi Manajemen"
txtpengarang = "aditiya surya"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjb = "Elektronik Data Processing"
txtpengarang = "banu novriansyah"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjb = "Manajemen"
txtpengarang = "fadli cung"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjb = "Corel Draw"
txtpengarang = "izzi cung"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjb = "Rekayasa Perangkat Lunak"
txtpengarang = "tirta ningrum"
txtharga = "83000"
End If
txttt = "20" & Mid(txtkode, 5, 2)
A = Right(txtkode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
End Sub

PENJUALAN TIKET KERETA API

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttp = ""
txtkode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(txtkode, 3)
If B = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf B = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf B = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf B = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub


Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp = Val(txtht) * (txtjt)
End If
End Sub

DATA BUKU STMIK PRINGSEWU

Private Sub cbokode_Change()
Select Case cbokode
Case "A-SIM-01"
Case "I-EDP-02"
Case "S-MNJ-03"
Case "E-CDR-04"
Case "M-RPL-05"
End Select
End Sub

Private Sub cmdbatal_Click()
cbokode = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
A = Mid(cbokode, 3, 3)
If A = "SIM" Then
txtjb = "Sistem Informasi Manajemen"
txtpengarang = "yunita puspa ningrum"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjb = "Elektronik Data Processing"
txtpengarang = "roma dhanuari"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjb = "Manajemen"
txtpengarang = "Marisca nova linda"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjb = "Corel Draw"
txtpengarang = "izma wati"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjb = "Rekayasa Perangkat Lunak"
txtpengarang = "furusim marfu'ah"
txtharga = "83000"
End If
txttt = "20" & Right(cbokode, 2)
End Sub

Private Sub Form_Load()
cbokode.AddItem "A-SIM-01"
cbokode.AddItem "I-EDP-02"
cbokode.AddItem "S-MNJ-03"
cbokode.AddItem "E-CDR-04"
cbokode.AddItem "M-RPL-05"
End Sub

ENTRI PENJUALAN LAPTOP APPLE

Private Sub cbokode_Click()
Dim Penjualan, discount, kode, merk, bayar As String
Dim Harga As Variant

kode = Mid(cbokode.Text, 7, 5)
If kode = "MC965" Then
merk = "Apple MacBook Air MC965"
Harga = "12800000"
ElseIf kode = "MC966" Then
merk = "Apple MacBook Air MC966"
Harga = "15800000"
ElseIf kode = "MC968" Then
merk = "Apple MacBook Air MC968"
Harga = "9900000"
ElseIf kode = "MC969" Then
merk = "Apple MacBook Air MC969"
Harga = "11900000"
ElseIf kode = "MC700" Then
merk = "Apple MacBook Air MC700"
Harga = "10800000"
ElseIf kode = "MC721" Then
merk = "Apple MacBook Air MC721"
Harga = "15900000"
ElseIf kode = "MC723" Then
merk = "Apple MacBook Air MC723"
Harga = "19300000"
ElseIf kode = "MC724" Then
merk = "Apple MacBook Air MC724"
Harga = "13700000"
ElseIf kode = "MC311" Then
merk = "Apple MacBook Air MC311"
Harga = "24200000"
ElseIf kode = "MC313" Then
merk = "Apple MacBook Air MC313"
Harga = "11900000"
ElseIf kode = "MC314" Then
merk = "Apple MacBook Air MC314"
Harga = "14700000"
ElseIf kode = "MC318" Then
merk = "Apple MacBook Air MC318"
Harga = "17600000"
ElseIf kode = "MC322" Then
merk = "Apple MacBook Air MC322"
Harga = "21300000"
ElseIf kode = "MC965" Then
merk = "Apple MacBook Air MC965"
Harga = "12800000"
ElseIf kode = "MC966" Then
merk = "Apple MacBook Air MC966"
Harga = "15800000"
End If
txtmerk.Text = merk
txths.Text = Harga
txtjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = ""
txthp.Text = ""
txtdis.Text = ""
txttb.Text = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 140000000 Then
txtdis.Text = 0.15 * txthp.Text
ElseIf txthp.Text > 13500000 Then
txtdis.Text = 0.1 * txthp.Text
ElseIf txthp.Text > 13000000 Then
txtdis.Text = 0.05 * txthp.Text
ElseIf txthp.Text > 125000000 Then
txtdis.Text = 0.02 * txthp.Text
Else
txtdis.Text = 0
End If
txttb.Text = Val(txthp.Text) - Val(txtdis.Text)
End Sub

Private Sub Form_Load()
cbokode.AddItem "Apple MC965 MasBook Air"
cbokode.AddItem "Apple MC966 MasBook Air"
cbokode.AddItem "Apple MC968 MasBook Air"
cbokode.AddItem "Apple MC969 MasBook Air"
cbokode.AddItem "Apple MC700 MasBook Pro"
cbokode.AddItem "Apple MC721 MasBook Pro"
cbokode.AddItem "Apple MC723 MasBook Pro"
cbokode.AddItem "Apple MC724 MasBook Pro"
cbokode.AddItem "Apple MC311 MasBook Pro"
cbokode.AddItem "Apple MC313 MasBook Pro"
cbokode.AddItem "Apple MC314 MasBook Pro"
cbokode.AddItem "Apple MC318 MasBook Pro"
cbokode.AddItem "Apple MC322 MasBook Pro"
cbokode.AddItem "Apple MC965 MasBook Air"
cbokode.AddItem "Apple MC966 MasBook Air"

End Sub

tugas 3.2

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdLagi_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttm.Text = "20" & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = "1" Then
txtjur.Text = "sistem informasi"
ElseIf S = "2" Then
txtjur.Text = "manajemen informatika"
ElseIf S = "3" Then
txtjur.Text = "tehnik informatika"
ElseIf S = "4" Then
txtjur.Text = "manajemen & komp.akutansi"
End If
S = Mid(txtnpm.Text, 4, 2)
If S = "01" Then
txtps.Text = "strata satu"
ElseIf S = "02" Then
txtps.Text = "diploma tiga"
ElseIf S = "03" Then
txtps.Text = "diploma empat"
ElseIf S = "04" Then
txtps.Text = "diploma dua"
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub from_active()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub



Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub