Основы объективно-ориентированного программирования в среде Lazarus. Повторение

Сентябрь 5, 2022

Главная
Алгебра
Основы объективно-ориентированного программирования в среде Lazarus. Повторение

Содержание

2. Повторение Оператор выбора в Pascal Case chislo Of 1: write(‘’); 2: write(‘’); … end;
3. Повторение Проверка условия в Pascal ЕСЛИ число = 1 ТОГДА печатай «Орел» ИНАЧЕ печатай «Решка»; If
4. Сложные условия в в Pascal If (a=1) AND (b=1) Then … If (a=1) OR (b=1) Then
5. Несколько форм в Lazarus Файл – Создать форму Проект – Формы Сохранить проект в отдельную папку!!!!
6. Несколько форм в Lazarus Uses Unit2;
7. Несколько форм в Lazarus procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; Form1.Hide; end; Form2.ShowModal;
8. Несколько форм в Lazarus Настроить свойства форм: Caption для Form1 – Главная Caption для Form2 –
9. Несколько форм в Lazarus procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close; Form2.Close; end; Изменить Form1, добавив еще одну
10. Компонент RadioGroup в Lazarus На Form2 добавить RadioGroup Изменить его свойство Caption Изменить его свойство Items
11. Компонент RadioGroup в Lazarus На Form2 добавить кнопку «Применить»
12. Компонент RadioGroup в Lazarus Запрограммируем кнопку «Применить» procedure TForm2.Button1Click(Sender: TObject); begin if RadioGroup1.ItemIndex=0 then Form2.Color:=clred; end;
14. Скачать презентацию

Слайд 2

Повторение
Оператор выбора в Pascal
Case chislo Of
1: write(‘’);
2: write(‘’);
…
end;

Слайд 3

Повторение
Проверка условия в Pascal
ЕСЛИ число = 1 ТОГДА печатай «Орел»

ИНАЧЕ печатай «Решка»;

If chislo = 1 Then write (‘Орел’)
Else write (‘Решка’);

Слайд 4

Сложные условия в в Pascal
If (a=1) AND (b=1) Then …
If (a=1)

OR (b=1) Then …

Слайд 5

Несколько форм в Lazarus
Файл – Создать форму
Проект – Формы

Сохранить проект в отдельную папку!!!!

Слайд 6

Несколько форм в Lazarus
Uses
Unit2;

Слайд 7

Несколько форм в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
end;
Form2.ShowModal;

Слайд 8

Несколько форм в Lazarus
Настроить свойства форм:
Caption для Form1 – Главная
Caption

для Form2 – Опции

Изменить название кнопки:
Caption для Button1 – Опции

Слайд 9

Несколько форм в Lazarus
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
end;
Изменить Form1, добавив

еще одну кнопку «Закрыть»

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

Слайд 10

Компонент RadioGroup в Lazarus
На Form2 добавить RadioGroup
Изменить его свойство Caption
Изменить его

свойство Items

Слайд 11

Компонент RadioGroup в Lazarus
На Form2 добавить кнопку «Применить»

Слайд 12

Компонент RadioGroup в Lazarus
Запрограммируем кнопку «Применить»
procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then

Form2.Color:=clred;
end;

Свойство ItemIndex