Program Nilai Semester

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

Jika anda perhatikan listing program menjadi seperti ini :


Public Class frmHitung

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class