1. Завантажити середовище програмування Borland Delphi7.0.
2. Розмістити на формі компоненти: Edit1, Label1, Edit2, Button1, Label2 із сторінки Standart (Мал. 1)
3. Змінити властивості компонентів, користуючись інспектором об’єктів:
Компонент
| Властивість
| Значення
|
Edit1
| Text
| Порожній рядок
|
Label1
| Caption
| +
|
Edit2
| Text
| Порожній рядок
|
Button1
| Caption
| =
|
Label2
| Caption
| Порожній рядок
|
4. Виконати подвійний клік на кнопці Button1 і ввести програмний код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(edit2.Text));
end;
5. Виконати програму, ввести цілі числа в поля вводу і натиснути кнопку . Ви отримаєте результат:
6. Закрити результат виконання програми
7. Доповнити програму так, щоб можна було виконувати віднімання і множення.
8. Вивести спливаючу підказку до компонента Edit1. Для цього в полі значення його властивості Hintввести текст Доданок1 і встановити значення властивості ShowHint рівне True. Аналогічно вивести спливаючі підказки до всіх полів вводу, відповідно Доданок2, Зменшуване, Від’ємник, Множник1, Множник2.
9.Зберегти проект в окрему папку і закрити.
Хід роботи
1. Завантажити середовище програмування Borland Delphi7.0.
2. Розмістити на формі компоненти Edit1, Label1, Edit2, Button1, Label2, Label4, Label5 із сторінки Standart
3. Змінити властивості компонентів, користуючись інспектором об’єктів
Компонент
| Властивість
| Значення
|
Edit1
| Text
| Порожній рядок
|
Label1
| Caption
| X +
|
Edit2
| Text
| Порожній рядок
|
Button1
| Caption
| Розв’язати рівняння
|
Label2
| Caption
| = 0
|
Label3
| Caption
| Х =
|
5. Виконати подвійний клік на кнопці Button1 і ввести програмний код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToInt(Edit1.text)<>0 then
Label4.Caption:=FloatToStr(-(StrToInt(Edit2.Text))/(2*StrToInt(edit1.Text)))
else ShowMessage(' Рівняння розв'язків немає');
end;
6. Виконати програму, ввести цілі числа в поля вводу і натиснути кнопку
7. Виконати програму, ввести в якості першого коефіцієнта 0. На екрані з’явиться повідомлення (Мал1)
8. Зберегти проект в окрему папку і закрити.
9. Відкрити новий проект. Встановити на форму компоненти Label1 i Edit1. Встановити властивість Caption для label1 “Ввести пароль”. Для Edit1 змінити значення властивості PasswordChar на *. Добавити на форму кнопку Гаразд. Написати для неї програмний код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='2004' then ShowMessage('Yes')else ShowMessage('No')
end;
Виконати програму. В поле вводу ввести пароль 2004 і натиснути кнопку Гаразд.
Хід роботи
1. Завантажити середовище програмування Borland Delphi7.0.
2. Розмістити на формі наступні компоненти і змінити їх властивості так, щоб форма мала вигляд
3. Виконати подвійнй клік по кнопці і ввести програмний код:
procedure TForm1.Button1Click(Sender: TObject);
begin
case StrToInt(Edit1.Text) of
1: Label3.Caption:='January';
2: Label3.Caption:='Fabruary';
3: Label3.Caption:='March';
4: Label3.Caption:='April';
5: Label3.Caption:='May';
6: Label3.Caption:='June';
7: Label3.Caption:='July';
8: Label3.Caption:='August';
9: Label3.Caption:='September';
10: Label3.Caption:='October';
11: Label3.Caption:='November';
12: Label3.Caption:='December';
end;
end;
4. Записати створений проект у папку Month і закрити проект.
5.Відкрити новий проект, розмістити на формі наступні компоненти і змінити їх властивості так, щоб форма мала вигляд
6. Виконати подвійнй клік по кнопці і ввести програмний код:
procedure TForm1.Button1Click(Sender: TObject);
Begin
case StrToInt(Edit1.Text) of
1972, 1984: Label3.Caption:='Миші. The Rat';
1976, 1988: Label3.Caption:='Дракона. The Dragon';
1968, 1980: Label3.Caption:='Мавпи. The Monkey';
1973, 1985: Label3.Caption:='Буйвола. The Buffalo';
1977, 1989: Label3.Caption:='Змії. The Snake';
1969, 1981: Label3.Caption:='Півня. The Rooster';
1974, 1986: Label3.Caption:='Тигра. The Tiger';
1978, 1990: Label3.Caption:='Коня. The Horse';
1970, 1982: Label3.Caption:='Собаки. The Dog';
1975, 1987: Label3.Caption:='Кота. The Cat';
1979, 1991: Label3.Caption:='Кози. The Goat';
1971, 1983: Label3.Caption:='Порося. The Pig';
end;
end;