User manual

mikroPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
464
Library Example
The example is a simple demonstration of how to use the Sound Library for playing tones on a piezo speaker.
Copy Code To Clipboard
program Sound;
procedure Tone1();
begin
Sound_Play(659, 250); // Frequency = 659Hz, duration = 250ms
end;
procedure Tone2();
begin
Sound_Play(698, 250); // Frequency = 698Hz, duration = 250ms
end;
procedure Tone3();
begin
Sound_Play(784, 250); // Frequency = 784Hz, duration = 250ms
end;
procedure Melody(); // Plays the melody “Yellow house”
begin
Tone1(); Tone2(); Tone3(); Tone3();
Tone1(); Tone2(); Tone3(); Tone3();
Tone1(); Tone2(); Tone3();
Tone1(); Tone2(); Tone3(); Tone3();
Tone1(); Tone2(); Tone3();
Tone3(); Tone3(); Tone2(); Tone2(); Tone1();
end;
procedure ToneA(); // Tones used in Melody2 function
begin
Sound_Play( 880, 50);
end;
procedure ToneC();
begin
Sound_Play(1046, 50);
end;
procedure ToneE();
begin
Sound_Play(1318, 50);
end;
procedure Melody2(); // Plays Melody2
var counter : byte;
begin
for counter := 9 downto 1 do
begin
ToneA();
ToneC();
ToneE();