Control Ocx

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

SoloCodigo »
Foros »
Programación General »
Visual Basic 6.0 e inferiores (Moderador: F_Tanori) »
Control Ocx

« anterior próximo »

Imprimir

Páginas: [1]

Autor Tema: Control Ocx (Leído 1615 veces)

zamoazul

Nuevo Miembro
Mensajes: 11

Control Ocx

« en: Martes 12 de Abril de 2005, 17:18 »

0

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

RadicalEd

Moderador
Mensajes: 2430
Nacionalidad:

Re: Control Ocx

« Respuesta #1 en: Martes 12 de Abril de 2005, 17:31 »

0

Sin controles OCX.

Código: Text

Private Sub Command1_Click()
If IsNumeric(TxtText1) = False Then
MsgBox &#34;Ingrese solo números.&#34;, vbInformation, &#34;Atención!&#34;
TxtText1.SetFocus
Else
Label1.Caption = Numlet(CCur(TxtText1))
End If
Label1.Caption = Numlet(CCur(TxtText1))
End Sub
 
*************************************************
 
Creamos un Módulo y le agregamos el siguiente códgo
 
Option Explicit
Dim Unidades&#036;(9), Decenas&#036;(9), Oncenas&#036;(9)
Dim Veintes&#036;(9), Centenas&#036;(9)
 
