Разделы презентаций


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

Содержание

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

Слайды и текст этой презентации

Слайд 1LAZARUS
Основы
объектно-ориентированного
программирования в среде

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

Слайд 2Повторение
Оператор выбора в Pascal
Case chislo Of
1:

write(‘’);
2: write(‘’);

end;

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

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

печатай «Орел»

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

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

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

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

(a=1) OR (b=1) Then …

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

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

Проект – Формы
Сохранить проект в отдельную папку!!!!

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

Слайд 6Несколько форм в Lazarus
Uses
Unit2;

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

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

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

Слайд 8Несколько форм в Lazarus
Настроить свойства форм:

Caption для Form1

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

Caption

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

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

Form1, добавив еще одну кнопку «Закрыть»

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

Несколько форм в Lazarusprocedure TForm1.Button2Click(Sender: TObject);begin Form1.Close; Form2.Close;end;  Изменить Form1, добавив еще одну кнопку «Закрыть»procedure TForm1.Button1Click(Sender:

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

его свойство Items

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

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

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

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

then
Form1.Color:=clred;
end;
Свойство ItemIndex

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

Слайд 13Компонент RadioGroup в Lazarus
Окрашиваем обе формы
procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0

then
Form2.Color:=clred;
if radiogroup1.ItemIndex=0 then
Form1.Color:=clred;
end;

Компонент RadioGroup в LazarusОкрашиваем обе формыprocedure TForm2.Button1Click(Sender: TObject);begin if RadioGroup1.ItemIndex=0 then  Form2.Color:=clred; if radiogroup1.ItemIndex=0 then Form1.Color:=clred;end;

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика