Tugas 5 VB I

source kode

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

Private Sub CmdProses_Click()
Dim S As String
TxtTH.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 = “00” Then
TxtProdi.Text = “Strata Satu”
ElseIf S = “02” Then
TxtProdi.Text = “Diploma Tiga”
ElseIf S = “02” Then
TxtProdi.Text = “Strata Satu”
ElseIf S = “03” Then
TxtProdi.Text = “Diploma Satu”
End If

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

End Sub

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

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

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub TxtNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub

TUGAS 4

SOAL QUIS 1 KATEGORI 1

SOURCE KODE

Private Sub CmdBTL_Click()
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKLR_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PNG, HRG, PNB As String
TH = “20” & Right(Txtkode.Text, 2)
TxtTB.Text = TH

KB = Mid(Txtkode.Text, 3, 3)
If KB = “SIM” Then
KB = “SIM”
JB = “Sistem Informasi Manajemen”
PNG = “Andra Setiawan”
HRG = “75900”

ElseIf KB = “EDP” Then
KB = “EDP”
JB = “Elektronik Data Processing”
PNG = “Desi Istiqomah”
HRG = “62000”

ElseIf KB = “MNJ” Then
KB = “MNJ”
JB = “Manajemen”
PNG = “Sandy Fitrajaya”
HRG = “42000”

ElseIf KB = “CDR” Then
KB = “CDR”
JB = “Corel Draw”
PNG = “Tri Indah Sari”
HRG = “53000”

ElseIf KB = “RPL” Then
KB = “RPL”
JB = “Rekayasa Perangkat Lunak”
PNG = “Ernita”
HRG = “83000”
End If

TxtJB.Text = JB
TxtPGR.Text = PNG
Txtharga.Text = HRG

KOD = Left(Txtkode.Text, 1)
If KOD = “A” Then
KOD = “A”
PNB = “Andi Offset Yogyakarta”

ElseIf KOD = “I” Then
KOD = “I”
PNB = “Indah Surabaya”

ElseIf KOD = “S” Then
KOD = “S”
PNB = “Salemba Empat”

ElseIf KOD = “E” Then
KOD = “E”
PNB = “Elek Media Komputindo”

ElseIf KOD = “M” Then
KOD = “M”
PNB = “Maxicom”
End If
Txtpenerbit.Text = PNB

End Sub

KATEGORI 2

SOURCE KODE
Private Sub CmdBTL_Click()
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKLR_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PNG, HRG, PNB As String
TH = “20” & Mid(Txtkode.Text, 5, 2)
TxtTB.Text = TH

KB = Left(Txtkode.Text, 3)
If KB = “SIM” Then
KB = “SIM”
JB = “Sistem Informasi Manajemen”
PNG = “Fadiya Ulfa”
HRG = “75900”

ElseIf KB = “EDP” Then
KB = “EDP”
JB = “Elektronik Data Processing”
PNG = “Nurul Agustina”
HRG = “62000”

ElseIf KB = “MNJ” Then
KB = “MNJ”
JB = “Manajemen”
PNG = “Rian Hidayat”
HRG = “42000”

ElseIf KB = “CDR” Then
KB = “CDR”
JB = “Corel Draw”
PNG = “Siti Nur Khotimah”
HRG = “53000”

ElseIf KB = “RPL” Then
KB = “RPL”
JB = “Rekayasa Perangkat Lunak”
PNG = “Winda Erlianti”
HRG = “83000”
End If

TxtJB.Text = JB
TxtPGR.Text = PNG
Txtharga.Text = HRG

KOD = Right(Txtkode.Text, 1)
If KOD = “A” Then
KOD = “A”
PNB = “Andi Offset Yogyakarta”

ElseIf KOD = “I” Then
KOD = “I”
PNB = “Indah Surabaya”

ElseIf KOD = “S” Then
KOD = “S”
PNB = “Salemba Empat”

ElseIf KOD = “E” Then
KOD = “E”
PNB = “Elek Media Komputindo”

ElseIf KOD = “M” Then
KOD = “M”
PNB = “Maxicom”
End If
Txtpenerbit.Text = PNB

