двоичная система

[Priest]

Допустим что число n 0 десятично, надо его перевести в двоичное по средствам VB 6.0 и наоборот...

[Aleksej]

Попробуй так:

Код: Выделить всё

Private Function ConvertToBinary(ByVal lngQuotient As Long) As String

    Dim strBinary As String
    Dim strReturn As String
    Dim i As Integer

    i = 100
    strBinary = String(i, "0")
   
    Do While lngQuotient
       
        Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2)
       
        lngQuotient = lngQuotient \ 2
       
        i = i - 1
    Loop
    strReturn = Right(strBinary, 100 - i)
       
    ConvertToBinary = strReturn
End Function


[GSerg]

Ого
Зачем буфер большой сразу
Лучше потихонечку

Код: Выделить всё

Private Function Bin(ByVal num As Long) As String
  Dim i As Long
 
  For i = 0 To num
    If 2 ^ i > num Then Exit For
    Bin = IIf(num And 2 ^ i, "1", "0") + Bin
  Next
 
  If Len(Bin) = 0 Then Bin = "0"
End Function

[Priest]

Фенькс за то что быстро ответили, всё отлично, всё работает... переводит из десятичной в двоичну... но всё былобы ещё лучше, еслиб вы предложили и обратную функцию... чтоб из двоичной в десятичную...

[Amed]

'На форме кнопка cmdStart и текстовое поле txtBin
'НЕТ проверки на правильность ввода двоичного числа...

Public Function BinToDex(Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BinToDex = BinToDex + CLng(Mid$(Bin, i, 1)) * 2 ^ (Len(Bin) - i)
Next i
End Function

Private Sub cmdStart_Click()
MsgBox BinToDex(txtBin.Text)
End Sub