latihan_03_46110023

Public Class LATIHAN_03_46110023

   
    Private Sub UMURPOLTEK46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UMURPOLTEK46110023.Enter
        UMURPOLTEK46110023.Text = Val(TB146110023.Text) + Val(TB246110023.Text) + Val(TB346110023.Text) + Val(TB446110023.Text) + Val(TB5K46110023.Text)

    End Sub

    Private Sub LABER46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LABER46110023.Enter
        LABER46110023.Text = Val(TB246110023.Text) + Val(TB346110023.Text) + Val(TB446110023.Text) + Val(TB5K46110023.Text)

    End Sub

    Private Sub PERSEN46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERSEN46110023.Enter
        PERSEN46110023.Text = Val(LABER46110023.Text / UMURPOLTEK46110023.Text) * 100

    End Sub

    Private Sub KOSONG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG.Click
        TB146110023.Text = ""
        TB246110023.Text = ""
        TB346110023.Text = ""
        TB446110023.Text = ""
        TB5K46110023.Text = ""
        UMURPOLTEK46110023.Text = ""
        LABER46110023.Text = ""
        PERSEN46110023.Text = ""

    End Sub
End Class