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

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

В случае неверного ввода варианта (пробелы, буквы и т.д.) должно появиться окно сообщений, информирующее об этом:

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

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

программа должна прекратить свою работу (активной должна быть кнопка

Нет).

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

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

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

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

'Дата 25.10.2010

Option Strict On

Public Class Lab2

Private Sub Lab2_Load(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Me.Load

'Процедура обробляє подію завантаження форми

'В заголовку елемента керування група grbПовідомлення 'відображається поточна дата

grbПовідомлення.Text = Date.Today.ToLongDateString 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

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

System.EventArgs) Handles btnРозрахувати.Click

Try

'Основна процедура разрахунку 'Оголошуємо потрібні змінні

Dim intN As Integer

Dim dblX, dblC, dblZ As Double Dim strN As String

'Виводимо діалогове вікно для введення N

strN = InputBox("Введіть значення N:", "Введення номеру варіанта")

'Якщо в поле не було нічого не введено, або була натиснута 'кнопка Cancel, то відбувається вихід з процедури

If strN = String.Empty Then Exit Sub

'Перетворюєто значення N в цілий тип intN = CInt(strN)

dblX = Math.Cos(intN) ^ 2 'Розрахунок значення Х dblC = Math.Tan(2.3 / intN) 'Розрахунок значення C

If Math.Sqrt((dblX + dblC) / (3 * dblX ^ 3)) > 1.953 Then 'Розрахунок умови

'Якщо умова виконується, то розраховуєм Z по першій формулі

dblZ = dblX * Math.Sqrt(dblX + dblC ^ dblX) / (4 - 1 / (dblX + dblC)) - 5 * Math.Exp(dblC)

Else 'Інакше, якщо умова не виконується, то розраховуєм Z по другій формулі

dblZ = (dblX + 3 * Math.Abs(dblX - dblC) + dblX ^ (2 / 3)) / (dblC * dblX * intN + 5)

End If 'Кінець розгалуження

'Вивід результату на екран за допомогою діалогового вікна

