Tugas 4.Program kesebelas

NOMER TERAHIR

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.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 = “”

Txtprodi.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. Akuntansi”

End If

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtprodi.Text = “Strata Satu”

ElseIf S = “2” Then

Txtprodi.Text = “Diploma Tiga”

ElseIf S = “3” Then

Txtprodi.Text = “Diploma Empat”

ElseIf S = “4” Then

Txtprodi.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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. Akuntansi”

End If

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtprodi.Text = “Strata Satu”

ElseIf S = “2” Then

Txtprodi.Text = “Diploma Tiga”

ElseIf S = “3” Then

Txtprodi.Text = “Diploma Empat”

ElseIf S = “4” Then

Txtprodi.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End If

End Sub

Iklan

Tugas 4.Program kesepuluh

nomer14

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.Program kesembilan

NOMER13

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.Program kedelapan

nomer12

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.Program ketuju

nomer11

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.Program keenam

nomer10

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.Program kelima

nomer9

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” & Mid(Txtkode, 5, 2)

S = Left(Txtkode, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Right(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.Program keempat

nomer8

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.Program ketiga

nomer 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. Program kedua

nomer 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