sushitrash

Untitled

May 27th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim sks(0), grade(0) As Byte
  3.     Private Sub buttonAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonAdd.Click
  4.         If matkulText.Text = "" Or gradeText.Text = "" Or sksText.Text = "" Then
  5.             MessageBox.Show("Terdapat data yang kosong", "Warning")
  6.             Return
  7.         End If
  8.         Try
  9.             sks(sks.Length - 1) = sksText.Text
  10.         Catch InvalidCastException As Exception
  11.             MessageBox.Show("Sks hanya berisi angka", "Warning")
  12.             sksText.Text = ""
  13.             sksText.Focus()
  14.             Return
  15.         End Try
  16.             Select Case UCase(gradeText.Text)
  17.             Case "A"
  18.                 grade(grade.Length - 1) = 4
  19.             Case "B"
  20.                 grade(grade.Length - 1) = 3
  21.             Case "C"
  22.                 grade(grade.Length - 1) = 2
  23.             Case "D"
  24.                 grade(grade.Length - 1) = 1
  25.             Case "E"
  26.                 grade(grade.Length - 1) = 0
  27.             Case Else
  28.                 MessageBox.Show("Grade hanya ada A - E", "Warning")
  29.                 gradeText.Text = ""
  30.                 gradeText.Focus()
  31.                 Return
  32.         End Select
  33.         DataGridView1.Rows.Add(New String() {matkulText.Text, ucase(gradeText.Text), sksText.Text, grade(grade.Length - 1) * sks(sks.Length - 1)})
  34.         ReDim Preserve grade(grade.Length)
  35.         ReDim Preserve sks(sks.Length)
  36.         dataLabel.Text = "Data ke-" & grade.Length
  37.     End Sub
  38.     Private Sub buttonResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonResult.Click
  39.         Dim mutuTotal, sksTotal As Integer
  40.         For counter = 0 To grade.Length - 1
  41.             mutuTotal = mutuTotal + grade(counter) * sks(counter)
  42.             sksTotal = sksTotal + sks(counter)
  43.         Next
  44.         sksTotalLabel.Text = "Sks Total : " & sksTotal
  45.         mutuTotalLabel.Text = "Mutu Total : " & mutuTotal
  46.         ipkLabel.Text = "IPK : " & mutuTotal / sksTotal
  47.     End Sub
  48. End Class
Add Comment
Please, Sign In to add comment