Bien yo uso C# , PHP , HTML, SQL , Vidual Basic.Net, UniData, ETK Colleague Studio y ahora reciente me introdusco en Object C. Saludos a todos ...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
using System;
namespace millon
{
class Program
{
static void Main(string[] args)
{
string ou;
do
{
//Declarar las variables a usar
Console.Clear();
double balance = 0;
int anos = 0;
//Encabezado....
Console.ForegroundColor = ConsoleColor.Green;
Console.WriteLine("| Determinar los anos requeridos para llegar a ser millonario |");
Console.WriteLine("***********************************************************************");
Console.WriteLine();
Console.WriteLine(" *NOTA* ");
Console.WriteLine(" Calculo realizado utilizando: ");
Console.WriteLine(" Deposito Inicial : #,###,###,## ");
Console.WriteLine(" APR de 7% anual. ");
Console.WriteLine(" -------------------------------- ");
Console.WriteLine("Entre la cantidad de deposito, luego presione 'Enter' para calcular. ");
Console.WriteLine("--------------------------------");
//Entrada de Datos
Console.WriteLine("Entre la cantidad del deposito:");//Entrar cantidad de balance
balance = Int32.Parse(Console.ReadLine());
Console.WriteLine("--------------------------------");
//Loops para contar los anos ...
while (balance < 1000000)
{
balance = balance + (0.07 * balance);//calculo
anos = anos + 1;//counter
}
//Salida . imprimir en pantalla la cantidad de anos necesarios ....
Console.WriteLine(" En " + anos + " anos usted tendra la cantidad de $1 millon de dolares.");
Console.WriteLine();
Console.WriteLine("***********************************************************************");
Console.WriteLine();
Console.WriteLine("| Desea salir del programa si o no ?? (S/N) |");
ou = Console.ReadLine();
} while (ou == "n" || ou == "N");
}
}
}
Private Sub btnyear_Click(...) Handles btnYears.Click
' Calcular la cantidad de anos requeridos para llegar a $ 1 millon
Dim balance As Double, num_anos As Integer
balance = CDbl(txtbalance.Text)
Do While balance < 1000000
balance += 0.08 * balance
num_anos += 1
Loop
txttiempo.Text = "En " & num_anos & " anos usted tendra valor futuro de 1000000."
End Sub