latihan_03_46110004

Langkah-langkah penyelesaian :

Public Class latihan_03_46110004

    Private Sub kosong46110004_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kosong46110004.Click
        umur46110004.Text = ""
        sd46110004.Text = ""
        sltp46110004.Text = ""
        slta46110004.Text = ""
        poltek46110004.Text = ""
        selesai46110004.Text = ""
        lama46110004.Text = ""
        persentase46110004.Text = ""
    End Sub

    Private Sub selesai46110004_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles selesai46110004.Enter
        selesai46110004.Text = Val(umur46110004.Text) + Val(sd46110004.Text) + Val(sltp46110004.Text) + Val(slta46110004.Text) + Val(poltek46110004.Text)
    End Sub

    Private Sub lama46110004_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles lama46110004.Enter
        lama46110004.Text = Val(sd46110004.Text) + Val(sltp46110004.Text) + Val(slta46110004.Text) + Val(poltek46110004.Text)
    End Sub

    Private Sub persentase46110004_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles persentase46110004.Enter
        persentase46110004.Text = Val(lama46110004.Text) / Val(selesai46110004.Text) * 100
    End Sub
End Class

Komentar :
Private Sub selesai46110004_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles selesai46110004.Enter
        selesai46110004.Text = Val(umur46110004.Text) + Val(sd46110004.Text) + Val(sltp46110004.Text) + Val(slta46110004.Text) + Val(poltek46110004.Text)
    End Sub ===> script ini hampir sama dengan latihan 01 akan tetapi yang membedakan adalah jika untuk memunculkan hasil penjumlahan pada textbox selesai46110004 harus menekan tombol hitung, maka pada script ini tidak perlu lagi  membuat tombol hitung akan tetapi cukup mengclick textbox selesai46110004 maka hasil perhitungannya akan muncul