17 Сентябрь 2008

Перевод из двоичной системы в десятичную

Арифметика |  Таги: , ,

Перевод из двоичной системы в десятичную

Option Explicit
Dim i As Long
'Проверку вводимых значений сами сделаете

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

Private Sub Command1_Click()
    Text2.Text = BinToDex(Text1.Text)
End Sub


Оставить комментарий

Я не робот.