Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Dim sks(0), grade(0) As Byte
- Private Sub buttonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonAdd.Click
- If matkulText.Text = "" Or gradeText.Text = "" Or sksText.Text = "" Then
- MessageBox.Show("Terdapat data yang kosong", "Warning")
- Return
- End If
- Try
- sks(sks.Length - 1) = sksText.Text
- Catch InvalidCastException As Exception
- MessageBox.Show("Sks hanya berisi angka", "Warning")
- sksText.Text = ""
- sksText.Focus()
- Return
- End Try
- Select Case UCase(gradeText.Text)
- Case "A"
- grade(grade.Length - 1) = 4
- Case "B"
- grade(grade.Length - 1) = 3
- Case "C"
- grade(grade.Length - 1) = 2
- Case "D"
- grade(grade.Length - 1) = 1
- Case "E"
- grade(grade.Length - 1) = 0
- Case Else
- MessageBox.Show("Grade hanya ada A - E", "Warning")
- gradeText.Text = ""
- gradeText.Focus()
- Return
- End Select
- DataGridView1.Rows.Add(New String() {matkulText.Text, ucase(gradeText.Text), sksText.Text, grade(grade.Length - 1) * sks(sks.Length - 1)})
- ReDim Preserve grade(grade.Length)
- ReDim Preserve sks(sks.Length)
- dataLabel.Text = "Data ke-" & grade.Length
- End Sub
- Private Sub buttonResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonResult.Click
- Dim mutuTotal, sksTotal As Integer
- For counter = 0 To grade.Length - 1
- mutuTotal = mutuTotal + grade(counter) * sks(counter)
- sksTotal = sksTotal + sks(counter)
- Next
- sksTotalLabel.Text = "Sks Total : " & sksTotal
- mutuTotalLabel.Text = "Mutu Total : " & mutuTotal
- ipkLabel.Text = "IPK : " & mutuTotal / sksTotal
- End Sub
- End Class
Add Comment
Please, Sign In to add comment