Студопедия — Пример программы
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример программы






Ниже приведен пример программы, использующей модуль мыши, которая выводит на экран курсор мыши и его текущие координаты.

 

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 и выводим координаты положения мыши на экран}   {закрываем графический режим}  






Дата добавления: 2015-09-07; просмотров: 247. Нарушение авторских прав; Мы поможем в написании вашей работы!



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

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

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

ЛЕКАРСТВЕННЫЕ ФОРМЫ ДЛЯ ИНЪЕКЦИЙ К лекарственным формам для инъекций относятся водные, спиртовые и масляные растворы, суспензии, эмульсии, ново­галеновые препараты, жидкие органопрепараты и жидкие экс­тракты, а также порошки и таблетки для имплантации...

Тема 5. Организационная структура управления гостиницей 1. Виды организационно – управленческих структур. 2. Организационно – управленческая структура современного ТГК...

Методы прогнозирования национальной экономики, их особенности, классификация В настоящее время по оценке специалистов насчитывается свыше 150 различных методов прогнозирования, но на практике, в качестве основных используется около 20 методов...

Пункты решения командира взвода на организацию боя. уяснение полученной задачи; оценка обстановки; принятие решения; проведение рекогносцировки; отдача боевого приказа; организация взаимодействия...

Что такое пропорции? Это соотношение частей целого между собой. Что может являться частями в образе или в луке...

Растягивание костей и хрящей. Данные способы применимы в случае закрытых зон роста. Врачи-хирурги выяснили...

Studopedia.info - Студопедия - 2014-2024 год . (0.013 сек.) русская версия | украинская версия