Главная страницаОбратная связьКарта сайта
Источник: http://www.otzyvy66.ru/ravnovesie-ooo-meditsinskij-tsentr.html.

Как перевести числовое значение типа Byte в тип Binary



'Например, из 255 получить 11111111 и наоборот?

'Byte -> Binary
Private Sub Command1_Click()
MsgBox sBin(7)
End Sub

Public Function sBin(ByVal b As Byte) As String
Dim i As Integer

For i = 0 To 7
If b And 2 ^ i Then
sBin = 1 & sBin
Else
sBin = 0 & sBin
End If
Next i
End Function


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как перевести числовое значение типа Byte в тип Binary", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info