Практические работы в Pascal ABC - презентация

1 (с) Плес год. Автор: учитель информатики МКОУ Плесская СОШ Юдин А.Б.

2 Теория 1 Инспектор объектов Форма Компоненты Переключение текст программы /форма

3 Теория 2 Визуальные компоненты Button (Кнопка) Обычная кнопка предназначена для выполнения какого-либо кода по наступлению события нажатия на кнопку пользователем Edit (Поле для ввода) Служит для отображения текстовой информации, которую пользователь может изменять. Удобно применять для ввода или редактирования какой-либо текстовой информации Label (Надпись) Служит для простого отображения текстовой информации, которую пользователь не может редактировать во время работы приложения CheckBox (Флажок) Представляет опцию, благодаря которой пользователь может переключать положение (вкл./выкл.) TextBox ( Многострочное поле) Работает как и поле для ввода, только позволяет вводить (редактировать) несколько строк текста

4 Теория 3 Визуальные компоненты ComboBox (Выпадающий список) Является как бы комбинацией списка и поля для ввода. Пользователь может ввести самостоятельно текст в поле, либо выбрать нужный из предоставленного списка Shape (Геометрическая фигура) Позволяет отображать произвольные геометрические фигуры. Например, эллипс, треугольник, прямоугольник и другие RadioButton (Переключатель) Данный переключатель работает обычно в группе с другими. Если на форме располагается несколько таких переключателей, то только один из них может принимать включенное положение ListBox (Список) Предназначен для вывода нескольких строк текста. Пользователь может выбрать любую из этих строк простым нажатием на ней GroupBox (Группа) Создает контейнер, который может содержать внутри себя компоненты. Эти компоненты объединяются в одну группу.

5 Теория 4 Не визуальные компоненты OpenDialog компонент* предназначен для поддержки операции открытия файлов. При обращении к этому компоненту вызывается стандартное диалоговое окно открытия файла. * (место размещения которого на форме не имеет значения для пользователя так как он увидит не сам компонент, а меню или диалог, с генерированные им), SaveDialog предназначен для поддержки операции сохранения файлов. При обращении к этому компоненту вызывается стандартное диалоговое окно сохранения файла. ColorDialog предназначен для поддержки операции выбора цвета. При обращении к этому компоненту вызывается стандартное диалоговое окно выбора цвета. Timer (Таймер) позволяет вводить необходимые задержки между выполнением тех или иных действий MainMenu (Главное меню) предназначенный для вывода главного меню на форме

6 Теория 5 Свойство Назначение Color цвет компонента Caption надпись на компоненте Font сложное свойство, определяющее тип шрифта надписи Visible логическое свойство, определяющее видимость компонента Enabled логическое свойство, определяющее доступность компонента Top местоположение левого верхнего угла компонента по вертикали Left местоположение левого верхнего угла компонента по горизонтали Height высота компонента Width ширина компонента

7 Теория 6 Изменение свойств объекта Инспектор объектов Программно Button1.Caption:='Выход'; 1 способ: 2 способ: Как изменить надпись на кнопке?

8 Теория Поле ввода Edit1 (String) Оперативная память Переменная А (Integer) Переменная B (Real) Переменная C (String) A:=StrToInt(Edit1.Text); B:=StrToFloat(Edit1.Text); C:=Edit1.Text; 123 '123' Внимание! Функция StrToInt – не округляет число введенное в поле ввода.

9 Теория Оперативная память Переменная А (Integer) Переменная B (Real) Переменная C (String) Edit1.Text:=IntToStr (А); Edit1.Text:=FloatToStr (B); Edit1. Text := C; 123 '123' Поле ввода Edit1 (String)

10 Практическая работа 1 9 Разместим на форме компоненты кнопка (Button) Изменим надпись на кнопках Изменим размер надписи

11 Практическая работа 1 10 Разместим на форме компоненты поле для ввода (Edit) Изменим размер символов в поле ввода

12 Практическая работа 1 11 Двойным щелчком мыши создадим событие Добавим строку закрывающую форму Form1.close;

13 Практическая работа 1 12 Двойным щелчком создадим событие procedure Button2OnClick; var a,b,c:real; begin a:=strToFloat(edit1.text); b:=strToFloat(edit2.text); c:=a+b; edit3.text:=FloatToStr(c); end; procedure Button2OnClick; var a,b,c:real; begin a:=strToFloat(edit1.text); b:=strToFloat(edit2.text); c:=a+b; edit3.text:=FloatToStr(c); end;

14 Практическая работа 2 13 Разместим кнопки и компоненты поле для ввода на форме и настроим внешний вид Разместим на форме компоненты флажок (CheckBox) Настроим свойства CheckBox

15 Практическая работа 2 14 Двойным щелчком создадим событие, в котором разместим следующий текст: procedure Button1OnClick; var a,b,c:real; begin a:=strToFloat(edit1.text); b:=strToFloat(edit2.text); if (Checkbox1.Checked=true) then c:=a+b; if (Checkbox2.Checked=true) then c:=a-b; if (Checkbox3.Checked=true) then c:=a/b; if (Checkbox4.Checked=true) then c:=a*b; edit3.text:=floatToStr(c); end; procedure Button1OnClick; var a,b,c:real; begin a:=strToFloat(edit1.text); b:=strToFloat(edit2.text); if (Checkbox1.Checked=true) then c:=a+b; if (Checkbox2.Checked=true) then c:=a-b; if (Checkbox3.Checked=true) then c:=a/b; if (Checkbox4.Checked=true) then c:=a*b; edit3.text:=floatToStr(c); end;

