DB TUGAS AKHIR

TUGAS NPM 1

TUGAS NPM ASLI 1

Private Sub Cmdbatal_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub

Private Sub cmdPROSES_Click()
Dim s As String
TxtTM.Text = “20” & Left(TxtNPM.Text, 2)
s = Mid(TxtNPM.Text, 3, 3)
If s = “100” Then
TxtJUR.Text = “SISTEM INFORMATIKA”
TxtPS.Text = “STRATA SATU”
ElseIf s = “200” Then
TxtJUR.Text = “MANAJEMEN INFORMATIKA”
TxtPS.Text = “DIPLOMA TIGA”
End If
TxtURUT.Text = Right(TxtNPM.Text, 3)
End Sub

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command4_Click()
Form1.Show
End Sub

Private Sub Command5_Click()
Data1.Recordset.AddNew
TxtNAMA.SetFocus
End Sub

Private Sub Command6_Click()
Data1.Recordset.Delete
TxtNAMA.SetFocus
End Sub

Private Sub Form_activate()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
TxtNPM.SetFocus
End If
End Sub

TUGAS NPM 2

TUGAS NPM NGARANG.png

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
TxtJUR.Text = “Sistem Informasi”
ElseIf S = “2” Then
TxtJUR.Text = “Manajemen Informatika”
ElseIf S = “3” Then
TxtJUR.Text = “Tehnik Informatika”
ElseIf S = “4” Then
TxtJUR.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(TxtNPM.Text, 4, 2)
If S = “01” Then
TxtPS.Text = “Strata Satu”
ElseIf S = “02” Then
TxtPS.Text = “Diploma Tiga”
ElseIf S = “03” Then
TxtPS.Text = “Diploma Empat”
ElseIf S = “04” Then
TxtPS.Text = “Diploma Dua”
End If
TxtURUT.Text = Right(TxtNPM.Text, 3)
End Sub

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub
Private Sub Command4_Click()
Form1.Show
End Sub

Private Sub Command5_Click()
Data1.Recordset.AddNew
TxtNAMA.SetFocus
End Sub

Private Sub Command6_Click()
Data1.Recordset.Delete
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub
Private Sub Form_activate()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub
Private Sub Cmdbatal_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub

Private Sub Cmdlagi_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
TxtNPM.Text = “”
TxtJUR.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
TxtURUT.Text = “”
End Sub

TUGAS 1.1

DATA BUKU CMD
Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jb, pg, pn, hg As String
txttahun.Text = “20” & Right(cbokode, 2)
s = Mid(cbokode, 3, 3)
If s = “SIM” Then
jb = “Sistem informasi manajemen”
pg = “YatiNurOktavia”
hg = “75900”
ElseIf s = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Imam Tarmizi”
hg = “62000”
ElseIf s = “MNJ” Then
jb = “Manajemen”
pg = “Valentina Mariana Adiwianti”
hg = “42000”
ElseIf s = “CDR” Then
jb = “Corel Draw”
pg = “Riyan Suhandi”
hg = “53000”
ElseIf s = “RPL” Then
jb = “RekayasaPerangkatLunak”
pg = “SintaUmpuSinga”
hg = “83000”
End If
txtjudul.Text = jb
txtpengarang.Text = pg
txtharga.Text = hg
s = Mid(cbokode, 1, 1)
If s = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
pn = “Indah Surabaya”
ElseIf s = “S” Then
pn = “SalembaEmpat”
ElseIf s = “E” Then
pn = “Elek Media Komputindo”
ElseIf s = “M” Then
pn = “Maxicom”
End If
txtpenerbit.Text = pn
End Sub

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
cbokode.SetFocus
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
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 1.2

DATA BUKU STMIK.png

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
Txtjb.Text = “”
Txtpeng.Text = “”
Txttt.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String
Txttt.Text = “20” & Mid(Txtkode, 5, 2)
S = Left(Txtkode, 3)
If S = “SIM” Then
Txtjb.Text = “Sistem Informasi Manajemen”
Txtpeng.Text = “Fadiya Ulfa”
Txtharga.Text = “75900”
ElseIf S = “EDP” Then
Txtjb.Text = “Elektronik Data Processing”
Txtpeng.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf S = “MNJ” Then
Txtjb.Text = “Manajemen”
Txtpeng.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf S = “CDR” Then
Txtjb.Text = “Corel Draw”
Txtpeng.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf S = “RPL” Then
Txtjb.Text = “Rekayasa Perangkat Lunak”
Txtpeng.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
S = Right(Txtkode, 1)
If S = “A” Then
Txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
Txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
Txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Txtpenerbit.Text = “Maxicom”
End If
End Sub

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
Txtkode.SetFocus
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

