Операционная система Microsoft Windows 3.1 для программиста

7.5. Приложение TIMBEEP

Приложение TIMBEEP демонстрирует простейший случай использования таймера.

Главный файл приложения приведен в листинге 7.1.

Листинг 7.1. Файл timbeep\timbeep.cpp

// ----------------------------------------
// Обработка сообщений от таймера
// ----------------------------------------

#define STRICT
#include <windows.h>
#include <mem.h>

BOOL InitApp(HINSTANCE);
LRESULT CALLBACK _export WndProc(HWND, UINT, WPARAM, LPARAM);

char const szClassName[]   = "TIMBEEPAppClass";
char const szWindowTitle[] = "TIMBEEP Application";

// =====================================
// Функция WinMain
// =====================================
#pragma argsused

int PASCAL
WinMain(HINSTANCE hInstance,
        HINSTANCE hPrevInstance,
        LPSTR     lpszCmdLine,
        int       nCmdShow)
{
  MSG  msg;   // структура для работы с сообщениями
  HWND hwnd;  // идентификатор главного окна приложения

  if(!InitApp(hInstance))
      return FALSE;

  hwnd = CreateWindow(
    szClassName, szWindowTitle, 
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT, CW_USEDEFAULT,
    CW_USEDEFAULT, CW_USEDEFAULT,
    0, 0, hInstance, NULL); 

  if(!hwnd)
    return FALSE;

  ShowWindow(hwnd, nCmdShow);
  UpdateWindow(hwnd);

  while(GetMessage(&msg, 0, 0, 0))
  {
    DispatchMessage(&msg);
  }
  return msg.wParam;
}

// =====================================
// Функция InitApp
// =====================================

BOOL
InitApp(HINSTANCE hInstance)
{
  ATOM aWndClass; // атом для кода возврата
  WNDCLASS wc;    // структура для регистрации
                  // класса окна

  memset(&wc, 0, sizeof(wc));
  wc.style         = 0;
  wc.lpfnWndProc   = (WNDPROC) WndProc;
  wc.cbClsExtra    = 0;
  wc.cbWndExtra    = 0;
  wc.hInstance     = hInstance;
  wc.hIcon   = LoadIcon(NULL, IDI_APPLICATION);
  wc.hCursor = LoadCursor(NULL, IDC_ARROW);
  wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
  wc.lpszMenuName  = (LPSTR)NULL;
  wc.lpszClassName = (LPSTR)szClassName;

  aWndClass = RegisterClass(&wc);
  return (aWndClass != 0);
}

Функция WinMain создает главное окно приложения. Функция главного окна (листинг 7.2) будет получать приблизительно раз в секунду сообщение с кодом WM_TIMER.

/Листинг 7.2. Файл timbeep\wndproc.cpp

/ =====================================
// Функция WndProc
// =====================================

#define STRICT
#include <windows.h>

#define BEEP_TIMER 1

LRESULT CALLBACK _export
WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{

  switch (msg)
  {
    case WM_CREATE:
    {
       // Создаем таймер, посылающий сообщения
       // функции окна примерно раз в секунду
       SetTimer(hwnd, BEEP_TIMER, 1000, NULL);
       return 0;
    }

    case WM_TIMER:
    {
       // В ответ на сообщение таймера выдаем
       // звуковой сигнал
       MessageBeep(-1);
       return 0;
    }

    case WM_DESTROY:
    {
      // Перед уничтожением окна уничтожаем
      // созданный ранее таймер
      KillTimer(hwnd, BEEP_TIMER);

      PostQuitMessage(0);
      return 0;
    }
  }
  return DefWindowProc(hwnd, msg, wParam, lParam);
}

По сообщению WM_CREATE (оно приходит при создании окна) функция окна создает таймер:

SetTimer(hwnd, BEEP_TIMER, 1000, NULL);

Этот таймер будет каждую секунду посылать сообщение с кодом WM_TIMER в функцию окна с идентификатором hwnd, то есть в функцию главного окна приложения.

Обработка сообщения таймера сводится к простой выдаче звукового сигнала.

Перед уничтожением окна в функцию окна передается сообщение WM_DESTROY, по которому приложение уничтожает созданный ранее таймер:

KillTimer(hwnd, BEEP_TIMER);

Вместе с завершением работы приложения завершается процесс выдачи звуковых сигналов.

Обратите внимание, что во время перемещения главного окна приложения или во время изменения его размеров выдача звуковых сигналов приостанавливается. Это связано с тем, что приложение занято обработкой сообщений от мыши и не реагирует на сообщения таймера. После завершения процесса перемещения окна или изменения его размеров вы можете получить сразу два звуковых сигнала с интервалом, заметно меньшим одной секунды, что и доказывает нерегулярность поступления сообщений WM_TIMER.

Файл определения модуля для приложения TIMBEEP приведен в листинге 7.3.

Листинг 7.3. Файл timbeep\timbeep.def

; =============================
; Файл определения модуля
; =============================
NAME        TIMBEEP
DESCRIPTION 'Приложение TIMBEEP, (C) 1994, Frolov A.V.'
EXETYPE     windows
STUB        'winstub.exe'
STACKSIZE   5120
HEAPSIZE    1024
CODE        preload moveable discardable
DATA        preload moveable multiple