"justify"> Конструктор форми зображено на малюнку 2.1.
Рисунок 2.1 - Конструктор форми
Результати виконан програми зображені на малюнках 2.2-2.3.
Малюнок 2.2 - Вікно РОБОЧОЇ програми
Малюнок 2.3 - Вікно РОБОЧОЇ програми
Як видно при натісканні на кнопку «Джабулані» на форме з являється відповідне фото. При натісканні кнопки «Забрат фотографію» фото зникає и кнопка становится неактивним. Із іншімі діямі при натісканні на кнопки можна ознайомітісь у програмному коді нижчих.
Текст програмного коду:
TForm1.Button1Click (Sender: TObject) ;. Visible:=true; .Visible:=false; .Visible:=false ;; TForm1.Button4Click (Sender: TObject);.visible:=false;.Visible:=false;.Visible:=false;.Enabled:=false;;TForm1.Button5Click(Sender: TObject); image2.visible=true then begin.Visible:=false; .Visible:=false; .Visible:=true; endimage1.visible=true then begin.Visible:=false; .Visible:=false; .Visible: =true; endimage3.visible=true then begin.Visible:=false; .Visible:=false; .Visible:=true ;;;.
2.3 Розробка програмного продукту «Проста програма»
Завдання. Ввести и вивести помощью компонентів TLabel, TEdit, TBatton значення змінніх, завдання в табліці согласно свого варіанту.
Конструктор форми зображено на малюнку 2.4
Малюнок 2.4 - Вікно РОБОЧОЇ програми
Результати виконан програми зображені на малюнку 2.5
Малюнок 2.5- Вікно РОБОЧОЇ програми
Текст програмного коду кнопки «Вивід даних»:
procedure TForm1.Button1Click (Sender: TObject);,N:string;:=Edit1.text;:=Edit2.text;.Caption:=laquo;F=raquo;+F;.Caption:=laquo;N=raquo;+N;;
2.4 Розробка програмного продукту «Проста програма»
Завдання. Создать проект, блок-схему алгоритму, діалогове вікно и програму для обчислення значень функцій:
Конструктор форми зображено на малюнку 2.6
Малюнок 2.6
Результати виконан програми зображені на малюнку 2.7-2.8
Малюнок 2.7- Вікно РОБОЧОЇ програми
Малюнок 2.8 - Вікно РОБОЧОЇ програми
Як видно при натісканні на кнопку «Обчісліті» обчісляється значення M та N, если х lt; у, то обчіслюється M та N інакше обчіслюється только N.
Текст програмного коду кнопки «Обчісліті»:
TForm1.Button1Click (Sender: TObject); 1;, n, x, y, z: real;: integer;:=StrToFloat (Edit1.Text); y:=StrToFloat (edit2.Text); z:=StrToFloat (edit3.Text);:=1;
: if x lt;=y then:=(0.8*cos(sqr(y))+sqr(x))/(1.3+sqr(cos(sqr(y))));.Caption:=laquo;M=raquo;+FloatToStrF(m,ffFixed,7,3);else begin:=(2*(sqrt(x)*x)*z+ln(x))/(exp(x+0.2)+sqr(y)+sqr(z));.Caption:=laquo;N=raquo;+FloatToStrF(n,ffFixed,7,3);;:=0.92;:=i+1;ilt;=2goto 1; end;
2.5 Розробка програмного продукту «Обмін валюти»
Завдання: создать форму з Назв «Обмін валюти», на Якій можна змоделюваті операции обміну валюти в обмінному пункті.
Конструктор форми зображено на малюнку 2.9
Малюнок 2.9
Результати виконан програми зображені на малюнку 2.10-2.11
Малюнок 2.10 та 2.11- Результати, отрімані від операции купівлі та продаж
Додаткові Завдання:
1) создать кнопку для очищення полів Введення суми в доларах та обчісленої суми в гривнях;
2) Забезпечити з'явилися підказки при наведенні курсору міші на поля редагування курсів купівлі та продаж;
) Передбачити 1% збору у Пенсійний фонд от операции купівлі-продажу;
) Передбачити зміну операцій при натісканні на стрілку;
Текст коду до Завдання 1:
TForm1.Button3Click (Sender: TObject);.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;;
Для забезпечення з'явиться підказки при наведенні курсору міші на поля редагування курсів купівлі та продаж Було Використано властівість Hint, значенням якої є «Введіть курс купівлі» для про єкта Edit1та «Введіть курс продаж» для про єкта Edit2 відповідно. Результати продемонстровані на малюнках 2.12 та 2.13.
Малюнок 2.12 та 2.13- з'явилися підказки для про єкта edit1 та edit2
Для того, ...