1
Type " BCD_TO_INT Función Pública (entrada ByVal As Long ) " para abrir la función. Utilice un tipo más pequeño de datos numéricos en vez de largo para ahorrar espacio , si usted sabe que su programa no funcionará con grandes números.
2
Tipo "temp Dim As Integer " y " decNum Dim como entero " para declarar dos enteros en la función . Tipo " strNum dévil como secuencia =" "" para declarar e inicializar una cadena sin el texto .
3
Type " Mientras no num = 0 " para abrir un bucle while que se repetirá hasta que el número de la función recibe se convierte en cero . Tipo " For i = 0 a 3 " en la línea siguiente para comenzar un bucle contado .
4
Tipo "temp = num Mod 10 " y " num /= 10 " en la siguiente línea . La primera línea aislar el dígito del extremo derecho del número BCD y almacenarlo en la variable " temp" . La siguiente línea se desplazará el decimal del número BCD a la izquierda .
5
Type " Si temp = 1 Then" para abrir una comprobación condicional que determina si su programa tiene que añadir al valor de su número decimal. Dado que sólo se necesita agregar al " temp" es igual a uno , no incluya una cláusula de " elseif " de temperatura cero equivale
6
Escriba el siguiente código en su " if" : .
Si temp = 1 Entonces
Si i = 0 Entonces
decNum + = 1
ElseIf i = 1 Entonces
decNum + = 2
ElseIf i = 2 Entonces
decNum + = 4
ElseIf i = 3 Entonces
decNum + = 8
End If
End If
Estas condiciones añaden el valor decimal correspondiente al total de su base en cuál de los cuatro bits en cada cuarteto se comprueba . La variable " decNum " tendrá el valor decimal del cuarteto de cuatro bits .
7
Tipo "Next i" en la siguiente línea de decirle a su bucle "for" para pasar al siguiente dígito el mordisco . Cuando el programa ha comprobado todos los cuatro bits , se han calculado el siguiente dígito del decimal. Tipo " strNum = decNum y strNum " para agregar este valor a la izquierda de la cadena . Tipo " decNum = 0 " para restablecer esta variable antes de la próxima versión de su bucle while .
8
Type " End While " para cerrar el bucle While. Tipo " decNum = strNum " para forzar Visual Basic para convertir la cadena que contiene el valor decimal en un número entero y almacenarlo en la variable " decNum " . A continuación, puede manipular esta variable , según sea necesario . Escriba " decNum Return" para enviar el valor decimal de nuevo a donde el programa llamado la función de . Tipo " End Function " para cerrar la función.