tugas 4.14

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

Txtgol.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgapok.Text = “”

Txttnj.Text = “”

Txttotal.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

r = Mid(Txtmn.Text, 5, 1)

If r = “A” Then

Txtgol = “A”

Txtj.Text = “MANAGER”

Txtgapok.Text = “4000000”

Txttnj.Text = “1025000”

ElseIf r = “B” Then

Txtgol.Text = “B”

Txtj.Text = “Ka.SEKSI”

Txtgapok.Text = “3500000”

Txttnj.Text = “975000”

ElseIf r = “C” Then

Txtgol.Text = “C”

Txtj.Text = “STAFF”

Txtgapok.Text = “3000000”

Txttnj.Text = “925000”

End If

r = Right(Txtmn.Text, 3)

If r = “KEU” Then

Txtb.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

Txtb.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

Txtb.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

Txtb.Text = “IT UNIT”

ElseIf r = “SPM” Then

Txtb.Text = “SECURITY”

End If

r = Mid(Txtmn.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGEL”

ElseIf r = “M” Then

kode = “M”

Status = “MENIKAH”

ElseIf r = “J” Then

kode = “J”

Status = “JANDA”

ElseIf r = “D” Then

kode = “D”

Status = “DUDA”

End If

Txtks.Text = kode

Txts.Text = Status

Txtt.Text = Left(Txtmn.Text, 4)

Txttotal.Text = Val(Txtgapok.Text) + Val(Txttnj.Text)

End Sub

Private Sub Form_Activate()

Txtmnk.SetFocus

End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtmn.SetFocus

End If

End Sub

Private Sub cmdbatal_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

Txtgol.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgapok.Text = “”

Txttnj.Text = “”

Txttotal.Text = “”

End Sub

tugas 4.13

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttt.Text = “20” & Right(Txtkode, 2)

S = Mid(Txtkode, 3, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

Txtpeng.Text = “Andra Setiawan”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

Txtpeng.Text = “Desi Istiqomah”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

Txtpeng.Text = “Sandy Fitra jaya”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

Txtpeng.Text = “Tri Indah Sari”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

Txtpeng.Text = “Ernita Sari”

Txtharga.Text = “83000”

End If

S = Left(Txtkode, 1)

If S = “A” Then

Txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

End Sub

tugas 4.12

Private Sub Cbokode_Click()
Dim kk, jk, hs As String
Select Case Cbokode.Text
Case “Asus A43SA”
Txtjk.Text = “Asus A53SA-VX090D”
Txths.Text = “5500000”
Case “Asus A43SD”
Txtjk.Text = “Asus A43SD-VX052D”
Txths.Text = “4500000”
Case “Asus A43SJ”
Txtjk.Text = “Asus A43SJ-VX792D”
Txths.Text = “4300000”
Case “Asus A43TA”
Txtjk.Text = “Asus A43TA-VX034D ”
Txths.Text = “4900000”
Case “Asus A43SL”
Txtjk.Text = “Asus A43SL-VX264SL”
Txths.Text = “4300000”
Case “Apple MD311”
Txtjk.Text = “Apple MacBook Pro MD311”
Txths.Text = “19300000”
Case “Apple MD313”
Txtjk.Text = “Apple MacBook Pro MD313”
Txths.Text = “24200000”
Case “Apple MD314”
Txtjk.Text = “Apple MacBook Pro MD314”
Txths.Text = “11900000”
Case “Apple MD322”
Txtjk.Text = “Apple MacBook Pro MD322”
Txths.Text = “14700000”
Case “Apple MC965”
Txtjk.Text = “Apple MacBook Air MC965”
Txths.Text = “19300000”
End Select
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdiscn.Text = “”
Txttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txtjj.Text) * Val(Txths.Text)
If Txthp.Text > 40000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 35000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 30000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 25000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.2
End If
Txttotal.Text = Val(Txthp.Text) – Val(Txtdiscn.Text)
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 A43SL”
Cbokode.AddItem “Apple MD311”
Cbokode.AddItem “Apple MD313”
Cbokode.AddItem “Apple MD314”
Cbokode.AddItem “Apple MD322”
Cbokode.AddItem “Apple MC965”
End Sub

tugas 4.11

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
Txtbp.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
Txtbp.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 = “Teknik Informatika”
ElseIf S = “3” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf S = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 4, 2)
If S = “00” Then
Txtprodi.Text = “Strata Satu”
Txtbp.Text = “1950000”
ElseIf S = “01” Then
Txtprodi.Text = “Diploma Empat”
Txtbp.Text = “1750000”
ElseIf S = “02” Then
Txtprodi.Text = “Diploma Tiga”
Txtbp.Text = “1650000”
ElseIf S = “03” Then
Txtprodi.Text = “Diploma Dua”
Txtbp.Text = “1450000”
End If
Txtnu.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