End Sub

Private Sub Form_Load()

End Sub

KATEGORI 3

SOURCE KODE

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 Cbokode_Click()
Select Case Cbokode.Text

Case “A-SIM-01”

Case “I-EDP-02”

Case “S-MNJ-03”

Case “E-CDR-04”

Case “M-RPL-05”

End Select

End Sub

Private Sub CmdBTL_Click()
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKLR_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PNG, HRG, PNB As String
TH = “20” & Right(Cbokode.Text, 2)
TxtTB.Text = TH

KB = Mid(Cbokode.Text, 3, 3)
If KB = “SIM” Then
KB = “SIM”
JB = “Sistem Informasi Manajemen”
PNG = “Andra Setiawan”
HRG = “75900”

ElseIf KB = “EDP” Then
KB = “EDP”
JB = “Elektronik Data Processing”
PNG = “Desi Istiqomah”
HRG = “62000”

ElseIf KB = “MNJ” Then
KB = “MNJ”
JB = “Manajemen”
PNG = “Sandy Fitrajaya”
HRG = “42000”

ElseIf KB = “CDR” Then
KB = “CDR”
JB = “Corel Draw”
PNG = “Tri Indah Sari”
HRG = “53000”

ElseIf KB = “RPL” Then
KB = “RPL”
JB = “Rekayasa Perangkat Lunak”
PNG = “Ernita”
HRG = “83000”
End If

TxtJB.Text = JB
TxtPGR.Text = PNG
Txtharga.Text = HRG

KOD = Left(Cbokode.Text, 1)
If KOD = “A” Then
KOD = “A”
PNB = “Andi Offset Yogyakarta”

ElseIf KOD = “I” Then
KOD = “I”
PNB = “Indah Surabaya”

ElseIf KOD = “S” Then
KOD = “S”
PNB = “Salemba Empat”

ElseIf KOD = “E” Then
KOD = “E”
PNB = “Elek Media Komputindo”

ElseIf KOD = “M” Then
KOD = “M”
PNB = “Maxicom”
End If
Txtpenerbit.Text = PNB

End Sub

KATEGORI 4

SOURCE KODE

Private Sub Cmdbtl_Click()
Txtgol.Text = “”
TxtKS.Text = “”
TxtSTS.Text = “”
TxtTH.Text = “”
TxtJBT.Text = “”
Txtbag.Text = “”
TxtGPK.Text = “”
TxtTJN.Text = “”
TxtTOT.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlg_Click()
Txtnama.SetFocus
Txtnama.Text = “”
TxtNIK.Text = “”
Txtgol.Text = “”
TxtKS.Text = “”
TxtSTS.Text = “”
TxtTH.Text = “”
TxtJBT.Text = “”
Txtbag.Text = “”
TxtGPK.Text = “”
TxtTJN.Text = “”
TxtTOT.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JBT, BG As String
Dim GP, TJ, TG As Currency

TxtTH.Text = Left(TxtNIK.Text, 4)
Gol = Mid(TxtNIK.Text, 5, 1)
If Gol = “A” Then
Gol = “A”
JBT = “Manager”
GP = “4000000”
TJ = “1025000”

ElseIf Gol = “B” Then
Gol = “B”
JBT = “Ka. Seksi”
GP = “3500000”
TJ = “975000”

ElseIf Gol = “C” Then
Gol = “C”
JBT = “Staff”
GP = “3000000”
TJ = “925000”

End If

ks = Mid(TxtNIK.Text, 7, 1)
If ks = “S” Then
ks = “S”
STS = “Single”

ElseIf ks = “M” Then
ks = “M”
STS = “Menikah”

ElseIf ks = “J” Then
ks = “J”
STS = “Janda”

ElseIf ks = “D” Then
ks = “D”
STS = “Duda”

End If

bag = Right(TxtNIK.Text, 3)
If bag = “KEU” Then
bag = “KEU”
bag = “Accounting”

ElseIf bag = “ADM” Then
bag = “ADM”
bag = “Administrasi”

ElseIf bag = “SDM” Then
bag = “SDM”
bag = “General Affair”

