Размещено на http://www.allbest.ru/

Содержание

• Введение
• 1. Анализ работы с элементом управления в VB.net
• Элемент управления Radiobutton
• 2. Комплекс лабораторных работ
• Лабораторная работа №1
• Лабораторная работа №2
• Лабораторная работа №3
• Лабораторная работа № 4
• Лабораторная работа №5
• Лабораторная работа №6
• Лабораторная работа №7
• 3. Основные понятия
• Заключение
• Список использованных источников

Введение

В семестровой работе показаны решение задачи по предмету "Практикум по программированию", анализ работы с элементом управлением, основные понятия. В ходе выполнения данной семестровой работы применялись лекционные материалы и дополнительные литературы, и источники по программированию.

В первом разделе приведена информация об анализе работы с элементом управлением Radiobutton. Для того чтобы изучить элемент управления я использовала литературы, проведенные в разделе список использованных источников.

Во втором разделе приведены решение задач и лабораторные работы.

Все решенные задачи по следующим темам: работа с файлами, организация последовательного доступа с помощью объектов Streareader и Streamwriter организация последовательного доступа с помощью класса File, программирование задач с использованием циклов с параметром, как можно использовать циклы с параметром для вычислительных задач, графические возможности Visual Basic Net., программирование задач с созданием процедур, процедуры на основе события клавиатуры и мыши. Для того, чтобы решить задачи я использовала объект Streareader и Streamwriter, условные операторы - If. Then. Else, Select Case, объект Graphics - методы, события, свойства, процедуры типа Function, процедуры типа Sub и разные элементы управления, как Textbox, Label, Button, Picturebox, Listbox.

В разделе основные понятия представлены все основные понятия по пройденным темам.

Данная семестровая работа состоит из 16 задач, 36 рисунков, 2 таблица.

приложение цикл параметр программирование

1. Анализ работы с элементом управления в VB.net

Элемент управления Radiobutton

К переключателям относятся такие компоненты как checkbox и Radiobutton. Элемент управления Radiobutton является экземпляром класса RadioButton. RadioButton (переключатель) обычно используется для представления набора взаимно исключающих вариантов для выбора пользователем, но с тем отличием, что в выбранном состоянии может находиться только один выключатель из группы. Этот элемент управления всегда используется в сочетании с другими переключателями. Особенность данного компонента заключается в том что, если несколько переключателей находятся в одном контейнере, то лишь один из них может быть выбран (свойство Checked у него будет иметь значение True). Основным событием переключателя является checkedchanged, генеруемое при изменении его состояния. Свойство checked возвращает состояние переключателя, а свойство Appearance задает внешний вид переключателя: стандартный или в виде выключателя.

В таблице перечислены свойства, методы, события, которые появляются в RadioButton-е.

Таблица 1.

Свойства, методы, события элемента управления RadioButton.

Название члена (сфера действия и тип)	Описание
Appearance (свойство экземпляраPublic)	Определяет текущий вид элемента управления Radiobutton
AutoCheck (свойствоэкземпляраPublic)	Определяет, изменяется ли автоматически значение и вид элемента управления при выборе данного переключателя
CheckAligh (свойство экземпляраPublic)	Определяет выравнивание области отметок выбора в переключателе.
Checked (свойствоэкземпляраPublic)	Определяет, выбран ли данный переключатель
PerformClick (метод экземпляраPublic)	Вызывает щелчок в элементе управления, как если бы на переключателещелкнуть пользователь
AppearanceChanged (событиеэкземпляраи Public)	Происходит после изменения свойство элемента управления Appearance.
CheckedChanged (событие экземпляраPublic)	Происходит при изменении значение свойства Checked.
BackColor (свойства)	Задаёт цвет фона элемента управления
Font (свойства)	Задаёт шрифт для отображения текста элемента управления. Свойства задаётся с помощью диалогового окна настройки шрифта.
Visible (свойства)	Задаёт видимость элемента управления при выполнении приложения. Значение True определяет, что элемент видем пользователю.
Enabled (свойства)	Определяет, доступен ли элемент управления. Значение False блокирует использование элемента управления.
Name (свойства)	Задаёт имя, используемое при обращении к элементу управления.
Dock (свойства)	Задаёт расположение элемента управления в форме. Может принимать одно из значений перечисления DockStyle: Buttom (Снизу),Fill (на всю форму), Left (Слева), None (в любом месте формы), Right (Справа),Top (Сверху).
ContextMenu (свойства)	Контекстное меню, открываемое при нажатии правой кнопки мыши на элементе управления.
Forecolor (свойства)	Определяет цвет располагаемого на элементе управления текста
Image (свойства)	Задает рисунок, которой будет отображаться на элементе управления.
Size (свойства)	Определяет размер элемента управления, включающий ширину и высоту элемента управления. Для задания ширины и высоты также могут отдельно применяться свойства Width и Heigth соответственно.
BackColor Changed (событие)	Изменен цвет фона у объекта
BorderStyleChanged (событие)	Изменён стиль окантовки объекта
CursorChanged (событие)	Изменен вид указателя мыши
MouseEnter (событие)	Указатель мыши входит в пределы компонента
MouseDown (событие)	Указатель мыши находится над компонентом и при этом нажата кнопка мыши

