Практичне заняття № 9

Тема: Використання компонентів TrackBar, GroupBox та CheckBox

Мета: Ознайомити студентів з компонентами TrackBar, GroupBox та CheckBox. Закріпити отримані знання на практиці.

Література

1. М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.

2. Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.

3. Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.

4. Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.

5. http://www.programmersclub.ru/book/ - електронні підручники по Delphi

6. http://pitbooks.ru/delphi/ - електронні підручники по Delphi

Завдання для виконання

Створити програму, яка виконуватиме слідуючі дії:

1. Після запуску програми у вікні зображує два повзунка.

2. Необхідно вибрати два числових значення і знайти їх добуток.

3. Якщо вибирається одне число, то знаходиться його квадрат.

4. Для виходу з програми необхідно натиснути мишею на закриваючою кнопці в рядку заголовка.

Опис плану розробки програми

1. Відкрити новий проект.

2. Розмістити на формі екземпляри компонентів: командна кнопка Button, движок TrackBar, рамка GroupBox, напис Label, прапорець CheckBox.

3. Виконати наступні дії:

4. Запустіть проект, збережіть та протестуйте його.

Лістинг підпрограми

procedure TForm1.TrackBar1Change (Sender: TObject);

begin

Label1.Caption := IntToStr(TrackBar1.Position);

Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position);

if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;

end;

procedure TForm1.TrackBar2Change (Sender: TObject);

begin

Label2.Caption := IntToStr(TrackBar2.Position);

Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position);

if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;

end;

procedure TForm1.CheckBox1Click (Sender: TObject);

begin

TrackBar2.Position := TrackBar1.Position;

end;

Завдання для самостійного виконання

1. Змінити програму так, щоб знаходити твори не тільки двозначних, але й тризначних чисел від 2 до 199.

2. Змінити програму так, щоб знаходити суму двох чисел.

Практичне заняття № 10

Тема: Введення та виведення табличних даних. Компонент String Grid.

Мета: Ознайомити студентів з поняттям таблиці в Delphi. Розглянути компонент String Grid. Закріпити отримані знання на практиці.

Література

1. М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.

2. Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.

3. Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.

4. Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.

5. http://www.programmersclub.ru/book/ - електронні підручники по Delphi

6. http://pitbooks.ru/delphi/ - електронні підручники по Delphi