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

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

Курс:«Протидія шкільному насильству»
Черниш Олена Степанівна
72 години
2700 грн
390 грн
Свідоцтво про публікацію матеріала №EE519189
За публікацію цієї методичної розробки Загородній Петро Миколайович отримав(ла) свідоцтво №EE519189
Завантажте Ваші авторські методичні розробки на сайт та миттєво отримайте персональне свідоцтво про публікацію від ЗМІ «Всеосвіта»
Перегляд
матеріалу
Отримати код

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

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

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

Розгядається розгалуження та зчитування графічних зображень з файлу. В папці з проектом повинно бути 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 Клас
  • Тип
    Інші методичні матеріали
  • Переглядів
    7994
  • Коментарів
    0
  • Завантажень
    4
  • Номер матеріала
    EE519189
  • Вподобань
    0
Курс:«Основи фінансової грамотності»
Часнікова Олена Володимирівна
72 години
2700 грн
390 грн
Свідоцтво про публікацію матеріала №EE519189
За публікацію цієї методичної розробки Загородній Петро Миколайович отримав(ла) свідоцтво №EE519189
Завантажте Ваші авторські методичні розробки на сайт та миттєво отримайте персональне свідоцтво про публікацію від ЗМІ «Всеосвіта»
Шкільна міжнародна дистанційна олімпіада «Всеосвiта Зима – 2018-2019»

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


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