OpenOffice.info

Code: Alles auswählen

        For i = Len(binaer) To 1 Step -1
          If Mid(binaer, i, 1) = "1" Then
            Answer = Answer + 2 ^ Potenz
          End If
          Potenz = Potenz + 1
        Next

Code: Alles auswählen

Sub Main
a = "10011011"
i = 0
Do
  x = Left(a, LEN(a)-i)
  x1 = RIGHT(x, 1)
  If CInt(x1) = 1 Then gesamt = gesamt + 2 ^ i
  i = i + 1
Loop While i < LEN(a)
msgbox gesamt
End Sub