Главная страница
Навигация по странице:

  • Студент должен: знать

  • Подготовка к работе :повторить лекционный материал Задание

  • Умозаключение Введенный текст сохраните в файле T_2.txt.

  • Задание для самостоятельного выполнения

  • Контрольные вопросы и задания

  • Лабораторная работа № 15 Тема

  • RedBar

  • ScrollBar . TColorRef

  • Подсказка

    		•

    Методические указания по лабораторным работам по ПП. Создание и сохранение проектов, форм, модулей


    Скачать 1.04 Mb.
    НазваниеСоздание и сохранение проектов, форм, модулей
    АнкорМетодические указания по лабораторным работам по ПП
    Дата29.11.2020
    Размер1.04 Mb.
    Формат файлаdoc
    Имя файлаМетодические указания по лабораторным работам по ПП.doc
    ТипЛабораторная работа
    #154947
    страница5 из 5
    1   2   3   4   5
    Тема: Работа с переключателями - проект «Тест по информатике».

    Цель: закрепить теоретические знания и получить практические навыки по работе с переключателями.

    Студент должен:

    знать:

    - язык Delphi;

    - свойства формы;

    - состав проекта Delphi;

    - компоненты Delphi;

    - среду Delphi;

    - объекты Delphi – RadioGroup;

    - свойство ItemInde;.

    уметь:

    - писать программы на языке Паскаль;

    - изменять свойства компонент и формы;

    - прописывать код в оболочке Delphi;

    - работать с группой переключателей;

    - работать с окном вывода информации.

    Литература:

    1. Шумаков П.В. Delphi 7: руководство разработчика / П.В. Шумаков. - М.: Нолидж, 2011

    2. Бобровский С. Delphi 7: учебный курс / С. Бобровский. - М.: Питер, 2010

    3. Фленов М. Библия Delphi / М. Фленов. – СПб: БХВ-Петербург, 2012

    4. Хомоненко А. Delphi 7 / А. Хоменко. - СПб: БХВ-Петербург, 2011

    Подготовка к работе:

    повторить лекционный материал
    Задание:

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



    Рисунок 1
    Порядок выполнения:

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

    2. Разместите в форме объекты в соответствии с рисунком 2 и присвойте заголовки меткам и панелям.



    Рисунок 2

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

    Выделенный объект
    Вкладка окна Object Inspector
    Имя свойства/ Имя события
    Значение/Действие



    Label1

    Properties

    Caption

    Основоположник алгебры логики




    Label2

    Properties

    Caption

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




    Label3

    Properties

    Caption

    Выберите пример, не являющийся высказыванием




    Label4

    Properties

    Caption

    . . . высказываний истина тогда и только тогда, когда истинны оба высказывания




    Label5

    Properties

    Caption

    Операция логического сложения - это операция




    RadioGroup1

    Properties

    Caption

    Ответы 1




    Columns

    4




    Items

    Лейбниц

    Буль

    Нейман

    Паскаль

    Введенный текст сохраните в файле T_1.txt (см. Проект «Справочник»).




    RadioGroup2

    Properties

    Caption

    Ответы 2




    Columns

    3




    Items
    Высказывание

    Суждение

    Умозаключение

    Введенный текст сохраните в файле T_2.txt.



    RadioGroup3

    Properties

    Caption

    Ответы 3



    Columns

    4




    Items

    2 + 8 >6

    2 + 6 + 8

    2 + 8 < 6

    2 + 6 = 8

    Введенный текст сохраните в файле T_3.txt.




    RadioGroup4

    Properties

    Caption

    Ответы 4



    Columns

    4




    Items

    Импликация

    Дизъюнкция

    Инверсия

    Конъюнкция

    Введенный текст сохраните в файле T_4.txt.




    RadioGroup5

    Properties

    Caption

    Ответы 5






    Columns

    4




    Items

    Инверсия

    Конъюнкция

    Дизъюнкция

    Импликация

    Введенный текст сохраните в файле T_5.txt.





    4. Сохраните код программы и проект.

    1. Вставьте в разделе реализации после ключевого слова implementation объявление переменной для подсчета правильных ответов:

    Var SUM : Byte;

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

    Выделенный объект
    Имя события
    Действие

    RadioGroup1

    OnClick

    SUM := 0;

    If RadioGroup1.ItemIndex=0 Then SUM := SUM + 1;

    Комментарий

    Индекс первого переключателя равен 0. Правильный ответ содержит переключатель с меткой «Лейбниц», имеющий индекс 0.




    1. Вставьте в обработчики событий RadioGroup2.OnClick, RadioGroup3.OnClick, RadioGroup4.OnClick, RadioGroup5.OnClick аналогичные коды, с учетом правильных ответов, но без обнуления переменной SUM, так как это необходимо лишь один раз перед началом суммирования.

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




    Выделенный объект
    Имя события
    Действие

    RadioGroup5

    OnClick

    Case SUM of 0..2:

    Panel1.Caption := 'Плохо!';

    3:Panel1.Caption:= 'Удовлетворительно!';

    4: Panel1.Caption := 'Хорошо!';

    5: Panel1.Caption := 'Отлично!';

    end;

    Ввести код для показа сообщения – «Конец теста»;




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


    Задание для самостоятельного выполнения

    1. Для контроля правильности работы программы выведите на панель количество правильных ответов пользователя.

    2. Запустите программу и убедитесь, что верная сумма баллов получается лишь при последовательном выборе переключателей сначала из RadioGroup1, затем из RadioGroup2 и т.д. Если порядок нарушен, то результат может быть неверным. Исправьте эту ошибку.

    3. Введите дополнительную кнопку «Повторить», которая позволит повторно выполнить задание.

    4. Для наглядности предусмотрите возможность вывода результата разным цветом.
    Контрольные вопросы и задания:

    1. Элементы интерфейса среды Delphi.

    2. Основные файлы проекта.

    3. Основные компоненты Delphi.

    4. Объект Delphi – RadioGroup;

    5. Свойство ItemIndex.

    6. Окно вывода информации.

    Лабораторная работа № 15
    Тема: Работа с полосой прокрутки ScrollBar - преобразование значений цветовых составляющих.

    Цель: закрепить теоретические знания и получить практические навыки по работе с полосой прокрутки ScrollBar.

    Студент должен:

    знать:

    - язык Delphi;

    - свойства формы;

    - состав проекта Delphi;

    - компоненты Delphi;

    - среду Delphi;

    - объект Delphi – полоса прокрутки ScrollBar;

    уметь:

    - писать программы на языке Паскаль;

    - изменять свойства компонент и формы;

    - прописывать код в оболочке Delphi;

    - использовать для ввода данных полосу прокрутки ScrollBar вкладки палитры компонентов Standard,

    - использовать функцию преобразования значений цветовых составляющих – TColorRef.

    Литература:

    1. Шумаков П.В. Delphi 7: руководство разработчика / П.В. Шумаков. - М.: Нолидж, 2011

    2. Бобровский С. Delphi 7: учебный курс / С. Бобровский. - М.: Питер, 2010

    3. Фленов М. Библия Delphi / М. Фленов. – СПб: БХВ-Петербург, 2012

    4. Хомоненко А. Delphi 7 / А. Хоменко. - СПб: БХВ-Петербург, 2011

    Подготовка к работе:

    повторить лекционный материал

    Задание:

    Создайте программу, с помощью которой пользователь может увидеть в зависимости от значений насыщенности красного, зеленого и синего результирующий цвет (рисунок 1).



    Рисунок 1
    Порядок выполнения:

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

    2. Разместите в форме экземпляры компонентов в соответствии с рисунком 2.



    Рисунок 2
    Комментарий

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

    3. Сохраните код программы и проект под именами, например, Unit15.pas и Pr15.dpr.

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



    Выделенный объект
    Вкладка окна Object Inspector
    Имя свойства/ Имя события
    Значение/Действие

    Panel1

    Properties

    Name

    RedPanel

    Комментарий

    Установка имени панели RedPanel, под которым компонент будет известен программе.

    Caption

    Удалить название объекта

    Label1

    Properties

    Name

    RedLabel

    Комментарий

    Установка имени метки RedLabel, под которым компонент будет известен программе.

    Caption

    Удалить название объекта

    ScrollBar1

    Properties

    Name

    RedBar

    Комментарий

    Установка имени полосы прокрутки RedBar, под которым компонент будет известен программе.

    Max

    255

    Комментарий

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

    Position

    122

    Комментарий

    Начальная позиция ползунка – начальное значение.


    Аналогично задайте значения для ScrollBar2, Panel2, Label2, присвоив им имена GreenBar, GreenPanel, GreenLabel и ScrollBar3, Panel3, Label3, присвоив им имена BlueBar, BluePanel, BlueLabel.

    5. Когда на форме много компонентов, ручное выравнивание становится весьма утомительным занятием. Для этого случая в среде Delphi предусмотрены средства автоматизированного выравнивания компонентов.

    Выделите компоненты, которые собираетесь выровнять, в нашем случае это RedLabel (Label1), RedPanel (Panel1), RedBar (ScrollBar1). Во всех четырех углах каждого выделенного компонента появятся небольшие квадратики-маркеры. А затем вызовите команду главного меню Edit/Align, в результате откроется окно Alignment (рисунок 3).



    Рисунок 3

    Выберите в списке нужный режим выравнивания и нажмите клавишу «OK».

    Повторите эту же операцию для других групп компонент (GreenBar, GreenPanel, GreenLabel и BlueBar, BluePanel, BlueLabel).

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


    Выделенный объект
    Вкладка окна Object Inspector
    Имя свойства/ Имя события
    Значение/Действие

    RedBar (см. п.4 -ScrollBar1)

    Events

    OnChange

    RedPanel.Color:= TColorRef(RGB(RedBar.Position,0,0)); RedLabel.Caption:=IntToStr(RedBar.Position); Panel4.Color:= TcolorRef(RGB (RedBar.Position, GreenBar.Position, BlueBar.Position));

    Комментарий

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

    Функция RGB(R,G,B) превращает три составляющие цвета из трех отдельных значений в одно целое значение цвета. У этой функции три параметра R – значение красного цвета, G – значение зеленого цвета, B – значение синего цвета.

    В нашем случае в качестве параметров используются значения соответствующих полос прокрутки ScrollBar.

    TColorRef – это 32-битовое значение, сооветствующее цвету, которое получается с помощью функции RGB.



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

    7. Сохраните проект окончательно, запустите и протестируйте его.
    Задание для самостоятельного выполнения

    1. Сделайте к программе заголовок

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

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

    Подсказка.

    Поместите в событие при создании формы (OnCreate для Form1) обработку значений позиции RedBar, GreenBar и BlueBar.
    Контрольные вопросы и задания:

    1. Элементы интерфейса среды Delphi.

    2. Основные файлы проекта.

    3. Основные компоненты Delphi.

    5. Объект Delphi – полоса прокрутки ScrollBar.

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

    7. Цвет в компьютерной графике

    1   2   3   4   5

    написать администратору сайта