16 Практическая работа 3 15 Разместим кнопки и компоненты поле для ввода на форме и настроим внешний вид Разместим на форме компонент выпадающий список (ComboBox)

17 Практическая работа 3 16 Введем строки выпадающего списка

18 Практическая работа 3 17 Двойным щелчком создадим событие, в котором разместим следующий текст: procedure Button1OnClick; var a,b,c:real; k:integer; begin a:=strToFloat(edit1.text); b:=strToFloat(edit2.text); k:=ComboBox1.ItemIndex; if (k=1) then c:=a+b; if (k=2) then c:=a-b; if (k=3) then c:=a*b; if (k=4) then c:=a/b; edit3.text:=floatToStr(c); end; procedure Button1OnClick; var a,b,c:real; k:integer; begin a:=strToFloat(edit1.text); b:=strToFloat(edit2.text); k:=ComboBox1.ItemIndex; if (k=1) then c:=a+b; if (k=2) then c:=a-b; if (k=3) then c:=a*b; if (k=4) then c:=a/b; edit3.text:=floatToStr(c); end;

19 Практическая работа 4 18 Разместим на форме две кнопки и настроим их внешний вид Разместим на форме таймер (Timer)

20 Практическая работа 4 19 В отличии от Delphi и Lazarus таймер отображается не на форме, а на специальной строке внизу экрана

21 Практическая работа 4 20 Установим на форме компонент фигура (Shape) Свойство в котором устанавливается вид фигуры

22 Практическая работа 4 21 Двойным щелчком мыши создадим событие для включения таймера procedure Button1OnClick; begin Timer1.Enabled:=True; end; procedure Button1OnClick; begin Timer1.Enabled:=True; end; Двойным щелчком мыши создадим событие для выключения таймера procedure Button1OnClick; begin Timer1.Enabled:=False ; end; procedure Button1OnClick; begin Timer1.Enabled:=False ; end;

23 Практическая работа 4 22 Двойным щелчком мыши создадим событие которое будет происходить при включенном таймере procedure Timer1OnTimer; begin Shape1.Left:=Shape1.Left+d; if (Shape1.Left>450) or (Shape1.Left450) or (Shape1.Left

24 Практическая работа 4 23 Перейдем на вкладку «События» инспектора объектов, для создания процедуры (события) которое будет происходить при каждом запуске программы. Двойным щелчком мыши по пустому полю создадим событие которое будет происходить при каждом запуске программы procedure Form1OnActivate; begin d:=1; end; procedure Form1OnActivate; begin d:=1; end;

25 Практическая работа 5 24 Установим на форме панель для рисования (PaintBox) Установим на форме компонент меню (MainMenu)

26 Практическая работа 5 25 В отличии от Delphi и Lazarus меню отображается не на форме, а на специальной строке внизу экрана

27 Практическая работа 5 26 Щелчок левой кнопкой запускает редактор меню В пунктирной рамке можно записать первый пункт меню Далее добавляем еще необходимые пункты меню Щелкнув правой кнопкой по пункту меню добавляем вертикальные пункты

28 Практическая работа 5 27 Двойным щелчком мыши создадим событие которое будет происходить выборе пользователем данного пункта меню procedure MainMenu1_2_1OnClick; begin PaintBox1.Canvas.Clear; PaintBox1.Canvas.Line(0,0,350,100); end; procedure MainMenu1_2_1OnClick; begin PaintBox1.Canvas.Clear; PaintBox1.Canvas.Line(0,0,350,100); end;

29 Практическая работа 6 28 Разместим на форме четыре кнопки и настроим их внешний вид Разместим на форме компонент многострочный редактор (TextBox)

30 Практическая работа 6 29 Разместим на форме диалоги «Открыть» (OpenDialog), «Сохранить» (SaveDialog) «Выбор цвета» (ColorDialog)

31 Практическая работа 6 30 Двойным щелчком мыши создадим событие которое будет происходить при нажатии кнопки «Открыть» procedure Button1OnClick; begin if Opendialog1. Execute then TextBox1.Lines.LoadFromFile(Opendialog1.Filename); End; procedure Button1OnClick; begin if Opendialog1. Execute then TextBox1.Lines.LoadFromFile(Opendialog1.Filename); End;

32 Практическая работа 6 31 Двойным щелчком мыши создадим событие которое будет происходить при нажатии кнопки «Сохранить» procedure Button1OnClick; Begin if SaveDialog1. Execute then TextBox1.Lines.SaveToFile(SaveDialog1.Filename); End; procedure Button1OnClick; Begin if SaveDialog1. Execute then TextBox1.Lines.SaveToFile(SaveDialog1.Filename); End;

33 Практическая работа 6 32 Двойным щелчком мыши создадим событие которое будет происходить при нажатии кнопки «Цвет» procedure Button1OnClick; Begin if ColorDialog1. Execute then TextBox1.font.Color:= ColorDialog1.Color; End; procedure Button1OnClick; Begin if ColorDialog1. Execute then TextBox1.font.Color:= ColorDialog1.Color; End;