TUGAS BAHASA PEMROGRAMAN VB

TUGAS 1

screenshoot

data1

source code

form1

Public Sub kosong()
textnidn.SetFocus
textnidn.Text = “”
Textnama.Text = “”
Combogol.Text = “”
Textgapok.Text = “”
Texttunja.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Combogol_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combogol.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
Textgapok.Text = gapok
Texttunja.Text = tunjangan
Textpajak.Text = pajak
Texttotal.Text = total – pajak
End Sub

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

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

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

Private Sub Form_Load()
Combogol.AddItem “I”
Combogol.AddItem “II”
Combogol.AddItem “III”
Combogol.AddItem “IV”
End Sub

Private Sub textnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnama.SetFocus
End If
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 2

screenshoot

data2

source code

form1

Private Sub kosong()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textpro.Text = “”
Textthn.Text = “”
Textno.Text = “”
End Sub

Private Sub Cmdadd_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
End Sub

Private Sub Cmdcancel_Click()
kosong
End Sub

Private Sub Cmdclose_Click()
Form2.Show
End Sub

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

Private Sub Cmdproses_Click()
Dim B As String
B = Mid(Textnpm.Text, 3, 1)
If B = “1” Then
Textjur.Text = “Sistem Informasi”
ElseIf B = “2” Then
Textjur.Text = “Teknik Informatika”
ElseIf B = “3” Then
Textjur.Text = “Management Informatika”
ElseIf B = “4” Then
Textjur.Text = “Komputer Akuntansi”
End If
B = Mid(Textnpm.Text, 4, 2)
If B = “01” Then
Textpro.Text = “Strata Satu”
ElseIf B = “02” Then
Textpro.Text = “Diploma Empat”
ElseIf B = “03” Then
Textpro.Text = “Diploma Tiga”
ElseIf B = “04” Then
Textpro.Text = “Diploma Dua”
End If
Textthn.Text = “20” & Left(Textnpm.Text, 2)
Textno.Text = Right(Textnpm.Text, 3)
End Sub

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

Private Sub Cmdtry_Click()
kosong
End Sub

Private Sub Form_Activate()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textpro.Text = “”
Textthn.Text = “”
Textno.Text = “”
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 3

screenshoot

data3

source code

form1

Private Sub kosong()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textpro.Text = “”
Textthn.Text = “”
Textno.Text = “”
End Sub

Private Sub Cmdcancel_Click()
kosong
End Sub

Private Sub Cmdclose_Click()
Form2.Show
End Sub

Private Sub Cmdproses_Click()
Dim B As String
B = Mid(Textnpm.Text, 3, 1)
If B = “1” Then
Textjur.Text = “Sistem Informasi”
Textpro.Text = “Strata Satu”
ElseIf B = “2” Then
Textjur.Text = “Teknik Informatika”
Textpro.Text = “Diploma Empat”
ElseIf B = “3” Then
Textjur.Text = “Management Informatika”
Textpro.Text = “Diploma Tiga”
ElseIf B = “4” Then
Textjur.Text = “Komputer Akuntansi”
Textpro.Text = “Diploma Dua”
End If
Textthn.Text = “20” & Left(Textnpm.Text, 2)
Textno.Text = Right(Textnpm.Text, 3)
End Sub

Private Sub Cmdadd_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
End Sub

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

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

Private Sub Cmdtry_Click()
kosong
End Sub

Private Sub Form_Activate()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textpro.Text = “”
Textthn.Text = “”
Textno.Text = “”
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 4

screenshoot

data4

source code

form1

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

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

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
Combokode.SetFocus
Combokode.Text = “”
Textjual.Text = “”
Textmerk.Text = “”
Textharga.Text = “”
Texthp.Text = “”
Textdis.Text = “”
Texttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Texthp.Text = Val(Textjual * Textharga)
Dim diskon As String
Select Case Texthp.Text
Case Is > 140000000
diskon = Val(Texthp * 0.15)
Case Is > 135000000
diskon = Val(Texthp * 0.1)
Case Is > 130000000
diskon = Val(Texthp * 0.05)
Case Is > 125000000
diskon = Val(Texthp * 0.02)
End Select
Textdis.Text = diskon
Texttotal.Text = Val(Texthp – Textdis)
End Sub

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

Private Sub Combokode_Click()
Dim b As String
b = Mid(Combokode.Text, 7, 5)
If b = “MC965” Then
Textmerk.Text = “Apple MacBook Air MC965”
Textharga.Text = “12800000”
ElseIf b = “MC966” Then
Textmerk.Text = “Apple MacBook Air MC966”
Textharga.Text = “15800000”
ElseIf b = “MC968” Then
Textmerk.Text = “Apple MacBook Air MC968”
Textharga.Text = “9900000”
ElseIf b = “MC969” Then
Textmerk.Text = “Apple MacBook Air MC969”
Textharga.Text = “11900000”
ElseIf b = “MC700” Then
Textmerk.Text = “Apple MacBook Pro MC700”
Textharga.Text = “10800000”
ElseIf b = “MC721” Then
Textmerk.Text = “Apple MacBook Pro MC721”
Textharga.Text = “15900000”
ElseIf b = “MC723” Then
Textmerk.Text = “Apple MacBook Pro MC723”
Textharga.Text = “19300000”
ElseIf b = “MC724” Then
Textmerk.Text = “Apple MacBook Pro MC724”
Textharga.Text = “13700000”
ElseIf b = “MC311” Then
Textmerk.Text = “Apple MacBook Pro MC311”
Textharga.Text = “24200000”
ElseIf b = “MC313” Then
Textmerk.Text = “Apple MacBook Pro MC313”
Textharga.Text = “11900000”
ElseIf b = “MC314” Then
Textmerk.Text = “Apple MacBook Pro MC314”
Textharga.Text = “14700000”
ElseIf b = “MC318” Then
Textmerk.Text = “Apple MacBook Pro MC318”
Textharga.Text = “17600000”
ElseIf b = “MC322” Then
Textmerk.Text = “Apple MacBook Pro MC322”
Textharga.Text = “21300000”
End If
Textjual.SetFocus
End Sub