TUGAS 1.3

KERETA API

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Txtkode.SetFocus
Txtkode = “”
Txtht = “”
Txtjk = “”
Txtjb = “”
Txtjt = “”
Txttotal = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Left(Txtkode.Text, 3)
If S = “BIM” Then
Txtjk.Text = “BIMA”
Txtht.Text = “50000”
Txtjb.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Txtjk.Text = “EKONOMI”
Txtht.Text = “35000”
Txtjb.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Txtjk.Text = “MUTIARA”
Txtht.Text = “23000”
Txtjb.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Txtjk.Text = “SENJA”
Txtht.Text = “15000”
Txtjb.Text = “20.00 WIB”
End If
Txttotal.Text = Val(Txtht.Text) * Val(Txtjt.Text)
End Sub
Private Sub txtkt_KeyPress(KeyAscii As Integer)
Dim S As String
S = Left(txtkt.Text, 3)
If S = “BIM” Then
Txtjk.Text = “BIMA”
Txtht.Text = “50000”
Txtjb.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Txtjk.Text = “EKONOMI”
Txtht.Text = “35000”
Txtjb.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Txtjk.Text = “MUTIARA”
Txtht.Text = “23000”
Txtjb.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Txtjk.Text = “SENJA”
Txtht.Text = “15000”
Txtjb.Text = “20.00 WIB”
End If
If KeyAscii = 13 Then
Txtjt.SetFocus
End If
End Sub

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
Txtkode.SetFocus
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
Txtkode.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttotal.Text = Val(Txtht.Text) * Val(Txtjt.Text)
End If
End Sub

TUGAS 2.1

PENJUALAN KOMPUTER
Private Sub Cbocode_Click()
Dim jenis, hs As String
Select Case Cbocode
Case “P205”
jenis = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz ”
hs = “2100000 ”
Case “P310”
jenis = “pentium III 1.0 Giga Hz”
hs = “3500000 ”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
hs = “4000000 ”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
hs = “4200000 ”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
hs = “5500000 ”
End Select
Txtjk = jenis
Txths = hs
Txtjj.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub Cmdlagi_Click()
Cbocode.SetFocus
Cbocode = “”
Txtjk = “”
Txths = “”
Txtjj = “”
Txthp = “”
Txtdis = “”
Txthb = “”
End Sub
Private Sub Cmdproses_Click()
Txthp = Val(Txtjj) * Val(Txths)
If Val(Txthp) > “30000000” Then
Txtdis = Val(Txthp) * 15 / 100
ElseIf Val(Txthp) > “25000000” Then
Txtdis = Val(Txthp) * 10 / 100
ElseIf Val(Txthp) > “20000000” Then
Txtdis = Val(Txthp) * 5 / 100
ElseIf Val(Txthp) > “15000000” Then
Txtdis = Val(Txthp) * 2 / 100
End If
Txthb = Val(Txthp) – Val(Txtdis)
End Sub

Private Sub Command1_Click()
Data1.Recordset.Delete
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
Cbocode.SetFocus
End Sub

Private Sub Command3_Click()
Data1.Recordset.Update
End Sub

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Txtjk = “”
Txths = “”
Txtjj = “”
Txtdis = “”
Txthb = “”
End Sub

Private Sub Form_Load()
Cbocode.AddItem “P205”
Cbocode.AddItem “P308”
Cbocode.AddItem “P310”
Cbocode.AddItem “P415”
Cbocode.AddItem “P417”
Cbocode.AddItem “P419”
End Sub

TUGAS 2.2

