Лаб_Раб_VB_2008_Visual_I_курс_6_лаб_раб

14. Протабулировать функцию и вывести на печать результаты при изменении х от 1 до 13 с шагом 1,83 и изменении y от 13 до 8 с шагом 0,87:

F x2 1 sin y

15. Вычислить и вывести на печать сумму:

10

Y 1! 2! 3! n! n!

n 1

16. Вычислить значение функции при изменении х от 3 до 15 с шагом 0,5:

S((n 1)x (n 2)x (n 3)x) x

17.Вычислить и вывести на печать значение функции при изменении х от 1 до 2 с шагом 0,1:

f1,56ex 0,75 (x 3,18)2 2,14sin 0,85x

18.Вычислить и вывести на печать сумму при m = n + 2:

L(m i) n

i 110

19. Вычислить сумму членов ряда, при х = a = 9,5:

00 до 3600 с шагом 100.

21 . Вычислить значение функции при х = 10:

F((( (x 2)x 4)x 6)x 8)x 42)

22.Вычислить значение функции, если х изменяется от 0 с шагом h одновременно

с i :

Zsin(x) / 1 x

i 120

х4 = -11.131920; r1 = 5; r2 = 10; r3 = 15.

25. Вычислить и вывести на печать значения функции при изменении х от 0 до 3 с

шагом 0,3, а = 0,9:

Y a2 /(a2 x2 )

26. Вычислить и вывести на печать значения 15 членов ряда, при х = 2:

x, x2 , x3 , x4 , , xn

2! 3! 4! n!

27. Вычислить сумму 10 членов ряда, при х = 1,99: x, x2 , x3 , x4 , , xn .

2! 3! 4! n!

28. Вычислить значение функции при х = 3, n = 1,2,3,...,10:

30. Вычислить сумму 9 членов ряда, при a = 2,3391:

Контрольные вопросы.

1.Каким образом можно отобразить форму?

2.Что означает следующая строка кода: lblРезультат.Text = frmЗавдання.dblСумма.ToString("N8")?

3.Каким образом можно изменить текст, что отображается на кнопке?

4.Каким образом можно добавить изображение на форму?

5.Назовите последовательность действий для добавления рисунка к элементу управления PictureBox.

Лабораторная работа №4 Разработка пользовательского интерфейса и

программирование итерационных циклических процессов в среде Visual Basic 2008.

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

Порядок выполнения работы.

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

Содержание отчета.

6.Исходные данные и постановка задачи.

7.Текст кода на языке Visual Basic 2008.

8.Подробное описание последовательности действий при написании программы.

9.Результаты расчета.

Вконечном результате, при выполнении работы, программа должна иметь вид,

показанный на рисунке ниже.

Требования к выполнению лабораторной работы.

Назовите проект следующим образом: Лаб4_Фамилия_Группа. Где Фамилия – это ваша фамилия, Группа – номер вашей группы. Например: Лаб4_Иванов_1ЭК.

Измените свойство формы FileName c Form1 на frmLabRab_4.

Создайте форму, которая подобную к форме, приведенной на рисунке, в зависимости от варианта ваших заданий (наличие проверки и т.д.).

В заголовке окна формы должна отображаться информация с названием вашего приложения: «Лабораторная работа №4».

Добавьте главное меню в программу. Добавьте сочетания горячих клавиш к пунктам меню. Структура главного меню должна иметь вид:

Добавьте контекстное меню со следующими пунктами: Розрахувати та Вихід.

Добавьте между ними разделитель.

Контекстное меню необходимо привязать к форме приложения.

Пункты главного и контекстного меню должны дублировать действия одноименных клавиш.

Разместите элементы управления Label и TextBox так, как на рисунке.

Ниже должен быть расположен элемент управления PictureBox со вставленным изображением задания. Изображение задания следует подготовить заранее способом, описанным в предыдущей лабораторной работе.

После запуска приложения, форма должна появляться в центре экрана.

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