Private Sub Form_Load()
Combokode.AddItem “Aplle MC965 MacBook Air”
Combokode.AddItem “Aplle MC966 MacBook Air”
Combokode.AddItem “Aplle MC968 MacBook Air”
Combokode.AddItem “Aplle MC969 MacBook Air”
Combokode.AddItem “Aplle MC700 MacBook Pro”
Combokode.AddItem “Aplle MC721 MacBook Pro”
Combokode.AddItem “Aplle MC723 MacBook Pro”
Combokode.AddItem “Aplle MC724 MacBook Pro”
Combokode.AddItem “Aplle MC311 MacBook Pro”
Combokode.AddItem “Aplle MC313 MacBook Pro”
Combokode.AddItem “Aplle MC314 MacBook Pro”
Combokode.AddItem “Aplle MC318 MacBook Pro”
Combokode.AddItem “Aplle MC322 MacBook Pro”
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 5

screenshoot

data5

source code

form1

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

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

Private Sub Cmdlagi_Click()
Combokd.SetFocus
Combokd.Text = “”
Textjns.Text = “”
Texths.Text = “”
Textjj.Text = “”
Texthp.Text = “”
Textdc.Text = “”
Texthb.Text = “”
End Sub

Private Sub Cmdproses_Click()
Texthp.Text = Val(Texths * Textjj)
Dim diskon As String
Select Case Texthp.Text
Case Is > 30000000
diskon = Val(Texthp * 0.15)
Case Is > 25000000
diskon = Val(Texthp * 0.1)
Case Is > 20000000
diskon = Val(Texthp * 0.05)
Case Is > 15000000
diskon = Val(Texthp * 0.02)
End Select
Textdc.Text = diskon
Texthb.Text = Val(Texthp – Textdc)
End Sub

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

Private Sub Combokd_Click()
Dim b As String
b = Mid(Combokd.Text, 1, 4)
If b = “P205” Then
Textjns.Text = “Pentium II   500 Mega HZ”
Texths.Text = “1500000”
ElseIf b = “P308” Then
Textjns.Text = “Pentium III   800 Mega HZ”
Texths.Text = “2100000”
ElseIf b = “P310” Then
Textjns.Text = “Pentium III   1.0 Giga HZ”
Texths.Text = “3500000”
ElseIf b = “P415” Then
Textjns.Text = “Pentium IV   1.5 Giga HZ”
Texths.Text = “4000000”
ElseIf b = “P417” Then
Textjns.Text = “Pentium IV   1.7 Giga HZ”
Texths.Text = “4200000”
ElseIf b = “P419” Then
Textjns.Text = “Pentium III   1.9 Giga HZ”
Texths.Text = “5500000”
End If
Textjj.SetFocus
End Sub

Private Sub Comdclose_Click()
Form2.Show
End Sub

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

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 6

screenshoot

data6

source code

form1

Private Sub kosong()
Combokd.SetFocus
Combokd.Text = “”
Textjb.Text = “”
Textpg.Text = “”
Texttt.Text = “”
Textpn.Text = “”
Textha.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Combokd.Text, 1, 1)
If b = “A” Then
Textpn.Text = “Andi Offset Yogyakarta”
ElseIf b = “I” Then
Textpn.Text = “Indah Surabaya”
ElseIf b = “S” Then
Textpn.Text = “Salemba Empat”
ElseIf b = “E” Then
Textpn.Text = “Elek Media Komputindo”
ElseIf b = “M” Then
Textpn.Text = “Maxicom”
End If
b = Mid(Combokd.Text, 3, 3)
If b = “SIM” Then
Textjb.Text = “Sistem Informasi Manajemen”
Textha.Text = “75900”
Textpg.Text = “Yati Nur OKtavia”
ElseIf b = “EDP” Then
Textjb.Text = “Elektronik Data Processing”
Textha.Text = “62000”
Textpg.Text = “Imam Tarmizi”
ElseIf b = “MNJ” Then
Textjb.Text = “Manajemen”
Textha.Text = “42000”
Textpg.Text = “Valentina Mariana Adiwianti”
ElseIf b = “CDR” Then
Textjb.Text = “Corel Draw”
Textha.Text = “53000”
Textpg.Text = “Riyan Suhandi”
ElseIf b = “RPL” Then
Textjb.Text = “Rekayasa Perangkat Lunak”
Textha.Text = “83000”
Textpg.Text = “Sinta Umpu Singa”
End If
Texttt.Text = “20” & Right(Combokd.Text, 2)
End Sub

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

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

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

Private Sub Form_Load()
Combokd.AddItem “A-SIM-01”
Combokd.AddItem “I-EDP-02”
Combokd.AddItem “S-MNJ-03”
Combokd.AddItem “E-CDR-04”
Combokd.AddItem “M-RPL-05”
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 7

screenshoot

data7

source code

