Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Технологии программирования. Практикум для студентов, обучающихся по направлению подготовки 51.03.06 «Библиотечно-информационная деятельность», профил
.pdf
28. В обработчике событий PictureBox2_Click добавьте сле-
дующий код:
PictureBox2.Image = My.Resources.MyPictureName2
Необходимо заменить "MyPictureName2" на фактическое имя
второго изображения, которое было добавлено ранее.
29. В Обозревателе решений выберите Form2.vb, а затем в ме-
ню Вид выберите Конструктор.
30. Перетащите на форму элемент Label и настройте его свой-
ства (таблица 7).
Таблица 7 – Свойства и значения элемента Label
Свойства Значения
Text
Font
«Фотографии города ночью»
Шрифт, начертание, размер выбрать по своему
усмотрению
ForeColor
AutoSize
TextAlign
Цвет шрифта выбрать по своему усмотрению
False
Выравнивание текста по центру
Внешний вид формы приведен на рисунке 12.
Рисунок 12 – Пример внешнего вида формы «Ночной Кемерово»
21
31. В Обозревателе решений выберите Form1.vb, а затем в ме-
ню Вид выберите Конструктор.
32. Дважды щелкните элемент управления Button «Ночной го-
род», чтобы открыть обработчик событий Button1_Click в редакторе
кода.
33. В обработчике событий Button1_Click добавьте следующий
код:
Form2.Show()
34. В обозревателе решений выберите Form1.vb, а затем в ме-
ню Вид выберите Конструктор.
35. Дважды щелкните элемент управления Button «Ночной го-
род», чтобы открыть обработчик событий Button2_Click в редакторе
кода.
36. В обработчике событий Button2_Click добавьте следующий
код:
End
37. Нажмите клавишу F5 для запуска приложения.
38. Сохраните проект. В интегрированной среде разработки
Visual Basic выполните команду Файл – Сохранить все. В открыв-
шемся окне укажите имя и путь к вашей папке.
Контрольные вопросы:
1. Для чего используется элемент PictureBox?
2. Как добавить файл к существующим ресурсам в программе?
3. Что означает метод Show?
Список литературы:
1. Баженова, И. Ю. Языки программирования [Текст]: учебник
для студентов / И. Ю. Баженова; под ред. В. А. Сухомлина. – Москва:
Академия, 2012. –
С. 256–265.
2. Visual Basic. Самоучитель для начинающих [Электронный
ресурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
22
С. 160–165, 174–182. – Университетская библиотека online. – Режим
доступа: http://biblioclub.ru/index.php?page= book&id=136080
Лабораторная работа № 3
(2 часа)
Компьютерные программы разветвленной структуры
Цель работы: получить навыки работы с программами разветв-
ленной структуры.
Задачи работы:
овладеть техникой ветвления при программировании в интег-
рированной среде разработки Visual Basic;
получить навыки использования оператора If.
Обеспечивающие средства: ОС Windows 7 и выше; интегриро-
ванная среда разработки Visual Basic 2010.
Теоретическая часть
Программой ветвящейся структуры является такая программа,
которая выбирает один из нескольких возможных путей (вариантов)
вычислительного процесса.
Признаком разветвляющейся структуры программы является на-
личие операций условного перехода, когда происходит проверка ис-
тинности некоторого логического выражения (проверяемое условие)
и, в зависимости от истинности или ложности
проверяемого условия,
выполняется то или иное действие в программе.
В интегрированной среде разработки Visual Basic существуют
две формы оператора If: однострочная и многострочная.
Синтаксическая схема однострочного оператора If:
If условие Then операторы [ Else операторы ]
Квадратные скобки означают, что их содержимое можно писать,
а можно и не писать в операторе. Значения синтаксической схемы
23
расписаны в таблице 8. Примеры записи оператора If приведены в
таблице 9.
Таблица 8 – Значения синтаксической схемы
Обозначение Примеры записи
операторы
Любой оператор или группа операторов, раз-
деленных двоеточиями
условие
Два арифметических или строковых выражения,
соединенных знаком сравнения
знак сравнения
> больше, >= больше или равно, = равно,
< меньше, <= меньше или равно, <> не равно
Таблица 9 – Примеры записи оператора If
Фрагмент программы Печать
a=10
If a>2 Then Debug.WriteLine ("!!!") Else Debug.WriteLine
("!") !!!
a=4
If a>5 Then a=a+10 Else a=a-1
Debug.WriteLine (a) 3
s=6
If s-8<>0 Then s=2*s
Debug.WriteLine (s) 12
Синтаксическая схема многострочного оператора If указана
ниже:
If условие Then
операторы
операторы
…………….
24
[ElseIf условие Then
операторы
операторы
……………. ]
……………………….….
[Else
операторы
операторы
……………. ]
EndIf
Ветвей ElseIf может быть сколько угодно или совсем не быть.
Если ветвь есть, то она стоит последней.
Технология работы
1. В меню Windows Пуск выберите Visual Basic 2010, экспресс-
выпуск.
2. В меню Файл выберите пункт Создать проект.
3. В диалоговом окне Создание проекта в области Шаблоны
выберите Приложение Windows.
4. В поле Имя введите «Задачи Ваша Фамилия» и нажмите
кнопку ОК.
5. Настройте общий вид формы: придайте ей имя «Решение за-
дач», измените цвет фона по вашему усмотрению, установите свойст-
во, которое при запуске программы будет помещать окно в центре эк-
рана.
6. Из Панели элементов перетащите на форму TabControl
, растяните элемент на все форму.
7. Добавьте еще одну вкладку на данном элементе. Для этого
необходимо щелкнуть правой клавишей мыши по строке с вкладками
и выбрать пункт Добавить вкладку (появится форма с тремя вклад-
ками на ней – рисунок 13).
25
Рисунок 13 – Пример формы «Решение задач» с вкладками
8. Настройте внешний вид первой вкладки формы (таблица 10).
Таблица 10 – Свойства и значения элемента первой вкладки
формы
Свойства Значения
Text
BackColor
Cursor
Задача № 1
Любой цвет формы на ваше усмотрение
Настройте по своему усмотрению
9. C панели элементов перетащите на форму элемент Label
(свойства и значения приведены в таблице 11). Введите в эту метку
условие задачи, настройте шрифт и цвет текста. Пример формы приведен на рисунке 14.
Таблица 11 – Свойства и значения элемента Label
Свойства Значения
Text Сравнить два числа. Если первое больше второго, то
вывести их сумму, иначе – произведение. После решения задачи компьютер должен вывести надпись
AutoSize
TextAlign
«ЗАДАЧА РЕШЕНА УСПЕШНО!»
False
MiddleCenter (посередине в центре)
26
Окончание табл.
11
Font
Размер, стиль текста установите по вашему усмотрению
ForeColor
Цвет текста
Рисунок 14 – Пример внешнего оформления вкладки «Задача № 1»
10. Установите на форме две пары элементов Label2 – Textbox1;
Label3 – Textbox2. Элементам Label2, Label3 присвойте текст Вве-
дите число (Свойство Text).
11. Установите на форме элементы Label4, Label5. Настройте
общий вид этих элементов.
12. Установите на форме элемент Button1 – присвойте имя
«Вычисление».
13. Настройте общий вид кнопки Button1 по вашему усмотре-
нию.
14. Дважды щелкните элемент управления Button1 (Вычи-
сление), чтобы открыть редактор кода. В процедуру события
Button1_Click добавьте следующий код:
Dim A As Double = TextBox1.Text
Dim B As Double = TextBox2.Text
If A > B Then Label4.Text = "Сумма чисел=" & A + B Else
Label4.Text = "Произведение чисел=" & A * B
Label5.Text = "ЗАДАЧА РЕШЕНА УСПЕШНО!"
27
15. Запустите программу на исполнение.
16. Перейдите в форме на вкладку TabPage2.
17. Настройте внешний вид второй вкладки формы (таблица 12).
Таблица 12 – Свойства и значения элемента второй вкладки
формы
Свойства Значения
Text
BackColor
Cursor
Задача № 2
Любой цвет формы на ваше усмотрение
Настройте по своему усмотрению
Внешний вид формы приведен на рисунке 15.
Рисунок 15 – Пример внешнего оформления вкладки «Задача № 2»
18. Из панели элементов перетащите на форму элемент Label
(таблица 13). Введите в эту метку условие задачи, настройте шрифт и
цвет текста.
Таблица 13 – Свойства и значения элемента Label
Свойства Значения
Text В компьютер вводится число a. Компьютер должен:
Если a<0, сказать «Число отрицательно».
Если a=0, сказать «Вы ввели нуль».
Если a>100, сказать «Число большое».
28
В остальных случаях компьютер должен сказать
«Ваше число положительное, его квадрат = вычис-
лить и напечатать его квадрат».
В любом случае после всего этого компьютер должен
сказать «До свидания».
AutoSize
TextAlign
Font
False
MiddleCenter (посередине в центре)
Размер, стиль текста установите по вашему усмотрению
ForeColor
Цвет текста
19. Установите на форме элемент Button2 – присвойте имя
«Вычисление».
20. Настройте общий вид кнопки Button2 по вашему усмотре-
нию.
21. Дважды щелкните элемент управления Button2 (Решение
задачи), чтобы открыть редактор кода. В процедуру события
Button2_Click добавьте следующий код:
Dim a As String
a = InputBox("Введите число")
If a < 0 Then
MsgBox("Число отрицательно")
ElseIf a = 0 Then
MsgBox("Вы ввели нуль")
ElseIf a > 100 Then
MsgBox("Число большое")
Else
MsgBox("Число положительное и его квадрат =" & a ^ 2)
End If
MsgBox("До свидания!")
22. Запустите программу на исполнение.
23. Перейдите в форме на вкладку TabPage3, назовите ее «Зада-
ча № 3».
24. Настройте внешний вид третьей вкладки формы.
29
25. Попробуйте самостоятельно на третьей вкладке составить
программу решения задачи: «В компьютер вводится число (пусть для
конкретности это будет дальность какого-нибудь выстрела). Если
оно находится в интервале от 28 до 30, то напечатать текст
ПОПАЛ, иначе – НЕ ПОПАЛ».
26. Запустите программу на исполнение.
Решение задачи № 3:
Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button3.Click
Dim d As Double = InputBox("Введите дальность выстрела")
If d < 28 Or d > 30 Then
MsgBox("НЕ ПОПАЛ")
Else
If d = 28 Or d = 29 Or d = 30 Then MsgBox("ПОПАЛ")
End If
End Sub
28. Сохраните проект. Выполните команду Файл – Сохранить
все. В открывшемся окне укажите имя и путь к вашей папке.
Контрольные вопросы:
1. Как строятся программы разветвленной структуры? Приведите
примеры.
2. Что означает оператор Dim?
3. Какой смысл несет операнд «&»?
Список литературы:
1. Грошев, А. С. Информатика: учебник для вузов [Электронный
ресурс] / А. С. Грошев. – Москва; Берлин: Директ-Медиа, 2015. –
С. 388–390 – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page=book&id=428591
2. Visual Basic. Самоучитель для начинающих [Электронный ре-
сурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 103–127. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
30
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]