Ako previesť binárnu hodnotu v jazyku Visual Basic 6

Vedieť , ako previesť binárne čísla na ich desiatkovej ekvivalent je dôležitá zručnosť učiť sa pri kódovaní v programovacom jazyku , ako je Visual Basic 6 ( VB6 ) . Na rozdiel od desiatkovej sústave , ktorý má číslice od 0 do 9 , binárny systém má iba číslice na 0 a 1. Každé miesto v binárne číslo predstavuje silu 2. Neexistuje žiadne vstavané funkcie pre prevod binárneho čísla reťazec , takže musíte vytvoriť funkciu , ktorá to počíta ručne . Pokyny dovolená 1

Otvorte VB6 zdrojový súbor v editore , ako je napríklad Microsoft Visual Basic 6.
2

Vytvorte funkciu , ktorá bude previesť binárne číslo na desiatkovej sústave pridaním kód :

Public Function ConvBinaryToInteger ( byVal MyBinNumber As String ) As Long

Dim n As Integer ,

Dim teploty tak dlho ,

n = 1 Ak chcete Ľan ( MyBinNumber )

Temp = Temp + Val ( Mid ( MyBinNumber , Ľan ( MyBinNumber ) - n + 1 , 1 ) ) * 2 ^ (n - 1 )

Ďalšie

ConvBinaryToInteger = Temp

End Function

funkcie sa jednotlivé binárne číslice sprava doľava , násobí ju 2 umocnené na príslušnú silu a potom dodáva , že hodnotu kumulatívny súčet . Napríklad , " 110 " je spracovaný ako " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 " .
3

Uložte binárne číslo , ktoré chcete previesť na reťazec pridaním kódu :

Dim binstr As String = " 110 " ;
4

Volanie funkcie previesť binárnu hodnotu , pridaním kódu :

Dim výsledok As Long

výsledok = ConvBinaryToInteger ( binstr.Text )

" výsledok " premenná obsahuje hodnotu binárne konverzie , čo v tomto príklade je 6.

5

Uložte súbor VB6 , skompilovať a spustiť program pre prevod na binárnu hodnotu .

• Predchádzajúca strana: Ako zarábať na prvé meno v VB 2008 
• Ďalšia strana: Ako urýchliť VBA kódu