HURUF MUTU MAHASISWA STMIK YANG MEMAKAI KeyPress

TUGAS 2.8

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

Select Case cbonpm.Text
Case "17100035"
nama = "RANTI WULANTIKA"
jurusan = "Sistem Informasi"
Case "17100034"
nama = "MARISCA NOVALINDA"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "RENALDI ZAINAL ARIFIN"
jurusan = "Sistem Informasi"
Case "17100032"
nama = "DIKA ADI PRATAMA"
jurusan = " Sistem Informasi"
Case "17100033"
nama = "ROBIYANTO"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtnama.Text = ""
txtjurusan.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 "17100035"
cbonpm.AddItem "17100034"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
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
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 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 TIDAK MENGGUNAKAN KeyPress

TUGAS 2.7

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

Select Case cbonpm.Text
Case "17100035"
nama = "RANTI WULANTIKA"
jurusan = "Sistem Informasi"
Case "17100034"
nama = "MARISCA NOVALINDA"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "RENALDI ZAINAL ARIFIN"
jurusan = "Sistem Informasi"
Case "17100032"
nama = "DIKA ADI PRATAMA"
jurusan = " Sistem Informasi"
Case "17100033"
nama = "ROBIYANTO"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtnama.Text = ""
txtjurusan.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 "17100035"
cbonpm.AddItem "17100034"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
End Sub

Tuliskan Nama Anda Ranti Wulantika

TUGAS 2.6

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub


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

Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

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

17100035-Ranti Wulantika-2.5

TUGAS 2.5

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 tengah
If chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = 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 cmdexit_Click()
Unload Me
End Sub

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

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

Private Sub optred_Click()
'Membuattexts berwarna Merah
lblteks.ForeColor = vbRed
End Sub

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

APLIKASI PERHITUNGAN GAJI MENGGUNAKAN KEYPRESS

TUGAS 2.4

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
txtgk = Val(txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End Sub
Private Sub CmdUlang_Click()
txtgp = ""
txttj = ""
txtpt = ""
txtgk = ""
txtpj = ""
txtgd = ""
txtgp.SetFocus

End Sub


Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub


Private Sub txtpt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgk = Val(txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End If
End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpt.SetFocus
End If
End Sub

APLIKASI PERHITUNGAN GAJI TANPA KEYPREES

TUGAS 2.3

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
txtgk = Val(txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End Sub
Private Sub CmdUlang_Click()
txtgp = ""
txttj = ""
txtpt = ""
txtgk = ""
txtpj = ""
txtgd = ""
txtgp.SetFocus

End Sub


Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub

HARGA SETELAH DISKON 10% MENGUNAKAN KEYPRESS

TUGAS 2.2

Private Sub Command4_Click()

TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)

End Sub
Private Sub Command5_Click()
Txtha = ""
TxtDis = ""
TxtHak = ""
Txtha.SetFocus
End Sub

Private Sub Command6_Click()
End
End Sub


Private Sub Txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)
End If
End Sub