Используйте комментарии в коде программы. Помните: комментарий – это подсказка вам при сдаче лабораторной работы.

Результат расчетов должен быть соответствующим образом отформатирован.

После нажатия на пункте меню Про програму, должно появиться окно сообщений с краткой информацией о программе и программисте, а также с информацией о текущей дате и времени. Возьмите за основу следующее окно:

После нажатия на кнопке завершения работы приложения, окно формы не должно просто закрыться, а должно появиться окно сообщений с просьбой подтвердить выход. И только в случае нажатия на кнопке Да, программа должна прекратить свою работу (активной должна быть кнопка Нет).

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

Пример выполнения задания.

Программа для варианта 30 данных заданий будет иметь следующий вид:

'Лабораторна робота 4 Варіант 30 'Виконав студент Іванов І.І.

'Дата 28.10.2010

Option Strict On

Public Class frmLabRab_4

Private Sub btnРозрахувати_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles btnРозрахувати.Click

Try

'Опис змінних

Dim dblX, dblСума, dblФакториал, dblТочність As Double Dim dblОстаннєДоданок As Double

Dim intСтупінь As Integer

'Початкові значення встановлюємо dblФакториал = 1

dblСума = 1 intСтупінь = 1

'Перетворюємо значення Х та Точність з текстових полів dblX = Double.Parse(txtX.Text)

dblТочність = Double.Parse(txtТочність.Text)

Do

dblФакториал *= intСтупінь 'Розрахунок факторіалу 'Розрахунок останнього доданка

dblОстаннєДоданок = dblX ^ intСтупінь / dblФакториал dblСума += dblОстаннєДоданок 'Розрахунок суми intСтупінь += 1 'Збільшення ступеню на 1

Loop While dblОстаннєДоданок >= dblТочність

lblРезультат.Text = dblСума.ToString("N5") lblПеревірка.Text = Math.Exp(dblX).ToString("N5")

Catch ex As FormatException

MessageBox.Show("Дані введені не вірно!" & vbCrLf & "Спробуйте ще раз!", "Помилка!", _ MessageBoxButtons.OK, MessageBoxIcon.Error)

Catch ex As Exception

MessageBox.Show("Сталася непередбачувана помилка!" & vbCrLf & _ "Зверніться до системного адміністратора!", "Помилка!", _ MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try End Sub

Private Sub btnВихід_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles btnВихід.Click

'Процедура завершення роботи з програмою 'Вихід з програми настає тільки після натискання 'користувачем кнопки Yes

Dim strПовідомлення As String = "Ви дійсно бажаєте закрити програму?"

Dim drРезультатДіалогу As DialogResult

drРезультатДіалогу = MessageBox.Show(strПовідомлення, "Вихід", MessageBoxButtons.YesNo _ , MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

If drРезультатДіалогу = Windows.Forms.DialogResult.Yes Then Me.Close() End Sub

End Class

3.Вычислить значение при х = 1,324- n :

Вычислить значение при х = n +0,725:

Вычислить произведение членов ряда при х = 1,82 + cos(n):

5.P 2x! 4x! 6x!

Найти сумму тех членов последовательности cos(x), cos(x+n),

6.cos(x+2n),..., cos(x+20n), которые по абсолютной величине больше

0,5

16.Вычислить сумму:

1 12 212 213 214

Вычислить произведение:

18.1 12 212 213 214

Вычислить сумму:

Произведение членов последовательности:

Отпечатать значение членов ряда до члена

23.арифметическое значение:

1, 212 , 313 , 414 , 515 , , n1n ,

Сумму членов ряда:

28.Произведение членов последовательности для х = 10:

Контрольные вопросы.

1.Какие вы знаете способы форматирования чисел при выводе результатов расчетов?

2.Что означает оператор vbCrLf?

3.Каким образом можно добавить контекстное меню и привязать его к конкретному элементу управления (например, к форме)?

4.Как добавить «горячие клавиши» к главному меню?

5.Опишите последовательность действий при создании главного меню приложения.