ElseIf bag = “EDP” Then
bag = “EDP”
bag = “IT Unit”

ElseIf bag = “SPM” Then
bag = “SPM”
bag = “Security”
End If

Txtgol.Text = Gol
TxtKS.Text = ks
TxtSTS.Text = STS
TxtJBT.Text = JBT
Txtbag.Text = bag
TxtGPK.Text = GP
TxtTJN.Text = TJ
TxtTOT.Text = Val(TxtGPK.Text) + Val(TxtTJN.Text)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNIK.SetFocus
End If
End Sub

TUGAS 3

1. Form Huruf Mutu

Source Code

Private Sub Cbonpm_Click()
Dim nama, jur As String

Select Case Cbonpm.Text
Case “12100001”
nama = “Wahyu”
jur = “Sistem Informasi”
Case “12200002”
nama = “Dedi Irawan”
jur = “Manajemen Informatika”
Case “12300003”
nama = “Guntur”
jur = “Komputer Akuntansi”
Case “12100006”
nama = “Satria”
jur = “Sistem Informasi”
Case “12300007”
nama = “Rani”
jur = “Komputer Akuntansi”
End Select
Txtnama.Text = nama
Txtjur.Text = jur
Txtnquis.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnama.Text = “”
Txtjur.Text = “”
Txtnquis.Text = “”
Txtntgs.Text = “”
TxtUTS.Text = “”
TxtUAS.Text = “”
TxtNA.Text = “”
TxtHM.Text = “”
End Sub

Private Sub form_load()
Cbonpm.AddItem “12100001”
Cbonpm.AddItem “12200002”
Cbonpm.AddItem “12300003”
Cbonpm.AddItem “12100006”
Cbonpm.AddItem “12300007”
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdproses_Click()
TxtNA.Text = (Val(Txtnquis.Text) + Val(Txtntgs.Text) + Val(TxtUTS.Text) + Val(TxtUAS.Text)) / 4
Select Case TxtNA.Text
Case Is > 80
TxtHM.Text = “A”
Case Is > 70
TxtHM.Text = “B”
Case Is > 60
TxtHM.Text = “C”
Case Is > 50
TxtHM.Text = “D”
Case Is < 50
TxtHM.Text = “E”
End Select
End Sub

Private Sub Txtnquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtntgs.SetFocus
End If
End Sub

Private Sub Txtntgs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUTS.SetFocus
End If
End Sub

Private Sub TxtUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUAS.SetFocus
End If
End Sub

 

2. Form Property Text

Source Code

Private Sub Chkmrg_Click()
Lblnama.FontItalic = Chkmrg.Value
End Sub

Private Sub Chktbl_Click()
Lblnama.FontBold = Chktbl.Value
End Sub

Private Sub Cmdok_Click()
Lblnama.Caption = Txtisi.Text
End Sub

Private Sub Cmdselesai_Click()
End
End Sub

Private Sub OptBr_Click()
Lblnama.ForeColor = vbBlue
End Sub

Private Sub Optmr_Click()
Lblnama.ForeColor = vbRed
End Sub

3. Perhitungan Gaji

Source Code

Private Sub Cbogol_Click()
Dim Gaji, pajak, tunjangan, total As Variant
Select Case Cbogol.Text
Case “I”
Gaji = 1500000
tunjangan = 150000
Case “II”
Gaji = 2000000
tunjangan = 200000
Case “III”
Gaji = 2500000
tunjangan = 250000
Case “IV”
Gaji = 3000000
tunjangan = 300000
Case Else
Gaji = 0
tunjangan = 0
End Select
total = Gaji + tunjangan
pajak = total * 0.1
Txtgjp.Text = Gaji
Txttjg.Text = tunjangan
Txtpjk.Text = pajak
TxtTerima.Text = total – pajak
Txtnidn.SetFocus
End Sub

Private Sub Form_load()
Cbogol.AddItem “I”
Cbogol.AddItem “II”
Cbogol.AddItem “III”
Cbogol.AddItem “IV”
End Sub

Private Sub Cmdbatal_Click()
batal
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdlg_Click()
lagi
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If

End Sub

