Пример программы
Ниже приведен пример программы, использующей модуль мыши, которая выводит на экран курсор мыши и его текущие координаты.
| 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 и выводим координаты положения мыши на экран}
{закрываем графический режим}
|
Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...
|
Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...
|
Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...
|
Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...
|
В эволюции растений и животных. Цель: выявить ароморфозы и идиоадаптации у растений Цель: выявить ароморфозы и идиоадаптации у растений. Оборудование: гербарные растения, чучела хордовых (рыб, земноводных, птиц, пресмыкающихся, млекопитающих), коллекции насекомых, влажные препараты паразитических червей, мох, хвощ, папоротник...
Типовые примеры и методы их решения. Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно. Какова должна быть годовая номинальная процентная ставка...
Выработка навыка зеркального письма (динамический стереотип) Цель работы: Проследить особенности образования любого навыка (динамического стереотипа) на примере выработки навыка зеркального письма...
|
Ведение учета результатов боевой подготовки в роте и во взводе Содержание журнала учета боевой подготовки во взводе. Учет результатов боевой подготовки - есть отражение количественных и качественных показателей выполнения планов подготовки соединений...
Сравнительно-исторический метод в языкознании сравнительно-исторический метод в языкознании является одним из основных и представляет собой совокупность приёмов...
Концептуальные модели труда учителя В отечественной литературе существует несколько подходов к пониманию профессиональной деятельности учителя, которые, дополняя друг друга, расширяют психологическое представление об эффективности профессионального труда учителя...
|
|
