Endlosschleife aber warum?
03.08.2018 13:37:44
Thorsten
mir ist nicht klar warum ich im folgenden Quellcode eine Endlosschleife erhalte.
Ich wollte in einer Schleife die Funktionalität einer Funktion testen.
Diese Funktion liefert zu einer 8-Bit-Zahl die entsprechende Dezimalzahl zurück.
Zielmeldung sollte sein 128 192 224 240 248 252 254 255.
Allerdings erhalte ich eine Endlosschleife.
Ersetze ich im Funktionsaufruf die Zählvariable durch einen festen Wert - dann geht es.
Irgendwas scheint in VBA anders zu sein als in anderen Programmiersprachen.
Vielleicht könnte jemand von Euch drüber schauen.
Vielen Dank & Gruß
Thorsten Geßler
Function getDecimalFromDual(b As Byte) As Byte
Dim faktor As Byte
faktor = 128
getDecimalFromDual = 0
Do While b > 0
getDecimalFromDual = getDecimalFromDual + faktor
faktor = faktor \ 2 'ganzzahlige Division
b = b - 1
Loop
End Function
Sub teste()
Dim ausgabe As String
Dim zaehler As Byte
zaehler = 1
Do While zaehler