HURUF MUTU MAHASISWA STMIK DENGAN KEYPRESS

Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtnama.Text = ""
txtjurusan.Text = ""
txtquis.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtnilaiakhir.Text = ""
txthm.Text = ""
End Sub


Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100025"
nama = "Nova Alfiatul Hasanah"
jurusan = "Sistem Informasi"
Case "17100001"
nama = "Mardalena"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi Elvia"
jurusan = "Sistem Informasi"
Case "17100031"
nama = "Tuti Mulyani"
jurusan = "Sistem Informasi"
Case "171000o4"
nama = "Eka Kartika Pertiwi"
jurusan = "Sistem Informasi"
Case "17100035"
nama = "Ranti Wulantika"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub Form_Load()
cbonpm.AddItem "17100025"
cbonpm.AddItem "17100001"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100031"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100035"
End Sub

Private Sub proses_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
txtnilaiakhir.Text = na

Select Case txtnilaiakhir.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 quit_Click() Unload Me 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 txtuas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnilaiakhir.SetFocus 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 txtnilaiakhir.Text = na Select Case txtnilaiakhir.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 If End Sub Private Sub txtuts_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtuas.SetFocus End If End Sub

HURUF MUTU MAHASISWA STMIK PRINGSEWU TANPA KEYPRESS

Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtnama.Text = ""
txtjurusan.Text = ""
txtquis.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtnilaiakhir.Text = ""
txthm.Text = ""
End Sub


Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100025"
nama = "Nova Alfiatul Hasanah"
jurusan = "Sistem Informasi"
Case "17100001"
nama = "Mardalena"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi Elvia"
jurusan = "Sistem Informasi"
Case "17100031"
nama = "Tuti Mulyani"
jurusan = "Sistem Informasi"
Case "171000o4"
nama = "Eka Kartika Pertiwi"
jurusan = "Sistem Informasi"
Case "17100035"
nama = "Ranti Wulantika"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub Form_Load()
cbonpm.AddItem "17100025"
cbonpm.AddItem "17100001"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100031"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100035"
End Sub

Private Sub proses_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
txtnilaiakhir.Text = na

Select Case txtnilaiakhir.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 quit_Click() Unload Me End Sub

2_6

Private Sub chkmiring_Click()
Label2.FontItalic = chkmiring.Value
End Sub

Private Sub chktebal_Click()
Label2.FontBold = chktebal.Value
End Sub

Private Sub cmdbatal_Click()
Unload Me
End Sub

Private Sub cmdok_Click()
Label2.Caption = Text1.Text
End Sub


Private Sub optbiru_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub optmerah_Click()
Label2.ForeColor = vbRed
End Sub

2_5 NAMA DENGAN WARNA

Private Sub chkbold_Click()
'membuat teks tebal'
If chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub

Private Sub chkitalic_Click()
'membuat teks miring'
If chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub


Private Sub chkstrikethru_Click()
'membuat teks bergaris'
If chkstrikethru.Value = 1 Then
lblteks.Fonestrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunderline_Click()
'membuat teks bergaris bawah'
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub

Private Sub optblue_Click()
'membuat teks berwarna biru'
lblteks.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
'membuat teks berwarna hijau'
lblteks.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
'membuat teks berwarna merah'
lblteks.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
'membuat teks berwarna kuning'
lblteks.ForeColor = vbYellow
End Sub

APLIKASI PERHITUNGAN GAJI DENGAN KEYPRESS

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
textgajikotor = Val(textgajipokok) + Val(texttunjangan) - Val(textpotongan)
textpajak = Val(textgajikotor) * 0.1
textgajiditerima = Val(textgajikotor) - Val(textpajak)
End Sub


Private Sub cmdulang_Click()
textgajipokok = ""
texttunjangan = ""
textpotongan = ""
textgajikotor = ""
textpajak = ""
textgajiditerima = ""
End Sub

Private Sub textpotongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textgajikotor = Val(textgajipokok) + Val(texttunjangan) - Val(textpotongan)
textpajak = Val(textgajikotor) * 0.1
textgajiditerima = Val(textgajikotor) - Val(textpajak)
End If
End Sub

Private Sub texttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpotongan.SetFocus
End If
End Sub

APLIKASI PERHITUNGAN GAJI TANPA KEYPRESS

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
textgajikotor = Val(textgajipokok) + Val(texttunjangan) - Val(textpotongan)
textpajak = Val(textgajikotor) * 0.1
textgajiditerima = Val(textgajikotor) - Val(textpajak)
End Sub


Private Sub cmdulang_Click()
textgajipokok = ""
texttunjangan = ""
textpotongan = ""
textgajikotor = ""
textpajak = ""
textgajiditerima = ""
End Sub

PERHITUNGAN DATA SETELAH DISKON 10% DENGAN KEPRESS

Private Sub cmdhitung_Click()
textdis = Val(textha) * 0.1
texthk = Val(textha) - Val(textdis)
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdulangi_Click()
textha = ""
textdis = ""
texthk = ""
End Sub


Private Sub textdis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texthk = Val(textha) - Val(textdis)
texthk.SetFocus
End If
End Sub

Private Sub textha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textdis = Val(textha) * 0.1
textdis.SetFocus
End If
End Sub


Private Sub texthk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textha.SetFocus
End If
End Sub

DATA SETELAH DISKON 10% TANPA KEYPRESS

Private Sub cmdhitung_Click()
textdis = Val(textha) * 0.1
texthk = Val(textha) - Val(textdis)
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdulangi_Click()
textha = ""
textdis = ""
texthk = ""
End Sub