Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Технологии программирования. Практикум для студентов, обучающихся по направлению подготовки 51.03.06 «Библиотечно-информационная деятельность», профил
.pdf
Технология работы
1. В меню Файл выберите Создать проект.
2. В диалоговом окне Создание проекта в области Шаблоны
выберите Приложение Windows.
3. В поле Имя введите Создание меню и нажмите кнопку ОК.
Откроется новый проект Windows Forms.
4. Настройте общий вид формы: придайте ей имя «Вычисление
площади и объема цилиндра», измените цвет фона на белый, устано-
вите свойство, которое при запуске программы будет помещать окно
в центр экрана.
5. Установите на форме две пары элементов Label1 – Textbox1;
Label2 – Textbox2. Элементам Label1 ; Label2 присвойте текст Вве-
дите радиус цилиндра; Введите высоту цилиндра (Свойство Text).
Внешний вид формы приведен на рисунке 22.
Рисунок 22 – Внешний вид формы
6. Из Панели элементов перетащите Menu Strip на форму.
7. Введите пункт меню Файл и подпункты «очистить форму»,
«выход» (рис. 23а).
8. Введите второй пункт меню «Действия» и подпункты «вы-
числение площади цилиндра», «вычисление объема цилиндра»,
«построение фигуры» (рис. 23б).
41
a)
Рисунок 23 – Создание меню
9. Настройте действия для каждого пункта меню.
10. Дважды щелкните по форме, в редакторе кода пропишите
процедуру объявления переменных.
Public Class Form1
Dim Граф As Graphics
Dim r, h As Single
Dim L, Sосн, V, Sбок, Sполн As Double
Private Sub Form1_Load(…)
Граф = Me.CreateGraphics
End Sub
11. Дважды щелкните по пункту меню Очистить, в открывшем-
б)
ся редакторе кода введите процедуру:
Private Sub ВыходToolStripMenuItem_Click(…)
'Стираем с формы
:
Граф.Clear(Color.White)
End Sub
12. Дважды щелкните по пункту меню Выход, в открывшемся
редакторе кода введите процедуру:
Private Sub ВыходToolStripMenuItem1_Click(…)
End
End Sub
13. Дважды щелкните по пункту меню Вычисление объема ци-
линдра, в открывшемся редакторе кода введите процедуру:
Private Sub
ВычислениеОбъемаЦилиндраToolStripMenuItem_Click(…)
42
r = TextBox1.Text
h = TextBox2.Text
L = 2 * Math.PI * r
Sосн = Math.PI * r ^ 2
V = Sосн * h
Граф.DrawString("Объем цилиндра = " & Format(V, "0.000"),
Me.Font, Brushes.Black, 250, 60)
End Sub
14. Дважды щелкните по пункту меню «Вычисление площади»
цилиндра, в открывшемся редакторе кода введите процедуру:
Private Sub
ВычислениеПлощадиToolStripMenuItem_Click(…)
Sбок = L * h
Sполн = Sбок + 2 * Sосн
Граф.DrawString("Полная площадь поверхности цилиндра =
" & Format(Sполн, "0.000"), _
Me.Font, Brushes.Black, 250, 40)
End Sub
15. Дважды щелкните по пункту меню Построение фигуры, в
открывшемся редакторе кода введите процедуру:
Private Sub ПостроениеФигурыToolStripMenuItem_Click(…)
'Рисуем цилиндр:
r = TextBox1.Text
h = TextBox2.Text
Граф.DrawEllipse(Pens.Black, 200, 100, 2 * r, r)
Граф.DrawEllipse(Pens.Black, 200, 100 + h, 2 * r, r)
Граф.DrawLine(Pens.Black, 200, 100 + r / 2, 200, 100 + r / 2 + h)
Граф.DrawLine(Pens.Black, 200 + 2 * r, 100 + r / 2, 200 + 2 * r,
100 + r / 2 + h)
End Sub
16. Запустите программу на исполнение.
43
Контрольные вопросы:
1. Как создается элемент меню в Visual Basic?
2. Опишите, как в программной среде рисуются различные гра-
фические элементы (прямая, эллипс и т.д.).
3. Что означает данный фрагмент кода «Format(Sполн,
"0.000")»?
Список литературы:
1. Visual Basic. Самоучитель для начинающих [Электронный ре-
сурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 42–48. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
2. Грошев, А. С. Информатика: учебник для вузов [Электронный
ресурс] / А. С. Грошев. – Москва; Берлин: Директ-Медиа, 2015. –
С. 380–383. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/ index.php?page=book&id=428591
Лабораторная работа № 7
(4 часа)
Операторы цикла
Цель работы: освоить приемы работы с операторами цикла по
счетчику.
Задачи работы:
- научиться создавать программы с циклическими структурами;
- получить навыки использования оператора цикла по счетчику
For ...Next;
Обеспечивающие средства: ОС Windows 7 или выше; интегри-
рованная среда разработки Visual Basic 2010.
44
Теоретическая часть
Цикл – это многократно повторяемая часть программы. В языке
Visual Basic предусмотрено два основных способа организации цик-
лов:
повторение блока команд заданное количество раз (цикл со
счетчиком);
циклическое повторение блока команд, пока выполняется
(или не выполняется) некоторое условие.
Цикл со счетчиком For ...Next (Для ... Следующий)
Цикл For ... Next – это цикл с заранее заданным количеством повторений.
For переменная_цикла=нач_значение To конеч_значение [Step
шаг]
блок_команд
Next переменная_цикла
В поле операндов оператора For указываются:
числовая переменная, которая называется счетчиком или пе-
ременной цикла.
начальное и конечное значения счетчика.
Если необходимо, то указывается шаг изменения счетчика по
окончании каждого цикла
(по умолчанию этот шаг равен 1). Конст-
рукция завершается оператором Next.
Принцип работы оператора заключается в следующем. Переменной цикла присваивается начальное значение, после этого первый раз
выполняется блок команд (тело цикла). Оператор Next увеличивает
текущее значение переменной цикла на величину шага, и, если новое
значение переменной цикла не превышает заданное
конечное значе-
ние, в очередной раз выполняется блок команд.
Можно выйти из цикла, не дожидаясь выполнения всех повторений, при помощи оператора Exit For. Управление будет передано
оператору, стоящему после Next.
С помощью For ... Next можно организовывать вложенные циклы – каждый со своим For, Next и счетчиком.
45
Технология работы
1. Установите на форме (рисунок 24) следующие объекты и из-
мените им свойства (таблица 15).
Рисунок 24 – Внешний вид формы
Таблица 15 – Используемые объекты с указанием свойств
и значений на пользовательской форме
Объект Свойство Значение
Командная кнопка Name Cmd1
Caption Вывести
Рамки Caption Параметры оператора цикла
Caption Введите текст
Caption Текст наоборот
Текстовые окна Name Txt1
Name Txt2
Name TxtStep
Name Text1
Name Text2
Командные кнопки Caption Вывести
Name Cmd1
Caption Перевернуть
Name Cmd2
46
2. В окне кода процедуры обработки события Click для объекта
Cmd1 наберите:
n1 = Val(Txt1.Text)
n2 = Val(Txt2.Text)
n3 = Val(TxtStep.Text)
Cls
For i = n1 To n2 Step n3
Print i
Next i
3. Проверьте работу программы для различных значений пара-
метров оператора цикла.
4. В окне кода процедуры обработки события Click для объекта
Cmd2 наберите:
s = Text1.Text
k = Len(s)
b = ""
For i = k To 1 Step -1
b = b + Mid(s, i, 1)
Next i
Text2.Text = b
5. Проверьте работу программы на различных фразах, в том
числе на следующих:
- А РОЗА УПАЛА НА ЛАПУ АЗОРА;
- АРГЕНТИНА МАНИТ НЕГРА.
Контрольные вопросы:
1. Как организуется оператор цикла по счетчику?
2. Что означает оператор Len?
3. Охарактеризуйте фрагмент программного кода Mid(s, i, 1).
47
Список литературы:
1. Visual Basic. Самоучитель для начинающих [Электронный
ресурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 151–159. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
2. Грошев, А. С. Информатика: учебник для вузов [Электронный
ресурс] / А. С. Грошев. – Москва; Берлин: Директ-Медиа, 2015. –
С. 391–397. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/ index.php?page=book&id=428591
Лабораторная работа № 8
(2 часа)
Операторы цикла по условию
Цель работы: освоить приемы работы с операторами цикла по
условию.
Задачи работы:
- научиться создавать программы с циклическими структурами;
- получить навыки использования оператора цикла по условию
Do ...Loop;
Обеспечивающие средства: ОС Windows 7 или выше; интегри-
рованная среда разработки Visual Basic 2010.
Теоретическая часть
Наиболее гибкий и универсальный способ организации цикла по
условию обеспечивает конструкция Do...Loop (Делать...Цикл). Кон-
струкция имеет четыре формата, которые представлены в таблице 16.
48
Таблица 16 – Форматы представления цикла Do ...Loop
№ Синтаксис Пояснение
Циклы с предусловием
1. Do While логич_выражение
блок_команд
Loop
2. Do Until логич_выражение
блок_команд
Loop
Циклы с постусловием
3.
Do блок_команд
Loop While
логич_выражение
4.
Do блок_команд
Loop Until
логич_выражение
Блок_команд выполняется до тех пор,
пока значение логич_выражения ис-
тинно
Блок_команд выполняется до тех пор,
пока значение логич_выражения лож-
но
Блок_команд выполняется до тех пор,
пока значение логич_выражения ис-
тинно
Блок_команд выполняется до тех пор,
пока значение логич_выражения лож-
но
Можно выйти из цикла, не дожидаясь выполнения всех повторе-
ний, при помощи оператора Exit Do. Управление будет передано опе-
ратору, стоящему после Loop.
Технология работы
1. Создайте новую форму.
2. Реализуйте следующую задачу: «Организуйте ввод чисел.
Ввод закончите при вводе нуля. Найдите среднее арифметическое
значение введенных чисел». Для этого установите на форме следую-
щие объекты и измените им свойства (таблица 17).
49
Таблица 17 – Используемые объекты с указанием свойств
и значений на пользовательской форме
Объект Свойство Значение
Командная кнопка Name Cmd1
Caption Ввод чисел
Список Name List1
Текстовые окна Name TxtSr
Text (Отсутствует)
Метка Caption Среднее значе-
ние
3. Приведите свою форму в соответствие с рисунком 25.
4. В окне кода процедуры обработки события Click для объекта
Cmd1 наберите:
List1.Clear
s = 0; k = 0
Do
x = Val(InputBox("Введите значение (или ноль для окон-
чания ввода"))
s = s + x; k = k + 1
List1.AddItem x
Loop While x <> 0
txtSr.Text = s / (k - 1)
Рисунок 25 – Внешний вид формы
5. Проверьте работу программы.
6. Создайте еще одну форму, а также на основной форме добавь-
те кнопку для перехода в данную форму.
50
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]