Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Топ:
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Особенности труда и отдыха в условиях низких температур: К работам при низких температурах на открытом воздухе и в не отапливаемых помещениях допускаются лица не моложе 18 лет, прошедшие...
Методика измерений сопротивления растеканию тока анодного заземления: Анодный заземлитель (анод) – проводник, погруженный в электролитическую среду (грунт, раствор электролита) и подключенный к положительному...
Интересное:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Дисциплины:
2019-12-27 | 158 |
5.00
из
|
Заказать работу |
|
|
имя_формы. Show – отображение на экране окна формы, до этого невидимого;
имя_формы. Hide – скрыть форму, вернуться на предыдущую;
имя_формы. Update принудительная прорисовка формы;
имя_формы. Free удаление из памяти формы.
Компонент StringGrid
Компонент StringGrid расположен на вкладке Additional и представляет собой таблицу, ячейки которой содержат строки символов. Свойства компонента приведены в таблице:
ColCount | Количество столбцов таблицы |
RowCount | Количество строк таблицы |
DefaultColWidth | Ширина столбцов |
DefaultRowHeight | Высота строк |
FixedCols, FixedRows | Количество зафиксированных слева столбцов, сверху строк |
Cells | Обращение к ячейке таблицы |
Options.goEditing | Признак допустимости редактирования содержимого ячеек |
Постановка задачи
Разработать приложение «Тригонометрические функции». Приложение должно работать следующим образом:
Порядок выполнения
1. Загрузить Delphi, сохранить проект.
2. Изменить свойства главной формы в соответствии с таблицей:
BorderIcons | biMaximize=False |
BorderStyle | bsSingle |
Position | poScreenCenter |
3. Добавить на форму компонент StringGrid (Additional)и изменить свойства в соответствии с таблицей:
Align | alClient |
ColCount | 5 |
RowCount | 2 |
DefaultColWidth | 120 |
DefaultRowHeight | 18 |
ScrollBars | ssVertical |
Options.goRangeSelect | False |
4. Для события OnCreate ввести код:
Var
t:longint; i,n:integer; step,x,sx,cx: double;
Begin
step:=0.01;
n:=round(90/step)+1;
With stringgrid1 do
Begin
cells[0,0]:='x'; cells[1,0]:='sin(x)';
cells[2,0]:='cos(x)'; cells[3,0]:='tg(x)';
cells[4,0]:='ctg(x)'; colwidths[0]:=colwidths[0] div 2;
|
rowcount:=n+1;
For i:=1 to n do
Begin
x:=(i-1)*step;
sx:=sin(x*pi/180); cx:=cos(x*pi/180);
cells[0,i]:=floattostr(x); cells[1,i]:=floattostr(sx);
cells[2,i]:=floattostr(cx);
if cx <> 0 then cells[3,i]:=floattostr(sx/cx)
else cells[3,i]:= не существует;
if sx<>0 then cells[4,i]:=floattostr(cx/sx)
else cells[4,i]:= 'не существует';
end; end; end;
5. Проверить работу приложения.
6. Добавить новую форму (заставка), для этого:
· выбрать в меню File / New / Form;
· сохранить новую форму с именем Unit 2. pas;
· подключить новый файл к проекту, выбрав в меню
Project / Add to Project…, открыть Unit2.pas;
· создать ссылку на новый модуль, с той формы, которая будет его использовать:
o выбрать в меню File / Use Unit,
o в открывшемся диалоговом окне выбрать модуль Unit 2 и нажать Ок.
7. Изменить свойства Form 2 в соответствии с таблицей:
BorderIcons | biSystemMenu=False biMinimize=False biMaximize=False |
BorderStyle | bsNone |
Position | poScreenCenter |
FormStyle | fsStayOnTop |
8. На форму Form 2 добавить метку, ввести для нее заголовок ТРИГОНОМЕТРИЧЕСКИЕ ФУНКЦИИ
9. Загрузить в редактор файл проект, для этого выбрать в меню Project/ View Source.
10. Откорректировать файл проекта следующим образом:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
Begin
Application.Initialize;
form2:=tform2.create(application); form2.Show;
form2.Update; form2.Label1.Update;
Application.CreateForm(TForm1, Form1);
form2.Hide; form2.Free;
Application.Run;
end.
11. Для того, чтобы заставка задерживалась на экране 5 секунд в начало процедуры Form 1 Create добавить:
t:=gettickcount div 1000;
while (gettickcount div 1000)<t+5 do
12. Проверить работу приложения
ПРАКТИЧЕСКАЯ РАБОТА № 12
Тема Анимация
Цель работы: Получить навыки использования анимационных компонентов.
Пояснения к работе
Компонент Animate расположен на вкладке Win32 и позволяет воспроизвести только простую, не сопровождаемую звуком анимацию, кадры которой находятся в AVI-файле. Свойства компонента приведены в таблице:
FileName | Имя AVI-файла |
StartFrame | Номер кадра, с которого начинается отображение анимации |
StopFrame | Номер кадра, на котором заканчивается отображение анимации |
Activate | Признак активации процесса отображения |
Color | Цвет фона, на котором воспроизводится анимация |
Transparent | Режим использования «прозрачного» цвета при отображении анимации |
Repetitions | Количество повторов отображения |
|
Постановка задачи
Разработать приложение позволяющее выбирать и воспроизводить AVI-файлы в двух режимах: непрерывном и покадровом.
Порядок выполнения
1. Загрузить Delphi, сохранить проект.
2. Расположить на форме компонент Animate (Win32).
3. Для свойства FileName выбрать имя Avi-файла.
4. В процедуру TForm1.FormCreate ввести код:
animate1.Play(0,animate1.FrameCount,1);
5. Проверить работу приложения.
6. Самостоятельно изменить программу для того, чтобы количество повторов было 3. Проверить.
7. Привести форму в соответствие с образцом, для этого добавить компоненты и изменить им свойство Caption:
· Label и Edit;
· GroupBox, RadioButton
· OpenDialogs;
· командные кнопки.
8. Объявить глобальную переменную
|
|
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!