Function Numlet&#036;(NUM#)
Dim DEC&#036;, MILM&#036;, MILL&#036;, MILE&#036;, UNID&#036;
ReDim SALI&#036;(11)
Dim var&#036;, I%, AUX&#036;
'NUM# = Round(NUM#, 2)
var&#036; = Trim&#036;(Str&#036;(NUM#))
If InStr(var&#036;, &#34;.&#34;) = 0 Then
var&#036; = var&#036; + &#34;.00&#34;
End If
 
If InStr(var&#036;, &#34;.&#34;) = Len(var&#036;) - 1 Then
var&#036; = var&#036; + &#34;0&#34;
End If
var&#036; = String&#036;(15 - Len(LTrim&#036;(var&#036;)), &#34;0&#34;) + LTrim&#036;(var&#036;)
DEC&#036; = Mid&#036;(var&#036;, 14, 2)
MILM&#036; = Mid&#036;(var&#036;, 1, 3)
MILL&#036; = Mid&#036;(var&#036;, 4, 3)
MILE&#036; = Mid&#036;(var&#036;, 7, 3)
UNID&#036; = Mid&#036;(var&#036;, 10, 3)
For I% = 1 To 11: SALI&#036;(I%) = &#34; &#34;: Next I%
I% = 0
Unidades&#036;(1) = &#34;UNA &#34;
Unidades&#036;(2) = &#34;DOS &#34;
Unidades&#036;(3) = &#34;TRES &#34;
Unidades&#036;(4) = &#34;CUATRO &#34;
Unidades&#036;(5) = &#34;CINCO &#34;
Unidades&#036;(6) = &#34;SEIS &#34;
Unidades&#036;(7) = &#34;SIETE &#34;
Unidades&#036;(8) = &#34;OCHO &#34;
Unidades&#036;(9) = &#34;NUEVE &#34;
 
Decenas&#036;(1) = &#34;DIEZ &#34;
Decenas&#036;(2) = &#34;VEINTE &#34;
Decenas&#036;(3) = &#34;TREINTA &#34;
Decenas&#036;(4) = &#34;CUARENTA &#34;
Decenas&#036;(5) = &#34;CINCUENTA &#34;
Decenas&#036;(6) = &#34;SESENTA &#34;
Decenas&#036;(7) = &#34;SETENTA &#34;
Decenas&#036;(8) = &#34;OCHENTA &#34;
Decenas&#036;(9) = &#34;NOVENTA &#34;
 
Oncenas&#036;(1) = &#34;ONCE &#34;
Oncenas&#036;(2) = &#34;DOCE &#34;
Oncenas&#036;(3) = &#34;TRECE &#34;
Oncenas&#036;(4) = &#34;CATORCE &#34;
Oncenas&#036;(5) = &#34;QUINCE &#34;
Oncenas&#036;(6) = &#34;DIECISEIS &#34;
Oncenas&#036;(7) = &#34;DIECISIETE &#34;
Oncenas&#036;(8) = &#34;DIECIOCHO &#34;
Oncenas&#036;(9) = &#34;DIECINUEVE &#34;
 
Veintes&#036;(1) = &#34;VEINTIUNA &#34;
Veintes&#036;(2) = &#34;VEINTIDOS &#34;
Veintes&#036;(3) = &#34;VEINTITRES &#34;
Veintes&#036;(4) = &#34;VEINTICUATRO &#34;
Veintes&#036;(5) = &#34;VEINTICINCO &#34;
Veintes&#036;(6) = &#34;VEINTISEIS &#34;
Veintes&#036;(7) = &#34;VEINTISIETE &#34;
Veintes&#036;(8) = &#34;VEINTIOCHO &#34;
Veintes&#036;(9) = &#34;VEINTINUEVE &#34;
 
Centenas&#036;(1) = &#34; CIENTO &#34;
Centenas&#036;(2) = &#34; DOSCIENTOS &#34;
Centenas&#036;(3) = &#34; TRESCIENTOS &#34;
Centenas&#036;(4) = &#34;CUATROCIENTOS &#34;
Centenas&#036;(5) = &#34; QUINIENTOS &#34;
Centenas&#036;(6) = &#34; SEISCIENTOS &#34;
Centenas&#036;(7) = &#34; SETECIENTOS &#34;
Centenas&#036;(8) = &#34; OCHOCIENTOS &#34;
Centenas&#036;(9) = &#34; NOVECIENTOS &#34;
 
If NUM# &#62; 999999999999.99 Then Numlet&#036; = &#34; &#34;: Exit Function
If Val(MILM&#036;) &#62;= 1 Then
SALI&#036;(2) = &#34; MIL &#34;: '** MILES DE MILLONES
SALI&#036;(4) = &#34; MILLONES &#34;
If Val(MILM&#036;) &#60;&#62; 1 Then
Unidades&#036;(1) = &#34;UN &#34;
Veintes&#036;(1) = &#34;VEINTIUN &#34;
SALI&#036;(1) = Descifrar&#036;(Val(MILM&#036;))
End If
End If
If Val(MILL&#036;) &#62;= 1 Then
If Val(MILL&#036;) &#60; 2 Then
SALI&#036;(3) = &#34;UN &#34;: '*** UN MILLON
If Trim&#036;(SALI&#036;(4)) &#60;&#62; &#34;MILLONES&#34; Then
SALI&#036;(4) = &#34; MILLON &#34;
End If
Else
SALI&#036;(4) = &#34; MILLONES &#34;: '*** VARIOS MILLONES
Unidades&#036;(1) = &#34;UN &#34;
Veintes&#036;(1) = &#34;VEINTIUN &#34;
SALI&#036;(3) = Descifrar&#036;(Val(MILL&#036;))
End If
End If
 
For I% = 2 To 9
Centenas&#036;(I%) = Mid&#036;(Centenas(I%), 1, 11) + &#34; &#34;
Next I%
If Val(MILE&#036;) &#62; 0 Then
SALI&#036;(6) = &#34; MIL &#34;: '*** MILES
If Val(MILE&#036;) &#60;&#62; 1 Then
SALI&#036;(5) = Descifrar&#036;(Val(MILE&#036;))
End If
End If
Unidades&#036;(1) = &#34;UNA &#34;
Veintes&#036;(1) = &#34;VEINTIUNA&#34;
If Val(UNID&#036;) &#62;= 1 Then
SALI&#036;(7) = Descifrar&#036;(Val(UNID&#036;)): '*** CIENTOS
If Val(DEC&#036;) &#62;= 10 Then
SALI&#036;(8) = &#34; CON &#34;: '*** DECIMALES
SALI&#036;(10) = Descifrar&#036;(Val(DEC&#036;))
End If
End If
If Val(MILM&#036;) = 0 And Val(MILL&#036;) = 0 And Val(MILE&#036;) = 0 And Val(UNID&#036;) = 0 Then SALI&#036;(7) = &#34; CERO &#34;
AUX&#036; = &#34;&#34;
For I% = 1 To 11
AUX&#036; = AUX&#036; + SALI&#036;(I%)
Next I%
Numlet&#036; = Trim&#036;(AUX&#036;)
End Function
 
Function Descifrar&#036;(numero%)
Static SAL&#036;(4)
Dim I%, CT As Double, DC As Double, DU As Double, UD As Double
Dim VARIABLE&#036;
 
For I% = 1 To 4: SAL&#036;(I%) = &#34; &#34;: Next I%
VARIABLE&#036; = String&#036;(3 - Len(Trim&#036;(Str&#036;(numero%))), &#34;0&#34;) + Trim&#036;(Str&#036;(numero%))
CT = Val(Mid&#036;(VARIABLE&#036;, 1, 1)): '*** CENTENA
DC = Val(Mid&#036;(VARIABLE&#036;, 2, 1)): '*** DECENA
DU = Val(Mid&#036;(VARIABLE&#036;, 2, 2)): '*** DECENA + UNIDAD
UD = Val(Mid&#036;(VARIABLE&#036;, 3, 1)): '*** UNIDAD
If numero% = 100 Then
SAL&#036;(1) = &#34;CIEN &#34;
Else
If CT &#60;&#62; 0 Then SAL&#036;(1) = Centenas&#036;(CT)
If DC &#60;&#62; 0 Then
If DU &#60;&#62; 10 And DU &#60;&#62; 20 Then
If DC = 1 Then SAL&#036;(2) = Oncenas&#036;(UD): Descifrar&#036; = Trim&#036;(SAL&#036;(1) + &#34; &#34; + SAL&#036;(2)): Exit Function
If DC = 2 Then SAL&#036;(2) = Veintes&#036;(UD): Descifrar&#036; = Trim&#036;(SAL&#036;(1) + &#34; &#34; + SAL&#036;(2)): Exit Function
End If
SAL&#036;(2) = &#34; &#34; + Decenas&#036;(DC)
If UD &#60;&#62; 0 Then SAL&#036;(3) = &#34;Y &#34;
End If
If UD &#60;&#62; 0 Then SAL&#036;(4) = Unidades&#036;(UD)
End If
Descifrar = Trim&#036;(SAL&#036;(1) + SAL&#036;(2) + SAL&#036;(3) + SAL&#036;(4))
End Function
 

PD. Este codigo no es mio lo copie de la web

Ojala te sirva.
Chao

El pasado son solo recuerdos, el futuro son solo sueños

zamoazul

Nuevo Miembro
Mensajes: 11

Re: Control Ocx

« Respuesta #2 en: Miércoles 13 de Abril de 2005, 04:19 »

0

vale compadre lo probe y me funciono al toque

te pasaste chao

Imprimir

Páginas: [1]

« anterior próximo »

SoloCodigo »
Foros »
Programación General »
Visual Basic 6.0 e inferiores (Moderador: F_Tanori) »
Control Ocx