close

Вход

Забыли?

вход по аккаунту

?

laba3-отчет

код для вставкиСкачать
Московский Технический Университет
Связи и Информатики
Кафедра Информатики и Вычислительной Техники
Лабораторная работа "Структуры VB-программ и процедуры. Средства программирования алгоритмов линейной структуры"
Выполнил: Студент
Группы БИН 1304
Морозов Денис
Москва 2013
Вариант №13.
Задание на разработку:
Вычислить: y = Sh( x)+ tg( x +1)- tg( 2 + Sh( x -1) ) Назначение процедуры: Вычисление Sh(x)=(e^x-e^(-x))/2
Запись формулы на языке VB:
y = sh(x) + Tan(x + 1) - Tan(2 + sh(x - 1) ^ 2), где Sh(x) = (Exp(x) - Exp(-x)) / 2
Графический интерфейс:
Код программы:
Вторая часть задания
Option Strict On
Option Explicit On
Imports System.Math 'подключение матем. модуля
Public Class Form1
'Функция ввода координаты точки в TextBox Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
'Процедура вывода результата в TextBox Sub vivod(ByVal Z As Double, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
'Функция, вычисляющая выражение
Function sh(ByVal x As Double) As Double
sh = (Exp(x) - Exp(-x)) / 2
Return sh 'возврат результата End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Double, y As Double
x = vvod(TextBox1)
y = sh(x) + Tan(x + 1) - Tan(2 + sh(x - 1) ^ 2)
vivod(y, TextBox2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Блок схема:
Таблица используемых объектов и их свойств:
ОбъектИмя объектаСвойствоЗначение свойстваФормаForm1Form1МеткаLabel1TextЗадание: МеткаLabel2TextВычислить...МеткаLabel3TextИсходные данныеМеткаLabel4TextX=МеткаLabel5TextЗначение yТекстовое полеTextBox1TextТекстовое полеTextBox2TextКнопкаButton1_ClickTextВычислитьКнопкаButton2_ClickTextВыходВычисления:
Проверка:
Первая часть задания: Задание на разработку проекта и вариант задания: Создать приложение с именем Лаб.4-2 для вычисления арифметических выражений: h=(〖sin〗^3 x+e^(-siny))/(0,6x^2 y^2 )
k=h; n=[h]
где x, y - исходные данные - вещественные (Double).
k, n, h, p- результаты вычислений, причем k, n - целые (Integer),
h-вещественная (Double), p- вещественная (Single). Выражение n=[h] - означает, что вычисляется целая часть числа, полученная с помощью функции Fix. Кроме того, в задаче используются две строковые(String) переменные s1 и s2. 3. Запись арифметических выражений, соответствующих заданным математическим формулам, по правилам VB. h = (Sin(x) ^ 3 + Exp(-Sin(y))) / (0.6 * (x ^ 2) * (y ^ 2)) k=h; n=[h]
4. Разработка проекта 4.1. Разработка графического интерфейса пользователя 4.2. Таблица свойств объектов; Объект
Форма Метка Имя объекта
Form Label1 Свойство
Name Значение свойства
Form1 Text Text ForeColor ImageAlign Вычисление арифметических ... Задание: Создать проект вычисления арифметических... Red MiddleCenter Метка Label2 Text Исходные данные ForeColor ImageAlign Yellow Green MiddleCenter Метка Метка Метка Метка Label3 Label4
Label5 Label6 Text Text Text Text Х= Y= Результаты Значение t Метка Label7 Text Значение к Метка Label8 Text Значение (Fix(t)) Метка Label9 Text Значение Int(t) Метка Label10 Text Значение p Метка Label11 Text Значение t+p Метка Текстовое Label12
TextBox1Text
Name Значение s1+s2 TextBox1Текстовое TextBox2Name TextBox2Текстовое Текстовое TextBox3
TextBox4Name Name TextBox3
TextBox4Текстовое Текстовое TextBox5
TextBox6Name Name TextBox5
TextBox6Текстовое Текстовое Текстовое TextBox7
TextBox8
TextBox9Name Name Name TextBox7
TextBox8
TextBox9Кнопка Кнопка Кнопки Button2 Button1 Button2 и Button2Name Button2 Text Name Вычислить Button1 Text FontВыход Arial, жирный, 12 4.3. Схема алгоритма решаемой задачи Програмный код первого проекта
Option Strict On
Option Explicit On
Imports System.Math 'подключение матем. модуля
Public Class Form1
'Функция, вычисляющая выражение
Function func(ByVal x As Double, ByVal y As Double) As Double
Dim h As Double 'локальный объект h = (Sin(x) ^ 3 + Exp(-Sin(y))) / (0.6 * (x ^ 2) * (y ^ 2))
Return h 'возврат результата End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim x As Double, y As Double
Dim h As Double, p As Single, k As Integer, n As Double
Dim s1, s2 As String
x = CDbl(TextBox1.Text) 'преобразование типа String в тип Double y = CDbl(TextBox2.Text)
h = func(x, y)
p = CSng(h) 'преобразование типа Double в тип Single
k = CInt(h) 'преобразование типа Double в тип Integer n = Fix(h)
s1 = CStr(h) : s2 = CStr(p) 'преобразования числовых типов в тип String
TextBox3.Text = CStr(h)
TextBox4.Text = CStr(k)
TextBox6.Text = CStr(n)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(h + p) 'сложение чисел
TextBox9.Text = s1 + s2 'сложение строк
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Програмный код второго проекта
Option Strict On
Option Explicit On
Imports System.Math 'подключение матем. модуля
Public Class Form1
'Процедура, вычисляющая выражение
Sub proc(ByVal x As Double, ByVal y As Double, ByRef h As Double)
h = (Sin(x) ^ 3 + Exp(-Sin(y))) / (0.6 * (x ^ 2) * (y ^ 2))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim x As Double, y As Double
Dim h As Double, p As Single, k As Integer, n As Double
Dim s1, s2 As String
x = CDbl(TextBox1.Text) 'преобразование типа String в тип Double y = CDbl(TextBox2.Text)
proc(x, y, h)
p = CSng(h) 'преобразование типа Double в тип Single
k = CInt(h) 'преобразование типа Double в тип Integer n = Fix(h)
s1 = CStr(h) : s2 = CStr(p) 'преобразования числовых типов в тип String
TextBox3.Text = CStr(h)
TextBox4.Text = CStr(k)
TextBox6.Text = CStr(n)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(h + p) 'сложение чисел
TextBox9.Text = s1 + s2 'сложение строк
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Програмный код третьего проекта
Option Strict On
Option Explicit On
Imports System.Math 'подключение матем. модуля
Public Class Form1
'Глобальные объекты
Dim x As Double, y As Double, h As Double
'Процедура, вычисляющая выражение
Sub proc2()
h = (Sin(x) ^ 3 + Exp(-Sin(y))) / (0.6 * (x ^ 2) * (y ^ 2))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim p As Single, k As Integer, n As Double
Dim s1, s2 As String
x = CDbl(TextBox1.Text) 'преобразование типа String в тип Double y = CDbl(TextBox2.Text)
proc2()
p = CSng(h) 'преобразование типа Double в тип Single
k = CInt(h) 'преобразование типа Double в тип Integer n = Fix(h)
s1 = CStr(h) : s2 = CStr(p) 'преобразования числовых типов в тип String
TextBox3.Text = CStr(h)
TextBox4.Text = CStr(k)
TextBox6.Text = CStr(n)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(h + p) 'сложение чисел
TextBox9.Text = s1 + s2 'сложение строк
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Результаты выполнения проектов:
Проверка:
Документ
Категория
Рефераты
Просмотров
21
Размер файла
311 Кб
Теги
лабораторная работа, laba3, лаба, отчет, лабораторная
1/--страниц
Пожаловаться на содержимое документа