Объект Свойство Значение Label1 Caption Моя первая программа
procedure TForm1.FormPaint(Sender: TObject); var
жүктеу/скачать 1.52 Mb.
|
- Бұл бет үшін навигация:
- КОНТРОЛЬНЫЕ ЗАДАНИЯ
| procedure TForm1.FormPaint(Sender: TObject);
var I:Integer; Fi, LengX, Leng:Extended; N:Real; begin with Form1.Canvas do begin Pen.Color:=clNone; Pen.Style:=psSolid; X1:=round(Form1.ClientWidth/2); Y1:=Round(Form1.ClientHeight/2); X0:=X1; Y0:=Y1; MoveTo(X1,Y1); Leng:=(Form1.ClientHeight/2)-10; // Случайные переменные N:=random(10); // for I:=0 to 1000 do begin Application.ProcessMessages; Sleep(10); Fi:=(I*((2*Pi)/1000)); // LengX:=abs(Leng*sin(N*Fi));// X2:=X0+round(LengX*cos(Fi)); Y2:=Y0+round(LengX*sin(Fi)); LineTo(X2,Y2); Pen.Color:=clRed; end; end; end; Переменные X0, Y0, X1, Y1, X2, Y2 необходимо предварительно объявить глобально Добавьте на форму таймер и для его события пропишите код перерисовки фигуры InValidateRect(form1.handle,NIL,True); FormPaint(Self); При каждом событии таймера будет происходить прорисовка новой фигуры. Дополните код новыми параметрами пока не станут получаться фигуры, подобные приведённым выше Когда у вас станут генерироваться красивые формы, превратите вашу программу в хранителя экрана, пользуясь рекомендациями предыдущей лабораторной работы КОНТРОЛЬНЫЕ ЗАДАНИЯ Введите в программу возможность менять различные параметры по нажатию определённых комбинаций клавиш ЛИТЕРАТУРА Delphi 5: учебный курс, С. Бобровский, Питер 2002 г. Аладьев В.З., Хунт Ю.Я., Шишаков М.Л., Основы информатики. Учебное пособие, М., Филин, 1998, 496с. Информатика. Учебник под ред. Проф. Н.В. Макаровой, Финансы и статистика, 2001, 768с. Балафанов Е.К., Бурибаев Б., Даулеткулов А.. 30 уроков по информатике, Алматы, Джагамбек, 1999г, 442с (на русском и казахском языках) Фигурнов В.З. IBM PC для пользователя, 7 изд., Москва, ИНФРА, 1998, 328с. Каймин В.А., Питеркин В.М., Уртминцев А.Г. Информатика. Учебное пособие, 1998, 208с. Кенин А.М., Печенкин Н. Окно в мир компьютеров, Екатеринбург, Деловая книга, 1996 Лабораторная работа № 16 Функции API ЦЕЛЬ РАБОТЫ Цель лабораторной работы – освоение студентами основных понятий программирования, интерфейса среды программирования методов управления свойствами компонент. ИСПОЛЬЗОВАНИЕ ФУНКЦИЙ API Функциями API называют функции, которые запрограммированы разработчиками операционной системы Windows и лежат в стандартных библиотеках. Использование функций API в программах значительно расширяет возможности Delphi программирования и позволяет выполнить многие операции гораздо проще быстрее и с меньшим объёмом кода. Некоторые возможности вообще нельзя запрограммировать без использования API. При использовании API функций необходимо знать три вещи: имя функции, имя библиотеки в которой она находится и которую необходимо подключить к программе для использования конкретной функции и переменные, с помощью которых в функцию передаются необходимые параметры. Все эти сведения расписаны в многочисленных руководствах и справочниках по API, но полного описания ВСЕХ функций на русском языке не существует. Полное описание всех функций на английском языке доступно на сайте Microsoft и весит порядка 1,7 Гб!!! Откройте среду программирования Delphi Поместите на форму кнопку и компонент ListBox и на событие щелчка по кнопке запрограммируйте следующий код жүктеу/скачать 1.52 Mb. Достарыңызбен бөлісу:
|