Da momentan in diesem Forum wenig los ist, möchte ich ein kleines Programm einstellen. Der Sinn ist zwar nicht gerade bedeutsam, aber vielleicht kann es einer brauchen. Mein von einem Windrad gefütterten Impulszähler soll nach 100 Impulsen und nach 1000 Impulsen jeweils eine kleine Melodie abspielen.

Hier das Programm:

‚Impulszähler-Melodienspieler

#picaxe08m2

main:
count c.3,1000,b0
w1 = w1 + b0
if w1 >= 99 then
w2 = w2 + w1
goto piep1
endif
goto main

piep1:
w1 = 0
tune 0,3,($10,$11,$12,$13,$14,$15)
if w2 >= 999 then
goto piep2
endif
goto main

piep2:
w2 = 0
tune 0,3,($15,$14,$13,$12,$11,$10,$05,$05)
goto main