Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
15. Построение форм с обработкой событий, испол...docx
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
550.9 Кб
Скачать

Министерство образования и науки РФ

ФГОУ СПО «Новосибирский авиационный технический колледж»

УТВЕРЖДАЮ

Председатель цикловой

комиссии (код)

____________ А.А.Певина

Протокол № __ от «___» _________ 20_г.

Построение форм с обработкой событий, использующих ветвление, циклические формы

Методические указания к практическому занятию 15

(6.3)

Учебная дисциплина: Информатика

Специальность:151901 Технология машиностроения

160108 Производство летательных аппаратов

230113 Компьютерные системы и комплексы

230115 Программирование в компьютерных системах

Разработал:

А.А.Певина

(2011)

1 Цели

    1. В ходе выполнения работы студенты осваивают:

      1. Общие компетенции:

- Организовывать собственную деятельность, выбирать типовые методы и способы выполнения профессиональных задач, оценивать их эффективность и качество

- Принимать решения в стандартных и нестандартных ситуациях и нести за них ответственность

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

- Использовать информационно-коммуникационные технологии в профессиональной деятельности

- Работать в коллективе и в команде, эффективно общаться с коллегами, руководством, потребителями

- Брать на себя ответственность за работу членов команды (подчиненных), за результат выполнения заданий

1.1.2 Начальные профессиональные компетенции:

- готовность и способность обучаться самостоятельно;

- владение современными средствами информатизации;

1.2 В результате выполнения работы студенты:

1.2.1 Осваивают умения:

  • записывать на языке программирования алгоритм решения учебной задачи и отлаживать её.

  • Научиться писать программы с использованием проверки условия.

  • Целью работы является изучение возможностей разработки приложений с циклическими алгоритмическими структурами.

1.2.2 Усваивают знания:

  • назначение языков программирования;

  • основные типы данных и формы их представления для обработки на компьютере;

  • основные элементы языка Visual Basic, типы переменных, операторы и команды;

  • организацию следования, ветвления, циклов в Visual Basic, использования подпрограмм;

  • правила записи программ.

2 Оборудование, аппаратура, материалы, инструменты,

документация или дидактическое обеспечение

Персональный компьютер с установленным программным обеспечением.

3 Форма организации

- индивидуальная.

4 Инструктаж

4.1. Порядок включения-отключения ПК;

4.2. Правила безопасной работы;

4.3. Правила техники безопасности.

5 Порядок выполнения

Задания выполняются под руководством преподавателя.

Задание 1

Загрузите Visual Studio.NET. Нажмите на панели задач Windows кнопку «Пуск» (Start), в появившемся меню выберите «Все Программы», затем в появившемся меню – Microsoft Visual Studio.NET, а затем в появившемся меню – снова Microsoft Visual Studio.NET. (В дальнейшем вместо словесного описания щелчков мыши в меню я для краткости буду писать так: Пуск  Все Программы  Microsoft Visual Studio .NET  Microsoft Visual Studio .NET). При первом запуске необходимо выбрать язык программирования на открывшейся странице, вам следует выбрать Visual Basic. Создайте новый проект (файл - создать проект). Чтобы сохранить проект, надо выбрать «файл-сохранить все». В открывшемся поле выбрать свой сетевой диск и в него сохранить проект.

Создать проект, «Тест по информатике», который содержит несколько вопросов и варианты ответов.

  1. Создайте новый проект, назовите его Лабораторная работа 15

  2. Переименуйте форму: свойство Text - Заставка.

Чтобы добавить в ListBox данные, нажмите на стрелочку вверху ListBox, выберите «Правка элементов» и введите текст.

  1. Создайте еще одну форму, изменив ее свойство Text с Form2 на Тест.

Чтобы добавить вкладку в TabControl, также как и в предыдущем пункте нажмите на стрелочку и выберите «Добавиь вкладку».

На каждой из вкладок вы добавляете одинаковый набор элементов (вопрос, варианты ответа, кнопка Готово). Таким образом, вы не копируете только ProgressBar, и два Label, «Ваш результат» и пустой, в котором будет отражаться результат тестирования. Эти элементы находятся на форме, а не в TabControl.

Придумайте еще 2 вопроса по информатике и добавьте их на новые вкладки.

Задание 2

- Создайте программный код.

  • Программируем Заставку.

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

Вам необходимо чтобы при нажатии на кнопку «Начать тест», у вас появлялось окно Теста, т.е. Form2. Как это описать в программном коде, вы узнали предыдущей лабораторной работе.

  • Программируем Тест.

Когда открывается окно Теста, включается Timer и ProgressBar. Максимальное значение ProgressBar вы выбираете по своему усмотрению в окне свойств. Чтобы ProgressBar отсчитывал секунды, вам понадобится таймер из панели элементов. Когда вы его добавите, то увидите, что таймер добавляется не на форму, а чуть ниже.

Интервал таймера измеряется в миллисекундах. Поэтому чтобы таймер считал секунды, задайте интервал равным 1000, что означает 1с. Таким образом, на тест отведется определенное время.

Чтобы таймер включился, используйте код: Timer1.Enabled = True

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

Здесь вам понадобится конструкция If….Else….End If

Программный код:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If ProgressBar1.Value = 30 Then

Timer1.Enabled = False

MsgBox("Время вышло!!!!, Ваш результат:" & Str(X))

Else

ProgressBar1.Value = ProgressBar1.Value + 1

End If

End Sub

Проанализируйте данный код и прокомментируйте его в отчете.

Таким образом, при загрузке формы включается таймер, а при включении таймера начинает работать ProgressBar.

  • Далее вы выбираете вкладку с вопросом и программируете схему ответа на вопрос.

Схема ответа: чтобы ответить на вопрос, отвечающий на тест должен выбрать нужный RadioButton и нажать на кнопку Готово. После того как нажата кнопка Готово один раз, она перестает работать (пример: Button3.Enabled = False), т.е. отвечающий больше не сможет на нее нажать и баллы не будут изменяться.

Если выбран правильный ответ, то к результату добавляется 1 балл. Если ответ неправильный – то отнимается, (рядом с Label «Ваш результат» на форме есть пустой Label, который вы добавили при построении формы, в нем и фиксируется результат теста).

Как использовать RadioButton, вы узнали из предыдущих лабораторных работ.

  • После ответа на первый вопрос, отвечающий выбирает вторую вкладку, и отвечает на вопрос, написанный в этой вкладке. После нажатия на кнопку Готово на второй вкладке она также как и кнопка Готово на первой вкладке, перестает работать. А к уже имеющемуся результату добавляется или отнимается еще один балл.

  • Аналогично работают и все остальные вкладки.

Чтобы запрограммировать отражение результата в Label, вам, возможно, понадобится создать глобальную переменную с начальным значением ноль, т.к. изначально мы имеем ноль баллов. В этой переменной будет накапливаться сумма баллов за ответы на все вопросы. Например: Dim X As Integer = 0

Код вписывайте, открывая окно кода для каждой кнопки двойным щелчком мыши на ней. Номер переключателя RadioButton в заголовке процедуры Private Sub должен совпадать с номером в условном операторе.

  • Чтобы значение результата менялось, можно использовать конструкцию If, добавив Else….End If к следующему коду:

If RadioButton3.Checked = True Then

X = X + 1

Label3.Text = Str(X)

Доработайте данную конструкцию либо испльзуйте свой код.

Таким образом, когда ответ правильный, то X = X + 1. Если неправильный, то X = X – 1.

Функция Str(X)используется для преобразования числа в текст. Эту же функция можно использовать при программировании MsgBox, чтобы в сообщении отражалось количество заработанных баллов.

  • Запустите построение и отладку проекта, проверьте работу кнопки на первой форме и правильность подсчѐта баллов на первой вкладке второй формы.

  • Если всѐ правильно, доработайте вторую и третью вкладки, аналогично первой. Не забудьте менять в коде X = X + 1 или X = X – 1 в зависимости от того, правильный или неправильный ответ на кнопке. Описывать переменную X больше не надо.

Задание 3

Перестройте и отладьте проект, проверьте его работу, вводя правильные и неправильные ответы.