TUGAS BP1(B)

• TUGAS A

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = ""

txtnik = ""

txtgol = ""

txtkostat = ""

txtstatus = ""

txtth = ""

txtjbt = ""

txtbagian = ""

txtgapok = ""

txttjn = ""

txttotg = ""

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = ""

txtnik = ""

txtgol = ""

txtkostat = ""

txtstatus = ""

txtth = ""

txtjbt = ""

txtbagian = ""

txtgapok = ""

txttjn = ""

txttotg = ""

End Sub

Private Sub cmdproses_Click()

Dim V As String

txtth = Left(txtnik, 4)

V = Mid(txtnik, 7, 1)

If V = "S" Then

txtkostat = "S"

txtstatus = "Single"

ElseIf V = "M" Then

txtkostat = "M"

txtstatus = "Menikah"

ElseIf V = "J" Then

txtkostat = "J"

txtstatus = "Janda"

ElseIf V = "D" Then

txtkostat = "D"

txtstatus = "Duda"

End If

Dim S As String

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

Dim P As String

P = Mid(txtnik, 5, 1)

If P = "A" Then

txtgol = "A"

txtjbt = "manajer"

txtgapok = "4000000"

txttjn = "1025000"

ElseIf P = "B" Then

txtgol = "B"

txtjbt = "ka.seksi"

txtgapok = "3500000"

txttjn = "975000"

ElseIf P = "C" Then

txtgol = "C"

txtjbt = "staff"

txtgapok = "3000000"

txttjn = "925000"

End If

txttotg = Val(txtgapok) + Val(txttjn)

End Sub

Private Sub txtnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End SuB

• TUGAS B

Private Sub cmdproses

txttt = "20" & Right(cbokb, 2)

Dim V, S As String

V = Mid(cbokb, 3, 3)

If V = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtpr = "Yati Nur Oktavia"

txth = "75900"

ElseIf V = "EDP" Then

txtjb = "Electronic Data Processing"

txtpr = "Imam Tarmizi"

txth = "62000"

ElseIf V = "MNJ" Then

txtjb = "Manajemen"

txtpr = "Valentina Mariana"

txth = "42000"

ElseIf V = "CDR" Then

txtjb = "Corel Draw"

txtpr = "Riyan Suhandi"

txth = "53000"

ElseIf V = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpr = "Sinta Umpu Singa"

txth = "83000"

End If

S = Left(cbokb, 1)

If S = "A" Then

txtpt = "Andi Offset Yogyakarta"

ElseIf S = "I" Then

txtpt = "Indah Surabaya"

ElseIf S = "S" Then

txtpt = "Salemba Empat"

ElseIf S = "E" Then

txtpt = "Elek Media Komputindo"

ElseIf S = "M" Then

txtpt = "Maxicom"

End If

End Sub

Private Sub cmdlagi

cbokb.SetFocus

cbokb = ""

txtjb = ""

txtpr = ""

txttt = ""

txtpt = ""

txth = ""

cbokb = "Pilih Kode Buku"

End Sub

Private Sub cmdkeluar

Unload Me

End Sub

Private Sub Form_Load()

cbokb.AddItem "A-SIM-01"

cbokb.AddItem "I-EDP-02"

cbokb.AddItem "S-MNJ-03"

cbokb.AddItem "E-CDR-04"

cbokb.AddItem "M-RPL-05"

End Sub

• TUGAS C

Private Sub cmdkeluar_Click()

Unload Me

End Sub

private sub cmdbatal_Click()

txtkb.SetFocus

txtkb = "Masukan Kode"

txtkb = ""

txtjb = ""

txtp = ""

txtth= ""

txtpnt = ""

txthg = ""

End sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtp = ""

txtth= ""

txtpnt = ""

txthg = ""

End Sub

Private Sub cmdproses_Click()

Dim X As String

txtth = "20" & Right(txtkb, 2)

X = Mid(txtkb, 3, 3)

If X = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtp = "Andra Setiawan"

txthg = "75900"

ElseIf X = "EDP" Then

txtjb = "Electronic Data Processing"

