 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Хід лабораторної роботи (частина перша)
1. За допомогою текстового редактора створити текстовий файл з даними про 10 друзів (прізвище, ім’я, день народження). Дані у файл уведіть у стовпчики так: прізвище та ім’я – по 12 символів, дата народження – 10 символів, наприклад,
1-а позиція 13-а позиція 25-а позиція
Огарков Вадим 25.03.1989
Шевченко Сергій 13.07.1988
Петренко Катерина 24.04.1989
Ці дані вивести на форму „Мої друзі”.
2. Завантажити середовище візуального програмування Delphi.
3. Задати властивості форми: Caption, Height, Width, Color.
4. Вставити у форму чотири текстових поля: Label1, Label2, Label3, Label4 (рис.16).
5. Вставити у форму три об’єкти типу Edit: Edit1, Edit2, Edit3 (рис.16). Очистити поля редагування Edit1, Edit2, Edit3.
6. Вставити у форму чотири кнопки - об’єкти типу Button (рис.16).
7. Вставити у форму кнопку - об’єкт типу BitBtn.
8. Змінити заголовки Caption на об’єктах типу Label та Button (рис.17).
Рис.16 Рис.17
9. Змінити властивість Kind кнопки BitBtn на bkClose.
10. Властивість Enabled для кнопок Button2, Button3, Button4 задати як False.
11. Перед тим, як програмувати кнопки Button1, Button2 тощо, необхідно у розділі описування змінних задати змінні f, pr, im, dn, де f – текстовий файл, pr, im, dn – прізвище, ім’я та дата народження відповідно:
Var
Form1: TForm;
f:textfile;
pr,im:string[12];
dn:string[10];
12. Запрограмувати кнопку Button1. Процедура матиме такий вигляд:
Procedure TForm1.Button1Click (Sender: TObject);
Begin
assignfile(f,’f1.txt’);
reset(f);
read(f,pr,im,dn);
Edit1.Text:=pr;
Edit2.Text:=im;
Edit3.Text:=dn;
Button2.Enabled:=true;
Button3.Enabled:=true;
Button4.Enabled:=true;
end;
13. Запрограмувати кнопку Button2. Процедура матиме такий вигляд:
Procedure TForm1.Button2Click (Sender: TObject);
Begin
reset(f);
while not eof(f) do begin
readln(f,pr,im,dn);
if (pr=Edit1.Text) and (im=Edit2.Text) then begin
readln(f,pr,im,dn);
if eof(f) then Button2.Enabled:=false;
Edit1.Text:=pr;
Edit2.Text:=im;
Edit3.Text:=dn;
break;
end;
end;
end;
14. Запрограмувати кнопку Button3. Процедура матиме такий вигляд:
Procedure TForm1.Button3Click (Sender: TObject);
Var
pr1,im1: string[12];
dn1: string[10];
Begin
reset(f);
readln(f,pr1,im1,dn1);
Button2.Enabled:=true;
while not eof(f) do begin
readln(f,pr,im,dn);
if (pr=Edit1.Text) and (im=Edit2.Text) then begin
Edit1.Text:=pr1;
Edit2.Text:=im1;
Edit3.Text:=dn1;
break;
end;
pr1:=pr; im1:=im;dn1:=dn;
end;
end;
15. Запрограмувати кнопку Button4. Процедура матиме такий вигляд:
Procedure TForm1.Button4Click (Sender: TObject);
Begin
reset(f);
while not eof(f) do begin
readln(f,pr,im,dn);
Edit1.Text:=pr;
Edit2.Text:=im;
Edit3.Text:=dn;
end;
16. Зберегти створену програму у своїй власній папці.
17. Виконати створену програму.
18. Модифікувати проект „Мої друзі” для розв’язування задачі відшукування і виведення на форму даних про друзів, які: а) народилися у квітні; б) номер телефону починається з цифри 7.
19. Створити exe - файл програми. Закрити Delphi і запустити створену програму.
Поиск по сайту: