lunes, 22 de abril de 2013

Numeros Naturales a Numeros Romanos 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 Form2 : Form
    {
        public Form2()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            textBox2.Text = "";
            int num, x, uni, dec, cen;
            float div;
            String[] Unidad = { "", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX" };
            String[] Decena = { "", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC" };
            String[] Centena = { "", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM" }; 
            num = Convert.ToInt32(textBox1.Text);
            uni = num % 10;
            dec = (num / 10) % 10;
            cen = (num / 100) % 10;
            textBox2.Text = Centena[cen] + Decena[dec] + Unidad[uni];
        }
    }
}

No hay comentarios.:

Publicar un comentario