CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Duda sobre un metodo de VB 2005

<< < (2/2)

elultimoguerrero:
Ok Boxcarpilot, un módulo lo agregas de esta forma, agregar... módulo, esta función yo la utilizo en este ejemplo como una variable global, es decir, imagínate que tengas 5, 10, 20 ó más formularios donde tengas que convertir numeros a letras, yo este módulo lo delcaro como una variable global, es decir que todos esos 5 módulos la podrán utilizar, lo único que estaría poniendo en cada módulo es el código de la caja de texto a la que le di doble clic, si yo lo hiciera de manera individual tendría que agregar un módulo por cada formulario, obviamente existen otras códigos que hacen este tipo de conversiones pero la verdad no los tengo a la mano, mi programación está orientada a objetos, los formularios, cajas de textos, bases de datos, etc, espero te haya ayudado con tus dudas, seguimos colaborando.

Boxcarpilot:
bueno gracias

mira el punto esq este programa yo la habia hecho ya, pero fue en java, aun lo tengo en java...
pense q pasarlo a VB seria facil... veo q no

No he podido... reprobare pero le pedire alguna orientacion al profesor, gracias por su ayuda amigos


Estoy pasandolo a modo consola, todo bien pero cuando pongo los numeros 101, 201, 301, 1455, no puede realizarse:

--- Código: vb.net --- Module Module1     Sub Main()         Dim Num2 As String        Dim val As Integer        Console.WriteLine(" Conversion de Numeros  ")        Console.WriteLine(" ")        Console.WriteLine("Coloque el Numero a Convertir :")        val = Console.ReadLine()         Select Case val             Case 0 : Num2 = "CERO"             Case 1 : Num2 = "UN"             Case 2 : Num2 = "DOS"             Case 3 : Num2 = "TRES"             Case 4 : Num2 = "CUATRO"             Case 5 : Num2 = "CINCO"             Case 6 : Num2 = "SEIS"             Case 7 : Num2 = "SIETE"             Case 8 : Num2 = "OCHO"             Case 9 : Num2 = "NUEVE"             Case 10 : Num2 = "DIEZ"             Case 11 : Num2 = "ONCE"             Case 12 : Num2 = "DOCE"             Case 13 : Num2 = "TRECE"             Case 14 : Num2 = "CATORCE"             Case 15 : Num2 = "QUINCE"             Case Is < 20 : Num2 = "DIECI" & Num2(val - 10)             Case 20 : Num2 = "VEINTE"             Case Is < 30 : Num2 = "VEINTI" & Num2(val - 20)             Case 30 : Num2 = "TREINTA"             Case 40 : Num2 = "CUARENTA"             Case 50 : Num2 = "CINCUENTA"             Case 60 : Num2 = "SESENTA"             Case 70 : Num2 = "SETENTA"             Case 80 : Num2 = "OCHENTA"             Case 90 : Num2 = "NOVENTA"             Case Is < 100 : Num2 = Num2 & (Int(val  10) * 10) & " Y " & Num2(val Mod 10)             Case 100 : Num2 = "CIEN"             Case Is < 200 : Num2 = "CIENTO " & Num2(val - 100)             Case 200, 300, 400, 600, 800 : Num2 = "Num2" & (Int(val  100)) & "CIENTOS"             Case 500 : Num2 = "QUINIENTOS"             Case 700 : Num2 = "SETECIENTOS"             Case 900 : Num2 = "NOVECIENTOS"             Case Is < 1000 : Num2 = "Num2" & (Int(val  100) * 100) & " " & "Num2" & (val Mod 100)             Case 1000 : Num2 = "MIL"             Case Is < 2000 : Num2 = "MIL " & Num2(val Mod 1000)             Case Is < 1000000 : Num2 = Num2(Int(val  1000)) & " MIL"                 If val Mod 1000 Then Num2 = Num2 & " " & Num2(val Mod 1000)             Case 1000000 : Num2 = "UN MILLON"             Case Else                Console.WriteLine()        End Select         Console.WriteLine(" ")        Console.WriteLine(Num2)        Console.ReadKey()    End Sub End Module 

Navegación

[0] Índice de Mensajes

[*] Página Anterior