form1
Private Sub Cmdadd_Click()
Data1.Recordset.AddNew
Textkode.SetFocus
End Sub

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

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
Textkode.SetFocus
Textkode.Text = “”
Textharga.Text = “”
Textjenis.Text = “”
Textjam.Text = “”
Textjumlah.Text = “”
Texttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textkode.Text, 1, 3)
If b = “BIM” Or b = “bim” Then
Textharga.Text = “50000”
Textjenis.Text = “BIMA”
Textjam.Text = “16.00”
ElseIf b = “EKO” Or b = “eko” Then
Textharga.Text = “35000”
Textjenis.Text = “EKONOMI”
Textjam.Text = “19.00”
ElseIf b = “MUT” Or b = “mut” Then
Textharga.Text = “23000”
Textjenis.Text = “MUTIARA”
Textjam.Text = “17.00”
ElseIf b = “SEN” Or b = “sen” Then
Textharga.Text = “15000”
Textjenis.Text = “SENJA”
Textjam.Text = “20.00”
End If
Textjumlah.SetFocus
End Sub

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

Private Sub Textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttotal.Text = Val(Textharga * Textjumlah)
End If
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 8

screenshoot

data8

source code

form1

Private Sub kosong()
Textkode.SetFocus
Textkode.Text = “”
Textjb.Text = “”
Textpg.Text = “”
Texttt.Text = “”
Textpe.Text = “”
Textha.Text = “”
End Sub

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Textkode.SetFocus
End Sub

Private Sub Cmdbatal_Click()
kosong
End Sub

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

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textkode.Text, 1, 3)
If b = “SIM” Or b = “sim” Then
Textjb.Text = “Sistem Informasi Manajemen”
Textpg.Text = “Fadiya Ulfa”
Textha.Text = “75900”
ElseIf b = “EDP” Or b = “edp” Then
Textjb.Text = “Elektronika Data Processig”
Textpg.Text = “Nurul Agustina”
Textha.Text = “62000”
ElseIf b = “MNJ” Or b = “mnj” Then
Textjb.Text = “Manajemen”
Textpg.Text = “Rian Hidayat”
Textha.Text = “42000”
ElseIf b = “CDR” Or b = “cdr” Then
Textjb.Text = “Corel Draw”
Textpg.Text = “Siti Nur Khotimah”
Textha.Text = “53000”
ElseIf b = “RPL” Or b = “rpl” Then
Textjb.Text = “Rekayasa Perangkat Lunak”
Textpg.Text = “Winda Erlianti”
Textha.Text = “83000”
End If
b = Mid(Textkode.Text, 8, 1)
If b = “A” Or b = “a” Then
Textpe.Text = “Andi Offset Yogyakarta”
ElseIf b = “I” Or b = “i” Then
Textpe.Text = “Indah Surabaya”
ElseIf b = “S” Or b = “s” Then
Textpe.Text = “Salemba Empat”
ElseIf b = “E” Or b = “e” Then
Textpe.Text = “Elek Media Komputindo”
ElseIf b = “M” Or b = “m” Then
Textpe.Text = “Maxicom”
End If
Texttt.Text = “20” & Mid(Textkode.Text, 5, 2)
End Sub

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

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 9

screenshoot

data9

source code

form1

Private Sub kosong()
Textnama.SetFocus
Textnama.Text = “”
Textnik.Text = “”
Textgol.Text = “”
Textkode.Text = “”
Textsts.Text = “”
Textthn.Text = “”
Textjbt.Text = “”
Textbgn.Text = “”
Textgapok.Text = “”
Texttun.Text = “”
Texttot.Text = “”
End Sub

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
End Sub

Private Sub Cmdbatal_Click()
kosong
End Sub

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

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textnik.Text, 5, 1)
If b = “A” Or b = “a” Then
Textgol.Text = “A”
Textjbt.Text = “Manajer”
Textgapok.Text = “4000000”
Texttun.Text = “1025000”
ElseIf b = “B” Or b = “b” Then
Textgol.Text = “B”
Textjbt.Text = “Kepala Seksi”
Textgapok.Text = “3500000”
Texttun.Text = “975000”
ElseIf b = “C” Or b = “c” Then
Textgol.Text = “C”
Textjbt.Text = “Staff”
Textgapok.Text = “3000000”
Texttun.Text = “925000”
End If
b = Mid(Textnik.Text, 7, 1)
If b = “S” Or b = “s” Then
Textkode.Text = “S”
Textsts.Text = “Single”
ElseIf b = “M” Or b = “m” Then
Textkode.Text = “M”
Textsts.Text = “Menikah”
ElseIf b = “J” Or b = “j” Then
Textkode.Text = “J”
Textsts.Text = “Janda”
ElseIf b = “D” Or b = “d” Then
Textkode.Text = “D”
Textsts.Text = “Duda”
End If
b = Right(Textnik.Text, 3)
If b = “KEU” Or b = “keu” Then
Textbgn.Text = “Accounting”
ElseIf b = “ADM” Or b = “adm” Then
Textbgn.Text = “Administrasi”
ElseIf b = “SDM” Or b = “sdm” Then
Textbgn.Text = “General Affair”
ElseIf b = “EDP” Or b = “edp” Then
Textbgn.Text = “IT Unit”
ElseIf b = “SPM” Or b = “spm” Then
Textbgn.Text = “Security”
End If
Textthn.Text = Left(Textnik.Text, 4)
Texttot.Text = Val(Textgapok) + Val(Texttun)
End Sub

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

