Пример программы
Ниже приведен пример программы, использующей модуль мыши, которая выводит на экран курсор мыши и его текущие координаты.
| uses crt, graph, mouse;
Var x, y: integer;
strx, stry: string;
oldx, oldy: integer;
rec: locrec;
gDriver, gMode: integer;
Begin
gDriver:=Detect;
gMode:=0;
InitGraph(gDriver,
gMode,'C:\BP7\BGI');
mshow;
mcolrange(40,GetMaxX-40);
mrowrange(40,GetMaxY-40);
line(40,40,GetMaxX-40,40);
line(40,40,40,GetMaxY-40);
line(40,GetMaxY-40,GetMaxX- 40,GetMaxY-40);
line(GetMaxX-40,40,GetMaxX- 40,GetMaxY-40);
mpos(rec);
oldx:=rec.column;
oldy:=rec.row;
mmoveto(40,40);
repeat
mpos(rec);
x:=rec.column;
y:=rec.row;
if ((x<>oldx)OR(y<>oldy)) then
begin
SetColor(BLACK);
OutTextXY(2, 2, ' ');
OutTextXY(2, 14,' ');
SetColor(LIGHTGRAY);
Str(x, strx); Str(y, stry);
OutTextXY(2, 2, 'x='+strx);
OutTextXY(2, 14, 'y='+stry);
end;
oldx:=x; oldy:=y;
until keypressed;
CloseGraph;
End.
| {подключает необходимые
модули}
{объявляем необходимые
переменные}
{инициализация графического режима}
{показываем курсор мыши}
{устанавливаем минимальные и
максимальные границы движения
курсора мыши}
{рисуем зону движения курсора мыши}
{данные, возвращаемые в
структуре rec, будут сообщать
текущее состояние мыши}
{присваиваем переменным oldx и oldy значения координат текущего
состояния мыши}
{перемещаем курсор мыши в
заданные координаты}
{программа будет выполнять действия этого цикла, пока мы не нажмем клавишу}
{сравним «старые» и «новые» координаты мыши, если положение мыши изменилось, то выполним следующие действия}
{очищаем две строки, где выводится x и y, для этого необходимо между апострофами поставить спец. символ из ASCII с кодом 219 (удерживая клавишу «ALT», наберите код и отпустите клавишу)}
{преобразуем целочисленные значения x и y в строки strx и stry и выводим координаты положения мыши на экран}
{закрываем графический режим}
|
Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...
|
ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при которых тело находится под действием заданной системы сил...
|
Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...
|
Логические цифровые микросхемы Более сложные элементы цифровой схемотехники (триггеры, мультиплексоры, декодеры и т.д.) не имеют...
|
|
Неисправности автосцепки, с которыми запрещается постановка вагонов в поезд. Причины саморасцепов ЗАПРЕЩАЕТСЯ: постановка в поезда и следование в них вагонов, у которых автосцепное устройство имеет хотя бы одну из следующих неисправностей:
- трещину в корпусе автосцепки, излом деталей механизма...
Понятие метода в психологии. Классификация методов психологии и их характеристика Метод – это путь, способ познания, посредством которого познается предмет науки (С...
ЛЕКАРСТВЕННЫЕ ФОРМЫ ДЛЯ ИНЪЕКЦИЙ К лекарственным формам для инъекций относятся водные, спиртовые и масляные растворы, суспензии, эмульсии, новогаленовые препараты, жидкие органопрепараты и жидкие экстракты, а также порошки и таблетки для имплантации...
|
|
Типовые примеры и методы их решения. Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно. Какова должна быть годовая номинальная процентная ставка...
Выработка навыка зеркального письма (динамический стереотип) Цель работы: Проследить особенности образования любого навыка (динамического стереотипа) на примере выработки навыка зеркального письма...
Словарная работа в детском саду Словарная работа в детском саду — это планомерное расширение активного словаря детей за счет незнакомых или трудных слов, которое идет одновременно с ознакомлением с окружающей действительностью, воспитанием правильного отношения к окружающему...
|
|
