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.

Eso es exactamente lo que quiero saber

Bueno igual muchas gracias por tu ayuda, seguiré adelante con el libro sin preocuparme por eso ahora

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

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.

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