Latihan_03_46110001

Latihan_03_46110001
3. Langkah-langkah penyelesaian

Public Class Latihan_03_46110001
    Private Sub umur_46110001_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles umur_46110001.TextChanged
        TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB2_46110001.Text = Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100

    End Sub
    Private Sub SD_46110001_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SD_46110001.TextChanged
        TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB2_46110001.Text = Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100

    End Sub

    Private Sub TB1_46110001_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TB1_46110001.TextChanged
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100

    End Sub
  
    Private Sub SLTP_46110001_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SLTP_46110001.TextChanged
        TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB2_46110001.Text = Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100
    End Sub

    Private Sub SLTA_46110001_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SLTA_46110001.TextChanged
        TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB2_46110001.Text = Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100
    End Sub


    Private Sub POLITEKNIK_46110001_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles POLITEKNIK_46110001.TextChanged
        TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB2_46110001.Text = Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100
    End Sub
    Private Sub kosong_46110001_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kosong_46110001.Click
        umur_46110001.Text = ""
        SD_46110001.Text = ""
        SLTP_46110001.Text = ""
        SLTA_46110001.Text = ""
        POLITEKNIK_46110001.Text = ""
        TB1_46110001.Text = ""
        TB2_46110001.Text = ""
        TB3_46110001.Text = ""
    End Sub
End Class