Sekundenzähler mit Binärzahlen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Sekundenzähler mit Binärzahlen
von: Stefan
Geschrieben am: 01.06.2002 - 01:44:22

Hallo

In dem folgenden Programm werden die Zahlen von 0 bis 7 Sekunden gezählt. Ich möchte auch, daß in der Spalte neben den Sekunden im Direktfenster die jeweilige Zahl als Binärzahl haben. Er gibt mir immer nur die 7 bei jeder Zahl als Binärzahl aus. Wie kann ich dieses realisieren, daß bei jeder Sekunde die dazugehörige Binärzahl mit angezeigt wird?

Sub Zähler()
Dim Zahl As Double
Dim i As Byte
For i = 0 To 7 Step 1
Application.Wait Now + TimeSerial(0, 0, 1)
Zahl = 7
Debug.Print i, DezimalNachBinär(Zahl)
Next i
End Sub
Function DezimalNachBinär(Zahl As Double) As String
Dim Losgehts As Boolean
Dim Ausgabe As String
Dim Exp As Long
If Zahl <= (2 ^ 31) - 1 And Zahl = Int(Zahl) Then
For Exp = 30 To 0 Step -1
If Zahl >= (2 ^ Exp) Then
Ausgabe = Ausgabe & "1"
Zahl = Zahl - (2 ^ Exp)
Losgehts = True
Else
If Losgehts = True Then
Ausgabe = Ausgabe & "0"
End If
End If
Next Exp
Else
End If
DezimalNachBinär = Ausgabe
End Function

Danke im voraus


nach oben   nach unten

Re: Sekundenzähler mit Binärzahlen
von: jinx
Geschrieben am: 01.06.2002 - 07:13:24

Moin, Stefan,

vielleicht liegt der Fehler ja auch nur in den Zeilen

For i = 0 To Step 1
Application.Wait Now TimeSerial(0, 0, 1)
Zahl = 7
Debug.Print i, DezimalNachBinär(Zahl)
'Debug.Print i, DezimalNachBinär(i),
Next i
Du weist dort zwar der Variablen i einen unterschiedlichen Wert zu, Zahl ist aber immer 7...

cu
jinx




 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Inputbox"