Temas

Conocen algún sitio web donde se puedan realizar cursos online de programación impartidos por alguna entidad mas o menos reconocida, o reconocida tipo los cursos  en línea de la UNAM en México?... Ya que donde vivo no hay manera de obtener algún tipo de certificación o un simple certificado... :/  Y aún que creo que siendo autodidacta puedes aprender mas que en cualquier curso de unas pocas semanas, no esta demás tener un papel que avale tus conocimientos... En fin, creo que van de la mano para tener mas oportunidades...

Gracias.

Saludos.
Trato de aprender vb.net con ayuda de un libro y en el capítulo en el que estoy viene el siguiente código el cual no comprendo del todo y no he sabido como buscar en Google mi duda, a ver si pueden ayudarme un poco con la explicación...

Código (vbnet) [Seleccionar] Expandir


Module ejercicio4
    Public Sub Visualizar(ByVal car As Byte)
        Dim i, bit As Integer
        For i = 7 To 0 Step -1
            If ((car And (1 * (2 ^ i))) <> 0) Then
                bit = 1
            Else
                bit = 0
            End If
            System.Console.Write(bit)
        Next
        System.Console.WriteLine()
    End Sub

    'ESTA ES LA PARTE QUE NO COMPRENDO DEL TODO...
    Public Function HaceAlgo(ByVal car As Byte) As Byte
        Return ((car And &H1) * (2 ^ 7)) Or ((car And &H2) * (2 ^ 5)) Or _
               ((car And &H4) * (2 ^ 3)) Or ((car And &H8) * (2 ^ 1)) Or _
               ((car And &H10) \ (2 ^ 1)) Or ((car And &H20) \ (2 ^ 3)) Or _
               ((car And &H40) \ (2 ^ 5)) Or ((car And &H80) \ (2 ^ 7))
    End Function

    Sub Main()
        Dim car As Byte
        System.Console.Write("Introduce un caracter unicode: ")
        car = System.Console.Read()
        Visualizar(car)
        System.Console.WriteLine("Caracter resultante: ")
        car = HaceAlgo(car)
        Visualizar(car)
        System.Console.ReadLine()
        System.Console.ReadLine()
    End Sub

End Module


Que significa &H1, &H2... ? Que operación se realiza en ((car And &H1) * (2 ^ 7)) ? Y por que hay varios... ?

Gracias por su ayuda

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.

Código (vbnet) [Seleccionar] Expandir

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