PT PULANG PETANG
Private Sub Cmdbatal_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtgol.Text = “”
Txtkode.Text = “”
Txtstatus.Text = “”
Txttahun.Text = “”
Txtjabatan.Text = “”
Txtbagian.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Dim r As String
r = Mid(Txtmn.Text, 5, 1)
If r = “A” Then
Txtgol = “A”
Txtjabatan.Text = “MANAGER”
Txtgapok.Text = “4000000”
Txttunjangan.Text = “1025000”
ElseIf r = “B” Then
Txtgol.Text = “B”
Txtjabatan.Text = “Ka.SEKSI”
Txtgapok.Text = “3500000”
Txttunjangan.Text = “975000”
ElseIf r = “C” Then
Txtgol.Text = “C”
Txtjabatan.Text = “STAFF”
Txtgapok.Text = “3000000”
Txttunjangan.Text = “925000”
End If
r = Right(Txtmn.Text, 3)
If r = “KEU” Then
Txtbagian.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Txtbagian.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Txtbagian.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Txtbagian.Text = “IT UNIT”
ElseIf r = “SPM” Then
Txtbagian.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
Txtkode.Text = kode
Txtstatus.Text = Status
Txttahun.Text = Left(Txtmn.Text, 4)
Txttotal.Text = Val(Txtgapok.Text) + Val(Txttunjangan.Text)
End Sub

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
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

TUGAS 2.3

DBDBD.png

Private Sub cbokolap_Click()
Dim mt, hs, TB As Integer
Select Case cbokolap.Text
Case “MC965”
mt = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966”
mt = “Apple MacBook Air MC966”
hs = “15800000”
Case “MC968”
mt = “Apple MacBook Air MC968”
hs = “9900000”
Case “MC969”
mt = “Apple MacBook Air MC969”
hs = “11900000”
Case “MC700”
mt = “Apple MacBook Pro MC700”
hs = “10800000”
Case “MC721”
mt = “Apple MacBook Pro MC721”
hs = “15900000”
Case “MC723”
mt = “Apple MacBook Pro MC723”
hs = “19300000”
Case “MC724”
mt = “Apple MacBook Pro MC724”
hs = “13700000”
Case “MC311”
mt = “Apple MacBook Pro MC311”
hs = “24200000”
Case “Apple MC313 MacBook Pro”
mt = “Apple MacBook Pro MC313”
hs = “11900000”
Case “Apple MC314 MacBook Pro”
mt = “Apple MacBook Pro MC314”
hs = “14700000”
Case “Apple MC318 MacBook Pro”
mt = “Apple MacBook Pro MC318”
hs = “17600000”
Case “Apple MC322 MacBook Pro”
mt = “Apple MacBook Pro MC322”
hs = “21300000”
Case “Apple MC965 MacBook Air”
mt = “Apple MacBook Air MC965”
hs = “12800000”
Case “Apple MC966 MacBook Air”
mt = “Apple MacBook Air MC966”
hs = “15800000”
End Select
txtmt.Text = mt
txths.Text = hs
txtjuju.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
cbokolap.SetFocus
cbokolap.Text = “”
txtmt.Text = “”
txths.Text = “”
txtjuju.Text = “”
txthp.Text = “”
Textdis.Text = “”
txttb.Text = “”

End Sub

Private Sub cmdproses_Click()
txthp = Val(txths) * Val(txtjuju)
Select Case txthp.Text
Case Is > 140000000
Textdis = Val(txthp) * 0.15
Case Is > 135000000
Textdis = Val(txthp) * 0.1
Case Is > 130000000
Textdis = Val(txthp) * 0.05
Case Is > 125000000
Textdis = Val(txthp) * 0.02
End Select
txttb = Val(txthp) – Val(txtdis)

End Sub
Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
cbokolap.SetFocus
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()

cbokolap.AddItem “MC965”
cbokolap.AddItem “MC966”
cbokolap.AddItem “MC968”
cbokolap.AddItem “MC969”
cbokolap.AddItem “MC700”
cbokolap.AddItem “MC721”
cbokolap.AddItem “MC723”
cbokolap.AddItem “MC724”
cbokolap.AddItem “MC311”
cbokolap.AddItem “MC313”
cbokolap.AddItem “MC314”
cbokolap.AddItem “MC318”
cbokolap.AddItem “MC322”
cbokolap.AddItem “MC965”
cbokolap.AddItem “MC966”
End Sub

TUGAS GOLONGAN

GOLONGAN
Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
txtNIDN.SetFocus
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub txtNIDN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
Private Sub Form_load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
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

