Binario Ejercicio VB.Net - Curso de Programación Visual Basic

 Ejercicio

Binario

Objetivo

Cree un programa en Visual Basic que solicite al usuario un número decimal y muestre su equivalente en forma binaria. Debe repetirse hasta que el usuario ingrese la palabra "fin". No debe usar "ToString", sino divisiones sucesivas.

Código

Imports System
Public Class exercise69
    Public Shared Sub Main()
        Dim answer As String
        Dim result As String

        Do
            Console.Write("Number to convert (or ""end"")? ")
            answer = Console.ReadLine()

            If answer <> "end" Then
                Dim n As Integer = Convert.ToInt32(answer)
                result = ""

                While n > 1
                    Dim remainder As Integer = n Mod 2
                    result = Convert.ToString(remainder) & result
                                        ' Cannot convert ExpressionStatementSyntax, System.ArgumentOutOfRangeException: Exception of type 'System.ArgumentOutOfRangeException' was thrown.
' Parameter name: op
' Actual value was DivideAssignmentStatement.
'    at ICSharpCode.CodeConverter.Util.VBUtil.GetExpressionOperatorTokenKind(SyntaxKind op)
'    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'    at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
'    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
'    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'    at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
'    at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.ConvertSingleExpression(ExpressionSyntax node)
'    at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.VisitExpressionStatement(ExpressionStatementSyntax node)
'    at Microsoft.CodeAnalysis.CSharp.Syntax.ExpressionStatementSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
'    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'    at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
'    at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
' 
' Input: 
'                     n /= 2;

' 
                End While

                result = Convert.ToString(n) & result
                Console.WriteLine("Binary: {0}", result)
            End If
        Loop While answer <> "end"
    End Sub
End Class

Más ejercicios Visual Basic (VB.Net) de Tipos de datos básicos

 Char
Escriba un programa para pedirle al usuario tres letras y mostrarlas en orden inverso. ...
 Triángulo
Escriba un programa en Visual Basic que solicite un símbolo y un ancho, y muestre un triángulo de ese ancho, usando ese número para el símbolo interio...
 Contraseña como cadena
Escriba un programa en Visual Basic para pedirle al usuario su nombre y su contraseña (ambos deben ser cadenas) y repítalo tantas veces como sea neces...
 Contraseña 5 intentos
Escriba un programa en Visual Basic que solicite al usuario su nombre de usuario y contraseña. Ambos deben ser cadenas. Después de 5 intentos erróneos...
 Calculadora - if
Escriba un programa en Visual Basic que le pida al usuario dos números y una operación para realizar con ellos (+,-,*,x,/) y muestre el resultado de e...
 Calculadora - switch
Escriba un programa en Visual Basic que le pida al usuario dos números y una operación para realizar con ellos (+,-,*,x,/) y muestre el resultado de e...
 Doble
Calcula el perímetro, el área y la diagonal de un rectángulo, dado su ancho y su altura. (Sugerencia: use y = Math.Sqrt(x) para calcular una raíz c...
 Calcular valores de una función
Cree un programa en Visual Basic para mostrar ciertos valores de la función y = x2 - 2x + 1 (usando números enteros para x, que van de -10 a +10)...
 Mostrar una función
Cree un programa en Visual Basic para "dibujar" el gráfico de la función y = (x-4)2 para valores enteros de x que van desde -1 a 8. Mostrará tantos as...
 Float, unidades de velocidad
Cree un programa en Visual Basic para pedirle al usuario una distancia (en metros) y el tiempo empleado (como tres números: horas, minutos, segundos),...
 Esfera, float
Calcular la superficie y el volumen de una esfera, dado su radio (superficie = 4 * pi * radio al cuadrado; volumen = 4/3 * pi * radio al cubo). Sug...
 Vocal - switch
Cree un programa en Visual Basic para pedirle al usuario un símbolo y responda si es una vocal (en minúscula), un dígito o cualquier otro símbolo, usa...
 Vocal - if
Cree un programa en Visual Basic para pedirle al usuario un símbolo y responda si es una vocal (en minúscula), un dígito o cualquier otro símbolo, usa...
 Triángulo, Noreste
Escriba un programa en Visual Basic que solicite un ancho y muestre un triángulo como este: Introduzca el ancho deseado: 5 ***** _**** __*** ...
 Factores primos
Cree un programa en Visual Basic que muestre un número (ingresado por el usuario) como producto de sus factores primos. Por ejemplo, 60 = 2 · 2 · 3 · ...
 If, símbolos
Cree un programa en Visual Basic para pedirle al usuario un símbolo y responda si es una vocal mayúscula, una vocal minúscula, un dígito o cualquier o...
 Char + for
Crear un programa en Visual Basic para escribir las letras "B" a "N" (mayúsculas), usando "for"...
 Doble, aproximación de Pi
Crear un programa en Visual Basic para calcular una aproximación para PI utilizando la expresión: pi/4 = 1/1 - 1/3 + 1/5 -1/7 + 1/9 - 1/11 + 1/13 ....
 Área perimetral
Crear un programa en Visual Basic para calcular el perímetro, el área y la diagonal de un rectángulo a partir de su anchura y altura (perímetro = suma...
 Hexadecimal y binario
Cree un programa en Visual Basic para pedir al usuario un número y mostrarlo tanto en hexadecimal como en binario. Debe repetirse hasta que el usuario...
 Condicional y booleano
Cree un programa en Visual Basic que utilice el operador condicional para dar a una variable booleana denominada "bothEven" el valor "true" si dos núm...
 Excepciones V2
Cree un programa en Visual Basic para pedir al usuario un número real y mostrar su raíz cuadrada. Los errores deben ser atrapados usando "try.. captur...

Juan A. Ripoll - Tutoriales de Sistemas y Cursos de Programación© 2024 Todos los derechos reservados.  Condiciones legales.