TUGAS 14 PELUANG PAGI

 

GAMBAR 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 BUKU

 

GAMBAR 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()

End

End Sub

TUGAS 12 MERK DN KODE LAPTOP

 

 GAMBAR 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 “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 NAMA & NPM MAHASISWA STMIK

GAMBAR 11

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 MAHASISWA STMIK PRINGSEWU NPM

 

GAMBAR 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 DATA BUKU STMIK PRINGSEWU

GAMBAR 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 TIKET KERETA

GAMBAR 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