Pages

viernes, 4 de enero de 2013

Algoritmo para Convertir Números a Letras - Código fuente en Visual Basic

Problema
Desarrollar un programa donde se ingrese un número y lo convierta en letras.
Solución
Esta programa solo acepta números que van desde el  cero al noventa y nueve,  el usuario ingresa un número  y la aplicación retornara  dicho número convertido en letras.
Ejemplo
  - Entrada: 41
  - Salida:  cuarenta y uno.
Código Fuente en Visual Basic
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim Unidades() As String = {"cero", "uno", "dos", "tres", 
        "cuatro", "cinco","seis", "siete", "ocho", "nueve", "diez"}
        Dim Especiales() As String = {"once", "doce", "trece", 
        "catorce","quince","dieciseis", "diecisiete", "dieciocho", 
        "diecinueve"}
        Dim Decenas() As String = {"veinte", "treinta", "cuarenta",                    "cincuenta","sesenta","setenta", "ochenta", "noventa"}
        Dim num, unid, dec As Integer
        num = TextBox1.Text
        If (num >= 0 And num < 11) Then
            Label2.Text = Unidades(num)
        ElseIf (num < 20) Then
            Label2.Text = Especiales(num - 11)
        ElseIf (num < 100) Then
            unid = num Mod 10
            dec = Math.Floor(num / 10)
            If (unid = 0) Then
                Label2.Text = Decenas(dec - 2)
            Else
                Label2.Text = Decenas(dec - 2) + "  y  " + Unidades(unid)
            End If
        Else
            Label2.Text = "El numero debe ser menor a 100"

        End If

    End Sub

   
End Class 

6 comentarios:

dennis murguia dijo...

mmmm funciona??

dennis murguia dijo...

sera q puedes ayudarme en un trabajo

RICARDO ANDRES JAIMES dijo...

Como seria para numeros mayores a 100

campo m dijo...

como seria en codigo c

Anónimo dijo...

yo quiero en sle2

Unknown dijo...

Descargue él archivo .rar pr no se como abrirlo ayudenme porfa

Publicar un comentario en la entrada