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 dasarnyasama dengan latihan 01, cuman script di balik tombol hitung di latihan 01 dipindahkan dibalik textbox dengan even yang sesuai yaitu dengan cara menambahkan (Enter) pada akhir rumus Private Sub. jadi, kita hanya menekan tombol Enter, jika ingin melihat hasilnya.