wenas como estan, eh estoy empesando a ver visual basic, pero por ahora estoy viendo en modo consola y weno stava asiendo unos ejemplos para poder ver algunas cosillas y me tope con un problema es sobre Console.Clear, tengo entendido que para limpiar la pantalla ok, pero al utilizar el Console.Clear, me limpia lo que queda de arriba y solo me deja lo que hay debajo de Consolo.Clear y no es lo que deseo weno lo que queria hacer era esto.
(http://img222.imageshack.us/img222/3697/sinttulojl.th.png) (http://img222.imageshack.us/i/sinttulojl.png/)
como veran por cada operacion que realizo, ¿pregunta si desea probar con otra operacion si al darle Si entonces que me limpie la operacion realizada anteriormente y que el cursor se posicione en donde Seleccione Opcion: stava viendo la ayuda pero no logro hacerlo si alguien me puede orientar seria de gran ayuda...
Module Module1
Sub Main()
Dim Num1 As Integer, Num2 As Integer
Dim Opcion As Integer, Resultado As Double
Console.ForegroundColor = ConsoleColor.Red : System.Console.WriteLine("")
System.Console.WriteLine(" Operaciones de Matematicas Básicas")
System.Console.WriteLine(" ==================================")
System.Console.WriteLine("") : System.Console.WriteLine("") : Console.ResetColor()
Console.ForegroundColor = ConsoleColor.Green
System.Console.WriteLine(" [1] Suma")
System.Console.WriteLine(" [2] Resta")
System.Console.WriteLine(" [3] Multiplicación")
System.Console.WriteLine(" [4] División")
System.Console.WriteLine(" [5] Potencia")
System.Console.WriteLine(" [6] Salir")
Console.ResetColor() : System.Console.WriteLine("") : System.Console.WriteLine("")
System.Console.Write(" Seleccione Opción: ") : Console.ForegroundColor = ConsoleColor.Green : Opcion = Console.ReadLine : Console.ResetColor()
System.Console.WriteLine("") : System.Console.WriteLine("")
Select Case Opcion
Case 1
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Suma |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Sumando 1: ") : Num1 = Console.ReadLine
System.Console.Write(" Sumando 2: ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 + Num2)
System.Console.Write(" La suma es :" & Str(Resultado))
Case 2
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Resta |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Minuendo : ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Sustraendo: ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 - Num2)
System.Console.Write(" La diferencia es :" & Str(Resultado))
Case 3
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Multiplicación |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Multiplicando : ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Multiplicador : ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 * Num2)
System.Console.Write(" El Producto es :" & Str(Resultado))
Case 4
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de División |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Dividendo: ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Divisor : ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 / Num2)
System.Console.Write(" El Cociente es :" & Str(Resultado))
Case 5
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Potencia |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Base : ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Exponente : ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 ^ Num2)
System.Console.Write(" La Potencia es :" & Str(Resultado))
Case 6
If MsgBox("Esta seguro que desea sali??", MsgBoxStyle.Question + vbYesNo, "Operaciones Matematicas") = 6 Then
End
End If
Case Else
MsgBox("El número ingresado esta fuera del rango", MsgBoxStyle.Critical, "Operaciones Aritmeticas")
End Select
System.Console.ReadLine()
End Sub
End Module
y si creas una funcion que imprima el menu y la llamas despues del Console.clear?
xD si tenia pensado hacer asi, pero queria saber si hay de otra forma de todas maneras gracias por tu respuesta...
Slu2...