txtp = "Desi Istiqomah"

txthg = "62000"

ElseIf X = "MNJ" Then

txtjb = "Manajemen"

txtp = "Sandy Fitrajaya"

txthg = "42000"

ElseIf X = "CDR" Then

txtjb = "Corel Draw"

txtp = "Tri Indah Sari"

txthg = "53000"

ElseIf X = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtp = "Ernita Sari"

txthg = "83000"

End If

Dim Y As String

Y = Left(txtkb, 1)

If Y = "A" Then

txtpnt = "Andi Offset Yogyakarta"

ElseIf Y = "I" Then

txtpnt = "Indah Surabaya"

ElseIf Y = "S" Then

txtpnt = "Salemba Empat"

ElseIf Y = "E" Then

txtpnt= "Elek Media Komputindo"

ElseIf Y = "M" Then

txtpnt = "Maxicom"

End If

End Sub

• TUGAS D

Private Sub cbokode_Click()

Dim m, h As String

Select Case cbokode

Case "Asus A43SA"

m = "Asus A43SA - VX090D"

h = "5500000"

Case "Asus A43SD"

m = "Asus A43SD - VX052D"

h = "4500000"

Case "Asus A43SJ"

m = "Asus A43SJ - VX792D"

h = "4300000"

Case "Asus A43TA"

m = "Asus A43TA - VX034D"

h = "4900000"

Case "Asus N43SL"

m = "Asus N43SL - VX264D"

h = "4300000"

Case "Apple MD311"

m = "Apple MacBook Pro MD311"

h = "19300000"

Case "Apple MD313"

m = "Apple MacBook Pro MD313"

h = "24200000"

Case "Apple MD314"

m = "Apple MacBook Pro MD314"

h = "11900000"

Case "Apple MD322"

m = "Apple MacBook Pro MD322"

h = "14700000"

Case "Apple MC965"

m = "Apple MacBook Pro MC965"

h = "21300000"

End Select

txtmerk = m

txths = h

txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Laptop"

txtmerk = ""

txths = ""

txtjj = ""

txthp = ""

txtdis = ""

txttb = ""

End Sub

Private Sub cmdproses_Click()

txthp = Val(txths) * Val(txtjj)

If txthp >= 14000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 13500000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 13000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 12500000 Then

txtdis = 0.02 * Val(txthp)

End If

txttb = Val(txthp) - Val(txtdis)

End Sub

Private Sub Form_Load()

cbokode.AddItem "Asus A43SA"

cbokode.AddItem "Asus A43SD"

cbokode.AddItem "Asus A43SJ"

cbokode.AddItem "Asus A43TA"

cbokode.AddItem "Asus N43SL"

cbokode.AddItem "Apple MD311"

cbokode.AddItem "Apple MD313"

cbokode.AddItem "Apple MD314"

cbokode.AddItem "Apple MD322"

cbokode.AddItem "Apple MC965"

End Sub

• TUGAS E

Private Sub cbokode_Click()

Dim j, h As String

Select Case cbokode

Case "P205"

j = "Pentium II 500 Mega Hz"

h = "1500000"

Case "P308"

j = "Pentium III 800 Mega Hz"

h = "2100000"

Case "P310"

j = "Pentium III 1.0 Giga Hz"

h = "3500000"

Case "P415"

j = "Pentium IV 1.5 Giga Hz"

h = "4000000"

Case "P417"

j = "Pentium IV 1.7 Giga Hz"

h = "4200000"

Case "P419"

j = "Pentium IV 1.9 Giga Hz"

h = "5500000"

End Select

txtjk = j

txths = h

txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Komputer"

txtjj = ""

txtjk = ""

txths = ""

txthp = ""

txtdis = ""

txttb = ""

End Sub

Private Sub cmdproses_Click()

txthp = Val(txths) * Val(txtjj)

If txthp >= 40000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 35000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 30000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 25000000 Then

txtdis = 0.02 * Val(txthp)

End If

txttb = Val(txthp) - Val(txtdis)

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

• TUGAS F

Private Sub cmdkeluar_Click()
Unload Me
End Sub

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

