Latihan_03_46110020

LANGKAH-LANGKAH PENYELESAIAN

Public Class Latihan_03_46110020

    Private Sub TB646110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB646110020.Enter

        TB646110020.Text = Val(TB146110020.Text) + Val(TB246110020.Text) + Val(TB346110020.Text) + Val(TB446110020.Text) + Val(TB546110020.Text)

    End Sub

    Private Sub TB746110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB746110020.Enter

        TB746110020.Text = Val(TB246110020.Text) + Val(TB346110020.Text) + Val(TB446110020.Text) + Val(TB546110020.Text)

    End Sub

    Private Sub TB846110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB846110020.Enter

        TB846110020.Text = Val(TB746110020.Text) / Val(TB646110020.Text) * 100

    End Sub

    Private Sub KOSONG46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG46110020.Click

        TB146110020.Text = ""

        TB246110020.Text = ""

        TB346110020.Text = ""

        TB446110020.Text = ""

        TB546110020.Text = ""

        TB646110020.Text = ""

        TB746110020.Text = ""

        TB846110020.Text = ""

    End Sub

End Class

Komentar :

                Private Sub TB646110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB646110020.Enter

Fungsi dari (Enter) yang terdapat pada tugas ke 3 ini berfungsi untuk memunculkan hasil rumus yang ada ketika menekan tombol (TAB) pada keyboard.