Private Sub Form_Activate()
Textnama.SetFocus
Textnama.Text = “”
Textnik.Text = “”
Textgol.Text = “”
Textkode.Text = “”
Textsts.Text = “”
Textthn.Text = “”
Textjbt.Text = “”
Textbgn.Text = “”
Textgapok.Text = “”
Texttun.Text = “”
Texttot.Text = “”
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

TUGAS 10

screenshoot

data10

source code

form1
Private Sub Cmdadd_Click()
Data1.Recordset.addnew
Txtkode.SetFocus
End Sub

Private Sub Cmdcancel_Click()
Txtkode.SetFocus
Txtkode = “”
Txtnb = “”
Txthb = “”
Txtjb = “”
Txtby = “”
Txtpot = “”
Txttb = “”
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
ElseIf Val(Txtjb.Text) < “5” Then
Txttb.Text = Val(Txthb * Txtjb)
End If
Txttb.Text = Val(Txtby) – Val(Txtpot)
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 = “pd” Then
Txtnb.Text = “Penggaris”
Txthb.Text = “2500”
ElseIf H = “PT” Or H = “pt” Then
Txtnb.Text = “Papan Tulis”
Txthb.Text = “5000”
End If
Txtjb.SetFocus
End Sub

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

 

form2

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

Advertisements
Standard

TUGAS BAHASA PEMROGRAMAN VB

Program1 : NIDN

screenshot

nidnprogram

Sourcecode

Public Sub kosong()

textnidn.SetFocus

textnidn.Text = “”

Textnama.Text = “”

Combogol.Text = “”

Textgapok.Text = “”

Texttunja.Text = “”

Textpajak.Text = “”

Texttotal.Text = “”

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Combogol_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Combogol.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

Textgapok.Text = gapok

Texttunja.Text = tunjangan

Textpajak.Text = pajak

Texttotal.Text = total – pajak

End Sub

 

Private Sub Form_Load()

Combogol.AddItem “I”

Combogol.AddItem “II”

Combogol.AddItem “III”

Combogol.AddItem “IV”

End Sub

 

Private Sub textnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnama.SetFocus

End If

End Sub

 screenshot hasil

nidnhasil

 

Program2 : NPM 15101046

screenshot

namaprogram

Sourcecode

Private Sub kosong()

Textnama.SetFocus

Textnama.Text = “”

Textnpm.Text = “”

Textjur.Text = “”

Textpro.Text = “”

Textthn.Text = “”

Textno.Text = “”

End Sub

 

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim B As String

B = Mid(Textnpm.Text, 3, 1)

If B = “1” Then

Textjur.Text = “Sistem Informasi”

ElseIf B = “2” Then

Textjur.Text = “Teknik Informatika”

ElseIf B = “3” Then

Textjur.Text = “Management Informatika”

ElseIf B = “4” Then

Textjur.Text = “Komputer Akuntansi”

End If

B = Mid(Textnpm.Text, 4, 2)

If B = “01” Then

Textpro.Text = “Strata Satu”

ElseIf B = “02” Then

Textpro.Text = “Diploma Empat”

ElseIf B = “03” Then

Textpro.Text = “Diploma Tiga”

ElseIf B = “04” Then

Textpro.Text = “Diploma Dua”

End If

Textthn.Text = “20” & Left(Textnpm.Text, 2)

Textno.Text = Right(Textnpm.Text, 3)

End Sub

 

Private Sub Form_Activate()

Textnama.SetFocus

Textnama.Text = “”

Textnpm.Text = “”

Textjur.Text = “”

Textpro.Text = “”

Textthn.Text = “”

Textno.Text = “”

End Sub

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

screenshot hasil

namahasil

 

Program3 : NPM 15100046

screenshot

npm

 

Sourcecode

Private Sub kosong()

Textnama.SetFocus

Textnama.Text = “”

Textnpm.Text = “”

Textjur.Text = “”

Textpro.Text = “”

Textthn.Text = “”

Textno.Text = “”

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim B As String

B = Mid(Textnpm.Text, 3, 1)

If B = “1” Then

Textjur.Text = “Sistem Informasi”

Textpro.Text = “Strata Satu”

ElseIf B = “2” Then

Textjur.Text = “Teknik Informatika”

Textpro.Text = “Diploma Empat”

ElseIf B = “3” Then

Textjur.Text = “Management Informatika”

Textpro.Text = “Diploma Tiga”

ElseIf B = “4” Then

Textjur.Text = “Komputer Akuntansi”

Textpro.Text = “Diploma Dua”

End If

Textthn.Text = “20” & Left(Textnpm.Text, 2)

Textno.Text = Right(Textnpm.Text, 3)

End Sub

 

Private Sub Form_Activate()

Textnama.SetFocus

Textnama.Text = “”

Textnpm.Text = “”

Textjur.Text = “”

Textpro.Text = “”

Textthn.Text = “”

Textno.Text = “”

End Sub

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

screenshot hasil

npmhasil

 

Program4 : Penjualan Laptop

 

screenshot

penjualan

Sourcecode

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Combokode.SetFocus

Combokode.Text = “”

Textjual.Text = “”

Textmerk.Text = “”

Textharga.Text = “”

Texthp.Text = “”

Textdis.Text = “”

Texttotal.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim diskon As String

Texthp.Text = Val(Textjual * Textharga)

Select Case Texthp.Text

Case Is > 140000000

diskon = Val(Texthp * 0.15)

Case Is > 135000000

diskon = Val(Texthp * 0.1)

Case Is > 130000000

diskon = Val(Texthp * 0.05)

Case Is > 125000000

diskon = Val(Texthp * 0.02)

End Select

