TUGAS 14. MEMBUAT KODE STATUS

TUGAS 14

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

TXTMNK.SetFocus

TXTMNK.Text = “”

TXTMN.Text = “”

TXTG.Text = “”

TXTKS.Text = “”

TXTS.Text = “”

TXTT.Text = “”

TXTJ.Text = “”

TXTB.Text = “”

TXTGP.Text = “”

TXTTN.Text = “”

TXTTG.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

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

If r = “A” Then

TXTG = “A”

TXTJ.Text = “MANAGER”

TXTGP.Text = “4000000”

TXTTN.Text = “1025000”

ElseIf r = “B” Then

TXTG.Text = “B”

TXTJ.Text = “Ka.SEKSI”

TXTGP.Text = “3500000”

TXTTN.Text = “975000”

ElseIf r = “C” Then

TXTG.Text = “C”

TXTJ.Text = “STAFF”

TXTGP.Text = “3000000”

TXTTN.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)

TXTTG.Text = Val(TXTGP.Text) + Val(TXTTN.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 = “”

TXTG.Text = “”

TXTKS.Text = “”

TXTS.Text = “”

TXTT.Text = “”

TXTJ.Text = “”

TXTB.Text = “”

TXTGP.Text = “”

TXTTN.Text = “”

TXTTG.Text = “”

End Sub

Iklan

TUGAS 13. MEMBUAT KODE BUKU

tugas 13

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Mid(text1, 3, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Andra Setiawan”

H = “Rp 75900”

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Desi Istiqomah”

H = “Rp 62000”

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Sandy Fitrajaya”

H = “Rp 42000”

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Tri Indah Sari”

H = “Rp 53000”

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Ernita Sari”

H = “Rp 83000”

End If

text2.Text = J

text3.Text = P

text6.Text = H

K = Left(text1, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “maxicom”

End If

text5.Text = G

text4.Text = “20” & Right(text1, 2)

End Sub

Private Sub Command2_Click()

text1.SetFocus

text1 = “”

text2 = “”

text3 = “”

text4 = “”

text5 = “”

text6 = “”

End Sub

Private Sub Command3_Click()

text1.SetFocus

text1 = “”

text2 = “”

text3 = “”

text4 = “”

text5 = “”

text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

TUGAS 12. MEMBUAT KODE LAPTOP

tugas 12

Private Sub cbokode_Click()

Dim hs, merk As String

Select Case cbokode.Text

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

hs = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

hs = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

hs = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

hs = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

hs = “4300000”

Case Is = “AppleMD311”

merk = “Apple MacBook Pro MD311”

hs = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD313”

hs = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

hs = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

hs = “14700000”

Case “Apple MC965”

merk = “Apple MacBook Air MC965”

hs = “21300000”

End Select

txtmerk.Text = merk

txths.Text = hs

txtjj.SetFocus

End Sub

Private Sub cmdhitunglagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtmerk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txttb.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 > 140000000 Then

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

ElseIf txthp.Text > 135000000 Then

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

ElseIf txthp.Text > 130000000 Then

txtdis.Text = Val(txthp.Text) * 0.05

ElseIf txthp.Text > 125000000 Then

txtdis.Text = Val(txthp.Text) * 0.02

End If

txttb.Text = Val(txthp.Text) – Val(txtdis.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 “AppleMD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MC965”

End Sub

TUGAS 11

tugas 10

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

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

txtjurusan.Text = “”

txtps.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

txtjurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjurusan.Text = “Teknik Informatika”

ElseIf S = “3” Then

txtjurusan.Text = “Manajemen Informatika”

ElseIf S = “4” Then

txtjurusan.Text = “Manajemen & Komp. Akuntansi”

End If

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

If S = “00” Then

txtps.Text = “Strata Satu”

txtbp.Text = “1950000”

ElseIf S = “01” Then

txtps.Text = “Diploma Empat”

txtbp.Text = “1750000”

ElseIf S = “02” Then

txtps.Text = “Diploma Tiga”

txtbp.Text = “1650000”

ElseIf S = “03” Then

txtps.Text = “Diploma Dua”

txtbp.Text = “1450000”

End If

txtnu.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtbp.Text = “”

End Sub

Private Sub txtnama_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

TUGAS 10

tugas 10

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkelas.Text = “”

txtjurusan.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txtnurut.Text = “”

txtuangpendaftaran.Text = “”

txtbiaya.Text = “”

txtuangbangunan.Text = “”

txtpropti.Text = “”

txttotal.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkelas.Text = “”

txtjurusan.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txtnurut.Text = “”

txtuangpendaftaran.Text = “”

txtbiaya.Text = “”

txtuangbangunan.Text = “”

txtpropti.Text = “”

txttotal.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim S, A, B, kelas, jurusan, program, tahun As String

S = Left(txtnpm.Text, 1)

If S = “E” Then

kelas = “Eksekutif”

pendaftaran = “200000”

bangunan = “1250000”

ElseIf S = “R” Then

kelas = “Reguler”

pendaftaran = “150000”

bangunan = “1000000”

End If

txtkelas.Text = kelas

txtuangpendaftaran.Text = pendaftaran

txtuangbangunan.Text = bangunan

txttahun.Text = “20” & Mid(txtnpm.Text, 3, 2)

A = Mid(txtnpm.Text, 5, 1)

If A = “1” Then

jurusan = “sistem informasi”

ElseIf A = “2” Then

jurusan = “manajemen informatika”

ElseIf A = “3” Then

jurusan = “manajemen dan komp.Akuntansi”

End If

txtjurusan.Text = jurusan

B = Mid(txtnpm.Text, 6, 2)

txtpropti.Text = “600000”

If B = “01” Then

program = “strata satu”

pendidikan = “1900000”

ElseIf B = “02” Then

program = “diploma tiga”

pendidikan = “1650000”

ElseIf B = “03” Then

program = “diploma satu”

pendidikan = “13500000”

End If

txtprogram.Text = program

txtbiaya.Text = pendidikan

txtnurut.Text = Right(txtnpm.Text, 3)

pendaftaran = Val(txtuangpendaftaran.Text)

semester = Val(txtbiaya.Text)

bangunan = Val(txtuangbangunan.Text)

almamater = Val(txtpropti.Text)

total = Val(pendaftaran + semester + bangunan + almamater)

txttotal.Text = total

End Sub

TUGAS 9. MEMBUAT KODE BUKU

tugas 9

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900”

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000”

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000”

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000”

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000”

End If

text2.Text = J

text3.Text = P

text6.Text = H

K = Right(text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “maxicom”

End If

text5.Text = G

text4.Text = “20” & Mid(text1.Text, 4, 2)

End Sub

Private Sub Command2_Click()

text1.SetFocus

text1 = “”

text2 = “”

text3 = “”

text4 = “”

text5 = “”

text6 = “”

End Sub

Private Sub Command3_Click()

text1.SetFocus

text1 = “”

text2 = “”

text3 = “”

text4 = “”

text5 = “”

text6 = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

TUGAS 8. MEMBUAT PENJUALAN TIKET KERETA API

tugas 8

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim kt, jk, jb As String

Dim ht As Currency

kt = Left(txtkt.Text, 3)

If kt = “BIM” Then

ht = “50000”

jk = “BIMA”

jb = “16.00”

ElseIf kt = “EKO” Then

ht = “35000”

jk = “EKONOMI”

jb = “19.00”

ElseIf kt = “MUT” Then

ht = “23000”

jk = “MUTIARA”

jb = “17.00”

ElseIf kt = “SEN” Then

ht = “15000”

jk = “SENJA”

jb = “20.00”

End If

txtht.Text = ht

txtjk.Text = jk

txtjb.Text = jb

txtjt.Text = jt

txtjt.SetFocus

End Sub

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub