Ako môžem previesť BCD na desiatkovej Visual Basic ?

Hodnoty Binary Coded Decimal použiť binárny vzorec reprezentujú tieto číslice nula až deväť . Rovnako ako Visual Basic nepoužíva typ BCD dát , to nemá vstavanú funkciu , ktorá prevedie BCD hodnoty desatinných hodnôt . Avšak , môžete naprogramovať svoje vlastné funkcie , ktorá bude prijímať vstup formátovaný ako hodnotu BCD a rozbiť ju na štyri - bitové chrumky , alebo kúsky , a potom previesť tie chrumky na desatinné číslo . Návod dovolená 1

Typ " Public Function BCD_to_int ( ByVal vstup As Long ) " otvorte funkciu . Použite menšie číselný dátový typ namiesto Long aby sa ušetrilo miesto , ak viete , že váš program nebude pracovať s veľkými číslami .
2

zadajte " Dim temp As Integer " a " Dim decNum ako Integer " deklarovať dvoch celých čísel vo vašej funkcii . Zadajte " Dim strNum As String = " " " deklarovať reťazec a inicializovať ju žiadnym textom .
Sims 3

typu " keď nie num = 0 " otvoriť cyklu while , ktorý bude opakovať , kým počet funkcie prijíma stáva nulovú . Typ " For i = 0 To 3 " na ďalšom riadku začať počítanú slučku .
4

typu " temp = num Mod 10 " a " num /= 10 " na nasledujúci riadok . Prvý riadok bude izolovať pravým najviac číslicu BCD a uložiť ju vo svojej " temp " premenné . Ďalší riadok posunie desatinnú čísla BCD na ľavej strane .
5

Typ " Ak temp = 1 Then " otvoriť podmienené kontrolu , ktorá určuje , či váš program potrebuje pridať k hodnote Vaše telefónne číslo desiatkovej . Vzhľadom k tomu stačí iba pridať , keď " temp " sa rovná jednej , neobsahujú " elseif " klauzulu pre temp rovná nule
6

Zadajte nasledujúci kód do vašich " keby " vyhlásenie : .

Ak temp = 1 Potom

ak i = 0 Then

decNum + = 1

ElseIf i = 1 Potom

decNum + = 2

ElseIf i = 2 Potom

decNum + = 4

ElseIf i = 3 Potom

decNum + = 8

End If

End If

Tieto podmienky pridajte príslušnú desatinnú hodnotu vášho celkového založené na ktorý zo štyroch bitov v každom okusovať to kontroluje . " DecNum " premenná bude držať desatinnú hodnotu štyroch - bit okusovať .
7 Typ

" Next i " na ďalšom riadku , informujte svojho " pre " slučky pre presun na ďalšiu číslicu v okusovať . Ak váš program skontroluje všetky štyri bity , bude to spočítali ďalšie číslice vášho desatinné miesto . Typ " strNum = decNum & strNum " pripojiť túto hodnotu na ľavej strane vášho reťazca . Typ " decNum = 0 " a obnovte túto premennú skôr , než budúci iterácii vašej slučky while .
8

typu " End Kým " zatvorte vaše while . Typ " decNum = strNum " vynútiť Visual Basic previesť reťazec drží svoje desatinnú hodnotu na celé číslo a uloží ho do " decNum " premenné . Potom môžete manipulovať tejto premennej podľa potreby . Zadajte " Return decNum " poslať desatinnú hodnotu späť na miesto , kde váš program s názvom svojej funkcie z Zadajte " End Function " zatvorte funkciu .

• Predchádzajúca strana: Ako zastaviť Spustenie Návrat do VBS 
• Ďalšia strana: Ako kompilovať programy v MS Access 2007