Elegant, elegant mit dem "MOD 10"!

Die folgende Zeile ist allerdings zumindestens bei meinem Bascom ( 1.11.8.8 ) ein Problem (wohl wegen zu vieler Operationen auf einmal):

Code:
qs = qs + zahl MOD 10
Außerdem wird die While-Wend-Schleife wohl nie verlassen werden, denn wie oft man die Variable "Zahl" auch immer durch 10 teilt - sie wird nie kleiner als 0 werden!

Ich habe den Code mal etwas umgestellt und ihn im Simulator mit allen möglichen Zahlen durchprobiert - so funktioniert es:

Code:
...
...
Dim Qs As Byte
Dim Rest As Byte

Qs = 0

While Zahl > 9
 Rest = Zahl Mod 10
 Qs = Qs + Rest
 Zahl = Zahl / 10
Wend

Qs = Qs + Zahl
...
...
(Qs ist auch hier die Quersumme).

Gruß an alle Quersummen-Fans,

Daniel