Hallo zusammen,

will mich auch mal wieder melden.
Nachdem mein Melodienspieler etwas langweilig geworden ist, weil er immer die gleiche Melodie abspielte, habe ich mir überlegt, wie man eine Melodie erzeugen kann, die quasi per Zufall entsteht. So habe ich den Befehl "Random" benutzt. Sicherlich gibt es eine einfachere Möglichkeit so etwas zu programmieren. Aber es funktioniert.

Grüße Harry

Hier das Programm:

'Zufallsmelodie

#picaxe 08m2
main:

count c.3,1000,b0
debug
w1 = w1 + b0
if w1 >= 99 then
goto Melodie
endif
goto main

Melodie:

let w0=time
random w0

w0 = w0
b3 = b0//10+1

random b0
b4 = b0//10+1

random b0
b5 = b0//10+1

random b0
b6 = b0//10+1

random b0
b7 = b0//10+1

random b0
b8 = b0//10+1

random b0
b9 = b0//10+1

random b0
b10 = b0//10+1

random b0
b11 = b0//10+1

random b0
b12 = b0//10+1

random b0
b13 = b0//10+1

random b0
b14 = b0//10+1

tune 0,3,(b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14)
w0=0
w1=0
goto main