Visual Basic - Ejemplos Visual basic

Hola amigos, si quereis tener ejemplos de programas realizados con visual totalmente gratuitos y poder consultar el codigo fuente no dudeis en visitar la pagina:

http://www.aunaweb.com/acweb

Tambien podeis visitar el foro y hacer cualquier pregunta que tengais.

Un saludillo a todos.

como hago una calculadora que, convierta numeros a binario, decimal, hexadecimal

Hola Jorge, esta es una función para pasar de decimal a binario:

Private Function BinarioADecimal(ByVal ValorBinario As String) As Long
Dim ImgValor As Long
Dim x As Long
Dim k As Long
k = Len(ValorBinario) 'Solo funciona para numeros de menos de 32 bits
For x = k To 1 Step -1
If Mid$(ValorBinario, x, 1) = "1" Then
If k - x > 30 Then
ImgValor = ImgValor Or -2147483648# 'Para evitar overflow
Else
ImgValor = Imgvalo + 2 ^ (k - x)
End If
End If
Next x
BinarioADecimal = ImgValor
End Function

No olvides visitar mi pagina:
http://www.aunaweb.com/acweb
Si tienes más dudas dejalas en el foro que allí encontraras, espero que este codigo te sirva, ya dirás.

la nueva web es http://www.iespana.es/acweb