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ó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.