TUGAS 5

01

01

Private Sub cmd_batal_Click()

txt_nama.SetFocus

txt_nama.Text = “”

txt_npm.Text = “”

txt_kelas.Text = “”

txt_jurusan.Text = “”

txt_program.Text = “”

txt_tahun.Text = “”

txt_urut.Text = “”

txt_pendaftaran.Text = “”

txt_pendidikan.Text = “”

txtbangunan.Text = “”

txt_almamater.Text = “”

txt_total.Text = “”

End Sub

Private Sub cmd_keluar_Click()

End

End Sub

 

Private Sub cmd_lagi_Click()

txt_nama.SetFocus

txt_nama.Text = “”

txt_npm.Text = “”

txt_kelas.Text = “”

txt_jurusan.Text = “”

txt_program.Text = “”

txt_tahun.Text = “”

txt_urut.Text = “”

txt_pendaftaran.Text = “”

txt_pendidikan.Text = “”

txtbangunan.Text = “”

txt_almamater.Text = “”

txt_total.Text = “”

End Sub

 

Private Sub cmd_proses_Click()

Dim x As String

x = Left(txt_npm.Text, 1)

If x = “E” Then

txt_kelas.Text = “Eksekutif”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

ElseIf x = “R” Then

txt_kelas.Text = “Reguler”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

End If

 

txt_tahun.Text = “20” & Mid(txt_npm.Text, 3, 2)

 

x = Mid(txt_npm.Text, 5, 1)

If x = “1” Then

txt_jurusan.Text = “Sistem Informasi”

ElseIf x = “2” Then

txt_jurusan.Text = “Managemen Informatika”

ElseIf x = “3” Then

txt_jurusan.Text = “Managemen dan Komp. Akuntansi”

End If

x = Mid(txt_npm.Text, 6, 2)

If x = “01” Then

txt_program.Text = “Strata Satu”

txt_pendaftaran.Text = “200000”

ElseIf x = “02” Then

txt_program.Text = “Diploma Tiga”

txt_pendaftaran.Text = “150000”

ElseIf x = “03” Then

txt_program.Text = “Diploma Satu”

txt_pendaftaran.Text = “150000”

 

End If

x = Left(txt_npm.Text, 1) & Mid(txt_npm.Text, 6, 2)

If x = “E” & “01” Then

txt_pendidikan.Text = “1900000”

ElseIf x = “E” & “02” Then

txt_pendidikan.Text = “1650000”

ElseIf x = “E” & “03” Then

txt_pendidikan.Text = “1350000”

ElseIf x = “R” & “01” Then

txt_pendidikan.Text = “1500000”

ElseIf x = “R” & “02” Then

txt_pendidikan.Text = “1250000”

ElseIf x = “R” & “03” Then

txt_pendidikan.Text = “1250000”

End If

txt_urut = Right(txt_npm.Text, 3)

txt_almamater.SetFocus

 

 

End Sub

 

 

 

Private Sub txt_almamater_keypress(keyascii As Integer)

If keyascii = 13 Then

txt_nama.SetFocus

txt_total.Text = Val(txt_pendaftaran.Text) + Val(txt_pendidikan.Text) + Val(txtbangunan.Text) + Val(txt_almamater.Text)

End If

End Sub

 

02

02

Private Sub bl_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

txtbp = ” ”

txtterbilang.Text = ” ”

End Sub

 

 

 

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

 

Private Sub kr_Click()

End

End Sub

 

Private Sub lg_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

txtbp = ” ”

txtterbilang.Text = ” ”

 

End Sub

 

Private Sub ps_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

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

If S = “1” Then

t3.Text = “Sistem Informasi”

t4.Text = “Strata Satu”

txtbp.Text = “1950000”

txtterbilang.Text = “satu juta sembilan ratus lima pulluh”

ElseIf S = “2” Then

t3.Text = “Tehnik informasi”

t4.Text = “Diploma Empat”

txtbp.Text = “1750000”

txtterbilang.Text = “satu juta tujuh ratus lima puluh”

ElseIf S = “3” Then

t3.Text = “Manajemen Informatika”