Textdis.Text = diskon

Texttotal.Text = Val(Texthp – Textdis)

End Sub

 

Private Sub Combokode_Click()

Dim b As String

b = Mid(Combokode.Text, 7, 5)

If b = “MC965” Then

Textmerk.Text = “Apple MacBook Air MC965”

Textharga.Text = “12800000”

ElseIf b = “MC966” Then

Textmerk.Text = “Apple MacBook Air MC966”

Textharga.Text = “15800000”

ElseIf b = “MC968” Then

Textmerk.Text = “Apple MacBook Air MC968”

Textharga.Text = “9900000”

ElseIf b = “MC969” Then

Textmerk.Text = “Apple MacBook Air MC969”

Textharga.Text = “11900000”

ElseIf b = “MC700” Then

Textmerk.Text = “Apple MacBook Pro MC700”

Textharga.Text = “10800000”

ElseIf b = “MC721” Then

Textmerk.Text = “Apple MacBook Pro MC721”

Textharga.Text = “15900000”

ElseIf b = “MC723” Then

Textmerk.Text = “Apple MacBook Pro MC723”

Textharga.Text = “19300000”

ElseIf b = “MC724” Then

Textmerk.Text = “Apple MacBook Pro MC724”

Textharga.Text = “13700000”

ElseIf b = “MC311” Then

Textmerk.Text = “Apple MacBook Pro MC311”

Textharga.Text = “24200000”

ElseIf b = “MC313” Then

Textmerk.Text = “Apple MacBook Pro MC313”

Textharga.Text = “11900000”

ElseIf b = “MC314” Then

Textmerk.Text = “Apple MacBook Pro MC314”

Textharga.Text = “14700000”

ElseIf b = “MC318” Then

Textmerk.Text = “Apple MacBook Pro MC318”

Textharga.Text = “17600000”

ElseIf b = “MC322” Then

Textmerk.Text = “Apple MacBook Pro MC322”

Textharga.Text = “21300000”

End If

Textjual.SetFocus

End Sub

 

Private Sub Form_Load()

Combokode.AddItem “Aplle MC965 MacBook Air”

Combokode.AddItem “Aplle MC966 MacBook Air”

Combokode.AddItem “Aplle MC968 MacBook Air”

Combokode.AddItem “Aplle MC969 MacBook Air”

Combokode.AddItem “Aplle MC700 MacBook Pro”

Combokode.AddItem “Aplle MC721 MacBook Pro”

Combokode.AddItem “Aplle MC723 MacBook Pro”

Combokode.AddItem “Aplle MC724 MacBook Pro”

Combokode.AddItem “Aplle MC311 MacBook Pro”

Combokode.AddItem “Aplle MC313 MacBook Pro”

Combokode.AddItem “Aplle MC314 MacBook Pro”

Combokode.AddItem “Aplle MC318 MacBook Pro”

Combokode.AddItem “Aplle MC322 MacBook Pro”

End Sub

 

 screenshot hasil

penjualanhasil

 

 

Program5 : Entri penjualan

screenshot

entri

Sourcecode

Private Sub Cmdlagi_Click()

Combokd.SetFocus

Combokd.Text = “”

Textjns.Text = “”

Texths.Text = “”

Textjj.Text = “”

Texthp.Text = “”

Textdc.Text = “”

Texthb.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Texthp.Text = Val(Texths * Textjj)

Dim diskon As String

Select Case Texthp.Text

Case Is > 30000000

diskon = Val(Texthp * 0.15)

Case Is > 25000000

diskon = Val(Texthp * 0.1)

Case Is > 20000000

diskon = Val(Texthp * 0.05)

Case Is > 15000000

diskon = Val(Texthp * 0.02)

End Select

Textdc.Text = diskon

Texthb.Text = Val(Texthp – Textdc)

End Sub

 

Private Sub Combokd_Click()

Dim b As String

b = Mid(Combokd.Text, 1, 4)

If b = “P205” Then

Textjns.Text = “Pentium II   500 Mega HZ”

Texths.Text = “1500000”

ElseIf b = “P308” Then

Textjns.Text = “Pentium III   800 Mega HZ”

Texths.Text = “2100000”

ElseIf b = “P310” Then

Textjns.Text = “Pentium III   1.0 Giga HZ”

Texths.Text = “3500000”

ElseIf b = “P415” Then

Textjns.Text = “Pentium IV   1.5 Giga HZ”

Texths.Text = “4000000”

ElseIf b = “P417” Then

Textjns.Text = “Pentium IV   1.7 Giga HZ”

Texths.Text = “4200000”

ElseIf b = “P419” Then

Textjns.Text = “Pentium III   1.9 Giga HZ”

Texths.Text = “5500000”

End If

Textjj.SetFocus

End Sub

 

Private Sub Comdclose_Click()

End

End Sub

 

Private Sub Form_Load()

Combokd.AddItem “P205”

Combokd.AddItem “P308”

Combokd.AddItem “P310”

Combokd.AddItem “P415”

Combokd.AddItem “P417”

Combokd.AddItem “P419”

End Sub

 

screenshot hasil

entrihasil

 

Program6 : BUKU

screenshot

buku

Sourcecode

Private Sub kosong()

Combokd.SetFocus

Combokd.Text = “”

Textjb.Text = “”

Textpg.Text = “”

Texttt.Text = “”

Textpn.Text = “”

Textha.Text = “”

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim b As String

b = Mid(Combokd.Text, 1, 1)

If b = “A” Then

Textpn.Text = “Andi Offset Yogyakarta”

