Конспект уроку з інформатики на тему: "Створення, компіляція й виконання найпростішого програмного проекту - калькулятора"

Лабораторна робота №11

Тема: Створення, компіляція й виконання найпростішого програмного проекту.(калькулятор)

Мета: Навчитися створювати та розміщувати на формі компоненти програми Delphi, зберігати проект в окремому каталозі, запускати результати роботи на виконання.

Хід роботи

1.           З дозволу викладача увімкніть комп’ютер.
2.           Завантажити програму Delphi 6.
3.           Змінити назву форми на своє прізвище.
4.           Розмістити на формі 15 компонент Button.
5.           Перейменувати їх на цифри від 0 до 9 , конпки множення, віднімання, додавання, дорівнює та очистити.
6.           Розмістити на формі компонент Edit, очистити його зміст.
7.            

Перейти на редактор коду, де прописати команду, щоб при натисненні на кнопку цифри у вікні edit з’являлася цифра, зображена на кнопці.

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text := edit1.Text+'1';

end;

Описуємо у коді глобальні змінні ( змінні, які діють в усіх процедурах програми) var

  Form1: TForm1;

  dod,vid,mnoj:integer;

  d,v,m:boolean;

implementation

Перейти на редактор коду, де прописати команду, щоб при натисненні на кнопку «очистити» інформація  у вікні edit зникала: procedure TForm1.Button15Click(Sender: TObject);

begin

edit1.Text := '';

d:=false;

v:=false;

m:=false

end;

Програмуємо кнопку додавання :

procedure TForm1.Button11Click(Sender: TObject);

begin

 dod:=strtoint(edit1.Text);

 d:=true;

 edit1.Text := ' ';

end;

11.     Програмуємо кнопку віднімання :

procedure TForm1.Button12Click(Sender: TObject);

begin

 vid:=strtoint(edit1.Text);

 v:=true;

 edit1.Text := ' ';

end;

12.       Програмуємо кнопку множення:

procedure TForm1.Button13Click(Sender: TObject);

begin

mnoj:=strtoint(edit1.Text);

m:=true;

edit1.Text := '';

end;

13.       Програмуємо кнопку «дорівнює» :

procedure TForm1.Button16Click(Sender: TObject);

var dodanok2:integer;

begin

 dodanok2:=strtoint(edit1.Text);

 if (d=true) then begin dod:=dod+dodanok2;

                          edit1.Text:=inttostr(dod);

                          d:=false;

                          v:=false;

                          m:=false;

                     end;

 if (v=true) then begin vid:=vid-dodanok2;

                          edit1.Text:=inttostr(vid);

                          d:=false;

                          v:=false;

                          m:=false;

                     end;

 if (m=true) then begin mnoj:=mnoj*dodanok2;

                          edit1.Text:=inttostr(mnoj);

                          d:=false;

                          v:=false;

                          m:=false;

                     end;

end;

14.       Для форми робимо подію OnCreate :

procedure TForm1.FormCreate(Sender: TObject);

begin

d:=false;

v:=false;

m:=false;

end;

15.       Зберегти даний проект в своїй папці, давши йому ім'я "Проект №1".
16.       Запустити проект на виконання , перевірити наявність помилок у написані коду та коректність роботи калькулятора.

Контрольні запитання

1.           Яке розширення має дієздатна програма, збережена в каталозі?
2.           Назвати клавішу, яка відкриває інспектор.
3.           Скільки вікон має відкрита програма Delphi?
4.           Опишіть призначення вікна "Редактора коду".
5.           Де прописуються дії, які буде виконувати кнопка?