tugas 4.10

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String

S = Left(Txtnpm, 1)
If S = “E” Then
txtkelas.Text = “Eksekutif”
txtub.Text = “1250000”
ElseIf S = “R” Then
txtkelas.Text = “Reguler”
txtub.Text = “1000000”
End If
S = Mid(Txtnpm, 6, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1500000”
Else
txtbps.Text = “1900000”
End If
ElseIf S = “01” Then
txtprodi.Text = “Diploma Tiga”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1650000”
End If
ElseIf S = “02” Then
txtprodi.Text = “Diploma Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1350000”
End If
End If

S = Mid(Txtnpm, 5, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemendan Komp. Akuntansi”
End If

txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
txtnu.Text = Right(Txtnpm, 3)
If txtprodi.Text = “Strata Satu” Then
txtup.Text = “200000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Tiga” Then
txtup.Text = “150000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Satu” Then
txtup.Text = “150000”
txtbp.Text = “600000”
End If
End If
End If
txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbp.Text)
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

tugas 4.9

Private Sub cmdbatal_Click()
Cbokb.SetFocus
Cbokb.Text = “”
Txtjb.Text = “”
Txtpeng.Text = “”
Txttt.Text = “”
Txtpen.Text = “”
Txth.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
Cbokb.SetFocus
Cbokb.Text = “”
Txtjb.Text = “”
Txtpeng.Text = “”
Txttt.Text = “”
Txtpen.Text = “”
Txth.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b, c, d As String
Dim h As Double
Txttt.Text = “20” & Right(Cbokb.Text, 2)
a = Mid(Cbokb.Text, 3, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “YATI NUR OKTAVIA”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “VALENTINA MARIANA ADIWIANTI”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “IMAM TARMIZI”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “RIYAN SUHANDI”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “SINTA UMPUL SINGA”
h = “83000”
End If
Txtjb.Text = b
Txtpeng.Text = c
Txth.Text = h
d = Left(Cbokb.Text, 1)
If d = “A” Then
Txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
Txtpen.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
Txtpen.Text = “MAXICOM”
ElseIf d = “S” Then
Txtpen.Text = “SURYA PERMAI”
ElseIf d = “E” Then
Txtpen.Text = “ELEK MEDIA KOMPUTINDO”
End If
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 4.8

Private Sub Command2_Click()
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command1_Click()
If Text1.Text = “BIM” Then
Text2.Text = 50000
Text3.Text = “BIMA”
Text4.Text = “16.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “EKO” Then
Text2.Text = 35000
Text3.Text = “EKONOMI”
Text4.Text = “19.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “MUT” Then
Text2.Text = 23000
Text3.Text = “MUTIARA”
Text4.Text = “17.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “SEN” Then
Text2.Text = 35000
Text3.Text = “SENJA”
Text4.Text = “20.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
End If
End Sub

tugas 4.3

Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jb, pg, pn, hg As String
txttahun.Text = “20” & Right(cbokode, 2)
s = Mid(cbokode, 3, 3)
If s = “SIM” Then
jb = “SistemInformasiManajeme”
pg = “YatiNurOktavia”
hg = “75900”
ElseIf s = “EDP” Then
jb = “ElektronikData Processing”
pg = “Imam Tarmizi”
hg = “62000”
ElseIf s = “MNJ” Then
jb = “Manajemen”
pg = “Valentina Mariana Adiwianti”
hg = “42000”
ElseIf s = “CDR” Then
jb = “Corel Draw”
pg = “RiyanSuhandi”
hg = “53000”
ElseIf s = “RPL” Then
jb = “RekayasaPerangkatLunak”
pg = “SintaUmpuSinga”
hg = “83000”
End If
txtjudul.Text = jb
txtpengarang.Text = pg
txtharga.Text = hg
s = Mid(cbokode, 1, 1)
If s = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
pn = “Indah Surabaya”
ElseIf s = “S” Then
pn = “SalembaEmpat”
ElseIf s = “E” Then
pn = “Elek Media Komputindo”
ElseIf s = “M” Then
pn = “Maxicom”
End If
txtpenerbit.Text = pn
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

tugas 4.2

Private Sub cbokode_Click()
Dim jk, hs, HB As Integer
Select Case cbokode.Text
Case “P205”
jk = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jk = “Pentium III 800 Mega Hz”
hs = “2100000”
Case “P310”
jk = “Pentium III 1.0 Giga Hz”
hs = “3500000”
Case “P415”
jk = “Pentium IV 1.5 Giga Hz”
hs = “4000000”
Case “P417”
jk = “Pentium IV 1.7 Giga Hz”
hs = “4200000”
Case “P419”
jk = “Pentium IV 1.9 Giga Hz”
hs = “5500000”
End Select
txtjenis.Text = jk
txtharga.Text = hs
txtjumlah.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjenis.Text = “”
txtharga.Text = “”
txtjumlah.Text = “”
txtharpen.Text = “”
txtdiskon.Text = “”
txtbayar.Text = “”
End Sub
Private Sub cmdproses_Click()
txtharpen.Text = Val(txtharga) * Val(txtjumlah)
Select Case txtharpen.Text
Case Is > 30000000
txtdiskon.Text = Val(txtharpen) * 0.15
Case Is > 25000000
txtdiskon.Text = Val(txtharpen) * 0.1
Case Is > 20000000
txtdiskon.Text = Val(txtharpen) * 0.05
Case Is > 15000000
txtdiskon.Text = Val(txtharpen) * 0.02
End Select
txtbayar.Text = Val(txtharpen) – Val(txtdiskon)
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 4.1

Private Sub cboKode_Click()
Dim mt, hs, TB As Integer
Select Case cboKode.Text
Case “Apple MC965 MacBook Air”
mt = “Apple MacBook Air MC965”
hs = “12800000”
Case “Apple MC966 MacBook Air”
mt = “Apple MacBook Air MC966”
hs = “15800000”
Case “Apple MC968 MacBook Air”
mt = “Apple MacBook Air MC968”
hs = “9900000”
Case “Apple MC969 MacBook Air”
mt = “Apple MacBook Air MC969”
hs = “11900000”
Case “Apple MC700 MacBook Pro”
mt = “Apple MacBook Pro MC700”
hs = “10800000”
Case “Apple MC721 MacBook Pro”
mt = “Apple MacBook Pro MC721”
hs = “15900000”
Case “Apple MC723 MacBook Pro”
mt = “Apple MacBook Pro MC723”
hs = “19300000”
Case “Apple MC724 MacBook Pro”
mt = “Apple MacBook Pro MC724”
hs = “13700000”
Case “Apple MC311 MacBook Pro”
mt = “Apple MacBook Pro MC311”
hs = “24200000”
Case “Apple MC313 MacBook Pro”
mt = “Apple MacBook Pro MC313”
hs = “11900000”
Case “Apple MC314 MacBook Pro”
mt = “Apple MacBook Pro MC314”
hs = “14700000”
Case “Apple MC318 MacBook Pro”
mt = “Apple MacBook Pro MC318”
hs = “17600000”
Case “Apple MC322 MacBook Pro”
mt = “Apple MacBook Pro MC322”
hs = “21300000”
Case “Apple MC965 MacBook Air”
mt = “Apple MacBook Air MC965”
hs = “12800000”
Case “Apple MC966 MacBook Air”
mt = “Apple MacBook Air MC966”
hs = “15800000”
End Select
txtmerk.Text = mt
txtharga.Text = hs
txtjumlah.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cboKode.SetFocus
cboKode.Text = “”
txtmerk.Text = “”
txtharga.Text = “”
txtjumlah.Text = “”
txtharpen.Text = “”
txtdiskon.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()
txtharpen.Text = Val(txtharga) * Val(txtjumlah)
Select Case txtharpen.Text
Case Is > 140000000
txtdiskon.Text = Val(txtharpen) * 0.15
Case Is > 135000000
txtdiskon.Text = Val(txtharpen) * 0.1
Case Is > 130000000
txtdiskon.Text = Val(txtharpen) * 0.05
Case Is > 125000000
txtdiskon.Text = Val(txtharpen) * 0.02
End Select
txttotal.Text = Val(txtharpen) – Val(txtdiskon)
End Sub

Private Sub Form_Load()
cboKode.AddItem “Apple MC965 MacBook Air”
cboKode.AddItem “Apple MC966 MacBook Air”
cboKode.AddItem “Apple MC968 MacBook Air”
cboKode.AddItem “Apple MC969 MacBook Air”
cboKode.AddItem “Apple MC700 MacBook Pro”
cboKode.AddItem “Apple MC721 MacBook Pro”
cboKode.AddItem “Apple MC723 MacBook Pro”
cboKode.AddItem “Apple MC724 MacBook Pro”
cboKode.AddItem “Apple MC311 MacBook Pro”
cboKode.AddItem “Apple MC313 MacBook Pro”
cboKode.AddItem “Apple MC314 MacBook Pro”
cboKode.AddItem “Apple MC318 MacBook Pro”
cboKode.AddItem “Apple MC322 MacBook Pro”
cboKode.AddItem “Apple MC965 MacBook Air”
cboKode.AddItem “Apple MC966 MacBook Air”
End Sub