1.
Private Sub Cbonpm_Click()
Dim nama, jurusan, AsString
Select Case Cbonpm.Text
Case “12201047”
nama = “Didi Sumantri”
jurusan = “Manajemen Informatika”
Case “12100210”
nama = “Hernika”
jurusan = “Sistem Informasi”
Case “12203068”
nama = “Vico Gabta”
jurusan = “Tehnik Informatika”
Case “12100212”
nama = “Bambang”
jurusan = “Sistem Informasi”
Case “12100243”
nama = “Pipit”
jurusan = “Sisitem Informasi”
End Select
Txtnm.Text = nama
Txtjur.Text = jurusan.
Private Sub Cbonpm_DblClick()
Private Sub form_load()
Cbonpm.AddItem “12201047”
Cbonpm.AddItem “12100210”
Cbonpm.AddItem “12203068”
Cbonpm.AddItem “12100212”
Cbonpm.AddItem “12100243”
End Sub
Private Sub Txtqz_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttg.SetFocus
End If
End Sub
Private Sub Txttg_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
Private Sub Cmdpros_Click()
Dim NilaiAkhir As Integer
Dim HurufMutu As String
quiz = Val(Txtqz.Text)
tugas = Val(Txttg.Text)
uts = Val(Txtuts.Text)
uas = Val(Txtuas.Text)
NilaiAkhir = (quiz + tugas + uts + uas) / 4
Txtnk.Text = NilaiAkhir
Select Case Txtnk.Text
Case Is > 80
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
Txthmt.Text = HurufMutu
End Sub
Private Sub Cmdbtl_Click()
Cbonpm.SetFocus
Cbonpm = “”
Txtnm = “”
Txtjur = “”
Txtqz = “”
Txttg = “”
Txtuts = “”
Txtuas = “”
Txtnk = “”
Txthmt = “”
End Sub
Private Sub Cmdklr_Click()
End
End Sub
2.
Private Sub Opthj_Click()
Lbljdl.ForeColor = vbGreen
End Sub
Private Sub Optmr_Click()
Lbljdl.ForeColor = vbRed
End Sub
Private Sub Chktb_Click()
Lbljdl.FontBold = Chktb.Value
End Sub
Private Sub Chkmrg_Click()
Lbljdl.FontItalic = Chkmrg.Value
End Sub
Private Sub Cmdok_Click()
Lbljdl.Caption = Txtnm.Text
End Sub
Private Sub Cmdklr_Click()
End
End Sub
3.
Private Sub Txtnid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnmp.SetFocus
End If
End Sub
Private Sub Cbogl_DblClick()
Private Sub form_load()
Cbogl.AddItem “I”
Cbogl.AddItem “II”
Cbogl.AddItem “III”
End Sub
Private Sub Cbogl_Click()
Dim Gajipokok, Pajak, Tunjangan, Gajibersih As Variant
Select Case Cbogl.Text
Case “I”
Gajipokok = 1500000
Tunjangan = 300000
Case “II”
Gajipokok = 2000000
Tunjangan = 600000
Case “III”
Gajipokok = 2500000
Tunjangan = 900000
Case Else
Gajipokok = 0
Tunjangan = 0
End Select
Gajibersih = Gajipokok + Tunjangan
Pajak = Gajibersih * 0.1
Txtgp.Text = Gajipokok
Txttj.Text = Tunjangan
Txtpjk.Text = Pajak
Txtgb.Text = Gajibersih – Pajak
Private Sub Cmdlgi_Click()
Txtnid = “”
Txtnmp = “”
Cbogl = “”
Txtgp = “”
Txttj = “”
Txtpjk = “”
Txtgb = “”
End Sub
Private Sub Cmdbtl_Click()
Txtnid = “”
Txtnmp = “”
Cbogl = “”
Txtgp = “”
Txttj = “”
Txtpjk = “”
Txtgb = “”
End Sub
Private Sub Cmdkel_Click()
End
End Sub
4.
Private Sub Txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Cmdpros_Click()
Dim Std As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Std = Mid(Txtnpm.Text, 3, 1)
If Std = “1” Then
Txtjur.Text = “Sisitem Informasi”
ElseIf Std = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf Std = “3” Then
Txtjur.Text = ” Tehnik Informatika ”
ElseIf Std = “4” Then
Txtjur.Text = “Komputer Akuntansi”
End If
Std = Mid(Txtnpm.Text, 4, 2)
If Std = “00” Then
Txtps.Text = “Strata Satu”
ElseIf Std = “01” Then
Txtps.Text = “Diploma Tiga”
ElseIf Std = “02” Then
Txtps.Text = “Diploma Dua”
ElseIf Std = “03” Then
Txtps.Text = “Diploma Empat”
End If
Std = Right(Txtnpm.Text, 3)
Txtnu.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Cmdlgi_Click()
Txtnm.SetFocus
Txtnm = “”
Txtnpm = “”
Txtjur = “”
Txtps = “”
Txttm = “”
Txtnu = “”
End Sub
Private Sub Cmdbtl_Click()
Txtnm.SetFocus
Txtnm = “”
Txtnpm = “”
Txtjur = “”
Txtps = “”
Txttm = “”
Txtnu = “”
End Sub
Private Sub Cmdkel_Click()
End
End Sub
Didi" stmik pringsewu 