Private Sub CmdBatal_Click()
txtNIDN.SetFocus
txtNIDN = “”
txtnama = “”
txtgolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub
Private Sub CmdLagi_Click()
txtNIDN.SetFocus
txtNIDN = “”
txtnama = “”
txtgolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub

Private Sub CmdKeluar_Click()
Form2.Show
End Sub

TUGAS 10

TUGS 10
Private Sub Cmdadd_Click()
Data1.Recordset.AddNew
Txtkode.SetFocus
End Sub

Private Sub Cmdcancel_Click()
Data1.Recordset.Delete
End Sub

Private Sub Cmdhitung_Click()
txtby.Text = Val(txthb.Text) * Val(txtjb.Text)
If Val(txtjb.Text) > “5” Then
txtpot.Text = Val(txtby) * 0.02
txttb.Text = Val(txtby.Text) – (txtpot.Text)
End If
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdproses_Click()
Dim H, nb, hb As String

H = Mid(Txtkode, 5, 2)
If H = “SP” Or H = “sp” Then
txtnb.Text = “Spidol”
txthb.Text = “9500”
ElseIf H = “BT” Or H = “bt” Then
txtnb.Text = “Buku Tulis”
txthb.Text = “12500”
ElseIf H = “TP” Or H = “tp” Then
txtnb.Text = “Tip EX”
txthb.Text = “3000”
ElseIf H = “PG” Or H = “pg” Then
txtnb.Text = “Penggaris”
txthb.Text = “25000”
ElseIf H = “PT” Or H = “pt” Then
txtnb.Text = “Papan Tulis”
txthb.Text = “50000”
End If
txtjb.SetFocus
End Sub

Private Sub Cmdsave_Click()
Data1.Recordset.Update
End Sub

Advertisements

TUGAS 1.3-2.3

TUGAS 1.1

ALFI 1.1

Private Sub Cbokode_Click()

Dim mt, hs, TB As Integer

Select Case CboKode.Text

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

Case “Apple MC968 MacBook Air”

mt = “Apple MacBook Air MC968”

hs = “9900000”

Case “Apple MC969 MacBook Air”

mt = “Apple MacBook Air MC969”

hs = “11900000”

Case “Apple MC700 MacBook Pro”

mt = “Apple MacBook Pro MC700”

hs = “10800000”

Case “Apple MC721 MacBook Pro”

mt = “Apple MacBook Pro MC721”

hs = “15900000”

Case “Apple MC723 MacBook Pro”

mt = “Apple MacBook Pro MC723”

hs = “19300000”

Case “Apple MC724 MacBook Pro”

mt = “Apple MacBook Pro MC724”

hs = “13700000”

Case “Apple MC311 MacBook Pro”

mt = “Apple MacBook Pro MC311”

hs = “24200000”

Case “Apple MC313 MacBook Pro”

mt = “Apple MacBook Pro MC313”

hs = “11900000”

Case “Apple MC314 MacBook Pro”

mt = “Apple MacBook Pro MC314”

hs = “14700000”

Case “Apple MC318 MacBook Pro”

mt = “Apple MacBook Pro MC318”

hs = “17600000”

Case “Apple MC322 MacBook Pro”

mt = “Apple MacBook Pro MC322”

hs = “21300000”

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

End Select

