- Le fichier zip contient buzzer.dpr qui est un mini piannoteur avec 3 gammes(do5->si7)
- Cependant il m'est arrivé de vouloir faire une petite musique d'anniversaire,il est fallacieux de rechercher les notes et le rythme ! ! Alors si vous n'avez pas l'oreille musicale, voici ma procedure :
-
- procedure Anniv;
- begin
- while(true) do begin
- windows.Beep(1046,250);windows.Beep(1046,250);
- windows.Beep(1175,500);windows.Beep(1046,500);
- windows.Beep(1397,500);windows.Beep(1318,1000);
- windows.Beep(1046,250);windows.Beep(1046,250);
- windows.Beep(1175,500);windows.Beep(1046,500);
- windows.Beep(1568,500);windows.Beep(1397,1000);
- windows.Beep(1046,250);windows.Beep(1046,250);
- windows.Beep(2093,500);windows.Beep(1760,500);
- windows.Beep(1397,500);windows.Beep(1318,500);
- windows.Beep(1175,1000);Windows.Beep(1868,250);
- Windows.Beep(1868,250);Windows.Beep(1760,500);
- Windows.Beep(1397,500);Windows.Beep(1568,500);
- Windows.Beep(1397,1500);
- end;end;
Le fichier zip contient buzzer.dpr qui est un mini piannoteur avec 3 gammes(do5->si7)
Cependant il m'est arrivé de vouloir faire une petite musique d'anniversaire,il est fallacieux de rechercher les notes et le rythme ! ! Alors si vous n'avez pas l'oreille musicale, voici ma procedure :
procedure Anniv;
begin
while(true) do begin
windows.Beep(1046,250);windows.Beep(1046,250);
windows.Beep(1175,500);windows.Beep(1046,500);
windows.Beep(1397,500);windows.Beep(1318,1000);
windows.Beep(1046,250);windows.Beep(1046,250);
windows.Beep(1175,500);windows.Beep(1046,500);
windows.Beep(1568,500);windows.Beep(1397,1000);
windows.Beep(1046,250);windows.Beep(1046,250);
windows.Beep(2093,500);windows.Beep(1760,500);
windows.Beep(1397,500);windows.Beep(1318,500);
windows.Beep(1175,1000);Windows.Beep(1868,250);
Windows.Beep(1868,250);Windows.Beep(1760,500);
Windows.Beep(1397,500);Windows.Beep(1568,500);
Windows.Beep(1397,1500);
end;end;