ElseIf b = “I” Then

Textpn.Text = “Indah Surabaya”

ElseIf b = “S” Then

Textpn.Text = “Salemba Empat”

ElseIf b = “E” Then

Textpn.Text = “Elek Media Komputindo”

ElseIf b = “M” Then

Textpn.Text = “Maxicom”

End If

b = Mid(Combokd.Text, 3, 3)

If b = “SIM” Then

Textjb.Text = “Sistem Informasi Manajemen”

Textha.Text = “75900”

Textpg.Text = “Yati Nur OKtavia”

ElseIf b = “EDP” Then

Textjb.Text = “Elektronik Data Processing”

Textha.Text = “62000”

Textpg.Text = “Imam Tarmizi”

ElseIf b = “MNJ” Then

Textjb.Text = “Manajemen”

Textha.Text = “42000”

Textpg.Text = “Valentina Mariana Adiwianti”

ElseIf b = “CDR” Then

Textjb.Text = “Corel Draw”

Textha.Text = “53000”

Textpg.Text = “Riyan Suhandi”

ElseIf b = “RPL” Then

Textjb.Text = “Rekayasa Perangkat Lunak”

Textha.Text = “83000”

Textpg.Text = “Sinta Umpu Singa”

End If

Texttt.Text = “20” & Right(Combokd.Text, 2)

End Sub

 

Private Sub Form_Load()

Combokd.AddItem “A-SIM-01”

Combokd.AddItem “I-EDP-02”

Combokd.AddItem “S-MNJ-03”

Combokd.AddItem “E-CDR-04”

Combokd.AddItem “M-RPL-05”

End Sub

 

screenshot hasil

bukuhasil

 

 

Program7 : Penjualan Tiket

screenshot

kereta

Sourcecode

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Textkode.SetFocus

Textkode.Text = “”

Textharga.Text = “”

Textjenis.Text = “”

Textjam.Text = “”

Textjumlah.Text = “”

Texttotal.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim b As String

b = Mid(Textkode.Text, 1, 3)

If b = “BIM” Or b = “bim” Then

Textharga.Text = “50000”

Textjenis.Text = “BIMA”

Textjam.Text = “16.00”

ElseIf b = “EKO” Or b = “eko” Then

Textharga.Text = “35000”

Textjenis.Text = “EKONOMI”

Textjam.Text = “19.00”

ElseIf b = “MUT” Or b = “mut” Then

Textharga.Text = “23000”

Textjenis.Text = “MUTIARA”

Textjam.Text = “17.00”

ElseIf b = “SEN” Or b = “sen” Then

Textharga.Text = “15000”

Textjenis.Text = “SENJA”

Textjam.Text = “20.00”

End  If

Textjumlah.SetFocus

End Sub

 

Private Sub Textjumlah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttotal.Text = Val(Textharga * Textjumlah)

End If

End Sub

 

screenshot hasil

kereta hasil

 

 

Program8 : data buku

screenshoot

databuku

Sourcecode

Private Sub kosong()

Textkode.SetFocus

Textkode.Text = “”

Textjb.Text = “”

Textpg.Text = “”

Texttt.Text = “”

Textpe.Text = “”

Textha.Text = “”

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim b As String

b = Mid(Textkode.Text, 1, 3)

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

Textjb.Text = “Sistem Informasi Manajemen”

Textpg.Text = “Fadiya Ulfa”

Textha.Text = “75900”

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

Textjb.Text = “Elektronika Data Processig”

Textpg.Text = “Nurul Agustina”

Textha.Text = “62000”

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

Textjb.Text = “Manajemen”

Textpg.Text = “Rian Hidayat”

Textha.Text = “42000”

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

Textjb.Text = “Corel Draw”

Textpg.Text = “Siti Nur Khotimah”

Textha.Text = “53000”

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

Textjb.Text = “Rekayasa Perangkat Lunak”

Textpg.Text = “Winda Erlianti”

Textha.Text = “83000”

End If

b = Mid(Textkode.Text, 8, 1)

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

Textpe.Text = “Andi Offset Yogyakarta”

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

Textpe.Text = “Indah Surabaya”

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

Textpe.Text = “Salemba Empat”

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

Textpe.Text = “Elek Media Komputindo”

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

Textpe.Text = “Maxicom”

End If

Texttt.Text = “20” & Mid(Textkode.Text, 5, 2)

End Sub

 

screenshot hasil

databukuhasil

 

 

Program9 : PT

screenshot

ptpps

Sourcecode

Private Sub kosong()

Textnama.SetFocus

Textnama.Text = “”

Textnik.Text = “”

Textgol.Text = “”

Textkode.Text = “”

Textsts.Text = “”

Textthn.Text = “”

Textjbt.Text = “”

Textbgn.Text = “”

Textgapok.Text = “”

Texttun.Text = “”

Texttot.Text = “”

End Sub

 

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

kosong

End Sub

 

Private Sub Cmdproses_Click()

Dim b As String

b = Mid(Textnik.Text, 5, 1)

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

Textgol.Text = “A”

Textjbt.Text = “Manajer”

Textgapok.Text = “4000000”

Texttun.Text = “1025000”

ElseIf b = “B” Or b = “b” Then

Textgol.Text = “B”

Textjbt.Text = “Kepala Seksi”

Textgapok.Text = “3500000”

Texttun.Text = “975000”

ElseIf b = “C” Or b = “c” Then

Textgol.Text = “C”

Textjbt.Text = “Staff”

Textgapok.Text = “3000000”

Texttun.Text = “925000”

End If

