CORETAN ANAK TKJ

membuat daftar nilai menggunakan visual basic

Private Sub cmbKELAS_Click()
If cmbKELAS.ListIndex = 0 Then
txtJURUSAN.Text = "KELAS X TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 1 Then
txtJURUSAN.Text = "KELAS X TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 2 Then
txtJURUSAN.Text = "KELAS X TKJ 3-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 3 Then
txtJURUSAN.Text = "KELAS XI TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 4 Then
txtJURUSAN.Text = "KELAS XI TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 5 Then
txtJURUSAN.Text = "KELAS XII TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
Else: cmbKELAS.ListIndex = 6
LATIHAN -1 –PEMPROGRAMMAN DASAR – XI TKJ -01 = BANG NDORIS
txtJURUSAN.Text = "KELAS XII TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
End If
txtABSEN.SetFocus
End Sub
Private Sub cmdBERSIH_Click()
txtNIS.Text = ""
txtNAMA.Text = ""
cmbKELAS.Text = ""
txtKETERANGAN.Text = ""
txtJURUSAN.Text = ""
txtABSEN.Text = ""
txtUAS.Text = ""
txtUTS.Text = ""
txtRATA2.Text = ""
txtGRADE.Text = ""
txtNIS.SetFocus
End Sub
Private Sub cmdHITUNG_Click()
txtRATA2 = Val((10 / 100 * txtABSEN.Text) + _
(20 / 100 * txtTUGAS.Text) + _
(30 / 100 * txtUTS.Text) + _
(40 / 100 * txtUAS.Text))
Select Case Val(txtRATA2.Text)
Case 90 To 100
txtGRADE.Text = "A"
txtKETERANGAN.Text = "Sangat Memuaskan"
Case 70 To 89
txtGRADE.Text = "B"
txtKETERANGAN.Text = "Memuaskan"
Case 60 To 69
txtGRADE.Text = "C"
txtKETERANGAN.Text = "Cukup Memuaskan"
Case 1 To 59
txtGRADE.Text = "D"
txtKETERANGAN.Text = "Kurang Memuaskan"
Case 0
txtGRADE.Text = "E"
txtKETERANGAN.Text = "Mengecewakan"
End Select
End Sub
Private Sub cmdKELUAR_Click()
A = MsgBox("Yakin mau keluar dari Form ini?", vbYesNo + vbInformation,
"PESAN")
If A = vbYes Then
End
End If
End Sub
Private Sub Form_Activate()
LATIHAN -1 –PEMPROGRAMMAN DASAR – XI TKJ -01 = BANG NDORIS
txtRATA2.BackColor = &H80FFFF
txtGRADE.BackColor = &H80FFFF
txtKETERANGAN.BackColor = &H80FFFF
End Sub
Private Sub Form_Load()
With cmbKELAS
.AddItem "XTKJ1"
.AddItem "XTKJ2"
.AddItem "XTKJ3"
.AddItem "XITKJ1"
.AddItem "XITKJ2"
.AddItem "XIITKJ1"
.AddItem "XIITKJ2"
End With
End Sub
Private Sub txtABSEN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUTS.SetFocus
End If
End Sub
Private Sub txtNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmbKELAS.SetFocus
End If
End Sub
Private Sub txtNIS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNAMA.SetFocus
End If
End Sub
Private Sub txtTUGAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUAS.SetFocus
End If
End Sub
Private Sub txtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdHITUNG.SetFocus
End If
End Sub
Private Sub txtUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTUGAS.SetFocus
End If
End Sub