¿Cómo puedo convertir a BCD Decimal Visual Basic

? Valores decimal codificado a binario utilizar un patrón binario para representar los dígitos del cero al nueve. En Visual Basic no utiliza el tipo de datos BCD , que no tiene una función incorporada que convierte los valores BCD en valores decimales . Sin embargo, usted puede programar su propia función que acepte de entrada formateado como un valor BCD y dividirlo en cuatro nibbles bits, o trozos , y luego convertir esos mordiscos a un número decimal. Instrucciones
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.