1.
Private Sub Cbonpm_DblClick()
Private Sub form_load()
Cbonpm.AddItem “12100530”
Cbonpm.AddItem “12100207”
Cbonpm.AddItem “12100217”
Cbonpm.AddItem “12201109”
Cbonpm.AddItem “12201265”
End Sub
Private Sub Cbonpm_Click()
Dim nama, jurusan, AsString
Select Case Cbonpm.Text
Case “12201102”
nama = “Arif Hidayahtulloh”
jurusan = “Sistem Informasi”
Case “12100207”
nama = “Linda”
jurusan = “Sistem Informasi”
Case “12100217”
nama = “Eko Mualip”
jurusan = “Sisitem Informasi”
Case “12201109”
nama = “Didi Sumantri”
jurusan = “Manajemen Informatika”
Case “12201265”
nama = “Lilik S”
jurusan = “Manajemen Informatika”
End Select
Txtnm.Text = nama
Txtjur.Text = jurusan
Txtnqu.SetFocus
End Sub
Private Sub Txtnqu_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
Private Sub Cmdproses_Click()
Dim NilaiAkhir As Integer
Dim HurufMutu As String
quiz = Val(Txtnqu.Text)
tugas = Val(Txtntgs.Text)
uts = Val(Txtuts.Text)
uas = Val(Txtuas.Text)
NilaiAkhir = (quiz + tugas + uts + uas) / 4
Txtnla.Text = NilaiAkhir
Select Case Txtnla.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
Txthrfm.Text = HurufMutu
End Sub
Private Sub Cmdbtl_Click()
Cbonpm.SetFocus
Cbonpm = “”
Txtnm = “”
Txtjur = “”
Txtnqu = “”
Txtntgs = “”
Txtuts = “”
Txtuas = “”
Txtnla = “”
Txthrfm = “”
End Sub
Private Sub Cmdkel_Click()
End
End Sub
2.
Private Sub Optmrh_Click()
Lbljudul.ForeColor = vbRed
End Sub
Private Sub Opthj_Click()
Lbljudul.ForeColor = vbGreen
End Sub
Private Sub Chkmrg_Click()
Lbljudul.FontItalic = Chkmrg.Value
End Sub
Private Sub Chktbl_Click()
Lbljudul.FontBold = Chktbl.Value
End Sub
Private Sub Cmdok_Click()
Lbljudul.Caption = Txtnma.Text
End Sub
Private Sub Cmdkel_Click()
End
End Sub
3.
Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpg.SetFocus
End If
End Sub
Private Sub Cbogol_DblClick()
Private Sub form_load()
Cbogol.AddItem “I”
Cbogol.AddItem “II”
Cbogol.AddItem “III”
Cbogol.AddItem “IV”
End Sub
Private Sub Cbogol_Click()
Dim Gajipokok, Pajak, Tunjangan, Total As Variant
Select Case Cbogol.Text
Case “I”
Gajipokok = 1500000
Tunjangan = 400000
Case “II”
Gajipokok = 2000000
Tunjangan = 600000
Case “III”
Gajipokok = 2500000
Tunjangan = 800000
Case “IV”
Gajipokok = 3000000
Tunjangan =1000000
Case Else
Gajipokok = 0
Tunjangan = 0
End Select
Total = Gajipokok + Tunjangan
Pajak = Total * 0.1
Txtgp.Text = Gajipokok
Txttj.Text = Tunjangan
Txtpj.Text = Pajak
Txttl.Text = Total – Pajak
Private Sub Cmdlgi_Click()
Txtnidn = “”
Txtnpg = “”
Cbogol = “”
Txtgp = “”
Txttj = “”
Txtpj = “”
Txttl = “”
End Sub
Private Sub Cmdbtl_Click()
Txtnidn = “”
Txtnpg = “”
Cbogol = “”
Txtgp = “”
Txttj = “”
Txtpj = “”
Txttl = “”
End Sub
Private Sub Cmdklr_Click()
End
End Sub
4.
Private Sub Txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Cmdproses_Click()
Dim S As String
Txtthnm.Text = “20” & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If S = “1” Then
Txtjrsn.Text = “Sisitem Informasi”
ElseIf S = “2” Then
Txtjrsn.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Txtjrsn.Text = “Komputer Akuntansi Manajemen”
ElseIf S = “4” Then
Txtjrsn.Text = “Tehnik Informatika”
End If
S = Mid(Txtnpm.Text, 4, 2)
If S = “00” Then
Txtpst.Text = “Strata Satu”
ElseIf S = “01” Then
Txtpst.Text = “Diploma Tiga”
ElseIf S = “02” Then
Txtpst.Text = “Diploma Dua”
ElseIf S = “03” Then
Txtpst.Text = “Diploma Empat”
End If
S = Right(Txtnpm.Text, 3)
Txtrut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Cmdlgi_Click()
Txtnm.SetFocus
Txtnm = “”
Txtnpm = “”
Txtjrsn = “”
Txtpst = “”
Txtthnm = “”
Txtrut = “”
End Sub
Private Sub Cmdbtl_Click()
Txtnama.SetFocus
Txtnm = “”
Txtnpm = “”
Txtjrsn = “”
Txtpst = “”
Txtthnm = “”
Txtrut = “”
End Sub
Private Sub Cmdklr_Click()
End
End Sub
ariefhidayahbb 