Hallo helimike0705,

ich habe mir dein Prog im groben angesehen, ohne die Gesamtfunktion testen zu können. Dazu eine Frage:

Wenn du in diesem Teil ...
Code:
Sek1:
Shift Wert , Left , 4
 Shift Wert , Right , 4
Dual1 = Makedec(wert)
  Gosub Zahlendaten
Shiftout Pinb.0 , Pinb.1 , B1 , 2 , 8 , 1
Return
... die Einzelziffern der Sekunde ausgeben willst (passiert ja dann letztlich über die Bytevariable B1), dann must du ja wohl über B1 die Zehner und Einer der Sekunde nacheinander (abhängig von deiner Hardware) ausgeben, oder?

Dann brauchst du ja auch einen 2-fachen Aufruf von Shiftout ...:
Code:
Sek1:
Dual2 = Makedec(wert)
Dual1 = Dual2
Shift Dual1 , RIGHT , 4 ' Zehner ausgeben
  Gosub Zahlendaten
Shiftout Pinb.0 , Pinb.1 , B1 , 2 , 8 , 1
Dual1 = Dual2 And &b00001111 ' Einer ausgeben
  Gosub Zahlendaten
Shiftout Pinb.0 , Pinb.1 , B1 , 2 , 8 , 1
Return
... oder erst Einer, dann Zehner je nach deiner Hardware-Verschaltung, d.h. davon, ob erst Einer oder Zehner hineingeschoben werden müssen.

Oder habe ich dein Prob ganz falsch verstanden???

Gruß Dirk