Как можно создать переключатель:

1. Выберите команду View - Toolbox или нажмите клавиш "Ctrl +Alt+X". (Пропустите этот шаг, если панель Toolbox уже отображается.);

На экране появится панель Toolbox. Возможно, вам придается щелкнуть на кнопке WidowsForms, чтобы найти инстрементыRadioButton (переключатель);

1. Щелкните на кнопке инструмента RadioButton;

2. Переместите курсор мыши над тем местом, где должен быть нарисован объект, нажмите левую кнопку мыши и перетяните его. Когда контур объекта примет нужные размеры, отпустите кнопку мыши.

Во время разработки любой переключатель можно сделать используемым по умолчанию. Для этого нужно выделить нужный переключатель в окнеProperties (Свойства) присваивать значениеTrue свойству Checked. Чтобы переключатель сделать недоступным, необходимо задать значение False для свойства Enabled. В этом случае переключатель выделяется серым цветом.

Переключатели обычно отображаются слева от сопровождающего их текста. Но VisualBasic.net этим не ограничивается и предлагает 9 способы расположения переключателей относительно текста. (рис. 1)

Можно изменить способ выравнивания переключателя следующим образом:

1. Щелкните на переключателе, положение которого нужно выровнять;

2. Нужно открыть окно Properties

Чтобы сделать это, нужно нажать кнопку <F₄>, выберите команду View - PropertiesWindow в окне SolutionExplorer надо щелкнуть на кнопку Properties Window или щелкните правой кнопкой мыши в окне формы и выберите команду Properties;

3. Надо щелкнуть на свойстве CheckAlign (выравнивание переключателя) категории Appearance;

Откроется графическое меню, состоящее из 9 прямоугольников, которые соответствуют положениям переключателя относительно текста;

4. Надо щелкнуть на одном из прямоугольников и выбрать способ выравнивания.

Заметка: Вместо изменения свойства CheckAlign (определяет положение переключателя) можно изменить свойство TextAlign (выравнивание текста) категории Appearance, которое определяет положение текста относительно переключателя.

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

Таблица 2.

Значение свойств, установленных в окне Properties

Элемент управления	Свойство	Значение
RadioButton	Name Text	RadioButton - Red
RadioButton	Name Text	RadioButton - Yellow

Код программы:

Private Sub RadioButton1_CheckedChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles RadioButton1. CheckedChanged

RadioButton1 (Yellow. CheckedChanged)

If RadioButton1. Checked Then

Me. Back color = Color Red

ElseIf RadioButton1. Checked Then

Me. Back Color = Color Yellow

End If

EndSub

Рис. 1 Результат программы после запуска

Пример 2. Если в программе надо узнать, какая из кнопок имеет включённое состояние, то можно воспользоваться следующим примером:

Ход решения примера: Естественно, перед выполнением этого примера необходимо переместит на форму три переключателя RadioButton и одну обычную кнопку Button. Также одному из переключателей присваиваем значение Checked =True.

Рис. 2 Внешний вид формы (до запуска программы)

Код программы:

Private Sub Button1_Click (ByVal sender As System. Object,ByVal e As System. EventArgs) Handles Button1. Click

Select Case True

Case RadioButton1. Checked

