Visual Basic.NET - ayuda con el lector de numero en texbox en VB 2012

Val: 13

ayuda con el lector de numero en texbox en VB 2012

Publicado por EVER (7 intervenciones) el 25/09/2017 19:48:55

alguien sabe como podria hacer que el numero que escribo en un texbox me aparesca encreito la cifra que e escrito en el otro texbox

ejemplo texbox1 - 5000

texbox2 - cinco mil

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 5

Val: 481

ayuda con el lector de numero en texbox en VB 2012

Publicado por Miguel (476 intervenciones) el 26/09/2017 06:11:42

Tienes que utlizar el evento TextChanged del primer control (TextBox) para convertir tu entrada a texto y pasarlo al otro control. Esta función te puede servir: https://deployando.net/2012/04/09/c-convertir-numeros-a-letra/

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 185

Val: 13

ayuda con el lector de numero en texbox en VB 2012

Publicado por EVER (7 intervenciones) el 27/09/2017 01:09:32

muchas gracias me sirvio de mucho tu aporte para los que deseen el codigo se los dejo aqui.

Public Function Num2Text(ByVal value As Double) As String

Select Case value

Case 0 : Num2Text = "CERO"

Case 1 : Num2Text = "UN"

Case 2 : Num2Text = "DOS"

Case 3 : Num2Text = "TRES"

Case 4 : Num2Text = "CUATRO"

Case 5 : Num2Text = "CINCO"

Case 6 : Num2Text = "SEIS"

Case 7 : Num2Text = "SIETE"

Case 8 : Num2Text = "OCHO"

Case 9 : Num2Text = "NUEVE"

Case 10 : Num2Text = "DIEZ"

Case 11 : Num2Text = "ONCE"

Case 12 : Num2Text = "DOCE"

Case 13 : Num2Text = "TRECE"

Case 14 : Num2Text = "CATORCE"

Case 15 : Num2Text = "QUINCE"

Case Is < 20 : Num2Text = "DIECI" & Num2Text(value – 10)

Case 20 : Num2Text = "VEINTE"

Case Is < 30 : Num2Text = "VEINTI" & Num2Text(value – 20)

Case 30 : Num2Text = "TREINTA"

Case 40 : Num2Text = "CUARENTA"

Case 50 : Num2Text = "CINCUENTA"

Case 60 : Num2Text = "SESENTA"

Case 70 : Num2Text = "SETENTA"

Case 80 : Num2Text = "OCHENTA"

Case 90 : Num2Text = "NOVENTA"

Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)

Case 100 : Num2Text = "CIEN"

Case Is < 200 : Num2Text = "CIENTO " & Num2Text(value – 100)

Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "CIENTOS"

Case 500 : Num2Text = "QUINIENTOS"

Case 700 : Num2Text = "SETECIENTOS"

Case 900 : Num2Text = "NOVECIENTOS"

Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)

Case 1000 : Num2Text = "MIL"

Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)

Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " MIL"

If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)

Case 1000000 : Num2Text = "UN MILLON"

Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)

Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "

If (value – Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value – Int(value / 1000000) * 1000000)

Case 1000000000000.0# : Num2Text = "UN BILLON"

Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value – Int(value / 1000000000000.0#) * 1000000000000.0#)

Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"

If (value – Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value – Int(value / 1000000000000.0#) * 1000000000000.0#)

End Select

End Function

Valora esta respuesta

Comentar