Latihan_03_46110006

3.LANGKAH-LANGKAH PENYELESAIAN

Public Class Latihan_03_46110006

    Private Sub TB646110006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB646110006.Enter

        TB646110006.Text = Val(TB146110006.Text) + Val(TB246110006.Text) + Val(TB346110006.Text) + Val(TB446110006.Text) + Val(TB546110006.Text)

    End Sub

    Private Sub TB746110006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB746110006.Enter

        TB746110006.Text = Val(TB246110006.Text) + Val(TB346110006.Text) + Val(TB446110006.Text) + Val(TB546110006.Text)

    End Sub

    Private Sub TB846110006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB846110006.Enter

        TB846110006.Text = Val(TB746110006.Text) / Val(TB646110006.Text) * 100

    End Sub

    Private Sub KOSONG_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG.Click

        TB146110006.Text = ""

        TB246110006.Text = ""

        TB346110006.Text = ""

        TB446110006.Text = ""

        TB546110006.Text = ""

        TB646110006.Text = ""

        TB746110006.Text = ""

        TB846110006.Text = ""

    End Sub

End Class

Scribt Unik :

Private Sub TB646110006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB646110006.Enter => Tanda (Enter) berfungsi untuk memunculkan hasil rumus ketika menekan tombol (Tab).