b = Mid(Textnik.Text, 7, 1)

If b = “S” Or b = “s” Then

Textkode.Text = “S”

Textsts.Text = “Single”

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

Textkode.Text = “M”

Textsts.Text = “Menikah”

ElseIf b = “J” Or b = “j” Then

Textkode.Text = “J”

Textsts.Text = “Janda”

ElseIf b = “D” Or b = “d” Then

Textkode.Text = “D”

Textsts.Text = “Duda”

End If

b = Right(Textnik.Text, 3)

If b = “KEU” Or b = “keu” Then

Textbgn.Text = “Accounting”

ElseIf b = “ADM” Or b = “adm” Then

Textbgn.Text = “Administrasi”

ElseIf b = “SDM” Or b = “sdm” Then

Textbgn.Text = “General Affair”

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

Textbgn.Text = “IT Unit”

ElseIf b = “SPM” Or b = “spm” Then

Textbgn.Text = “Security”

End If

Textthn.Text = Left(Textnik.Text, 4)

Texttot.Text = Val(Textgapok) + Val(Texttun)

End Sub

 

Private Sub Form_Activate()

Textnama.SetFocus

Textnama.Text = “”

Textnik.Text = “”

Textgol.Text = “”

Textkode.Text = “”

Textsts.Text = “”

Textthn.Text = “”

Textjbt.Text = “”

Textbgn.Text = “”

Textgapok.Text = “”

Texttun.Text = “”

Texttot.Text = “”

End Sub

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnik.SetFocus

End If

End Sub

 

screenshot hasil

ptppshasil

Standard

TUGAS BAHASA PEMOGRAMAN PART2

program font style and color

screen shoot program

bayu

source code

Private Sub Chkbold_Click()

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

If Chkstrikeout.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 Command1_Click()

End

End Sub

 

Private Sub Optblue_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Optred_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Optyellow_Click()

Lblteks.ForeColor = vbYellow

End Sub

screen shoot hasil

 

bayu1

 

program nama

screenshoot program

nama bayu

source code

Private Sub Cmdok_Click()

Lblhasil.Caption = Textnama.Text

End Sub

 

Private Sub Cmdselesai_Click()

End

End Sub

 

Private Sub Optmerah_Click()

Lblhasil.ForeColor = vbRed

End Sub

 

Private Sub Optbiru_Click()

Lblhasil.ForeColor = vbBlue

End Sub

 

Private Sub Chktebal_Click()

Lblhasil.FontBold = Chktebal.Value

End Sub

 

Private Sub Chkmiring_Click()

Lblhasil.FontItalic = Chkmiring.Value

End Sub

 

screenshoot hasil

nama bayu1

 

Program npm

screenshoot program

mutu bayu

 

sourcecode

 

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 = “ALFINA DAMAYANTI”

jurusan = “management”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “management”

Case “15100081”

nama = “ANTIA”

jurusan = “sistem informasi”

Case “15100046”

nama = “BAYU SANJAYA”

jurusan = “management”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “sistem informasi”

Case “15100217”

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “management”

Case “15100053”

nama = “DAVID BUDIANTO”

jurusan = “management”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “management”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “sistem informasi”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “Sistem Informasi”

Case “15100045”

nama = “GILBET ALEXANDER”

jurusan = “management”

Case “15100076”

nama = “GITA KUSUMAWARDANI”

jurusan = “sistem informasi”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “management”

Case “15100044”

nama = “IRFAN NURFADULLOH”

jurusan = “sistem informasi”

Case “15100067”

nama = “LAILA TURROHMAH”

jurusan = “management”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “sistem informasi”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “Sistem Informasi”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “management”

Case “15100050”

nama = “MARIKUN”

jurusan = “management”

Case “15100051”

nama = “MARSYANTO”

jurusan = “Sistem Informasi”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “management”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “sistem informasi”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “management”

Case “15100071”

nama = “NITA MEY LINDA”

jurusan = “management”

Case “15100080”

nama = “NOFIYANTI”

jurusan = “management”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “Sistem Informasi”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “management”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “sistem informasi”

Case “15100061”

nama = “RISWAN EFENDI”

jurusan = “management”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “management”

Case “15100072”

nama = “SUSANTI”

jurusan = “management”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “management”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “sistem informasi”

Case “15100075”

nama = “WAHYUZA FRISTA DEA”

jurusan = “Sistem Informasi”

End Select

Textnama.Text = nama

Textjurusan.Text = jurusan

Textquis.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Textnama.Text = “”

Textjurusan.Text = “”

Textquis.Text = “”

Texttugas = “”

Textuts.Text = “”

Textuas.Text = “”

Textna.Text = “”

Texthm.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

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

 

screenshoot hasil

npmbayu

 

 

Program nilai mutu

screenshoot program

mutu bayu

 

sourcecode

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Textquis.Text)

TUGAS = Val(Texttugas.Text)

UTS = Val(Textuts.Text)

UAS = Val(Textuas.Text)

NA = Val(QUIS + TUGAS + UTS + UAS) / 4

Textna.Text = NA

Select Case Textna.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

Texthm.Text = HM

End Sub

 

 

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 = “ALFINA DAMAYANTI”

jurusan = “management”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “management”

Case “15100081”

nama = “ANTIA”

jurusan = “sistem informasi”

Case “15100046”

nama = “BAYU SANJAYA”

jurusan = “management”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “sistem informasi”

Case “15100217”

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “management”

Case “15100053”

nama = “DAVID BUDIANTO”

jurusan = “management”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “management”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “sistem informasi”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “Sistem Informasi”