Private Sub cmdproses_Click()
txttp = Val(txtht) * Val(txtjt)
End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjt.SetFocus
End If
Dim k As String
k = txtkt
If k = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf k = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf k = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf k = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
End Sub

• TUGAS G

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtpgr = ""

txttt = ""

txtpn = ""

txthr = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtpgr = ""

txttt = ""

txtpn = ""

txthr = ""

cbokb = "pilih kode buku"

End Sub

Private Sub cmdproses_Click()

Dim X As String

txttt = "20" & Mid(txtkb, 5, 2)

X = Left(txtkb, 3)

If X = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtpgr = "Fadiya Ulfa"

txthr = "75900"

ElseIf X = "EDP" Then

txtjb = "Electronik Data Processing"

txtpgr = "Nurul Agustina"

txthr = "62000"

ElseIf X = "MNJ" Then

txtjb = "Manajemen"

txtpgr = "Rian Hidayat"

txthr = "42000"

ElseIf X = "CDR" Then

txtjb = "Corel Draw"

txtpgr = "Siti Nur Khotimah"

txthr = "53000"

ElseIf X = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpgr = "Winda Erlianti"

txthr = "83000"

End If

Dim Y As String

Y = Right(txtkb, 1)

If Y = "A" Then

txtpn = "Andi Offset Yogyakarta"

ElseIf Y = "I" Then

txtpn = "Indah Surabaya"

ElseIf Y = "S" Then

txtpn = "Salemba Empat"

ElseIf Y = "E" Then

txtpn = "Elek Media Komputindo"

ElseIf Y = "M" Then

txtpn = "Maxicom"

End If

End Sub

• TUGAS H

Private Sub cbokode_Click()

Dim A, M As String

Select Case cbokode

Case "P205"

A = "Pentium II 500 Mega Hz"

M = "1500000"

Case "P308"

A = "Pentium III 800 Mega Hz"

M = "2100000"

Case "P310"

A = "Pentium III 1.0 Giga Hz"

M = "3500000"

Case "P415"

A = "Pentium IV 1.5 Giga Hz"

M = "4000000"

Case "P417"

A = "Pentium IV 1.7 Giga Hz"

M = "4200000"

Case "P419"

A = "Pentium IV 1.9 Giga Hz "

M = "5500000"

End Select

txtjk = A

txths = M

txtjj.SetFocus

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Komputer"

txtjk = ""

txths = ""

txtjj = ""

txthp = ""

txtdis = ""

txthb = ""

End Sub

Private Sub cmdproses_Click()

txthp = Val(txtjj) * Val(txths)

If txthp >= 30000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 25000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 20000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 15000000 Then

txtdis = 0.02 * Val(txthp)

End If

txthb = Val(txthp) - Val(txtdis)

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

• TUGAS I

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = ""
txtnpm = ""
txtjr = ""
txtps = ""
txttm = ""
txtnu = ""
txtbp = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = ""
txtnpm = ""
txtjr = ""
txtps = ""
txttm = ""
txtnu = ""
txtbp = ""
End Sub

Private Sub cmdproses_Click()
Dim Z As String
txttm = "20" & Left(txtnpm, 2)
txtnu = Right(txtnpm, 3)
Z = Mid(txtnpm, 3, 1)
If Z = "1" Then
txtjr = "Sistem Informasi"
ElseIf Z = "2" Then
txtjr = "Teknik Informatika"
ElseIf Z = "3" Then
txtjr = "Manajemen Informatika"
ElseIf Z = "4" Then
txtjr = "Manajemen & Komp.Akuntansi"
End If
Dim Q As String
Q = Mid(txtnpm, 4, 2)
If Q = "01" Then
txtps = "Strata Satu"
txtbp = "1950000"
ElseIf Q = "02" Then
txtps = "Diploma Empat"
txtbp = "1750000"
ElseIf Q = "03" Then
txtps = "Diploma Tiga"
txtbp = "1650000"
ElseIf Q = "04" Then
txtps = "Diploma Dua"
txtbp = "1450000"
End If
End Sub

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