Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case “12100487”
nama = “oksa ade pambudi”
jurusan = “Manajemen informatika”
Case “12201125”
nama = ” RATNA SARI”
jurusan = “Sistem Informasi”
Case “12100488”
nama = “adhi seno”
jurusan = “Manajemen Informatika”
End Select
txtnama.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub
Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ” “
txtnama.Text = ” “
txtjur.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 cmdproses_Click()
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 Sub
Private Sub Form_Load()
cbonpm.AddItem “12100487”
cbonpm.AddItem “12201125”
cbonpm.AddItem “12100488”
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 txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
Private Sub cbogol_Click()
Dim gapok, tunjangan, pajak, total As Variant
Select Case cbogol.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 2500000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunj.Text = tunjangan
txtpajak.Text = pajak
txtterima.Text = total – pajak
End Sub
Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogol.Text = “”
txtgapok.Text = “”
txttunj.Text = “”
txtpajak.Text = “”
txtterima.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogol.Text = “”
txtgapok.Text = “”
txttunj.Text = “”
txtpajak.Text = “”
txtterima.Text = “”
End Sub
Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
cbokb.SetFocus
cbokb = “”
txtpeng = “”
txtjb = “”
txttt = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
cbokb.SetFocus
cbokb = “”
txtpeng = “”
txtjb = “”
txttt = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub Form_Load()
cbokb.AddItem = “a-sim-01”
cbokb.AddItem = “s-edp-05”
cbokb.AddItem = “m-cdr-02”
cbokb.AddItem = “i-sim-12”
cbokb.AddItem = “s-rpl-02”
cbokb.AddItem = “a-mnj-11”
cbokb.AddItem = “e-cdr-13”
End Sub
Private Sub Cmdproses_Click()
Dim k, j, p, h, n As String
k = Mid(cbokb.Text, 3, 3)
If k = “sim” Then
j = “sistem informasi manajemen”
p = “Yati nur oktavia”
h = “75900”
ElseIf k = “edp” Then
j = “elektronic data processing”
p = “Imam tarmizi”
h = “62000”
ElseIf k = “mnj” Then
j = “Manajemen”
p = “Valentina mariana Adiwianti”
h = “42000”
ElseIf k = “cdr” Then
j = “Corel Draw”
p = “Rian Suhandi”
h = “53000”
ElseIf k = “rpl” Then
j = “Rekayasa Perangkat Lunak”
p = “sinta umpu singa'”
h = “83000”
End If
txtjb.Text = j
txtpeng.Text = p
txthg.Text = h
txttt = “20” & Right(cbokb.Text, 2)
k = Left(cbokb.Text, 1)
If k = “a” Then
n = “Andi Offset Yogyakarta”
ElseIf k = “i” Then
n = “Indah Surabaya”
ElseIf k = “S” Then
n = “Salemba Empat”
ElseIf k = “e” Then
n = “Elek Media Komputindo”
ElseIf k = “m” Then
n = “maxicom”
End If
txtpenerbit.Text = n
End Sub
oksapambudistmikpringsewu 