Fachbereich Informatik

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T12:48:49+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 Lied:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i:Integer;

       'D-4 E-1 F-4 F-4 F-4 F-4 F-4 E-4 E-4 '+
       'E-8 E-8 E-4 D-4 D-4 E-4 D-2 G-2';