welcome to my blog :)

1. Langkah-Langkah Penyelesaian :

 

Public Class Latihan_03_46110022

    Private Sub TB146110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB146110022.Enter
        TB146110022.Text = Val(masuk46110022.Text) + Val(SD46110022.Text) + Val(SLTP46110022.Text) + Val(SLTA46110022.Text) + Val(poltek46110022.Text)

    End Sub

    Private Sub TB246110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB246110022.Enter
        TB246110022.Text = Val(SD46110022.Text) + Val(SLTP46110022.Text) + Val(SLTA46110022.Text) + Val(poltek46110022.Text)
    End Sub

    Private Sub TB346110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB346110022.Enter
        TB346110022.Text = Val(TB246110022.Text) / Val(TB146110022.Text) * 100

    End Sub

    Private Sub kosong46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110022.Click
        masuk46110022.Text = ""
        SD46110022.Text = ""
        SLTP46110022.Text = ""
        SLTA46110022.Text = ""
        poltek46110022.Text = ""
        TB146110022.Text = ""
        TB246110022.Text = ""
        TB346110022.Text = ""
    End Sub
End Class

2. Komentar :

Private Sub TB146110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB146110022.Enter
        TB146110022.Text = Val(masuk46110022.Text) + Val(SD46110022.Text) + Val(SLTP46110022.Text) + Val(SLTA46110022.Text) + Val(poltek46110022.Text)

End  Sub

Pada dasarnya script ini bertujuan sama dengan script pada latihan 01, namun pada script ini menggunakan ENTER untuk memunculkan hasil pada textbox dengan cara menekan ENTER atau TAB.