Programación General > Visual Basic 6.0 e inferiores

 Control Ocx

(1/1)

zamoazul:
hola amigos hace tiempo que ando buscando un control ocx que cambia un numero a su equivalente en letras si alguien lo tiene  por ahi me ayudaria mucho

gracias :D  :D  :D  :D

RadicalEd:
Sin controles OCX.

--- Código: Text ---Private Sub Command1_Click()If IsNumeric(TxtText1) = False ThenMsgBox "Ingrese solo números.", vbInformation, "Atención!"TxtText1.SetFocusElseLabel1.Caption = Numlet(CCur(TxtText1))End IfLabel1.Caption = Numlet(CCur(TxtText1))End Sub ************************************************* Creamos un Módulo y le agregamos el siguiente códgo Option ExplicitDim Unidades$(9), Decenas$(9), Oncenas$(9)Dim Veintes$(9), Centenas$(9) Function Numlet$(NUM#)Dim DEC$, MILM$, MILL$, MILE$, UNID$ReDim SALI$(11)Dim var$, I%, AUX$'NUM# = Round(NUM#, 2)var$ = Trim$(Str$(NUM#))If InStr(var$, ".") = 0 Thenvar$ = var$ + ".00"End If If InStr(var$, ".") = Len(var$) - 1 Thenvar$ = var$ + "0"End Ifvar$ = String$(15 - Len(LTrim$(var$)), "0") + LTrim$(var$)DEC$ = Mid$(var$, 14, 2)MILM$ = Mid$(var$, 1, 3)MILL$ = Mid$(var$, 4, 3)MILE$ = Mid$(var$, 7, 3)UNID$ = Mid$(var$, 10, 3)For I% = 1 To 11: SALI$(I%) = " ": Next I%I% = 0Unidades$(1) = "UNA "Unidades$(2) = "DOS "Unidades$(3) = "TRES "Unidades$(4) = "CUATRO "Unidades$(5) = "CINCO "Unidades$(6) = "SEIS "Unidades$(7) = "SIETE "Unidades$(8) = "OCHO "Unidades$(9) = "NUEVE " Decenas$(1) = "DIEZ "Decenas$(2) = "VEINTE "Decenas$(3) = "TREINTA "Decenas$(4) = "CUARENTA "Decenas$(5) = "CINCUENTA "Decenas$(6) = "SESENTA "Decenas$(7) = "SETENTA "Decenas$(8) = "OCHENTA "Decenas$(9) = "NOVENTA " Oncenas$(1) = "ONCE "Oncenas$(2) = "DOCE "Oncenas$(3) = "TRECE "Oncenas$(4) = "CATORCE "Oncenas$(5) = "QUINCE "Oncenas$(6) = "DIECISEIS "Oncenas$(7) = "DIECISIETE "Oncenas$(8) = "DIECIOCHO "Oncenas$(9) = "DIECINUEVE " Veintes$(1) = "VEINTIUNA "Veintes$(2) = "VEINTIDOS "Veintes$(3) = "VEINTITRES "Veintes$(4) = "VEINTICUATRO "Veintes$(5) = "VEINTICINCO "Veintes$(6) = "VEINTISEIS "Veintes$(7) = "VEINTISIETE "Veintes$(8) = "VEINTIOCHO "Veintes$(9) = "VEINTINUEVE " Centenas$(1) = " CIENTO "Centenas$(2) = " DOSCIENTOS "Centenas$(3) = " TRESCIENTOS "Centenas$(4) = "CUATROCIENTOS "Centenas$(5) = " QUINIENTOS "Centenas$(6) = " SEISCIENTOS "Centenas$(7) = " SETECIENTOS "Centenas$(8) = " OCHOCIENTOS "Centenas$(9) = " NOVECIENTOS " If NUM# > 999999999999.99 Then Numlet$ = " ": Exit FunctionIf Val(MILM$) >= 1 ThenSALI$(2) = " MIL ": '** MILES DE MILLONESSALI$(4) = " MILLONES "If Val(MILM$) <> 1 ThenUnidades$(1) = "UN "Veintes$(1) = "VEINTIUN "SALI$(1) = Descifrar$(Val(MILM$))End IfEnd IfIf Val(MILL$) >= 1 ThenIf Val(MILL$) < 2 ThenSALI$(3) = "UN ": '*** UN MILLONIf Trim$(SALI$(4)) <> "MILLONES" ThenSALI$(4) = " MILLON "End IfElseSALI$(4) = " MILLONES ": '*** VARIOS MILLONESUnidades$(1) = "UN "Veintes$(1) = "VEINTIUN "SALI$(3) = Descifrar$(Val(MILL$))End IfEnd If For I% = 2 To 9Centenas$(I%) = Mid$(Centenas(I%), 1, 11) + " "Next I%If Val(MILE$) > 0 ThenSALI$(6) = " MIL ": '*** MILESIf Val(MILE$) <> 1 ThenSALI$(5) = Descifrar$(Val(MILE$))End IfEnd IfUnidades$(1) = "UNA "Veintes$(1) = "VEINTIUNA"If Val(UNID$) >= 1 ThenSALI$(7) = Descifrar$(Val(UNID$)): '*** CIENTOSIf Val(DEC$) >= 10 ThenSALI$(8) = " CON ": '*** DECIMALESSALI$(10) = Descifrar$(Val(DEC$))End IfEnd IfIf Val(MILM$) = 0 And Val(MILL$) = 0 And Val(MILE$) = 0 And Val(UNID$) = 0 Then SALI$(7) = " CERO "AUX$ = ""For I% = 1 To 11AUX$ = AUX$ + SALI$(I%)Next I%Numlet$ = Trim$(AUX$)End Function Function Descifrar$(numero%)Static SAL$(4)Dim I%, CT As Double, DC As Double, DU As Double, UD As DoubleDim VARIABLE$ For I% = 1 To 4: SAL$(I%) = " ": Next I%VARIABLE$ = String$(3 - Len(Trim$(Str$(numero%))), "0") + Trim$(Str$(numero%))CT = Val(Mid$(VARIABLE$, 1, 1)): '*** CENTENADC = Val(Mid$(VARIABLE$, 2, 1)): '*** DECENADU = Val(Mid$(VARIABLE$, 2, 2)): '*** DECENA + UNIDADUD = Val(Mid$(VARIABLE$, 3, 1)): '*** UNIDADIf numero% = 100 ThenSAL$(1) = "CIEN "ElseIf CT <> 0 Then SAL$(1) = Centenas$(CT)If DC <> 0 ThenIf DU <> 10 And DU <> 20 ThenIf DC = 1 Then SAL$(2) = Oncenas$(UD): Descifrar$ = Trim$(SAL$(1) + " " + SAL$(2)): Exit FunctionIf DC = 2 Then SAL$(2) = Veintes$(UD): Descifrar$ = Trim$(SAL$(1) + " " + SAL$(2)): Exit FunctionEnd IfSAL$(2) = " " + Decenas$(DC)If UD <> 0 Then SAL$(3) = "Y "End IfIf UD <> 0 Then SAL$(4) = Unidades$(UD)End IfDescifrar = Trim$(SAL$(1) + SAL$(2) + SAL$(3) + SAL$(4))End Function PD. Este codigo no es mio lo copie de la web

Ojala te sirva.
Chao

zamoazul:
vale compadre lo probe y me funciono al toque

te pasaste chao :D  :D  :hola:

Navegación

[0] Índice de Mensajes