і отримати безкоштовне
свідоцтво про публікацію
До визначення переможців залишилось:
3
Дня
3
Години
16
Хвилин
30
Секунд
Поспішайте взяти участь в акції «Методичний тиждень».
Щотижня отримуйте приємні подарунки.
Взяти участь

Обєктно орієнтоване програмування на Lazarus (Delphi )

Передплата на журнал
Бібліотека
матеріалів

Проект «Пори року»

Програма по номеру місяця визначає його назву , пору року

та виводить графічне зображення пори року.

Розгядається розгалуження та зчитування графічних зображень з файлу. В папці з проектом повинно бути 12 фото , які відповідають порі року в форматі *.bmp (з інтернету). На формі необхідно розташувати 6 компонентів Label, 3 компоненти Edit , 2 компоненти – Button та 1 компонент Image розташований на сторінці Additonal.

Для кнопки Вихід код наступний:

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

Код для кнопки Ок

procedure TForm1.Button1Click(Sender: TObject);

var nom:integer;

begin

nom:=strtoint(edit1.text);

if nom=1 then begin edit2.Text:='січень';edit3.text:='januare';label5.Caption:='зима'; Form1.Image1.Picture.LoadFromFile( '1.bmp' );image1.Stretch:=true; end;

if nom=2 then begin edit2.Text:='лютий';edit3.text:='februare';label5.Caption:='зима'; Form1.Image1.Picture.LoadFromFile( '2.bmp' );image1.Stretch:=true; end;

………………………………………………………………………………………………………………………

………………………………………………………………………………………………………………………

end;

Компонент ListBox (список). Розробка проекту Домашні тварини

Скласти програму яка по назві тварини із поданого списку виведе її імя, фото та переклад по англійські.

5 компонентів Label , 2 компоненти Edit, 2 компоненти – Button, 1 компонент – ListBox, 1 компонент – Image.

В компонент ListBox спочатку необхідно вписати назви тварин -- Властивість ItemsTStrings.

В папку де збережений проект скопіювати 5 фото тварин в форматі *.bmp (з інтернету)

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.text='кіт' then begin edit2.Text:='cate';label5.Caption:='вася'; Form1.Image1.Picture.LoadFromFile('1.bmp');image1.Stretch:=true; end;

……………………………………………………………………………………..

end;

Програмування розгалужень Case.Компонент ListBox (список).

Розробка проекту Goroscop

Вибрати ListBox у Object Inspectorі знайти подію OnKeyPress, праворуч від нього в полі зробити подвійне клацання лівою кнопкою миші. У тому місці Unit1, де мигатиме курсор, ввести наступний код:

If key=#13 then

case Listbox1.ItemIndex of

0: begin Label3.Caption:='20 24-13 ';

Form1.Image1.Picture.LoadFromFile('1.bmp'); image1.Stretch:=true; end;

1: Label3.Caption:='26-4 14,15,22 ';

2: Label3.Caption:='12-19 ';

3: Label3.Caption:='24,30,2,6,12,16 26,5,18 ';

4: Label3.Caption:='14,15,16,19-22 27,2,3 ';

5: Label3.Caption:='31,6,7,10 24-26 ';

6: Label3.Caption:='29-31,6,12,20 26 ';

7: Label3.Caption:='24,29,31,2,6,12,20 26,28,5,18 ';

8: Label3.Caption:='24-30 5,12 ';

9: Label3.Caption:='23-22 ';

10: Label3.Caption:='23-22 ';

11: Label3.Caption:='20 1,2 ';

end;

Відображення документу є орієнтовним і призначене для ознайомлення із змістом, та може відрізнятися від вигляду завантаженого документу

Опис документу:
Розробка проекту на лінійні та розгалужені алгоритми. Використовуються компоненти CheckBox, RadioButton, ListBox та інші.
  • Додано
    22.02.2018
  • Розділ
    Інформатика
  • Клас
    8 Клас, 9 Клас, 10 Клас, 11 Клас
  • Тип
    Інші методичні матеріали
  • Переглядів
    7880
  • Коментарів
    0
  • Завантажень
    0
  • Номер материала
    EE519189
Збірник методичних матеріалів проекту «Всеосвіта» I видання

Бажаєте дізнаватись більше цікавого?


Долучайтесь до спільноти

Збірник методичних матеріалів проекту «Всеосвіта» I видання