VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Библиотека кодов
	Переменные, массивы, числа

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

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

Расположите на форме элемент CommandButton.

'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

VBNet online (всего: 52050)

Логин:
Пароль:
Регистрация, забыли пароль?

В чате сейчас человек

	VBNet рекомендует

Лучшие материалы

ActiveX контролы (112)

Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)

Примеры кода (546)

Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)

Статьи по VB (136)

Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)