у меня через очередь сделано, обозначение нот по-американски
С4-нота До первой октавы /
#define ShopenBeepTemp (2000)
#define ShopenBeepPause (500)
BeepNoteStart(s, ShopenBeepTemp/4 ,BeepB3); BeepNoteStart(s, ShopenBeepPause/4 ,0);// си 1/4
BeepNoteStart(s,3*ShopenBeepTemp/16,BeepB3); BeepNoteStart(s,3*ShopenBeepPause/16,0);// си 3/16
BeepNoteStart(s, ShopenBeepTemp/16,BeepB3); BeepNoteStart(s, ShopenBeepPause/16,0);// си 1/16
BeepNoteStart(s, ShopenBeepTemp/4 ,BeepB3); BeepNoteStart(s, ShopenBeepPause/4 ,0);// си 1/4
BeepNoteStart(s,3*ShopenBeepTemp/16,BeepD4); BeepNoteStart(s,3*ShopenBeepPause/16,0);// ре 3/16
BeepNoteStart(s, ShopenBeepTemp/16,BeepC4); BeepNoteStart(s, ShopenBeepPause/16,0);// до 1/16
BeepNoteStart(s,3*ShopenBeepTemp/16,BeepC4); BeepNoteStart(s,3*ShopenBeepPause/16,0);// до 3/16
BeepNoteStart(s, ShopenBeepTemp/16,BeepB3); BeepNoteStart(s, ShopenBeepPause/16,0);// си 1/16
BeepNoteStart(s,3*ShopenBeepTemp/16,BeepB3); BeepNoteStart(s,3*ShopenBeepPause/16,0);// си 3/16
BeepNoteStart(s, ShopenBeepTemp/16,BeepB3); BeepNoteStart(s, ShopenBeepPause/16,0);// си 1/16
BeepNoteStart(s, ShopenBeepTemp/2 ,BeepB3); BeepNoteStart(s, ShopenBeepPause/2 ,0);// си 1/2
/