PROGRAMACION DE CONSOLA DE UNA CALCULADORA VB
Enviado por Lester123alex • 8 de Febrero de 2018 • Trabajo • 1.817 Palabras (8 Páginas) • 153 Visitas
[pic 1]
PROGRAMACION DE CONSOLA DE UNA CALCULADORA VB
Module Module1
Sub Main()
Dim x, y, z As Double
Dim Opcion As Char = ""
While Opcion <> "z"
Console.Clear()
Console.WriteLine("Opcion Suma.....(s)")
Console.WriteLine("Opcion Resta.....(r)")
Console.WriteLine("Opcion Multiplicacion.....(m)")
Console.WriteLine("Opcion Division.....(d)")
Console.WriteLine("Opcion Salir.....(z)")
Try
'Ingreso de la opcion
Opcion = Console.ReadKey.KeyChar
Console.Clear()
Select Case Opcion
Case"s"
Console.Writeline("Opcion seleccionada fue Suma")
Console.Write("Ingrese primer numero: ")
x =Console.ReadLine()
Console.Write("Ingrese segundo numero: ")
y =Console.ReadLine()
z=x+y
Console.WriteLine("Resultado de la suma es: " & z)
Case "r"
Console.WriteLine("Opcion seleccionada fue Resta")
Console.Write("Ingrese primer numero: ")
x =Console.ReadLine()
Console.Write("Ingrese segundo numero: ")
y =Console.ReadLine()
z=x-y
Console.WriteLine("Resultado de la resta es: " & z)
Case "m"
Console.WriteLine("Opcion seleccionada fue Multiplicacion")
Console.Write("Ingrese primer numero: ")
x =Console.ReadLine()
Console.Write("Ingrese segundo numero: ")
y =Console.ReadLine()
z=x*y
Console.WriteLine("Resultado de la multiplicacion es"& z)
Case"d"
Console.WriteLine("Opcion seleccionada fue Division")
Console.Write("Ingrese primer numero: ")
x =Console.ReadLine()
Console.Write("Ingrese segundo numero: ")
y =Console.ReadLine()
If y <> 0 Then
z = x / y
Console.WriteLine("Resultado de la division es: " & z)
ElseIf y = 0 Then
Console.WriteLine("Resultado de la division entre cero no es posible")
End If
Case "z"
Console.Clear()
Console.WriteLine("Gracias por utilizar nuestra plataforma")
Case Else
Console.Clear()
Console.WriteLine("Opcion ingresada no es valida, vuelva a intentar")
End Select
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
If Opcion <> "z" Then Console.WriteLine("Pulse cualquier tecla para regresar al menu")
Console.ReadKey()
End While
End Sub
End Module
[pic 2]
Programa de una calculadora en modo grafico VB
Public Class Form1
Dim num1, num2, suma, resta, multi, division As Decimal
...