Latihan_03_46110055

Public Class Latihan_03_46110055

    Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter

        tb146110055.Text = Val(masuksd46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub

Private Sub tb246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110055.Enter

        tb246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub

Private Sub tb346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110055.Enter

        tb346110055.Text = Val(tb246110055.Text) / Val(tb146110055.Text) * 100

    End Sub

Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click

        masuksd46110055.Text = ""

        sd46110055.Text = ""

        smp46110055.Text = ""

        sma46110055.Text = ""

        kul46110055.Text = ""

        tb146110055.Text = ""

        tb246110055.Text = ""

        tb346110055.Text = ""

    End Sub

End Class



Komentar :
Pada dasarnya sama dengan latihan 01, cuman script di balik tombol hitung di latihan 01 dipindahkan dibalik textbox dengan even yang sesuai . Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter ==>  dengan cara menambahkan (Enter) pada akhir rumus Private Sub. jadi, kita hanya menekan tombol Enter / klik textbox , jika ingin melihat hasilnya.