Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Практическая работа_Delphi.doc
Скачиваний:
70
Добавлен:
27.10.2018
Размер:
412.67 Кб
Скачать

Практическая работа № 7 "Разработка проекта Цвета в формате rgb"

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

Разработать программу, с помощью которой пользователь мог бы увидеть в зависимости от значений насыщенности красного, зеленого и синего результирующий цвет.

Рисунок 14

Пояснения: новым в этой программе будет использование:

  • Полос прокрутки ScrollBar (страница палитры компонентов Standard) в качестве ввода данных,

  • Функций преобразования значений цветовых составляющих – tColorRef.

  1. План разработки программы

  1. Открыть новый проект.

  2. Разместить в форме компоненты в соответствии с рисунком 15.

Рисунок 15

  1. Полоса прокрутки ScrollBar может быть горизонтальной (по умолчанию) или вертикальной. Это определяется свойством Kind. В нашем случае используется вертикальная полоса прокрутки.

  2. Сохранить проект под именем, например, Pr6.pas и Pr6.dpr

  1. Выполнить следующие действия:

Выделенная компонента

Окно инспектора объектов

Имя свойства

Действие

ScrollBar1

Propeties

Name

Заменить на RedBar

Max

255

диапазон целых значений (максимальное) – количество градаций компонент RGB

Position

122

начальное значение

Аналогично задайте значения для ScrollBar2 и ScrollBar3, присвоив им имена GreenBar и BlueBar.

  1. Для всех компонентов формы свойству Caption дайте значение ' '.

  2. Выполнить следующие действия:

Выделенная компонента

Окно инспектора объектов

Имя свойства

Действие

RedBar (см. п.5 -ScrollBar1)

Events

OnChange

Panel1.Color:=

TColorRef(RGB(RedBar.Position,0,0));

Label.Caption:=IntToStr(RedBar.Position);

Panel4.Color:= TcolorRef(RGB (RedBar.Position, GreenBar.Position, BlueBar.Position));

Аналогично задайте значения для ScrollBar2 и ScrollBar3, проследите за правильность записи параметров в функции RGB и IntToStr.

Пояснения.

В зависимости от передвижения ползунка ScrollBar1, будет меняться цвет Panel1, выводиться числовое значение кода на месте Label и меняться цвет Panel4.

  1. Сохранить проект окончательно, запустить и протестировать его.

3. Задание

  1. Вставьте кнопку выхода из программы.

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

Подсказка. Поместить в событие при создании формы (OnCreate для Form1) обработку значений позиции ScrollBar1, ScrollBar2 и ScrollBar3.

  1. Внесите изменения так, чтобы выводились на экран значение кода цвета ни только в десятичной системе счисления, но и в шестнадцатеричной системе счисления.

Практическая работа № 8 "Тест по информатике"

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

Создать программу, с помощью которой можно выполнить:

После запуска программы появляется изображение аналогичное рисунку 16. Пользователь по своему усмотрению выбирает один из переключателей в группе. В зависимости от правильности ответов появляется одно из сообщений "Плохо", "Удовлетворительно", "Хорошо", "Отлично".

Рисунок 16

Пояснения: новыми в этой программе являются группа переключателей RadioGroup на странице палитры компонентов Standard и оператор вывода сообщений ShowMessage.