home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / win_lrn / sound / muzic.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-08-11  |  902 b   |  38 lines
  1. #include <windows.h>
  2.  
  3. int PASCAL WinMain( hInstance, hPrevInstance, lpszCmdLine, cmdShow )
  4. HANDLE hInstance, hPrevInstance;
  5. LPSTR  lpszCmdLine;
  6. int    cmdShow;
  7. {
  8.  
  9.   int     i, j, q;
  10.  
  11.   MessageBox( GetFocus(), (LPSTR)"orginal", (LPSTR)"Sound routine", MB_OK);
  12.  
  13.    OpenSound();
  14.    q=SetVoiceQueueSize(1,192);
  15.    for (i=0; i < 60 ; i++) {  /* change frequency */
  16.       for (j=0; j < 6 ; j++) {  /* change duration */
  17.          SetVoiceSound(q,(LONG)440+(i*2),j);
  18.          StartSound();
  19.          WaitSoundState(QUEUEEMPTY);
  20.       }
  21.    }
  22.    CloseSound();
  23.  
  24.   MessageBox( GetFocus(), (LPSTR)"Excel macro", (LPSTR)"Sound from", MB_OK);
  25.  /* excel music macro */
  26.   OpenSound();
  27.   SetVoiceAccent(1,(LONG)100,255,0,0);
  28.   q=SetVoiceQueueSize(1,400);
  29.   SetVoiceNote(q,45,16,0); /* G# */
  30.   StartSound();
  31.   WaitSoundState(QUEUEEMPTY);
  32.   CloseSound();
  33.  
  34.   StopSound();
  35.   return 0;
  36. }
  37.  
  38.