Автор:
Алексей Немиро | добавлено: 05.03.2010, 19:33 | просмотров: 4291 (1+) | комментариев:
0 | рейтинг:
x1
Пример функции преобразования десятичного числа в двоичное.
Public Function DecToBin(ByVal DeciValue As Long, Optional ByVal NoOfBits As Integer = 8) As String
Dim i As Integer
Do While DeciValue > (2 ^ NoOfBits) - 1
NoOfBits = NoOfBits + 8
Loop
DecToBin = vbNullString
For i = 0 To (NoOfBits - 1)
DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
Next i
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Число 255 в двоичном виде будет выглядеть так: " & DecToBin(255))
End Sub