OpenOffice.info

Verfasst: **Do, 15.09.2005 11:25**

Hi,

ich suche eine Möglichkeit wie ich in meinen vorhandenen Code eine Umwandlung von einer Binärzahl zu einer Dezimalzahl machen kann.

Weiss jemand zufällig ob es dazu irgendwo schon einen fertigen Code gibt, den ich übernehmen könnte?

Vielen Dank

Verfasst: **Do, 15.09.2005 14:33**

Weiss jemand zufällig ob es dazu irgendwo schon einen fertigen Code gibt, den ich übernehmen könnte?

Keine Ahnung, ich habe Dir schnell einen Code geschrieben, der gehen sollte:

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

Gruß
Stephan

Verfasst: **Mo, 19.09.2005 10:52**

Ich hab diesen hier jetzt gefunden und verwendet, funktioniert auch problemlos!

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

OpenOffice.info

Binär -> Dezimalrechner

Binär -> Dezimalrechner