Laboratornaya (1)

Московский Технический Университет

Связи и Информатики

Кафедра Информатики и Вычислительной Техники

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

«Основные средства языка программирования

VB .NET 2008»

Выполнил:

Студент группы БИН120

Сорокин Андрей Вячеславович

Москва 2012

Вариант №22

2. Задание на разработку проекта и вариант задания:

_{I = C; J=[C]}

3. Запись арифметических выражений, соответствующих заданным математическим формулам, по правилам VB.

c = (x * Log10(Abs(x - 6))) - ((Sin(x ^ 2)) / (y * x ^ 3))

i = c

j = Fix(c)

4.1. Разработка графического интерфейса пользователя

4.2. Установка свойств объектов

Объект	Имя объекта	Свойство	Значение свойства
Форма	Form1	Text	Вычисление арифметических выражений
Метка	Label1	Text	X =
Метка	Label2	Text	Y =
Метка	Label3	Text	C =
Метка	Label4	Text	I =
Метка	Label5	Text	J =
Метка	Label6	Text	Задание:
Метка	Label7	Text	Создать проект: Вычисление арифметических выражений C = (x*Log10(Abs(x-6)))-((Sin(x^2))/(y*x^3))
Метка	Label8	Text	Введи:
Метка	Label9	Text	Результат:
Текстовое поле	TextBox1	Name	TextBox1
Текстовое поле	TextBox2	Name	TextBox2
Текстовое поле	TextBox3	Name	TextBox3
		ReadOnly	True
Текстовое поле	TextBox4	Name	TextBox4
		ReadOnly	True
Текстовое поле	TextBox5	Name	TextBox5
		ReadOnly	True
Кнопка	Button1	Text	Вычислить
Кнопка	Button2	Text	Завершить

4.3. Разработка схемы алгоритма, решаемой задачи

I = c

J = [c]

4.4. Разработка схемы алгоритма, решаемой задачи

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

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

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

Dim x, y, c As Double

Dim i, j As Integer

x = CDbl(Val(TextBox1.Text))

y = CDbl(Val(TextBox2.Text))

c = (x * Log10(Abs(x - 6))) - ((Sin(x ^ 2)) / (y * x ^ 3))

i = CInt(c)

j = CInt(Fix(c))

TextBox3.Text = CStr(c)

TextBox4.Text = CStr(i)

TextBox5.Text = CStr(j)

End Sub

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

End

End Sub

End Class

5. Результаты выполнения проекта

6. Доказательство правильности результатов(Wolfram Alpha)