MsgBox ("Вывыбрали RadioButton1”)

Case (RadioButton2. Checked)

MsgBox ("Вывыбрали RadioButton2”)

Case (RadioButton3. Checked ())

MsgBox ("Вывыбрали RadioButton3”)

End Select

EndSub

Результат: Так, как я одному из переключателей точнее RadioButton2 присваивала значение Checked = True. В результате после запуска программы с помощью MsgBox-а на форме появилась "Вы выбрали RadioButton2".

Рис. 3 Результат программы после запуска

2. Комплекс лабораторных работ

Лабораторная работа №1

Тема работы: Работа с файлами: Организация последовательного доступа с помощью объектов Streamreader и Streamwriter.

Цель работы: Научится решать задачи с помощью объектов

Streamreader и Streamwriter.

Задача 1. Дано действительное число x. Не используясь никакими другими арифметическими операциями, кроме умножения, сложения, вычитания. Вычислить: 2x⁴-3x³+4x²-5x+6.

Ход решения:

Для решения данной задачи действительное число x объявим в виде типа данных Integer. Результат программы выводим с помощью MsgBox.

Форма и элементы управления: Создаем новую форму. В форму из окна Toolbox переместим один TextBox - для введения значения x и один Button выполнения программы.

Рис. 4 внешний вид формы (до запуска)

Private Sub Button1_ Сhick (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim x As Integer

Dim s As Integer

x = TextBox1. Text

s = x * (2 * x * x * x - 3 * x * x - 4 * x - 5 + 4)

MsgBox (s. ToString)

End Sub

End Class

Проверка программы: Для проверки программы вводим в TextBox значение x=5

Рис. 5 Внешний вид формы во время проверки программы

Результат проверки: Результатом проверки стало S = 770

Рис. 6 Результат программы после запуска

Задача 2. Дано целое число вывести его строку описание вида "отрицательное нечётное число", "положительное чётное число".

Ход решение задачи:

Для решения данной задачи действительное число a объявим в виде типа данных Integer. Результат программы объявим с помощью элемента управления Label.

Форма и элементы управления: Создаем новую форму. В форму из окна Toolbox переместим один TextBox - для введения значения a и один Button выполнения программы и два Label для вывода результата программы.

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim a As Integer

a = TextBox1. Text

If a Mod 2 <> 1 Then

Label1. Text = "polozhitelnoechotnoe 4slo"

End If

If a < 0 anda Mod2=1 Then

Label2. Text = "otritsatelnoe nechotnoe"

End If

Проверка программы: Для проверки программы вводим в TextBox значение 1) a=6,2) a=-9

Рис. 7 Внешний вид формы во время проверки программы

Рис. 8 Внешний вид формы во время проверки программы

Результат программы: Когда было введено TextBox - a = 6 в Label1 появился результат "положительное число", когда было введено a=-9 Label2 появился результат "отрицательное нечётное число".

Заключение: Решение данных задач дала возможность понять, как использовать условных операторов для создания программ с арифметическими выражениями и простейших элементов управления.

Лабораторная работа №2

Тема работы: Решение задач с помощью класса File и операторов If Then Else.

Цель работы: Научиться программировать задач с помощью класса File и операторов If Then Else.

Задача 3. Даны действительные числа a, b, c,d. Выяснить можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.

Ход решения задачи:

Для решения данной задачи, сначала дробное число объявим в виде типа Double. Используя условный оператор If Then напишем If a * b > c * d. Результат задачи выводим с помощью MsgBox. Если заданное условие удовлетворяет условие задачи, то результатом программы будет MsgBox ("ha"), если нет тогда MsgBox ("ne").

Форма и элементы управления:

Создаём новую форму. Из окна Toolbox переместим четыре Textbox - для введения значения a, b, c, d и один Button - для выполнения программы.

Рис. 9 внешний вид формы (до запуска)

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim a, b, c, d As Double

a = TextBox1. Text

b = TextBox2. Text

c = TextBox3. Text

d = TextBox4. Text

If a * b > c * d Then

MsgBox ("ha")

Else

MsgBox ("ne")

End If

End Sub

End Class

Проверка: Для проверки написанной программы вводим значение a =7,1; b=6,3; c=4,4; d=2,1.

Рис. 10 Внешний вид формы во время проверки программы

Результат программы:

Рис. 11 Результат проверки

Задача 4. Даны два числа. Вывести вначале большее, а затем меньшее из них.

Ход решения задачи:

Для решения данной задачи используем условные операторы If Then. Два числа объявим в виде типа данных Integer.

Форма и элементы управления: Создаём новую форму. В пустую форму из окна Toolbox переместим два Textbox - для ввода значение чисел и один Button - для выполнения программы. Результат программы выводим с помощью Msgbox.

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim a, b As Integer

a = TextBox1. Text

b = TextBox2. Text

If a > b Then

MsgBox ("a & b")

Else

MsgBox ("b &a")

End If

End Sub

Проверка программы: Для проверки программы вводим a=5, b=8 и a=9, b=3.

Рис. 12 Внешний вид формы во время проверки программы

Рис. 13 Внешний вид формы во время проверки программы

Результат программы: Когда было введено a=5, b=8 результат a&b, когда было введено a=9, b=3 стало b&a

Рис. 14 Результат программы после запуска

Рис. 15 Результат программы после запуска

Заключение: Данная программа показывает правильного метода использование циклов и позволяет внутри цикла использовать операторов.

Лабораторная работа №3

Тема работы: Программирование задач с помощью циклов с параметром.

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

Задача 5. Дано натуральное число n. Вычислить v3+v6+…+v3 (n-1) +v3n

Ход решение задачи:

Для решения данной задачи используем математический класс Math и параметрический цикл For Next.

Форма и элементы управления: Создаём новую форму. В форму из окна Toolbox вставим один Button - для выполнения программы и один Textbox - для введения значения натурального числа n.

Рис. 16 внешний вид формы (до запуска)

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim n As Integer = TextBox1. Text

Dim t As Double = 3 * n

Dim s As Double = 0

For i = 1 To n

s = s + Math. Sqrt (t)

t = 3 * (n - 1) + s

Next

s = Math. Sqrt (s)

MsgBox ("s=" & s. ToString)

End Sub

Проверка программы: Для проверки запускаем программу и в Textbox1 вводим n=4

Рис. 17 Внешний вид формы во время проверки программы

Результат программы: Результатом данной программы стало S=3,9325.

Рис. 18 Результат программы после запуска

Задача 6. Даны два челых числа A и B (A>B). Найти сумму всех целых чисел от A до B включительно. Ход решения задачи: для решения данной задачи используем условные операторы If Then и параметрический цикл For Next. Два числа объявим в виде типа данных Integer. Форма и элементы управления: Создаём новую форму. В пустую форму из окна Toolbox переместим два Textbox - для ввода значение чисел и один Button - для выполнения программы. Результат программы выводим с помощью Msgbox.

Рис. 19 внешний вид формы (до запуска)

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim A As Integer = TextBox1. Text

Dim B As Integer = TextBox2. Text

If A >= B Then

MsgBox ("ошибка"): Exit Sub

Dim S As Integer = 0

For i = A To B

S = S + i

Next

MsgBox ("s=" & S. ToString)

End If

End Sub

Проверка программы: Проверка программы: Для проверки программы вводим a=7, b=5.

Рис. 20 Внешний вид формы во время проверки программы

Результат программы:

Рис. 21 Результат программы после запуска

Лабораторная работа № 4

Тема работы: Программирование задач вычислительного характера по использованию циклов с параметром.

Цель работы: Решение задач с помощью циклов с параметром.

Задача 7. Пусть а₀=а₁, а_i=а_i-2+а_i-1/аi^-1, i=2,3. … Найти произведение а₀* а₁*…а_14.

Ход решения:

Для того чтобы решить данную задачу действительное число объявим в виде Integer, а дробное число в виде Double. Используя параметрический цикл ForNext находим произведение а₀* а₁*…а₁₄для данного условия.

Форма и элементы управления: Создаём новую форму. В пустую форму из окна toolbox вставим Button1 - для выполнения программы и TextBox1 - для введения значенияn.

Private Sub Button1_Click (By Val sender As System. Object, By Val e As System. EventArgs) Handles Button1. Click

Dim a0 As Double = 1

Dim a1 As Double = 1

Dim ai As Double = 0

Dim n As Integer = TextBox1. Text

Dim s As Double = 1

For i = 2 To n

ai = a0 + a1/2 ^ (i - 1)

s = s * ai

a1 = a0: a0 = ai

Next i

MsgBox ("s="&s. ToString)

Проверка: Запускаем программу. Для проверки мы задали значениеTextBox1. N=5

Рис. 22 Внешний вид формы во время проверки программы

Результат: После введения значения вTextBox1 результатом нашей проверки стало s=10,4102.

Рис. 23 Результат программы после запуска

Задача 8. Найти произведение всех чисел от 8 до15.

Ход решения:

Для того чтобы решить данную задачу действительное длинное число объявим в виде Long. Используя параметрический цикл ForNext находим произведение данной задачи. И результат выводим с помощью MsgBox.

Форма и элементы управления: Создаём новую форму. В пустую форму из окна toolbox вставим Button1 - для выполнения программы.

Private Sub Button1_Click

Dim p AsLong = 1

For i = 8 To 15

p = p * i

Next

MsgBox ("p="&p)

Проверка: Запускаем программу. Нажимаем кнопку.

Рис. 24 Внешний вид формы во время проверки программы

Результат: После нажатия кнопки, результатом нашей работы стало p = 25945.

Рис. 25 Результат программы после запуска

Задача 9. Найти произведение всех чисел от а до 20 (значение, а вводится с клавиатуры, 1<=a<=20)

Ход решения:

Для того чтобы решить данную задачу действительное числообъявим в виде Integer, а длинное число Long. Используя параметрический цикл For Next находим произведение всех чисел от а до 20 для данной задачи.

Форма и элементы управления: Создаём новую форму. В пустую форму из окна toolbox вставим Button1 - для выполнения программы и TextBox1 - для введения значения а.

Private Sub Button1_Click

Dim a AsInteger = TextBox1. Text

If a < 1 Or a > 20 Then MsgBox ("oshibka!!! ”): Exit Sub

Dim p AsLong = 1

ForI = a To 20

p = p * i

Next

MsgBox ("p=”& p)

EndSub

End Class

Проверка: Запускаем программу. Для проверки мы задали значение TextBox1. А=8

Рис. 26 Внешний вид формы во время проверки программы

Результат: После введения значения в TextBox1 результатом нашей проверки стало p=482718.

Рис. 27 Результат программы после запуска

Задача 10. Найти произведение всех чисел от 1 до b (значение b вводится с клавиатуры, 1<=b<=20).

Ход решения:

Для того чтобы решить данную задачу действительное число объявим в виде Integer, а длинное число в виде Long. Используя параметрический цикл For Next находим произведение данных чисел.

Форма и элементы управления: Создаём новую форму. В пустую форму из окна toolbox вставим Button1 - для выполнения программы и TextBox1 - для введения значения. А результат выводим с помощью MsgBox.

Private Sub Button1_Click

Dim b as Integer = TextBox1. Text

If b < 20 or b < 1 Then MsgBox ("oshibka!!!"): Exit Sub

Dim p AsLong = 1

For i = 1 to b

p = p * i

Next

MsgBox ("p="&p)

Проверка:

Запускаем программу.

Для проверки мы задали значение TextBox1. а=11.

Рис. 28 Внешний вид формы во время проверки программы

Результат:

После введения значения в TextBox1 результатом нашей проверки стало ("oshibka!!!")

Рис. 29 Результат программы после запуска

Задача 11. Найти произведение всех чисел от а до b (значение b вводится с клавиатуры b>=a).

Ход решения:

Для того чтобы решить данную задачу действительное числообъявим в виде Integer, а длинное в виде число Long. Используя параметрический цикл ForNext находим произведение всех чисел от а до b для данной задачи.

Форма и элементы управления: Создаём новую форму. В пустую форму из окна toolbox вставим Button1 - для выполнения программы и

TextBox1 - для введения значения а, TextBox2 - для введения значения b. А результат объявим через MsgBox.

Private Sub Button1_Click (ByVal sender AsSystem. Object, ByVal e AsSystem. EventArgs) Handles Button1. Click

Dim a AsInteger = TextBox1. Text

Dim b AsInteger = TextBox2. Text

If b < a Then

MsgBox ("oshibka!!!"): Exit Sub

Dim p AsLong = 1

For i = a To b

p = p * i

Next

MsgBox ("p="&p)

Проверка: запускаем программу.

Для проверки мы задали значение TextBox1. а=4. B=8

Рис. 30 Внешний вид формы во время проверки программы

Результат: После введения значения в TextBox1 и в TextBox2 результатом нашей проверки стало p=6720.

Рис. 31 Результат программы после запуска

Заключение: Для удовлетворения условия задачи я одновременно научилась использовать операторы ForNext и числовые типы данных.

Лабораторная работа №5

Тема работы: Графические возможности Visual Basic Net.

Цель работы: Научится программировать задачи с помощью объекта Graphics, Класса Pen, Класса SolidBrush,, Структуры Color, Методы CreateGraphics, DrawLine, DrawEllipse, DrawRectangle, FillRectangle, FillEllipse, DrawString.

Задача 12. На форме или элемента управления Picturebox получить мышку и раскрасить его.

Ход решения задачи:

Для решения этой задачи используем объект Graphics. С помощью метода DrawEllipse нарисуем мышку, а с помощью метода FillEllipse и класса SolidBrush раскрасим его.

Форма и элементы управления: Создаем новую форму. Из окна ToolBox в пустую форму добавим один Button для выполнения программы.

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim a As Graphics

a = Me. CreateGraphics ()

a. FillEllipse (Brushes. Brown, 80, 80, 80, 80)

a. FillEllipse (Brushes. Brown, 80, 80, 80, 80)

a. FillEllipse (Brushes. Brown, 50, 50, 50, 50)

a. FillEllipse (Brushes. Brown, 50, 50, 50, 50)

a. FillEllipse (Brushes. Brown, 140, 50, 50, 50)

a. FillEllipse (Brushes. Brown, 140, 50, 50, 50)

a. FillEllipse (Brushes. Brown, 75, 160, 90, 110)

a. FillEllipse (Brushes. Brown, 75, 265, 40, 60)

a. FillEllipse (Brushes. Brown, 120, 265, 40, 60)

a. FillEllipse (Brushes. Brown, 25, 190, 50, 50)

a. FillEllipse (Brushes. Brown, 165, 190, 50, 50)

a. FillEllipse (Brushes. Black, 100, 100, 10,10)

a. FillEllipse (Brushes. Black, 130, 100, 10,10)

a. FillEllipse (Brushes. Black, 110, 120, 20, 2

Результат:

Рис. 32 Результат программы после запуска

Задача 13. Создать программу - поздравительную открытку к празднику весны, 8 марта, с соответствующим поздравительным текстом.

Ход решения задачи:

Для того чтобы решить эту задачу используем объект Graphics, метод DrawString и Класс Font.

Форма и элементы управления: Создаём новую форму. В форму из окна TollBox вставим элемент управления PictureBox для Вывода данных и один Button для выполнения программы.

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim f As Graphics = PictureBox1. CreateGraphics ()

Dim p as New SolidBrush (Color. Black)

Dim sh As Font = New Font ("Palatino Linotype",

10)

f. DrawString ("Желаю счастья, здоровья, успехов, благополучия.", sh, p, 80, 80

Результат:

Рис. 33 Результат программы после запуска

Заключение: После осваивания материалов, дополнительных литератур и решение задач с помощью объекта Graphics его методами, классами я сделала вывод, что у Visual Basic - а много уникальных возможностей для создания графиков. И сам Visual Basic имеет элемент управления, которое помогает программисту создать графические программы.

Лабораторная работа №6

Тема работы: Программирование задач с созданием процедур

Цель работы: Научится программировать задач с использованием оператора Exit Sub, процедуры типа Function, оператора Exit Function, оператора Return, параметра ParamArray.

Задача 14. Описать процедуру Invirtdigits (k), меняющую порядок следования цифр целого положительного числа k на обратный (к - параметр целого типа, являющийся одновременно и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.

Ход решения задачи:

Для решения данной задачи целое положительное число объявим в виде типа Integer и с помощью процедуры типа Function и оператора Return решим эту задачу.

Форма и элементы управления: Создаем новую форму, из окна Toolbox переместим следующие элементы управления: один TextBox-для введения значения числа, один Button - для выполнение программы, результат программы объявим с помощью Listbox

PublicClass Form1

Function Chotnoe (ByVal a AsInteger) AsBoolean

If a Mod 2 = 0 Then

ReturnTrue

Else

ReturnFalse

EndIf

EndFunction

PrivateSub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim a AsInteger

Dim k AsInteger = 0

For i = 1 To 10

a = InputBox ("vedite 4islo")

ListBox1. Items. Add (a)

If Chotnoe (a) Then

k = k + 1

EndIf

Next

Label1. Text = k

EndSub

EndClass

Проверка:

Для проверки вводим от себя случайные числа в ListBox1 2, 5, 76, 87, 34, 90, 51…

Результат:

Рис. 34 Результат программы после запуска

Задача 14. Описать процедуру Invirtdigits (k), меняющую порядок следования цифр целого положительного числа k на обратный (к - параметр целого типа, являющийся одновременно и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.

Ход решения задачи:

Для решения данной задачи используем передача аргумента по ссылке (ByRef) в процедуру и целое число объявим в виде логического типа, одновременно используем циклы с параметром и результат программы выводим с помощью MsgBox.

Форма и элементы управления: Создаем новую форму, из окна Toolbox переместим один Button - для выполнение программы.

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click

Dim K AsInteger = TextBox1. Text

InvertDigits (K)

MsgBox ("Результат: "& K. ToString)

EndSub

PrivateSub InvertDigits (ByRef K AsInteger)

Dim s As String = ""

For i = K. ToString. Length To 1 Step - 1

s = s + Mid (K. ToString, i, 1)

Next

K = Val (s)

EndSub

EndClass

Результат программы:

Рис. 35 Результат программы после запуска

Заключение: Выполнение данной лабораторной работы дала возможность широко использовать процедуры и функции для решения задач. В ходе решение задач я использовала разные типы процедуры, его методы, свойства, события.

Лабораторная работа №7

Тема работы: Процедуры на основе события клавиатуры и мыши

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

Задача 16. Создать проект используя всевозможные события клавиатуры и мыши.

Ход решения задачи:

Для решения данной задачи используем события клавиатуры и мыши. И элементы управления Textbox, Label, Button, listbox.

Форма и элементы управления: Создаем новую форму. В пустую форму из окна Toolbox переместим четыре Textbox, пять Button, один Label, один Listbox.

Рис. 36 Внешний вид формы (до проверки программы)

Private Sub TextBox1_KeyPress (ByVal sender As Object, ByVal e As System. Windows. Forms. KeyPressEventArgs) Handles TextBox1. KeyPress

If e. KeyChar < "0" Or e. KeyChar > "9" Then

MsgBox ("только цифры допущенны")

End If

End Sub

Private Sub TextBox2_KeyDown (ByVal KeyCode As Integer, ByVal Shift As Integer)

If KeyCode = 97 Then Button1. Text = True

End Sub

Private Sub TextBox2_KeyUp (ByVal KeyCode As Integer, ByVal Shift As Integer)

If KeyCode = 97 Then Button1. Text = False

End Sub

Private Sub Form1_MouseWheel (ByVal sender As Object, ByVal e As System. Windows. Forms. MouseEventArgs) Handles Me. MouseWheel

If e. Delta > 0 Then

MsgBox ("Вверх")

Else

MsgBox ("Вниз")

End If

End Sub

Private Sub Form1_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load

Label1. Text = "Microsoft Visual Basic 2010?"

Button2. Text = "Нажми меня!"

Me. Text = "Приветствие"

End Sub

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click

MsgBox ("Всем привет!")

End Sub

Private Sub Label1_MouseHover (ByVal sender As Object, ByVal e As System. EventArgs) Handles Label1. MouseHover

MsgBox ("Событие Hover!")

End Sub

Private Sub Button3_MouseDown (ByVal sender As Object, ByVal e As System. Windows. Forms. MouseEventArgs) Handles Button3. MouseDown

If e. Button = MouseButtons. Right Then MsgBox ("Нажата правая кнопка мыши")

If e. Button = MouseButtons. Left Then MsgBox ("Нажата левая кнопка мыши")

End Sub

Private Sub Button4_MouseEnter (ByVal sender As Object, ByVal e As System. EventArgs) Handles Button4. MouseEnter

Dim A As Integer = TextBox3. Text

Dim B As Integer = TextBox4. Text

If A >= B Then MsgBox ("Ошыбка!!!"): Exit Sub

For i = A To B

ListBox1. Items. Add (i)

Next

End Sub

Private Sub Button5_MouseLeave (ByVal sender As Object, ByVal e As System. EventArgs) Handles Button5. MouseLeave

Dim n As Integer = TextBox5. Text

Dim t As Double = 3 * n

Dim s As Double = 0

For i = 1 To n

s = s + Math. Sqrt (t)

t = 3 * (n - i) + s

Next

s = Math. Sqrt (s)

MsgBox ("s=" & s. ToString)

End Sub

End Class

3. Основные понятия

1. Порядок создания Windows-приложения с пустой формой. Для разработки приложений на основе Windows, выбрать окна приложения заполнить имя приложения. По умолчанию проект под названием My Project и форма Form1 будет создана. Название проекта и имя формы может быть переименован позже.

2. Программное изменение расположения Label в форме. Элемент управления надпись является экземпляром класса label и используется для вывода текстового или графического пояснения к другим элементам управления пользовательского интерфейса. Основным свойством является text задающее текстовую строку

3. Порядок создания процедуры для события Click элемента управления Button. Когда вы что - ни будь, делаете с помощью мыши, генерируется определенное событие. При щелчке мышью происходит событие "Click", при двойном щелчке - "DblClick", а в момент перемещения указателя - "Move". Где и когда произойдет определенное событие, зависит от положения указателя мыши. Иногда одно действие производит несколько событий.

4. Операторы присваивания *=, - =, /=, \=, +=, ^=.

5. Числовые типы данных. Числовые типы данных это: byte, double, iteger, long, short, single

6. Тригонометрические функции класса Math Функция Acos предназначена для вычисления арккосинуса числа. Функция Asin предназначена для вычисления арксинуса числа. Функция Atan применяется для вычисления арктангенса числа. Функция log предназначена для вычисления натурального логарифма. Функция max применяется для определения наибольшего из двух чисел, заданных в качестве параметров. Функция min применяется для определения наименьшего из двух чисел, заданных в качестве параметров. Функция sqrt предназначена для вычисления квадратного корня числа, заданного в качестве параметра.

7. Логические операции и выражения. Логические операции могут выполняться только над операндами, имеющими тип Boolean. В булевой логике результатами вычислений являться только выражения true и false.

8. Операции сравнения и простые условия. Операции сравнения используются для сравнения 2 значений. В v. b применяются следующие Операции сравнения: = > < <> => =<. При выполнении О. С возвращается результат булевского типа: true (истина), false. (ложь).

9. Элемент управления RadioButton. Элемент управления переключатель (RadioButton) является экземпляром класса RadioButton. Позволяет производить пользователю выбора типа истина/ложь или да/нет, но с тем отличием, что в выбранном состоянии может находиться только один выключатель из группы. Основным событием переключателя является checked changed

10. Синтаксис инструкции If / Then / Else. В стандартной форме структура If / Then / Else имеет вид:

If выражение Then

Операторы

Else

Операторы, выполняемые в случае, если выражение ложно

AND IF

11. Предназначение и порядок использования методов Clear, Remove элемент управления ListBox. Метод Remove применяется для удаления конкретного элемента списка по тексту. Метод Clear применяется для того, чтобы полностью отчистить список

12. Предназначение и порядок использования свойств Items, Count элемента управления ListBox. Свойство Items используется для добавления элемента списка. Listbox1. Items. Add ("Это новая строка списка”)

13. Использование Exit For. Команда Exit завершает выполнение цикла и передаёт управление следующей за циклом конструкции. Синтаксис этого оператора внутри цикла For имеет вид Exit For.

14. Событие DragDrop - перемещение одного объекта на элемент управления успешно закончено.

15. Синтаксис инструкции For / Next - Оператор цикла For / Next повторяет выполнение группы инструкций указанное число раз. For переменная_ цикла = начальное значение TO конечное значение {тело цикла} Next переменная цикла.

16. Событие KeyPress - нажатие клавиши.

17. Событие MouseEnter - указатель мыши входит пределы компонента.

18. Событие MouseMove - указатель мыши двигается над компонентом.

19. Элемент управления SaveFileDialog - Используется для отображения диалогового окна сохранения файла.

20. Элемент управления OpenFileDialog. Служит для отображения диалогового окна открытия файла

21. StreamWriter разработан для вывода символов в определенной кодировке, тогда как классы, производные от Stream, разработаны для ввода и вывода байтов. Чтобы указать спецификацию и определить, является ли исключение по недействительным байт, используйте конструктор, который принимает кодировку в качестве параметра объект, такой как StreamWriter (String, Boolean, Encoding) или StreamWriter.

22. Метод DrawRectangle

Dim a as Graphics

a=Me. creat graphics

a. Draw rectangle (Pens Red 50, 50, 100, 100)

23. Объект Graphics - Для рисование на форме или на любом компоненте нужно получить ссылку грфическую поверхность объекта с помощью метода Creat Graphics данного объекта. Важным объектом в рисовании является перо. Это объект, который определяет цвет стиль, ширину линии.

24. Метод FillPie - Этот метод применяется для заливки

Сектора Объекта Graphics, Sub fillpie (ByVal as brush, ByVal rect as rectangle, ByVal as single, ByVal sweetangle As single)

25. StreamReader разработан для ввода символов в определенной кодировке, тогда как класс Stream разработан для ввода и вывода байтов. StreamReader служит для чтения строк данных из стандартного текстового файла.

Заключение

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

В начале мы узнали, как запустить VB.net, как получить в нём справочную информацию, познакомились с основными рабочими окнами. Также мы рассмотрели разработки основ интерфейса: форм и меню. Удобно работать со средствами, предоставляемыми для создания панелей инструментов, диалоговых окон, строки состояния.

Мы узнали о типов данных и познакомились с переменными и массивами. В некоторых задачах я использовала арифметические, логические и строковые выражения языка, структуры, циклы, условия и множественные выборы.

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

Особенностью типа даты \ времени является то, что этот тип хранит в себе одновременно информацию о дате и времени. Операторы условия применяются для того, чтобы, в зависимости от выполнения тех или иных условий, передавать управление той или иной части программы. Основными операторами условия являются If…. Then……Else.

С помощью циклов с параметром (For Next) легче решать задачи, которые количество итерации заранее известно.

Мы узнали о разнице между функцией и процедурой. Главным отличием является то, что функция может возвращать под своим именем какое-либо значение, а процедура этого делать не может. (SUB-процедура, FUNCTION-функция)

После осваивания материалов, дополнительных литератур и решение задач с помощью объекта Graphics его методами, классами я сделала вывод, что у VisualBasic-а много уникальных возможностей для создания графиков. И сам Visual Basic имеет элемент управления, которое помогает программисту создать графические программы. Относительно других языков программирование Visual Basic имеет достоинства.

Достоинства Visual Basic:

1. Visual Basic выгодно отличается от других языков программирования своей простотой и наглядностью.

2. Visual Basic динамично развивающийся язык.

Visual Basic - это объектно-ориентированный язык. Основой языка являются объекты. Например: окно, кнопка, поле со списком, с которыми работает программа.

Каждый объект имеет: свойства, методы, события.

Свойства - это показатели, характеризующие объект.

Методы - это действия, которые можно произвести с объектом.

События - это действия, которые происходят с объектом

В проектируемом приложении события будут возникать в основном в результате действий пользователя. Например, пользователь нажал на кнопку мыши или клавиатуры, запустил или завершил программу. Часто используется метод Move - переместить объект (кнопку, форму), который меняет свойства объекта, такие как расстояние от левого и верхнего края экрана до объекта.

Список использованных источников

1. Златопольский Д.М. Зборник задач по программированию - 2-е изд., СПб.: БХВ - Петербург, 2007. - 240с.: ил;

2. Ивьен, Билл, Берес, Джейсон. Visual Basic.net. Библия пользователя.: Пер. с англ. - М.: Издательский дом "Вильямс", 2002. - 1024 с.: ил. - Парал. тит. англ.:

3. Климов А.П. Занимательное программирование на Visual Basic.net. - СПб.: БХВ - Петербург, 2005. - 528 с.: ил;

4. Шевякова Д.А., Степанов А.М., Карпов Р.Г. Самоучитель Visual Basic.net. 2005/ Под общ. ред. А.Ф. Тихонова - СПб.: БХВ - Петербург, 2006. - 576 с.: ил;

5. Понамарев В.А. Visual Basic.net. Экспресс курс - СПб.: БХВ - Петербург, 2003. - 304 с.: ил;

6. Гарнаев А.Ю. Самоучитель Visual Studio Net 2003 - СПб.: БХВ - Петербург, 2003. - 688 с.: ил;

7. Вонг, Уоллес. Visual Basic.net. для "чайников".: Пер. с англ. - М.: Издательский дом "Вильямс", 2002. - 336 с.: ил. - Парал. тит. англ:

Размещено на Allbest.ru