t4.Text = “Diploma tiga”

txtbp.Text = “1650000”

txtterbilang.Text = “satu juta enam ratus lima puluh”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

t4.Text = “Diploma Dua”

txtbp.Text = “1450000”

txtterbilang.Text = “satu juta empat ratus lima puluh”

End If

 

t6.Text = Right(t2.Text, 3)

End Sub

 

03

003

Private Sub cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

satuan = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

satuan = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

satuan = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

satuan = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

satuan = “4300000”

Case “Apple MD311”

merk = “Apple MacBook Pro MD311”

satuan = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD314”

satuan = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

satuan = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

satuan = “14700000”

Case “Apple MC965”

merk = “Apple MecBook Air MC965”

satuan = “21300000”

End Select

txtmrt.Text = merk

txths.Text = satuan

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmrt = “”

txths = “”

txtjj = “”

txthp = “”

txtds = “”

txttb = “”

End Sub

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.SetFocus

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

End If

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

 

Private Sub cmdproses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.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 N43SL”

cbokode.AddItem “Apple MD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MD965”

End Sub

 

04

04

Private Sub cmdlg_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Right(txtkb.Text, 2)

S = Mid(txtkb.Text, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi manajemen”

txtp.Text = “Andra setiawan”

ElseIf S = “EDP” Then

txtjb.Text = “elektronik data Procesing”

txtp.Text = “Desi istiqomah”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandi fitrajaya”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri indah sari”

ElseIf S = “RPL” Then

txtjb.Text = “Rekaya Perangkat Lunak ”

txtp.Text = “Ernita sari”

 

 

End If

S = Left(txtkb.Text, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txthg.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txthg.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txthg.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txthg.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txthg.Text = “83000”

End If

 

End Sub

 

05

05

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

 

 

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtnik.Text, 4)

txttahun.Text = “2015”

s = Mid(txtnik.Text, 5, 1)

If s = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAJER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf s = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KA.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf s = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtkode.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

txtstatus.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

txtstatus.Text = “DUDA”

 

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “ACOUNTING”

 

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

 

ElseIf s = “SDM” Then

txtbagian.Text = “General affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

 

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

 

 

End If

 

txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

 

End Sub

 

Private Sub cmdbatal_click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

 

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

 

Iklan

TUGAS 04

TUGAS 1-2

TUGAS 1-2

Private Sub Cbonpm_Click()

Dim nama, jurusan As String

Select Case cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “09100027”

cbonpm.AddItem “09200048”

cbonpm.AddItem “09300024”

End Sub

 

Private Sub txtquis_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txttugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuas.SetFocus

End If

End Sub

 

 

Private Sub Cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End If

End Sub

TUGAS 3

TUGAS 3

Private Sub Cmdbatal_Click()

kosong

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

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

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

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

 

TUGAS 4

TUGAS 4

Private Sub bl_Click()

tE1.SetFocus

tE1 = ” ”

tE2 = ” ”

tE3 = ” ”

tE4 = ” ”

tE5 = ” ”

tE6 = ” ”

 

End Sub

 

Private Sub Form_Activate()

tE1.SetFocus

tE1.Text = “”

tE2.Text = “”

tE3.Text = “”

tE4.Text = “”

tE5.Text = “”

tE6.Text = “”

End Sub

 

 

 

Private Sub tE1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

tE2.SetFocus

End If

End Sub

 

 

Private Sub kr_Click()

End

End Sub

 

Private Sub lg_Click()

tE1.SetFocus

tE1 = ” ”

tE2 = ” ”

tE3 = ” ”

tE4 = ” ”

tE5 = ” ”

tE6 = ” ”

 

End Sub

 

Private Sub prs_Click()

Dim S As String

tE5.Text = “20” & Left(tE2.Text, 2)

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

If S = “1” Then

tE3.Text = “Sistem Informasi”

ElseIf S = “2” Then

tE3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

tE3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

tE3.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(tE2.Text, 4, 2)

If S = “01” Then

tE4.Text = “Strata Satu”

ElseIf S = “02” Then

tE4.Text = “Diploma Tiga”

ElseIf S = “03” Then

tE4.Text = “Diploma Empat”

ElseIf S = “04” Then

tE4.Text = “Diploma Dua”

End If

 

tE6.Text = Right(tE2.Text, 3)

End Sub

 

TUGAS 5

TUGAS 5

Private Sub bl_Click()

tE1.SetFocus

tE1 = ” ”

tE2 = ” ”

tE3 = ” ”

tE4 = ” ”

tE5 = ” ”

tE6 = ” ”

 

End Sub

 

Private Sub Form_Activate()

tE1.SetFocus

tE1.Text = “”

tE2.Text = “”

tE3.Text = “”

tE4.Text = “”

tE5.Text = “”

tE6.Text = “”

End Sub

 

 

 

Private Sub tE1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

tE2.SetFocus

End If

End Sub

 

 

Private Sub kr_Click()

End

End Sub

 

Private Sub lg_Click()

tE1.SetFocus

tE1 = ” ”

tE2 = ” ”

tE3 = ” ”

tE4 = ” ”

tE5 = ” ”

tE6 = ” ”

 

End Sub

 

Private Sub prs_Click()

Dim S As String

tE5.Text = “20” & Left(tE2.Text, 2)

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

If S = “1” Then

tE3.Text = “Sistem Informasi”

tE4.Text = “Strata Satu”

ElseIf S = “2” Then

tE3.Text = “Manajemen Informatika”

tE4.Text = “Diploma Tiga”

ElseIf S = “3” Then

tE3.Text = “Tehnik Informatika”

tE4.Text = “Diploma Empat”

ElseIf S = “4” Then

tE3.Text = “Manajemen & Komp. Akuntansi”

tE4.Text = “Diploma Dua”

End If

 

tE6.Text = Right(tE2.Text, 3)

End Sub

 

TUGAS 6

TUGAS 6

Private Sub cmdlagi_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdbatal_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

 

Private Sub Cmdproses_Click()

Dim S As String

txttahunterbit.Text = “20” & Mid(txtkodebuku.Text, 5, 2)

S = Left(txtkodebuku.Text, 3)

If S = “SIM” Then

txtjudulbuku.Text = “Sistem Informasi”

txtpengarang.Text = “Fadiya ulfa”

ElseIf S = “EDP” Then

txtjudulbuku.Text = “elektronik data Procesing”

txtpengarang.Text = “Nurul Agustina”

ElseIf S = “MNJ” Then

txtjudulbuku.Text = “Manajemen”

txtpengarang.Text = “Riyan Hidayat”

ElseIf S = “CDR” Then

txtjudulbuku.Text = “Corel Draw”

txtpengarang.Text = “Siti Nurkhotimah”

ElseIf S = “RPL” Then

txtjudulbuku.Text = “Rekaya Perangkat Lunak ”

txtpengarang.Text = “Winda erlianti”

 

 

End If

S = Mid(txtkodebuku.Text, 8, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txtharga.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txtharga.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txtharga.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txtharga.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txtharga.Text = “83000”

End If

End Sub

 

TUGAS 7

TUGAS 7

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

txttt.Text = “20” & Right(cbokode.Text, 2)

s = Mid(cbokode.Text, 3, 3)

If s = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

ElseIf s = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

ElseIf s = “MNJ” Then

txtjb.Text = “Manajemen”

ElseIf s = “CDR” Then

txtjb.Text = “Corel Draw”

ElseIf s = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

End If

s = Left(cbokode.Text, 1)

If s = “A” Then

txtpg.Text = “Yati Nur Oktavia”

txth.Text = “75900”

txtpn.Text = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

txtpg.Text = “Imam Tarmizi”

txth.Text = “620000”

txtpn.Text = “Indah Surabaya”

ElseIf s = “S” Then

txtpg.Text = “Valentina Mariana adiwinanti”

txth.Text = “42000”

txtpn.Text = “Salemba Empat”

ElseIf s = “E” Then

txtpg.Text = “Ryan Suhandi”

txth.Text = “53000”

txtpn.Text = “Elek Media Komputindo”

ElseIf s = “M” Then

txtpg.Text = “Sinta Umpu Singa”

txth.Text = “83000”

txtpn.Text = “Maxicom”

End If

txth.SetFocus

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 8

TUGAS 8

Private Sub c_Click()

End

End Sub

 

Private Sub ds_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hb.SetFocus

End If

End Sub

 

Private Sub Form_Load()

kk.AddItem “P205”

kk.AddItem “P308”

kk.AddItem “P310”

kk.AddItem “P415”

kk.AddItem “P417”

kk.AddItem “P419”

End Sub

 

Private Sub hb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ps.SetFocus

End If

End Sub

 

Private Sub hp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ds.SetFocus

End If

End Sub

 

Private Sub hs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

jj.SetFocus

End If

End Sub

 

Private Sub ht_Click()

kk.SetFocus

kk.Text = “”

jk.Text = “”

hs.Text = “”

jj.Text = “”

hp.Text = “”

ds.Text = “”

hb.Text = “”

End Sub

 

Private Sub jj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hp.Text = Val(hs.Text) * (jj.Text)

End If

hp.Text = hp

Select Case hp.Text

Case Is > 30000000

ds.Text = Val(hp.Text) * 0.15

Case Is > 25000000

ds.Text = Val(hp.Text) * 0.1

Case Is > 20000000

ds.Text = Val(hp.Text) * 0.5

Case Is > 15000000

ds.Text = Val(hp.Text) * 0.2

End Select

hb.Text = Val(hp.Text) – Val(ds.Text)

 

End Sub

 

Private Sub jk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hs.SetFocus

End If

End Sub

 

Private Sub kk_Click()

If kk.Text = “P205” Then

jk.Text = “Pentium II 500 Mega Hz”

hs.Text = “1500000”

ElseIf kk.Text = “P308” Then

jk.Text = “Pentium III 800 Mega Hz”

hs.Text = “2100000”

ElseIf kk.Text = “P310” Then

jk.Text = “Pentium III 1.0 Giga Hz”

hs.Text = “3500000”

ElseIf kk.Text = “P415” Then

jk.Text = “Pentium IV 1.5 Giga Hz”

hs.Text = “4000000”

ElseIf kk.Text = “P417” Then

jk.Text = “Pentium Iv 1.7 Giga Hz”

hs.Text = “4200000”

ElseIf kk.Text = “P419” Then

jk.Text = “Pentium IV 1.9 Giga Hz”

hs.Text = “5500000”

End If

End Sub

 

Private Sub kk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

jk.SetFocus

End If

End Sub

 

 

 

 

 

Private Sub ps_Click()

hp.Text = Val(hs.Text) * (jj.Text)

hp.Text = hp

Select Case hp.Text

Case Is > 30000000

ds.Text = Val(hp.Text) * 0.15

Case Is > 25000000

ds.Text = Val(hp.Text) * 0.1

Case Is > 20000000

ds.Text = Val(hp.Text) * 0.5

Case Is > 15000000

ds.Text = Val(hp.Text) * 0.2

End Select

hb.Text = Val(hp.Text) – Val(ds.Text)

End Sub

 

TUGAS 9

TUGAS 9

Private Sub ds_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tb.SetFocus

End If

End Sub

 

Private Sub Form_Load()

kp.AddItem “Apple MC965 Macbook Air”

kp.AddItem “Apple MC966 Macbook Air”

kp.AddItem “Apple MC968 Macbook Air”

kp.AddItem “Apple MC969 Macbook Air”

kp.AddItem “Apple MC700 Macbook Pro”

kp.AddItem “Apple MC721 Macbook Pro”

kp.AddItem “Apple MC723 Macbook Pro”

kp.AddItem “Apple MC311 Macbook Pro”

kp.AddItem “Apple MC313 Macbook Pro”

kp.AddItem “Apple MC314 Macbook Pro”

kp.AddItem “Apple MC318 Macbook Pro”

kp.AddItem “Apple MC322 Macbook Pro”

kp.AddItem “Apple MC965 Macbook Air”

kp.AddItem “Apple MC966 Macbook Air”

 

End Sub

Private Sub hp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ds.SetFocus

End If

End Sub

 

Private Sub hs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

jj.SetFocus

End If

End Sub

 

Private Sub ht_Click()

kp.SetFocus

kp.Text = “”

mt.Text = “”

hs.Text = “”

jj.Text = “”

hp.Text = “”

ds.Text = “”

tb.Text = “”

End Sub

 

Private Sub jj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hp.SetFocus

hp.Text = Val(hs.Text) * Val(jj.Text)

End If

Select Case hp.Text

Case Is > 140000000

ds.Text = Val(hp.Text) * 0.15

Case Is > 135000000

ds.Text = Val(hp.Text) * 0.1

Case Is > 130000000

ds.Text = Val(hp.Text) * 0.5

Case Is > 125000000

ds.Text = Val(hp.Text) * 0.2

End Select

tb.Text = Val(hp.Text) – Val(ds.Text)

End Sub

 

Private Sub kl_Click()

End

End Sub

 

Private Sub kp_Click()

If kp.Text = “Apple MC965 Macbook Air” Then

mt.Text = “Apple Macbook Air MC965”

hs.Text = “12800000”

ElseIf kp.Text = “Apple MC966 Macbook Air” Then

mt.Text = “Apple Macbook Air MC965”

hs.Text = “15800000”

ElseIf kp.Text = “Apple MC968 Macbook Air” Then

mt.Text = “Apple Macbook Air MC968”

hs.Text = “9900000”

ElseIf kp.Text = “Apple MC969 Macbook Air” Then

mt.Text = “Apple Macbook Air MC969”

hs.Text = “11900000”

ElseIf kp.Text = “Apple MC700 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC700”

hs.Text = “10800000”

ElseIf kp.Text = “Apple MC721 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC721”

hs.Text = “15900000”

ElseIf kp.Text = “Apple MC723 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC723”

hs.Text = “19300000”

ElseIf kp.Text = “Apple MC311 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC311”

hs.Text = “24200000”

ElseIf kp.Text = “Apple MC313 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC313”

hs.Text = “11900000”

ElseIf kp.Text = “Apple MC314 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC314”

hs.Text = “14700000”

ElseIf kp.Text = “Apple MC318 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC318”

hs.Text = “17600000”

ElseIf kp.Text = “Apple MC322 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC322”

hs.Text = “21300000”

ElseIf kp.Text = “Apple MC965 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC965”

hs.Text = “12800000”

ElseIf kp.Text = “Apple MC966 Macbook Pro” Then

mt.Text = “Apple Macbook Pro MC966”

hs.Text = “15800000”

End If

End Sub

 

 

 

Private Sub kp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

mt.SetFocus

End If

End Sub

 

 

Private Sub mt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

hs.SetFocus

End If

End Sub

 

Private Sub ps_Click()

hp.Text = Val(hs.Text) * Val(jj.Text)

Select Case hp.Text

Case Is > 140000000

ds.Text = Val(hp.Text) * 0.15

Case Is > 135000000

ds.Text = Val(hp.Text) * 0.1

Case Is > 130000000

ds.Text = Val(hp.Text) * 0.5

Case Is > 125000000

ds.Text = Val(hp.Text) * 0.2

End Select

tb.Text = Val(hp.Text) – Val(ds.Text)

End Sub

 

TUGAS 10

TUGAS 10

Private Sub cmdproses_click()

Dim S As String

S = (txtkt.Text)

If S = “MUT2212” Then

txtht.Text = “23000”

txtjk.Text = “MUTIARA”

txtjb.Text = “17.00”

txtjt.SetFocus

ElseIf S = “BIM2212” Then

txtht.Text = “50000”

txtjk.Text = “BIMA”

txtjb.Text = “16.00”

txtjt.SetFocus

ElseIf S = “EKO2212” Then

txtht.Text = “35000”

txtjk.Text = “EKONOMI”

txtjb.Text = “19.00”

txtjt.SetFocus

ElseIf S = “SEN2212” Then

txtht.Text = “75000”

txtjk.Text = “SENJA”

txtjb.Text = “20.00”

txtjt.SetFocus

End If

End Sub

 

 

 

 

 

 

 

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim A, B, C As Single

A = txtht.Text

B = txtjt.Text

C = B * A

txttp.Text = C

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttp.Text = “”

 

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

TUGAS 3

gaji1gaji2

Private Sub cmdN_Click()

TextA.Text = Val(TextH) + Val(TextI) – Val(TextD)

TextY.Text = Val(TextA) * 0.1

TextT.Text = Val(TextA) – Val(TextY)

End Sub

Private Sub cmdR_Click()

End

End Sub

Private Sub cmdU_Click()

TextH.SetFocus

TextH = ” ”

TextI = ” ”

TextD = ” ”

TextA = ” ”

TextY = ” ”

TextT = ” ”

End Sub

Private Sub TextD_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextA.Text = Val(TextH) + Val(TextI) – Val(TextD)

TextY.Text = Val(TextA) * 0.1

TextT.Text = Val(TextA) – Val(TextY)

End If

End Sub

Private Sub TextH_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextI.SetFocus

End If

End Sub

Private Sub TextI_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextD.SetFocus

End If

End Sub

Microsoft3

Private Sub ChA_Click()

If ChA.Value = 1 Then

WAHID.FontItalic = True

Else

WAHID.FontItalic = False

End If

End Sub

Private Sub ChH_Click()

If ChH.Value = 1 Then

WAHID.FontUnderline = True

Else

WAHID.FontUnderline = False

End If

End Sub

Private Sub ChI_Click()

If ChI.Value = 1 Then

WAHID.FontStrikethru = True

Else

WAHID.FontStrikethru = False

End If

End Sub

Private Sub ChW_Click()

If ChW.Value = 1 Then

WAHID.FontBold = True

Else

WAHID.FontBold = False

End If

End Sub

Private Sub cmdNUR_Click()

End

End Sub

Private Sub OptA_Click()

WAHID.ForeColor = vbYellow

End Sub

Private Sub OptN_Click()

WAHID.ForeColor = vbBlue

End Sub

Private Sub OptR_Click()

WAHID.ForeColor = vbGreen

End Sub

Private Sub OptU_Click()

WAHID.ForeColor = vbRed

End Sub

stmik

Private Sub Chkgb_Click()

If Chkgb.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Chkgt_Click()

If Chkgt.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Chkmg_Click()

If Chkmg.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Chktb_Click()

If Chktb.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Cmd1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmd2_Click()

End

End Sub

Private Sub Optbr_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Opthj_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optkn_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optmr_Click()

Label2.ForeColor = vbRed

End Sub

tugas 2

foto1

Private Sub cmdbt_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnp = ” ”

Textnpb = ” ”

Texttt = ” ”

End Sub

 

Private Sub cmdkr_Click()

End

End Sub

 

Private Sub cmdlg_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnp = ” ”

Textnpb = ” ”

Texttt = ” ”

End Sub

 

Private Sub Textkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnb.SetFocus

End If

End Sub

Private Sub Textnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnp.SetFocus

End If

End Sub

Private Sub Textnp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpb.SetFocus

End If

End Sub

Private Sub Textnpb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttt.SetFocus

End If

End Sub

foto2

Private Sub cmdn_Click()

Dim A, B, c As Single

A = Textw.Text

B = Texta.Text

c = A * B

Texth.Text = c

End Sub

 

Private Sub cmdr_Click()

End

End Sub

 

Private Sub cmdu_Click()

Textw.SetFocus

Textw = ” ”

Texta = ” ”

Texth = ” ”

End Sub

foto4

Private Sub Cmd1_Click()

Dim A, B, C As Double

txti.Text = Val(txtR.Text) * 0.1

txtz.Text = Val(txtR.Text) – Val(txti.Text)

End Sub

 

Private Sub Cmd2_Click()

txtR.Text = “”

txti.Text = “”

txtz.Text = “”

End Sub

 

Private Sub Cmd3_Click()

End

End Sub

website 3