Test

Aus ProgrammingWiki

Archivierte Version vom 2011-01-21T13:20:36+00:00. Aktuelle Version

procedure leiter;
var i:Integer;
begin
for i := 0 to 10 do 
 sound_play(50+i*2,100);
end;

selectSound(1); // Piano MIDI 
leiter();

var Pi:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i,posx,z:Integer;

canvas_clear();
Pi := '3,14151876391059';

selectSound(19); // 19. MIDI organ
posx:=0;
z:=2*((length(Pi)-2) div 2);
for i := 3 to z+1 do begin
if i mod 2 = 1 then begin
  c := Pi[i];
  k := Pi[i+1];

//Quelltext schreiben
  


canvas_fillRect(posx,80-(key-60)*4,dauer,10);           
  posx := posx + dauer+5;
  sound_play(key,dauer*10);
end; 
end;

Test

Suche