Semua tulisan dari Agung Triawan

Orang biasa yg berusaha menjadi lebih dari biasa

Tugas 14 PT Pulang Petang

Untitled

Private Sub form_activate()
TXTMNK.SetFocus
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 = “KEPALA 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 = “SINGLE”
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 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 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
Private Sub cmdkeluar_Click()
End
End Sub

Iklan

Tugas 13 Daftar Buku

Untitled

source code :

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 Harga Laptop

Untitled

source code :

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 MC965”
End Sub

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 “Apple MD311”
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 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 cmdkeluar_Click()
End
End Sub

Tugas 11 Biaya Pendidikan

Untitled

Private Sub form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
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 = “Rp 1950000”
ElseIf S = “01” Then
txtps.Text = “Diploma Empat”
txtbp.Text = “Rp 1750000”
ElseIf S = “02” Then
txtps.Text = “Diploma Tiga”
txtbp.Text = “Rp 1650000”
ElseIf S = “03” Then
txtps.Text = “Diploma Dua”
txtbp.Text = “Rp 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
Private Sub cmdkeluar_Click()
End
End Sub

Tugas 10 Biaya Kuliah Total

source code :Untitled

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 Komputer 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
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

Tugas 9 Data Buku

Untitled

source code

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 = “Rp 75900”
ElseIf K = “EDP” Or K = “edp” Then
J = “Elektronik Data Procesing”
P = “Nurul Agustina”
H = “Rp 62000”
ElseIf K = “MNJ” Or K = “mnj” Then
J = “Manajemen”
P = “Rian Hidayat”
H = “Rp 42000”
ElseIf K = “cdr” Or K = “CDR” Then
J = “Corel Draw”
P = “Siti Nur Khotimah”
H = “Rp 53000”
ElseIf K = “rpl” Or K = “RPL” Then
J = “Rekayasa Perangkat Lunak”
P = “Winda Erlianti”
H = “Rp 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()
End
End Sub

Tugas 8 Tiket Kereta

Untitled

source code :

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