Public Sub lagi()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogol.Text = “”
Txtgjp.Text = “”
Txttjg.Text = “”
Txtpjk.Text = “”
TxtTerima.Text = “”
End Sub

Public Sub batal()
Cbogol.SetFocus
Cbogol.Text = “”
Txtgjp.Text = “”
Txttjg.Text = “”
Txtpjk.Text = “”
TxtTerima.Text = “”
End Sub

4. Form Data Mahasiswa

Source Code
Private Sub Cmdbtl_Click()
Txtnama.SetFocus
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdlgi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
End Sub

Private Sub Cmdpros_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, 3, 1)
If S = “1” Then
Txtprodi.Text = “Strata Satu”
ElseIf S = “2” Then
Txtprodi.Text = “Diploma Tiga”
ElseIf S = “3” Then
Txtprodi.Text = “Diploma Empat”
ElseIf S = “4” Then
Txtprodi.Text = “Diploma Dua”
End If
Txtnu.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

Tugas Pertemuan 2

1. Perkalian Dua Bilangan

Kode Program

Private Sub Command1_Click()

txtagk3.Text = Val(txtagk1.Text) * Val(txtagk2.Text)

End Sub

Private Sub Command2_Click()

txtagk1.SetFocus

txtagk1 = “”

txtagk2 = “”

txtagk3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub txtagk1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtagk2.SetFocus

End If

End Sub

2. Kalkulator

Kode Program

Private Sub cmd1_Click()

txtn3.Text = Val(txtn1.Text) + Val(txtn2.Text)

End Sub

Private Sub Cmd2_Click()

txtn3.Text = Val(txtn1.Text) – Val(txtn2.Text)

End Sub

Private Sub Cmd3_Click()

txtn3.Text = Val(txtn1.Text) * Val(txtn2.Text)

End Sub

Private Sub Cmd4_Click()

txtn3.Text = Val(txtn1.Text) / Val(txtn2.Text)

End Sub

Private Sub Cmdkel_Click()

End

End Sub

Private Sub Cmdlg_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txtn3 = “”

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

3. Penghitung Gaji

Kode Program

Private Sub CmdK_Click()

End

End Sub

Private Sub cmdP_Click()

txtGK.Text = Val(txtGP.Text) + Val(txtTJ.Text) – Val(txtPOT.Text)

txtPJ.Text = Val(txtGK.Text) * 0.1

txtGD.Text = Val(txtGK.Text) – Val(txtPJ.Text)

End Sub

Private Sub CmdUL_Click()

txtGP.SetFocus

txtGP = “”

txtTJ = “”

txtPOT = “”

txtGK = “”

txtPJ = “”

txtGD = “”

End Sub

Private Sub txtGP_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTJ.SetFocus

End If

End Sub

Private Sub txtTJ_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtPOT.SetFocus

End If

End Sub

4. Kasir Mini

Kode Program

Private Sub Command1_Click()

txtD.Text = Val(txtHA.Text) * 0.1

txtHK.Text = Val(txtHA.Text) – Val(txtD.Text)

End Sub

Private Sub Command2_Click()

txtHA.SetFocus

txtHA = “”

txtD = “”

txtHK = “”

End Sub

Private Sub Command3_Click()

End

End Sub

5. Font Color & Font Style

Kode Program

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

txtlbl.FontBold = True

Else

txtlbl.FontBold = False

End If

End Sub

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

txtlbl.FontItalic = True

Else

txtlbl.FontItalic = False

End If

End Sub

Private Sub ChkStrike_Click()

If ChkStrike.Value = 1 Then

txtlbl.FontStrikethru = True

Else

txtlbl.FontStrikethru = False

End If

End Sub

Private Sub ChkUnder_Click()

If ChkUnder.Value = 1 Then

txtlbl.FontUnderline = True

Else

txtlbl.FontUnderline = False

End If

End Sub

Private Sub CmdEx_Click()

End

End Sub

Private Sub OptBlue_Click()

txtlbl.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()

txtlbl.ForeColor = vbGreen

End Sub

Private Sub optRed_Click()

txtlbl.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()

txtlbl.ForeColor = vbYellow

End Sub