Foro de elhacker.net

Saludos. Se lo que hace el código siguiente (mostrar el código unicode de cada caracter introducido) pero no entiendo del todo como lo hace, es decir, por que define esas constantes al inicio y por que al inicio del While se encuentra esa condición de (car > -1)... Supongo lo que hacen pero si alguien fuera tan amable de explicármelo claramente se los agradecería.

Gracias.

Imports System
Module Test
	Public Sub Main()
		Const CR As Integer = 13, LF As Integer = 10
		Dim car As Integer
 
		Console.WriteLine("Introduzca texto.")
		Console.WriteLine("Para terminar pulse Ctrl+z\n")
		car = Console.Read()
		While (car > -1)
			If (car <> CR And car <> LF) Then
				Console.WriteLine("El c&#243;digo Unicode de " & _
									Convert.ToChar(car) & " es " & car)
			End If
			car = Console.Read()
		End While
	End Sub
End Module

Parece traducido desde otro lenguaje \n no es válido como salto de línea en .Net esto ó para expresar un carácter por su ASCII tampoco es válido.

El While (car > -1) es por que se toma un carácter dentro del While este va a ser diferente de -1 siempre que el usuario haya introducido un valor. Y las constantes 10 y 13 pertenecen a las teclas Enter e Intro, que hacen que cada valor sea impreso.