? Binary Coded Decimal valeurs utiliser un modèle binaire pour représenter les chiffres de zéro à neuf . En Visual Basic n'utilise pas le type de données BCD , il n'a pas de fonction intégrée qui convertit valeurs BCD en valeurs décimales . Cependant , vous pouvez programmer votre propre fonction qui va accepter l'entrée sous forme de valeur BCD et le diviser en grignote quatre bits , ou des morceaux , et ensuite convertir ces amuse-gueules à un nombre décimal. Instructions
1

type " BCD_TO_INT de la fonction publique ( entrée ByVal As Long ) " pour ouvrir votre fonction . Utilisez un plus petit type de données numérique à la place de Long pour économiser l'espace si vous savez que votre programme ne fonctionnera pas avec un grand nombre .
2

type "temp As Integer » et « As Integer decNum " à déclarer deux entiers dans votre fonction . Tapez " strNum As String = " "" de déclarer une chaîne et l'initialiser avec aucun texte .
3 Type de

" While Not num = 0 " pour ouvrir une boucle while qui se répète jusqu'à ce que le numéro de la fonction reçoit devient nulle. Tapez " For i = 0 To 3" sur la ligne suivante pour commencer une boucle comptés.
4

type "temp = num Mod 10" et " num /= 10" sur la ligne suivante . La première ligne va isoler le plus à droite chiffres du nombre BCD et le stocker dans votre variable " temp" . La ligne suivante décalera la décimale du nombre BCD vers la gauche.
5

Tapez " Si temp = 1 Then " pour ouvrir un chèque conditionnelle qui détermine si votre programme a besoin d'ajouter de la valeur de votre nombre décimal. Puisque vous suffit d'ajouter quand "temp" est égal à un , ne pas inclure une clause " elseif " pour la température zéro égale
6

Tapez le code suivant dans votre " If" : .

Si temp = 1 Then

Si i = 0 Then

decNum + = 1

ElseIf i = 1 alors

decNum + = 2 Photos

ElseIf i = 2 alors

decNum + = 4

ElseIf i = 3 Ensuite

decNum + = 8

End If Photos

End If

Ces conditions ajoutent de la valeur décimale appropriée à votre total sur la base duquel des quatre bits dans chaque quartet , il vérifie . La variable " decNum " tiendra la valeur décimale du quartet quatre bits.
7 Type de

"Next i " sur la ligne suivante de dire à votre boucle "for" pour passer au chiffre suivant le quartet . Lorsque votre programme a vérifié tous les quatre bits , il aura calculé le chiffre suivant de votre décimal. Tapez " strNum = decNum & strNum " pour ajouter cette valeur sur le côté gauche de votre chaîne. Tapez " decNum = 0 » pour remettre cette variable avant la prochaine itération de la boucle while.
8

type " End While " pour fermer la boucle While. Tapez " decNum = strNum " pour forcer Visual Basic pour convertir la chaîne en tenant votre valeur décimale dans un Integer et le stocker dans la variable " decNum " . Vous pouvez ensuite manipuler cette variable selon les besoins. Tapez " decNum de retour " pour envoyer la valeur décimale à l'endroit où votre programme appelé votre fonction à partir . Tapez " End Function " pour fermer la fonction.