DECLARE SUB Piano_Speler () SUB Piano_Speler () STATIC Sc() AS Sekwenstype STATIC tik AS DWORD STATIC cnt AS DWORD IF ISFALSE Task(%pp_taak).tog THEN tik = 0 cnt = 0 REDIM Sc(1) AS STATIC Sekwenstype controller 0, 7, 120 'progchange 0,122 'player piano logos Task(%pp_taak).tog = %True Task(%pp_taak).Har.vel = NUL$(128) END IF SELECT CASE lukascompositie_deel CASE 2 Task(%pp_taak).Har.vel = SumHar (Task(%thorvaldsen_a).Har, Task(%thorvaldsen_b).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_c).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_d).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_e).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_f).Har) CASE 1 Task(%pp_taak).Har.vel = SumHar (Task(%edison_a).Har, Task(%edison_b).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%edison_c).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%edison_d).Har) CASE 3 task(%pp_taak).har.vel = SumHar (Task(%pp_taak).Har, Task(%rommel).Har) CASE 4 task(%pp_taak).har.vel = sumhar (task(%sonate_s_r).har, task(%sonate_s_l).har) END SELECT PlayHar Task(%pp_taak).Har, 0 IF Task(%pp_taak).Har.vel <> Sc(cnt).Har.vel THEN Sc(cnt).Har = Task(%pp_taak).Har Sc(cnt).tik = tik INCR cnt REDIM PRESERVE Sc(cnt) END IF INCR tik Task(%pp_taak).Har.vel = NUL$(128) Task(%pp_taak).freq = 1000 END SUB