Programa de conversión digital de monedas chinas en mayúsculas entre vb y TXT
Los anteriores son los eventos de teclado del cuadro de texto.
Si el código clave = 13, entonces
Ingrese 13. Cuando se presiona la tecla Enter, se realizarán las siguientes acciones.
Texto 2. Text = DaXie(Text1.Text)
Llame a la función que convierte chino a mayúsculas.
Terminará si...
Finalizar conector
Función pública DaXie(txtJE As Double) como cadena
Ir a en caso de error err1
' Dim I As Long 'Variable de bucle
Dim K As Long almacena el número de ciclos de bits enteros.
Dim NC As String "Para ingresar cantidad"
"Dim chrNum As String" almacena el número extraído de la cadena.
Dim c1 As String 'Unidad de capital chino
Dim c2 As String 'Esquina china
Dim c3 As String 'Número de capital chino
Dim Zheng como la parte entera de la cadena
' Dim Xiao As String 'La parte decimal
NC = Trim(Format(txtJE, " ##0.00 ")' cadena de formato
C1 = "Un millón cien mil yuanes"
C2 = "Minutos angulares"
C3 = "Nueve ocho siete seis cinco cuatro tres dos. 1"
Si NC = 0, entonces 'Si la entrada es cero, la función sale y el valor de retorno es cero.
Daxie = "Zero Yuan Zheng"
Salir de la función
Terminará si...
Daxie = " " p>
Zheng = Medio(NC, 1, (Len(NC) - 3))
Xiao = Medio(NC, (Len(Zheng) + 2), 2)
Si Val(Xiao)& lt& gtentonces 0
Para I = Len(Xiao) es 1 paso-1
chrNum = Mid(Xiao, I, 1)
Si chrNum & lt& gt entonces 0
DaXie = Mid(c2, I, 1)&DaXie
DaXie = Mid(c3, ( Len( c3) - chrNum + 1), 1) & Daxie
Otro
Si I = 1, entonces
Daxie="zero "& Daxie
Terminará si...
Terminará si...
Siguiente yo
Terminará si...
K = 0
Si Val(Zheng)& lt& gtentonces 0
Daxie="Yuan" y Daxie
Para I = Len( Zheng) es 1 paso - 1
Si (Len(Zheng) - I) = 4, entonces
Si Val(Mid(Zheng, Len(Zheng) - 4, 1) ) = 0 y _
Mid(大槭, 1, 1)< 1)<& gt¿Qué pasa con "Yuan"?
Daxie="zero"&Daxie
Si... terminará
Si Len( Zheng)>Entonces = 9
Si Val(Mid(Zheng, Len(Zheng) - 7, 4)) = 0, entonces
Daxie = Daxie
Otros
Daxie= "Wan" & Daxie
Terminará si...
Otros
Daxie= "Wan" & Daxie
Terminará si...
Entonces ElseIf (Len(Zheng) - I) = 8
Si Val(Mid(Zheng , Len(Zheng) - 8, 1)) = 0 y _
Medio(Daxie, 1, 1)< & gt"zero" y _
Mid( Daxie, 1, 1)<& gt¿Qué pasa con "Yuan"
Daxie="zero"&Daxie
Terminará si...
Daxie = "Billion"&Daxie
ElseIf (Len(Zheng) - I) = 12 entonces
Si Val(Mid (Zheng, Len(Zheng) - 12, 1)) = 0 y _
Mid(大樭, 1, 1)< )<& gt¿Qué pasa con "Yuan"?
Terminará si...
Daxie= " Wan" & Daxie
Terminará si...
chrNum = Mid(Zheng, I, 1)
Si chrNum & lt& gtentonces 0
Si I = Len(Zheng) entonces
DaXie = Medio(c3, (Len(c3) - chrNum + 1), 1)&Daxie
Otro
if(Len(Zheng)-I)& lt; & gt4和_
(Len(Zheng)-I)& lt;& gt8和_
(Len(Zheng)-I)& lt;& gtEntonces 12
Daxie = Medio(c1, (Len(c1)-K), 1)&
& DaXie
Terminará si...
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1)& DaXie
Terminará si...
Otros
If Mid (Daxie, 1, 1)<& gt"元"和_
Mid(大槭, 1, 1)<& gt"Wan" y _
Mid(大槭, 1, 1)<& gt Entonces mil millones
Si Mid(大槭, 1, 1)<& gtentonces "cero"
大槭="zero"&大槭
Si... terminará
Terminará si...
Terminará si...
K = K + 1
Siguiente yo
Es terminará si...
Si es correcto (Recortar (Daxie), 1)<& gtentonces "dividir"
Daxie=Daxie & amp "entero"
Terminará si...
Salir de la función
err1:
MsgBox "El número que ingresaste es demasiado largo o está en otros formatos", "Mensaje:"
Finalizar función