[VB.NET] MENENTUKAN NILAI AKHIR

Desain User Interface :











Source code :

Public Class Form1

    Dim absen, tugas, quiz, uts, uas, nilaiAkhir As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StartPosition = FormStartPosition.CenterScreen
        MinimizeBox = False
        MaximizeBox = False
        txtNilaiAkhir.Enabled = False
    End Sub

    Private Sub txtKodeMK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKodeMK.KeyPress
        If e.KeyChar = Chr(13) Then
            txtNamaMK.Focus()
        End If
    End Sub

    Private Sub txtNamaMK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNamaMK.KeyPress
        If e.KeyChar = Chr(13) Then
            txtAbsen.Focus()
        End If
    End Sub

    Private Sub txtAbsen_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAbsen.KeyPress
        If e.KeyChar = Chr(13) Then
            txtTugas.Focus()
        End If
    End Sub

    Private Sub txtTugas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTugas.KeyPress
        If e.KeyChar = Chr(13) Then
            txtQuiz.Focus()
        End If
    End Sub

    Private Sub txtQuiz_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtQuiz.KeyPress
        If e.KeyChar = Chr(13) Then
            txtUTS.Focus()
        End If
    End Sub

    Private Sub txtUTS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUTS.KeyPress
        If e.KeyChar = Chr(13) Then
            txtUAS.Focus()
        End If
    End Sub

    Private Sub txtUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUAS.KeyPress
        If e.KeyChar = Chr(13) Then
            absen = Val(txtAbsen.Text)
            tugas = Val(txtTugas.Text)
            quiz = Val(txtQuiz.Text)
            uts = Val(txtUTS.Text)
            uas = Val(txtUAS.Text)

            nilaiAkhir = (0.1 * absen) + (0.1 * tugas) + (0.1 * quiz) + (0.3 * uts) + (0.4 * uas)
            txtNilaiAkhir.Text = nilaiAkhir

            btnUlangi.Focus()
        End If
    End Sub

    Private Sub btnUlangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUlangi.Click
        txtKodeMK.Clear()
        txtNamaMK.Clear()
        txtAbsen.Clear()
        txtTugas.Clear()
        txtQuiz.Clear()
        txtUTS.Clear()
        txtUAS.Clear()
        txtNilaiAkhir.Clear()
        txtKodeMK.Focus()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Dim konfirmasi As String

        konfirmasi = MsgBox("Anda yakin keluar dari aplikasi?", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "Konfirmasi")

        If konfirmasi = vbOK Then
            Close()
        End If
    End Sub
End Class

Hasil :