'-------------------------------------------'
'----------SinglePath games design----------'
'-----http://www.iespana.es/singlepath------'
'-----------singlepathpe@yahoo.es-----------'
'-------------Fecha: 18/01/2005.------------'
Imports System
Module Main
Sub Main()
dim iNumero,iSuma,iDigito,iAux,iExponente as integer
'dim declara variables
dim sRespuesta as string
sRespuesta = "s"
do while sRespuesta <> "n" and sRespuesta <> "N"
'Ejecutamos este bloque de código, mientras se cumpla
'la condición
iSuma = 0
iExponente = 1
Console.Write("Ingresa un número decimal: ")
'Write, Escribe en la pantalla
iNumero = Console.ReadLine()
'ReadLine, lee una palabra ingresada por teclado
do while iNumero >= 1
'Ejecutamos este bloque de código, mientras se cumpla
'la condición
iDigito = iNumero mod 2
'Mod, ejecuta una división entera, conservando el residuo
iNumero = iNumero \ 2
'El símbolo \ equivale a una division entera sin redondeo
iAux = iDigito * iExponente
iSuma = iSuma + iAux
iExponente = iExponente * 10
loop
'Loop, define donde termina el bloque del While
Console.Write("El número decimal es ")
Console.Write(iSuma)
Console.WriteLine()
'WriteLine, escribe una linea y ejecuta un salto de línea
Console.Write("Deseas Continuar?(s/n): ")
sRespuesta = Console.ReadLine()
Console.WriteLine()
Console.WriteLine()
loop
End Sub
End Module