Fehler in Bascom rnd()?

Kurt Gast #2712823 
Hallo,

ich habe für einen ATTiny13 ein kleines Programm in Bascom geschrieben, 
das einfach die 3 LEDs einer RGB-LED eine Sekunde ein- und 
zufallsgesteuert  per rnd() zwischen 0 und 10 Sekunden ausschalten soll. 
Das ganze ist einfach nur zu Testzwecken fix zusammengeschrieben.

Funktioniert soweit ganz gut, nur hängt sich das Programm regelmäßig 
nach dem 6. Aufruf von a=rnd(10) auf.

1
$regfile = "attiny13.dat"

2


3
$hwstack = 36

4
$swstack = 5

5
$framesize = 16

6


7


8
$crystal = 128000

9


10
Config Portb = Output

11
Dim A As Word

12


13
Rot Alias Portb.2

14
Gruen Alias Portb.1

15
Blau Alias Portb.0

16


17
Do

18


19


20
Portb = 7

21
Gosub Warten_an

22
Portb = 0

23
Gosub Warten_aus

24


25
Portb = 5

26
Gosub Warten_an

27
Portb = 0

28
Gosub Warten_aus

29


30
Portb = 6

31
Gosub Warten_an

32
Portb = 0

33
Gosub Warten_aus

34


35


36
Portb = 3

37
Gosub Warten_an

38
Portb = 0

39
Gosub Warten_aus

40


41
Portb = 7

42
Gosub Warten_an

43
Portb = 0

44
Gosub Warten_aus

45


46
Blau = 1

47
Gosub Warten_an

48
Blau = 0

49
Gosub Warten_aus

50


51
Gruen = 1

52
Gosub Warten_an

53
Gruen = 0

54
Gosub Warten_aus

55


56


57
Rot = 1

58
Gosub Warten_an

59
Rot = 0

60
Gosub Warten_aus

61


62
Loop

63


64
Warten_an:

65
Wait 1

66
Return

67


68
Warten_aus:

69
A = Rnd(10)

70
Wait A

71
Return


Das ist also wirklich nichts spektakuläres und soweit ich das 
überblicken kann, auch ohne Fehler im Code ;-).
Aber nach jedem Einschalten ist nach dem Ausschalten der blauen LED 
Schluss. Kann das jemand von Euch nachvollziehen?
Wenn ich A=rnd(10) auskommentiere und durch einen festen Wert ersetze 
läuft das Programm durch.
Vermute, dass rnd() Müll auf dem Stack "zurücklässt" und dass sich der 
Tiny dann aufhängt....

Gruß
Kurt
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke
spess53 Gast #2712829 
Hi

>Vermute, dass rnd() Müll auf dem Stack "zurücklässt" und dass sich der
>Tiny dann aufhängt....

Unwahrscheinlich. Was passiert bei einem WAIT A, wenn A = 0 ist?

MfG Spess
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 14 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.