Txtmerk.Text = mt

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_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(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Form_Load()

CboKode.AddItem “Apple MC965 MacBook Air”

CboKode.AddItem “Apple MC966 MacBook Air”

CboKode.AddItem “Apple MC968 MacBook Air”

CboKode.AddItem “Apple MC969 MacBook Air”

CboKode.AddItem “Apple MC700 MacBook Pro”

CboKode.AddItem “Apple MC721 MacBook Pro”

CboKode.AddItem “Apple MC723 MacBook Pro”

CboKode.AddItem “Apple MC724 MacBook Pro”

CboKode.AddItem “Apple MC311 MacBook Pro”

CboKode.AddItem “Apple MC313 MacBook Pro”

CboKode.AddItem “Apple MC314 MacBook Pro”

CboKode.AddItem “Apple MC318 MacBook Pro”

CboKode.AddItem “Apple MC322 MacBook Pro”

CboKode.AddItem “Apple MC965 MacBook Air”

CboKode.AddItem “Apple MC966 MacBook Air”

End Sub

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End If

End Sub

 

TUGAS 1.2

ALFI 1.2.png

Private Sub Cbocode_Click()

Dim jenis, hs As String

Select Case Cbocode

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jenis = “pentium III 1.0 Giga Hz”

hs = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hs = “4000000 ”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000 ”

End Select

Txtjk = jenis

Txths = hs

Txtjj.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Cbocode.SetFocus

Cbocode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txthp = “”

Txtdis = “”

Txthb = “”

End Sub

Private Sub Cmdproses_Click()

Txthp = Val(Txtjj) * Val(Txths)

If Val(Txthp) > “30000000” Then

Txtdis = Val(Txthp) * 15 / 100

ElseIf Val(Txthp) > “25000000” Then

Txtdis = Val(Txthp) * 10 / 100

ElseIf Val(Txthp) > “20000000” Then

Txtdis = Val(Txthp) * 5 / 100

ElseIf Val(Txthp) > “15000000” Then

Txtdis = Val(Txthp) * 2 / 100

End If

Txthb = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Form_Activate()

Cbocode.SetFocus

Cbocode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txtdis = “”

Txthb = “”

End Sub

Private Sub Form_Load()

Cbocode.AddItem “P205”

Cbocode.AddItem “P308”

Cbocode.AddItem “P310”

Cbocode.AddItem “P415”

Cbocode.AddItem “P417”

Cbocode.AddItem “P419”

End Sub

 

TUGAS 1.3

ALFI 1.3

Private Sub cmdproses_Click()

Dim jb, pg, pn, hg As String

Txttahun.Text = “20” & Right(Cbokode, 2)

s = Mid(Cbokode, 3, 3)

If s = “SIM” Then

jb = “Sistem informasi manajemen”

pg = “YatiNurOktavia”

hg = “75900”

ElseIf s = “EDP” Then

jb = “Elektronik Data Processing”

pg = “Imam Tarmizi”

hg = “62000”

ElseIf s = “MNJ” Then

jb = “Manajemen”

pg = “Valentina Mariana Adiwianti”

hg = “42000”

ElseIf s = “CDR” Then

jb = “Corel Draw”

pg = “Riyan Suhandi”

hg = “53000”

ElseIf s = “RPL” Then

jb = “RekayasaPerangkatLunak”

pg = “SintaUmpuSinga”

hg = “83000”

End If

Txtjudul.Text = jb

Txtpengarang.Text = pg

Txtharga.Text = hg

s = Mid(Cbokode, 1, 1)

If s = “A” Then

pn = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

pn = “Indah Surabaya”

ElseIf s = “S” Then

pn = “SalembaEmpat”

ElseIf s = “E” Then

pn = “Elek Media Komputindo”

ElseIf s = “M” Then

pn = “Maxicom”

End If

Txtpenerbit.Text = pn

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

Private Sub txtbatal_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjudul.Text = “”

Txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub txtkeluar_Click()

End

End Sub

Private Sub txtlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjudul.Text = “”

Txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

 

TUGAS 2.1

ALFI 2.1.png

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtkode.SetFocus

Txtkode = “”

Txtht = “”

Txtjk = “”

Txtjb = “”

Txtjt = “”

Txttotal = “”

End Sub

Private Sub cmdproses_Click()

Dim S As String

S = Left(Txtkode.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

Txttotal.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

Dim S As String

S = Left(txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

If KeyAscii = 13 Then

Txtjt.SetFocus

End If

End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotal.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End If

End Sub

 

TUGAS 2.2

ALFI 2.2.png

Private Sub Cmdproses_Click()

Dim S As String

Txttt.Text = “20” & Mid(Txtkode, 5, 2)

S = Left(Txtkode, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

Txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

Txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

Txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

Txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

Txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Right(Txtkode, 1)

If S = “A” Then

Txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

End Sub

Private Sub cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

 

TUGAS 2.3

ALFI 2.3.png

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub Cmdbatal_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

Txtgol.Text = “”

Txtkode.Text = “”

Txtstatus.Text = “”

Txttahun.Text = “”

Txtjabatan.Text = “”

Txtbagian.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txttotal.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

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

If r = “A” Then

Txtgol = “A”

Txtjabatan.Text = “MANAGER”

Txtgapok.Text = “4000000”

Txttunjangan.Text = “1025000”

ElseIf r = “B” Then

Txtgol.Text = “B”

Txtjabatan.Text = “Ka.SEKSI”

Txtgapok.Text = “3500000”

Txttunjangan.Text = “975000”

ElseIf r = “C” Then

Txtgol.Text = “C”

Txtjabatan.Text = “STAFF”

Txtgapok.Text = “3000000”

Txttunjangan.Text = “925000”

End If

r = Right(Txtmn.Text, 3)

If r = “KEU” Then

Txtbagian.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

Txtbagian.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

Txtbagian.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

Txtbagian.Text = “IT UNIT”

ElseIf r = “SPM” Then

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

Txtkode.Text = kode

Txtstatus.Text = Status

Txttahun.Text = Left(Txtmn.Text, 4)

Txttotal.Text = Val(Txtgapok.Text) + Val(Txttunjangan.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

 

TUGAS 3 GAJI POKOK

ALFI 3

 

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

 

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Public Sub kosong()

Txtnpm.SetFocus

Txtnpm.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub cmdbatal_Click()

kosong

End Sub

 

TUGAS NPM 2

ALFI 2

Private Sub Cmdbatal_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub cmdPROSES_Click()

Dim s As String

TxtTM.Text = “20” & Left(TxtNPM.Text, 2)

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

If s = “100” Then

TxtJUR.Text = “sistem infirmasa”

TxtPS.Text = “strata satu”

ElseIf s = “200” Then

TxtJUR.Text = “manajemen informatika”

TxtPS.Text = “diploma tiga”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

End Sub

 

Private Sub Form_activate()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

TxtNPM.SetFocus

End If

End Sub

TUGAS NPM 1

ALFI 1

Private Sub Cmdbatal_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

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

TxtJUR.Text = “Sistem Informasi”

ElseIf S = “2” Then

TxtJUR.Text = “Manajemen Informatika”

ElseIf S = “3” Then

TxtJUR.Text = “Tehnik Informatika”

ElseIf S = “4” Then

TxtJUR.Text = “Manajemen & Komp. Akuntansi”

End If

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

If S = “01” Then

TxtPS.Text = “Strata Satu”

ElseIf S = “02” Then

TxtPS.Text = “Diploma Tiga”

ElseIf S = “03” Then

TxtPS.Text = “Diploma Empat”

ElseIf S = “04” Then

TxtPS.Text = “Diploma Dua”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

End Sub

 

Private Sub Form_activate()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

TxtNPM.SetFocus

End If

End Sub

 

NAMA MAHASISWA ORACLE 2

alfina88888888

Private Sub Check1_Click()

label2.FontBold = Check2.Value

End Sub

 

Private Sub Check2_Click()

label2.FontItalic = Check2.Value

End Sub

 

Private Sub Commad1_Click()

label2 Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

label2.ForeColor = vbGreen

End Sub

 

Private Sub Option2_Click()

label2.ForeColor = vbRed

End Sub

FONT COLOR & FONT STYLE

GAMBAR NAMA ALFINA.png

Private Sub chkbold_Click()

‘membuat text tebal’

If chkbold.Value = 1 Then

lblteks.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

 

Private Sub chkitalic_Click()

If chkitalic.Value = 1 Then

lblteks.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

 

Private Sub chkstrikethru_Click()

If chkstrikethru.Value = 1 Then

lblteks.FontStrikethru = True

Else

lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub chkunderline_Click()

If chkunderline.Value = 1 Then

lblteks.FontUnderline = True

Else

lblteks.FontUnderline = False

End If

End Sub

 

Private Sub cmdexit_Click()

End

End Sub

 

Private Sub Optblue_Click()

‘membuat text berwarna biru’

lblteks.ForeColor = vbBlue

End Sub

 

Private Sub optgreen_Click()

‘membuat text berwarna hijau’

lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Optpink_Click()

‘membuat text berwarna kuning’

lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Optred_Click()

‘membuat text berwarna merah’

lblteks.ForeColor = vbRed

End Sub

 

HURUF MUTU PROSES

CARA ALFINA PROSES.png

Private Sub cbonpm_Click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “15100107”

nama = “ADI KISWANTO”

jurusan = “SISTEM INFORMASI”

Case “15100052”

nama = “ADITYA WIBOWO”

jurusan = “SISTEM INFORMASI”

Case “15100054”

nama = “AGUNG SETIAWAN”

jurusan = “SISTEM INFORMASI”

Case “15100056”

nama = “ALFIA DAMAYANTI”

jurusan = “SISTEM INFORMASI”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “SISTEM INFORMASI”

Case “15100081”

nama = “ANTIA”

jurusan = “SISTEM INFORMASI”

Case “15100046”

nama = “BAYU SANJAYA”

jurusan = ” SISTEM INFORMASI”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “SISTEM INFORMASI”

Case ” 15100217″

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100053”

nama = “DAVID PUJI PANGUNGKAS”

jurusan = “SISTEM INFORMASI”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “SISTEM INFORMASI”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “SISTEM INFORMASI”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “SISTEM INFORMASI”

Case “15100045”

nama = “GELBET ALEXANDER”

jurusan = “SISTEM INFORMASI”

Case “15100076”

nama = “GITA KUSUMA WARDANI”

jurusan = “SISTEM INFORMASI”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “MAJANEMEN”

Case “15100044”

nama = “IRFAN NURFADULLAH”

jurusan = “AKUNTANSI”

Case “15100067”

nama = “LAILATURROHMAH”

jurusan = “BAHASA INDONESIA”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “BAHASA INGGRIS”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “BAHASA INGGRIS”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “FISIKA”

Case “15100050”

nama = “MARIKUN”

jurusan = “MATEMATIKA”

Case “15100051”

nama = “MARSYANTO”

jurusan = “EKONOMI”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “EKONOMI”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “INFORMATIKA”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “SISTEM INFORMATIKA”

Case “15100071”

nama = “NITA MEYLINDA”

jurusan = “EKONOMI”

Case “15100080”

nama = “NOFIANTI”

jurusan = “TIK”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “SISTEM INFORMATIKA”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “MATEMATIKA”

Case “15100079”

nama = “RISWAN EFENDI”

jurusan = “FISIKA”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “EKONOMI”

Case “15100072”

nama = “SUSANTI”

jurusan = “SISTEM INFORMASI”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “EKONOMI”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100075”

nama = “WAHYUSA FRISTADEA”

jurusan = “SISTEM INFORMASI”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

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

cbonpm.AddItem “15100107”

cbonpm.AddItem “15100052”

cbonpm.AddItem “15100054”

cbonpm.AddItem “15100056”

cbonpm.AddItem “15100063”

cbonpm.AddItem “15100081”

cbonpm.AddItem “15100046”

cbonpm.AddItem “15100043”

cbonpm.AddItem “15100217”

cbonpm.AddItem “15100053”

cbonpm.AddItem “15100058”

cbonpm.AddItem “15100073”

cbonpm.AddItem “15100082”

cbonpm.AddItem “15100045”

cbonpm.AddItem “15100076”

cbonpm.AddItem “15100057”

cbonpm.AddItem “15100044”

cbonpm.AddItem “15100067”

cbonpm.AddItem “15100066”

cbonpm.AddItem “15100047”

cbonpm.AddItem “15100048”

cbonpm.AddItem “15100050”

cbonpm.AddItem “15100051”

cbonpm.AddItem “15100074”

cbonpm.AddItem “15100062”

cbonpm.AddItem “15100070”

cbonpm.AddItem “15100071”

cbonpm.AddItem “15100080”

cbonpm.AddItem “15100068”

cbonpm.AddItem “15100064”

cbonpm.AddItem “15100079”

cbonpm.AddItem “15100061”

cbonpm.AddItem “15100059”

cbonpm.AddItem “15100072”

cbonpm.AddItem “15100069”

cbonpm.AddItem “15100055”

cbonpm.AddItem “15100075”

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 txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtNA.SetFocus

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

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

HURUF MUTU ENTER

 

GAMBAR ALFINA ENTER

Private Sub cbonpm_Click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “15100107”

nama = “ADI KISWANTO”

jurusan = “SISTEM INFORMASI”

Case “15100052”

nama = “ADITYA WIBOWO”

jurusan = “SISTEM INFORMASI”

Case “15100054”

nama = “AGUNG SETIAWAN”

jurusan = “SISTEM INFORMASI”

Case “15100056”

nama = “ALFIA DAMAYANTI”

jurusan = “SISTEM INFORMASI”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “SISTEM INFORMASI”

Case “15100081”

nama = “ANTIA”

jurusan = “SISTEM INFORMASI”

Case “15100046”

nama = “BAYU SANJAYA”

jurusan = ” SISTEM INFORMASI”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “SISTEM INFORMASI”

Case ” 15100217″

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100053”

nama = “DAVID PUJI PANGUNGKAS”

jurusan = “SISTEM INFORMASI”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “SISTEM INFORMASI”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “SISTEM INFORMASI”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “SISTEM INFORMASI”

Case “15100045”

nama = “GELBET ALEXANDER”

jurusan = “SISTEM INFORMASI”

Case “15100076”

nama = “GITA KUSUMA WARDANI”

jurusan = “SISTEM INFORMASI”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “MAJANEMEN”

Case “15100044”

nama = “IRFAN NURFADULLAH”

jurusan = “AKUNTANSI”

Case “15100067”

nama = “LAILATURROHMAH”

jurusan = “BAHASA INDONESIA”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “BAHASA INGGRIS”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “BAHASA INGGRIS”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “FISIKA”

Case “15100050”

nama = “MARIKUN”

jurusan = “MATEMATIKA”

Case “15100051”

nama = “MARSYANTO”

jurusan = “EKONOMI”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “EKONOMI”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “INFORMATIKA”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “SISTEM INFORMATIKA”

Case “15100071”

nama = “NITA MEYLINDA”

jurusan = “EKONOMI”

Case “15100080”

nama = “NOFIANTI”

jurusan = “TIK”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “SISTEM INFORMATIKA”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “MATEMATIKA”

Case “15100079”

nama = “RISWAN EFENDI”

jurusan = “FISIKA”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “EKONOMI”

Case “15100072”

nama = “SUSANTI”

jurusan = “SISTEM INFORMASI”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “EKONOMI”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100075”

nama = “WAHYUSA FRISTADEA”

jurusan = “SISTEM INFORMASI”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

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

cbonpm.AddItem “15100107”

cbonpm.AddItem “15100052”

cbonpm.AddItem “15100054”

cbonpm.AddItem “15100056”

cbonpm.AddItem “15100063”

cbonpm.AddItem “15100081”

cbonpm.AddItem “15100046”

cbonpm.AddItem “15100043”

cbonpm.AddItem “15100217”

cbonpm.AddItem “15100053”

cbonpm.AddItem “15100058”

cbonpm.AddItem “15100073”

cbonpm.AddItem “15100082”

cbonpm.AddItem “15100045”

cbonpm.AddItem “15100076”

cbonpm.AddItem “15100057”

cbonpm.AddItem “15100044”

cbonpm.AddItem “15100067”

cbonpm.AddItem “15100066”

cbonpm.AddItem “15100047”

cbonpm.AddItem “15100048”

cbonpm.AddItem “15100050”

cbonpm.AddItem “15100051”

cbonpm.AddItem “15100074”

cbonpm.AddItem “15100062”

cbonpm.AddItem “15100070”

cbonpm.AddItem “15100071”

cbonpm.AddItem “15100080”

cbonpm.AddItem “15100068”

cbonpm.AddItem “15100064”

cbonpm.AddItem “15100079”

cbonpm.AddItem “15100061”

cbonpm.AddItem “15100059”

cbonpm.AddItem “15100072”

cbonpm.AddItem “15100069”

cbonpm.AddItem “15100055”

cbonpm.AddItem “15100075”

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 txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtNA.SetFocus

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

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

TUGAS 3 PERHITUNGAN DISKON

2.1 program proses

capture-20151125-123119.png

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdulang_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txtak = “”

End Sub

2.2 program enter

ALFINA.png

Private Sub cmdhitung_Click()

Txtdis = Val(Txtha) * 0.1

Txtak = Val(Txtha) – Val(Txtdis)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdulang_Click()

Txtha.SetFocus

Txtha = “”

Txtdis = “”

Txtak = “”

End Sub

 

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis = Val(Txtha) * 0.1

Txtak = Val(Txtha) – Val(Txtdis)

End If

End Sub