lunes, 22 de abril de 2013
Devolución de Vueltos En Visual Basic
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form5 : Form
{
public Form5()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
double monto, cant, cambio, x;
int d20=0, d10=0, d5=0, d1=0, m50=0, m25=0, m10=0, m5=0, m1=0;
monto = Convert.ToDouble(textBox1.Text);
cant = Convert.ToDouble(textBox2.Text);
cambio = cant - monto;
x = cambio;
label12.Text = Convert.ToString(x);
//do
//{
while (x >= 20)
{
d20 = d20 + 1;
x = x - 20.00;
}
while (x >= 10)
{
d10 = d10 + 1;
x = x - 10.00;
}
while (x >= 5)
{
d5 = d5 + 1;
x = x - 5.00;
}
while (x >= 1)
{
d1 = d1 +1;
x = x - 1.00;
}
while (x >= 0.50)
{
m50 = m50 + 1;
x = x - 0.50;
}
while (x >= 0.25)
{
m25 = m25 + 1;
x = x - 0.25;
}
while (x >= 0.10)
{
m10 = m10 + 1;
x = x - 0.10;
}
while (x >= 0.05)
{
m5 = m5 + 1;
x = x - 0.05;
}
x = Convert.ToDouble(System.Math.Round(Convert.ToDecimal(x), 2));
while (x >= 0.01)
{
m1 = m1 + 1;
x = x - 0.01;
x = Convert.ToDouble(System.Math.Round(Convert.ToDecimal(x), 2));
}
//}
//while (x > 0);
label3.Text = Convert.ToString(d20);
label4.Text = Convert.ToString(d10);
label5.Text = Convert.ToString(d5);
label6.Text = Convert.ToString(d1);
label7.Text = Convert.ToString(m50);
label8.Text = Convert.ToString(m25);
label9.Text = Convert.ToString(m10);
label10.Text = Convert.ToString(m5);
label11.Text = Convert.ToString(m1);
label12.Text = Convert.ToString(x);
}
private void Form5_Load(object sender, EventArgs e)
{
}
}
}
Suscribirse a:
Comentarios de la entrada (Atom)
No hay comentarios.:
Publicar un comentario