Int next; // Номер «текущего» узла

int error; // Фатальная ошибка в модели

int maxn; // Число узлов модели

int presise; // Количество знаков после десятичной точки

int maxX; // Размеры экрана X

int maxY; // Размеры экрана Y

int percent; // Процент выполнения модели

int stop0; // Признак выполнения модели

int stop1; // Признак приостановки

int stop2; // Признак отладки/трассировки

int stop3; // Установить масштаб времени

char modname[16]; // Название модели

char filename[256]; // Имя найденного файла

};

Рассмотренная область описана в системном h-файле Simulate.h. В соответствии с ее структурой ниже приведен текст программы, реализующей окно типа «часы моделирования». Следует отметить, что в данной программе значительное место занимают операторы, необходимые для автоматизации размещения текстов и изображений на заданном прямоугольнике. Если это окно сделать без такого сервиса, то программа будет значительно короче (и понятнее).

#include <Windows.h>

#include <Simulate.h>

Void funcwindow(struct fwcb*);

BOOL WINAPI DllEntryPoint(HINSTANCE hDLL, DWORD dwReason,

LPWORD Reserved)

{

switch(dwReason)

{

case DLL_PROCESS_ATTACH:

{

break;

}

case DLL_PROCESS_DETACH:

{

break;

}

}

return TRUE;

}

Void funcwindow(struct fwcb *s)

{

TEXTMETRIC tm; // Метрики текста

SIZE size; // Для метрик текста

time_t ct; // Для таймера ЭВМ

char str[3000]; // Буфер для строки вывода

char comwork[96]; // для измерений длин текстов

struct tm *newtime; // Для компьютерного таймера

struct kcb *k; // Адрес узла модели

double ap; // Текущий угол

double hp; // Шаг угла

float p; // Проценты с плавающей точкой

Int xL; // X левого верхнего угла эллипса

int yL; // Y левого верхнего угла эллипса

int wE; // Ширина эллипса

int hE; // Высота эллипса

int xLp; // X левого края прямоугольного индикатора

int xRp; // X правого края прямоугольного индикатора

int yHp; // Y верхнего края прямоугольного индикатора

int yLp; // Y правого края прямоугольного индикатора

int wX; // Текущие координаты вывода X

int wY; // Текущие координаты вывода Y

int xS1; // Рабочая координата X

int xS2; // Рабочая координата Y

int yS; // Рабочая координата Y

int iP; // Рабочая переменная для процентов

int i; // Рабочая переменная

shOldf=(HFONT)SelectObject(smemdc,shNewf); // Шрифт ANSI

if (!SetWindowLong(shwnd,GWL_WNDPROC,smywndproc))

MessageBox(shwnd,"","Не подключена программа MyWindowProcedure",

MB_OK);

hp=pi/100;

p=stimer/stmax*100;

iP=p;

if (iP>100)

iP=100;

if ( iP>spercent || spercent ==100 ||

(spercent && ! sstop0 && ! sstop1 && ! sstop2 && ! sstop3))

{

MessageBeep(1);

ap=hp*p+0.0001;

if (ap>pi)

ap=pi;

xRp=smaxX–2;

yHp=2;

GetTextMetrics(smemdc,&tm); // Метрики текста

sprintf(comwork,"Процент выполнения: 100 ");

GetTextExtentPoint32(smemdc,comwork,strlen(comwork),&size);

i=xRp–size.cx;

xLp=i;

sprintf(comwork,"Модель \"%s\"",smodname);

GetTextExtentPoint32(smemdc,comwork,strlen(comwork),&size);

i=xRp–size.cx;

if (i < xLp )

xLp=i;

ct=time(NULL); // Получить новое время

newtime=localtime(&ct);

strcpy(str,asctime(newtime)); // Новое время – в буфер

str[strlen(str)–1]='\0'; // Удалить \r\n !

GetTextExtentPoint32(smemdc,str,strlen(str),&size);

i=xRp–size.cx–10;

if (i < xLp )

xLp=i;

xLp–=9;

yLp = yHp + 3 + 12*(tm.tmHeight + tm.tmExternalLeading)+3;

wX=xLp+3; // Текущий X текста

wY=yHp+3; // Текущий Y текста

TextOut(smemdc,wX,wY,comwork,strlen(comwork)); // Название модели

wY = wY + 9*(tm.tmHeight + tm.tmExternalLeading);

TextOut(smemdc,wX,wY,str,strlen(str)); // Время

wY = wY + (tm.tmHeight + tm.tmExternalLeading);

sprintf(str,"Процент выполнения: %3d ",iP);

TextOut(smemdc,wX,wY,str,strlen(str)); // Процент

wY = wY + (tm.tmHeight + tm.tmExternalLeading);

if (iP == 100)

{

sprintf(str,"Выполнена... ");

TextOut(smemdc,wX,wY,str,strlen(str));

}

else if (snd == 0)

{

sprintf(str,"Моделирование ");

TextOut(smemdc,wX,wY,str,strlen(str));

}

xL=(xLp+xRp)/2; // X и Y центра эллипса

hE=6*(tm.tmHeight + tm.tmExternalLeading); // Высота эллипса

wE=hE; // Ширина эллипса

xL=xL–hE/2.0; // X левого верхнего угла

yL=yHp+3+2*(tm.tmHeight + tm.tmExternalLeading); // Y левого верхнего

SelectObject(smemdc,shRedpen); // Выбрать красное перо

SelectObject(smemdc,s>hWhitebrush); // Выбрать белую кисть

Ellipse(smemdc,xL,yL,xL+wE,yL+hE); // Эллипс

xS1=xL+wE*(1–sin(ap))/2;

xS2=xL+wE*(1+sin(ap))/2;

yS =yL+hE*(1+cos(ap))/2;

SelectObject(smemdc,shCyanbrush); // Бирюзовая кисть

Pie(smemdc,xL,yL,xL+wE,yL+hE,xS1,yS,xS2,yS); // Сектор

SelectObject(smemdc,shBluepen); // Выбрать синее перо

MoveToEx(smemdc,xL+wE/2–1,yL–smaxY/60,NULL);

LineTo(smemdc,xL+wE/2–1,yL+hE+smaxY/60);

MoveToEx(smemdc,xL–smaxX/80,yL+hE/2–1,NULL);

LineTo(smemdc,xL+wE+smaxX/80,yL+hE/2–1);

SelectObject(smemdc,shHollowbrush); // Прозрачная кисть

SelectObject(smemdc,s–>hGreenpen); // Выбрать зеленое перо

Rectangle(smemdc,xLp,yLp,xRp,yHp); // Прямоугольник

spercent=iP;