NO 01
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
NO 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
NO 03
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
NO 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
NO 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
ryanbagusardiyanto986 