Как в VB преобразовывать числа в двоичное представление и об

[unreal666]

Как в VB преобразовывать числа в двоичное представление и обратно?

[Александр80]

Функция CDbl преобразует в Double (двойной)

'Создай два текстовых поля и кнопку.
'Cint -Integer (Целый)
'CDbl-Double (двойной)
Dim a , b
Private Sub Command1_Click()
a = 23
b = 7
Text1.Text = CInt(a / b)
Text2.Text = CDbl(a / b)
End Sub

Ты это имел ввиду?

[GSerg]

Михайло... Ты в какой науке силён?..

[Александр80]

CBool- Boolean (булевой)
CByte - Byte (Байты)
Ccur - Currency (Денежный)
Cdate - Date (Дата)
CDbl - Double (двойной)
Cint - Integer (Целый)
CLng - Long (Длинный)
CSng - Singl (Одинарный)
CStr - String (Строковой)
Cvar - Variant (Вариантный)
CVerr - Error (Ошибка)

поэксперемитируй.....

[GSerg]

В зоологии али в механике?..

[Александр80]

GSerg - Вы это кому пишите?

[GSerg]

Если бы Пятигорск вместо "Михайло" использовал "Александр", недопониманий было бы меньше

Человек интересуется переводом в двоичную систему, а не в ... эээ... двойную aka double
Ему нужно 2 10
3 11
4 100
...


А я просто смотрю, и мысли вслух пощу

[Александр80]

Облажался Теперь я понял, что он имел ввиду...

[GSerg]

Э, чё за грустные мысли?

[Александр80]

Блин, самому интересно стало узнать, как это делается... Вот окопал одну ссылку на нашемже сайте:
http://bbs.vbstreets.ru/viewtopic.php?t ... ght=binary

[Александр80]

Переводит значение тз типа Byte (числа от 0 до 255) в тип Binary

Private Sub Command1_Click()
Text2.Text = sBin(Text1.Text)
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

А как еще можно?

[tyomitch]

А как еще можно?

Ещё например так, как показал Zer по ссылке из твоего предыдущего поста.

А твой способ, кстати, будет сильно тормозным из-за возведения в степень.

И ещё, "Binary" - это не тип числа, а его представление. Число м.б. большим либо маленьким, целым либо дробным, и независимо от этого - представленным в любой системе счисления.

[Александр80]

Спасибо, я эт уже понял....

http://bbs.vbstreets.ru/viewtopic.php?t ... ght=binary

Это лучше...