MessageBox.Show("Дані введені вірно!" & vbCrLf & "Результат розрахунку: " & Format(dblZ, "n8"), _ "Результат", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As InvalidCastException

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

Catch ex As Exception

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

End Try End Sub

End Class

Варианты заданий.

Вариант	x	с			z = (x,c)			условие вычисления
								z
1.					2,6e x sin(c)			(sin(x))2 0,942
	0,782n 1	1,3n	3	1		ctg (12,8c)
					x(c x)
					1 ln( 5x)

12,64 cos(tg(x))

(sin(x)) 2 ctg (c)

2.

n 1,8

(1 n) n

ln(x)

0,4564x

sin(c) 2x

иначе

x 1,4

sec(cx)

3 sin(x2 c)

3.

2cos(n 4)

(2n 1)2

e( x c0 lg(

1 sin n(xc )

21c

)

tg (ln(x 0,5))

иначе

2,44

tg (tg (x))

tg(x) lg( x) ctg (c)

0,24

4.

1,8 ln(n 1)

cos(x)

sin(c 3x)

cos(n)

cos(x)2

cos ec(c)

иначе

5.

ln(n 1)

1,36n

2

e( x c) ctg (ctg (x))

(sin(x))2 lg( cx)

cos(n)

xsin(2,1x)

6,5c x

иначе

x sin(2,6c)

cos(x c) sin(2x)

6.

ln(2 n)

0,2n 3

sin(sin((lg( x)))

иначе

1

cos(5x)

13,7ctg

1

sin((xc)

ln(x c)tg(x c)

c

xc 0,82

7.

2

n

4,5

n 2

lg

x 6

8 c0,3 x2c

иначе

tg(x) e c 0,564

8.

0,254

sin(2,6n)

5

sin(x)3 12 cos(c)

cos(n)

ln

(c x)

x c

lg( x)

иначе

1 sin(x)

(cos(x) c)7 tg ( x)

ctg (x c)

9.

1,833n 1

cos(n)

x cos(c)

ln(n 1)

sin(c) ln x0,8 1,23

иначе

ex c cos(tg((ln(x)))

x csin(x) cos(cx)

tg (n 1)

ctg (n 2)

10.

tg (n 4)

sin(c)

cos(x) 23

иначе

1 lg(

ctg (x c 16)

)

e( x c) ctg (ctg (x))

x c

11.

n 5

cos(x)

xsin(2,1x)

6,5c x

n

иначе

n

x c

sin(xc)

lg( x) ln(c) / ln(x)

12.

0,254

0,53

n 1

lg(1 x)

sin(n)

arctg (cx)

xc

иначе

x2 c3 1

tg(((cx 2

c)x2

c)x3 c)x4

13.

tg (n)

0,9x sin

x 0

3

n2 10

sin(n)

5,3

lg(

cos ec(xc) x c )

иначе

n 1

1,56e

x 0,75

(x 3,18)

3

ln x

2

lg c

14.

tg

n 0,3183

2,14sin(0,85cx)ln x

иначе

2

arctg(x)2 sin(2,6c)4

x2 cos(2c) sin

15.

tg (n 1)3

1

en

2

cos(x)2 e x

c lg x

иначе

4(cos(x))

2

ln(x)

1

cos(e x )

(n 1)3

sin(x)3

2 sin(x)

16.

lg( c)

2n 1

arctg (n)

x sin(c)

(x 2 1)

иначе

sec2 c

9,28 * 10 4

e x

lg

1,75

17.

n

e lg x

2x

cos e

x

3,2

cos

2

(xc 30

0

)

5 c e2 x

иначе

x

3

e

x

2

sin 33

0

xc 121

3

x c

n sin n

n

cos n

c

0,5

18.

ln x c

0,1943

cos3 x

x

c lg xc

иначе

3

c x

3

ln(1 cos

2,2

x

cos

lg

cos n

11,3

4

19.

0,2 10

n

(c

x

) cos ecx

n 12

2

ln(1 cos 2,2 cx

иначе

0,561

ln x

x c

x e c

ln( x 0,8)

20.

0,8 + n

sin(c)

n 1

tg(c) arctg(6x)

иначе

x

1 tg(xc)

21.

9,54 - n

0,1n + 2

ln( x c)

c

(1 x)0,25

xc

иначе

ln(8x 2,5c)

x

22.

2,44

sin(2c)

0,483n 1

cos(c)

n 5

8

xc

иначе

13,8

n 12

sin(x) lg(c)

24,51

ln( x)

23.

x c

n 0,4

n 2

248,5 cos(x)

иначе

24.

cos(n)+1

2-sin(n)

0,5(x

x c

0,3)

lg( x c) tg(c)

sec(x ctg(c))

иначе

25.

ln(2n 1)

lg(n 1)

0,7sin(c) lg(

x

)

2x e2c

sin(c x)

иначе

0,0568

26.

cos(2n)

cos(n)

x

ln(c)

ln(c) lg( x) sin(x)

3 c lg( x)

иначе

27.

n

2

n

16,3

2ln(

sin(x)

) 34

cos(c) sin(x c)

n 8

5 tg(x 2c)

иначе

1,5n

3

tg(x) e (c x)

log(c) cos(x c)

28.

2

n

n

sin(cos(lg(x)))

n 2

иначе

1 tg(ln(c))

n 12

ctg(

x

)

ln(c) lg( x) 1,87

29.

e n

c

n 20

2xc ln( xc 0,8)

иначе

x x c x

5ec

x c

4

1

3x

3

1,953

2,3

30.

cos

2

n

tg

x c

n

2

x 3

x c

x 3

иначе

xcn 5

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

1.Опишите назначение конструкции Try…Catch.

2.Каким образом в окне сообщений можно установить необходимую иконку

(значок)?

3.Какое свойство элемента управления InpunBox отвечает за введѐнную информацию?

4.Опишите параметры метода вызова окна сообщений MessageBox.Show?

5.Что такое исключение? Приведите примеры.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Создайте форму, которая максимально подобна к форме, приведенной на рисунке.

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

В центре формы должен быть размещен объект GroupBox, в заголовке которого должен отображаться текст «Завдання до роботи».

В объекте GroupBox должна быть размещена надпись с информацией о лабораторной работе (см. рис.). Введите свое имя и номер своей группы.

Ниже надписи должен быть расположен элемент управления PictureBox со вставленным изображением задания. Изображение задания следует подготовить заранее следующим образом. Вначале, в текстовом редакторе MS Word необходимо набрать его вместе с формулами. Затем скопировать необходимый фрагмент (текст с формулами) в буфер обмена и вставить его в пустой документ программы Paint (эта программа устанавливается вместе с

Windows). Далее, в Paint сохранить документ в графическом формате bmp или jpg, jpeg (можно попробовать и в других). Графический файл с заданием готов.

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

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

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

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

После нажатия на кнопке выполнения расчетов должна появиться форма с результатом:

Требования к этой форме аналогичные. После нажатия на кнопке Назад,

форма должна сразу же закрываться. Для вывода результата можно

использовать элемент управления Label.

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

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

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

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

Код для формы с заданием:

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

'Дата 28.10.2010 'Форма із завданням

Option Strict On

Public Class frmЗавдання Public dblСумма As Double

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

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

Dim lngФакториал As Long Const dblA As Double = 2.3391

lngФакториал = 1 'Встановлюємо початкове значення факторіалу

'Створюємо цикл

For i As Integer = 1 To 9

lngФакториал *= i 'Розраховуємо факторіал

dblСумма += (-1) ^ (i + 1) * dblA ^ i / lngФакториал 'Розрахунок суми

Next i 'Кінець циклу

'Відобразити форму з результатом frmРезультат.Show()

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 Варіант 30 'Виконав студент Іванов І.І.

'Дата 28.10.2010 'Форма із результатом

Option Strict On

Public Class frmРезультат

Private Sub frmРезультат_Load(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles MyBase.Load

lblРезультат.Text = frmЗавдання.dblСумма.ToString("N8") 'Вивід результату

End Sub

Private Sub btnНазад_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles btnНазад.Click

Me.Close() 'Закриття форми

End Sub

End Class

Варианты заданий.

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

	x2	,	x3	,	x4	, , ( 1)n	xn
2!		3!		4!			n!