Урок «Создание проекта в системе программирования Lazarus»

ТЕМА: Создание проекта «Выбор компонентов персонального компьютера» в системе программирования

 

Цель урока: научить применять полученные ранее знания по теме «Основные составляющие персонального компьютера» при создании приложения в системе программирования Lazarus. Продемонстрировать связь таких предметов как «Аппаратно-программное обеспечение ЭВМ» и «Основы программирования».

 

ТИП УРОКА: комбинированный урок

 

ФОРМА ПРОВЕДЕНИЯ: самостоятельная работа, элементы лекции

 

ОБОРУДОВАНИЕ К УРОКУ: Персональный компьютер, мультимедийный проектор, интерактивная доска.

 

ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ: ОС Windows 10, Lazarus

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ:

1. О.П.Новожилов. Основы компьютерной техники, «Радиософт» , 2013.

2. https://docs.altlinux.org/books/freepascal.pdf

Ход урока

 

1. Организационный этап: тема урока, постановка целей и мотивация учебно-познавательной деятельности.

2. Актуализация опорных знаний

Что такое системы программирования?

Какие системы программирования вы знаете?

Что такое интерператоры и компиляторы?

Перечислите основные этапы разработки проекта.

Перечислите основные окна системы программирования

Каким образом можно изменить значения свойств программного объекта?

3. Постановка задачи

Для выполнения лабораторной работы необходимо определить способы предоставления информации о компонентах персонального компьютера и смоделировать выбор компонентов персонального компьютера (CPU, MotherBoard, Video, RAM) в среде Lazarus.

Технология моделирования выбора комплектующих включает следующие шаги:

выбор группы комплектующих (например, MotherBoard ) и формирование списка позиций из указанной группы с ценами;

показ изображений выбранной позиции;

выбор из списка нужной позиции;

показ цены выбранной позиции в валюте (доллар, евро);

вычисление суммы всех выбранных комплектующих.

Примерный вид создаваемого приложения показан на рис.1.

 

Рис.1.- Примерный вид создаваемого приложения.

Определение способа хранения информации

Информацию будем хранить в двух массивах, в первом – названия позиций в группах, во втором – соответствующие им цены.

Разработка интерфейса

Для данной задачи информацию будем располагать на двух формах: на первой форме – группы комплектующих и кнопка выбора, на второй – список наименований из выбранной группы, изображение выбранной позиции и стоимость выбранных компонентов.

При проектировании внешнего вида приложения необходимо создать форму 1 (Form1) и разместить на ней соответствующие компоненты (Button, RadioGroup, Image) и форму 2 (Form2) c компонентами ListBox, Label, Edit, Image.

Виды форм при проектировании приведены на рисунке 2.

Рис. 2. – Вид проектируемых форм.

4. Выполнение задания

Осуществить разработку интерфейса, написать и отладить нужный программный код.

Массивы заполняются данными в момент создания формы 1 (процедура Form1Create).

Фрагмент кода:

procedure TForm1.FormCreate(Sender: TObject);

begin

//заполнение массива позициями CPU

a[1,1] := 'AMD Ryzen 5 1600X ';

a[2,1] := 'Intel Core i7-8700K ';

a[3,1] := 'AMD Ryzen 5 1600 ';

a[4,1] := 'AMD Ryzen 7 1700 ';

…

// заполнение массива ценами позиций CPU

b[1,1] := 16500;

b[2,1] := 32000;

b[3,1] := 14000;

b[4,1] := 25000;

end;

Для кнопки Выбор создается процедура, позволяющая показать список выбранных позиций и их цены (номер столбца соответствующей категории запоминается в переменной j):

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0: j:=1; // номер столбца соответствующей группы

1: j:=2;

2: j:=3;

3: j:=4;

end;

end;

Заполнение поля ListBox (Форма 2) данными из массивов a и b:

procedure TForm2.FormActivate(Sender: TObject);

var i:integer;

begin

listbox1.Clear;

for i := 1 to 4 do

ListBox1.items.add(a[i,j] + ‘ ‘ + b[i,j]);

end;

По одинарному клику мыши на позиции выводится изображение компонента

Фрагмент кода:

procedure TForm2.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

if j=1 then

Image1.Picture.LoadFromFile('1.png');

if j=2 then

Image1.Picture.LoadFromFile('vidio1.jpg');

if j=3 then

Image1.Picture.LoadFromFile('mat1.jpg');

if j=4 then

Image1.Picture.LoadFromFile('ozy1.jpg');

end;

…

Еnd;

Задание. Самостоятельно добавить нужный код.

По двойному клику мыши на позиции выводится цена выбранного компонента и накопление суммы выбранных товаров, а также перерасчет цены выбранной позиции в другие валюты.

Фрагмент кода:

procedure TForm2.ListBox1DblClick(Sender: TObject);

begin

i := ListBox1.ItemIndex;

s := s+b[i+1,j];

Form2.Edit1.Text:= inttostr(s);

g := s;

g := g/55.6717; //в доллары

Form2.Edit2.Text:= floattostrF(g,fffixed,6,2);

h := s;

h := h/68.6599; //в евро

Form2.Edit3.Text:= floattostrF(h,fffixed,6,2);

end;

Выбранный список позиций отображается на Форме 2.

 

Задание. Предусмотреть занесение выбранных позиций с ценами в таблицу (компонент StringGrid), например, так:

 

Если необходимо расширить список наименований, то следует изменить границы массивов и при загрузке формы задать все необходимые значения. При работе с приложением можно выбирать наименования компонент сколько угодно раз.

5. Подведение итогов урока и рефлексия