Case “15100045”

nama = “GILBET ALEXANDER”

jurusan = “management”

Case “15100076”

nama = “GITA KUSUMAWARDANI”

jurusan = “sistem informasi”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “management”

Case “15100044”

nama = “IRFAN NURFADULLOH”

jurusan = “sistem informasi”

Case “15100067”

nama = “LAILA TURROHMAH”

jurusan = “management”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “sistem informasi”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “Sistem Informasi”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “management”

Case “15100050”

nama = “MARIKUN”

jurusan = “management”

Case “15100051”

nama = “MARSYANTO”

jurusan = “Sistem Informasi”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “management”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “sistem informasi”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “management”

Case “15100071”

nama = “NITA MEY LINDA”

jurusan = “management”

Case “15100080”

nama = “NOFIYANTI”

jurusan = “management”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “Sistem Informasi”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “management”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “sistem informasi”

Case “15100061”

nama = “RISWAN EFENDI”

jurusan = “management”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “management”

Case “15100072”

nama = “SUSANTI”

jurusan = “management”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “management”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “sistem informasi”

Case “15100075”

nama = “WAHYUZA FRISTA DEA”

jurusan = “Sistem Informasi”

End Select

Textnama.Text = nama

Textjurusan.Text = jurusan

Textquis.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Textnama.Text = “”

Textjurusan.Text = “”

Textquis.Text = “”

Texttugas = “”

Textuts.Text = “”

Textuas.Text = “”

Textna.Text = “”

Texthm.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

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

If KeyAscii = 13 Then

Textuts.SetFocus

End If

End Sub

 

Private Sub Textquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttugas.SetFocus

End If

End Sub

Private Sub Textuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textuas.SetFocus

End If

End Sub

 

screenshoot hasil

mutu nilai bayu

Standard

TUGAS BAHASA PEMROGRAMAN VB

TUGAS DISKON HARGA

SOURCECODE

1.1 Diskon proses

 

Private Sub cmdhitung_Click()

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

textha.SetFocus

textha = “”

Textdi = “”

Texthi = “”

End Sub

 

1.2 Diskon multi

 

Private Sub cmdhitung_Click()

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

textha.SetFocus

textha = “”

Textdi = “”

Texthi = “”

End Sub

 

Private Sub textha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End If

End Sub

 

SCREENSHOOT

diskon

 

TUGAS GAJI

SOURCECODE

  • Gaji proses

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End Sub

 

Private Sub cmdulang_Click()

Textgp.SetFocus

Textgp = “”

Texttj = “”

Textpt = “”

Textgk = “”

Textpj = “”

Textgt = “”

End Sub

 

Private Sub Textgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttj.SetFocus

End If

End Sub

 

Private Sub Texttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textpt.SetFocus

End If

End Sub

 

 

  • Gaji multi

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End Sub

 

Private Sub cmdulang_Click()

Textgp.SetFocus

Textgp = “”

Texttj = “”

Textpt = “”

Textgk = “”

Textpj = “”

Textgt = “”

End Sub

 

Private Sub Textgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttj.SetFocus

End If

End Sub

 

Private Sub Textpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End If

End Sub

 

Private Sub Texttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textpt.SetFocus

End If

End Sub

 

SCREENSHOOT

gajii.png

Standard

TUGAS BAHASA PEMROGRAMAN VB

TUGAS PERKALIAN

SOURCECODE

  • perkalian proses

 

Private Sub cmdhitug_Click()

Text3.Text = Val(Text1) * Val(Text2)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdkembali_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub cmdlagi_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

  • Perkalian multi

 

Private Sub cmdhitug_Click()

Text3.Text = Val(Text1) * Val(Text2)

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdkembali_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub cmdlagi_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.Text = Val(Text1) * Val(Text2)

End If

End Sub

 

SCREENSHOOT

perkalian

 

TUGAS KALKULATOR MINI

 

SOURCECODE

  • Kalkulator proses

 

Private Sub Command1_Click()

Text3.Text = Val(Text1) * (Text2)

Text6.Text = Val(Text4) + (Text5)

Text9.Text = Val(Text7) – (Text8)

Text12.Text = Val(Text10) / (Text11)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

 

1.2 Kalkulator multi

 

Private Sub Command1_Click()

Text3.Text = Val(Text1) * (Text2)

Text6.Text = Val(Text4) + (Text5)

Text9.Text = Val(Text7) – (Text8)

Text12.Text = Val(Text10) / (Text11)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

 

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.Text = Val(Text10) / Val(Text11)

End If

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.Text = Val(Text1) * Val(Text2)

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.Text = Val(Text4) + Val(Text5)

Text7.SetFocus

End If

End Sub

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.Text = Val(Text7) – Val(Text8)

Text10.SetFocus

End If

End Sub

 

SCREENSHOOT

kalkulator

Standard

TUGAS BAHASA PEMOGRAMAN VB

TUGAS NPM

SOURCECODE

 

Private Sub Command1_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

SCREENSHOOT

npm

 

Standard

bayu k.png

 

bayu k2

 

Private Sub Command1_Click()

Text3 = Val(Text1.Text) * Val(Text2.Text)

Text6 = Val(Text4.Text) + Val(Text5.Text)

Text9 = Val(Text7.Text) – Val(Text8.Text)

Text12 = Val(Text10.Text) / Val(Text11.Text)

End Sub

 

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command3_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Label1_Click()

 

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

 

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

 

Private Sub Text3_Change()

 

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

 

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

 

Standard