Основная Форма

Исходный код

Public Class Form0

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

End Sub

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

Form1.Show()

Hide()

End Sub

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

Form2.Show()

Hide()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Form3.Show()

Hide()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Form4.show()

Hide()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End

End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

End Sub

End Class

Работа 4.2

1. Тема и название работы:

Основные средства языка программирования VB .NET 2008 – Вычисление арифметических выражений.

2. Цель работы:

Цель выполнения данной лабораторной работы состоит в изучении алфавита языка, типов данных и правил записи арифметических выражений, содержащих константы, переменные, различные арифметические действия и «встроенные» функции, а также простейшие действия со строковыми данными и ознакомлении с основными правилами преобразования типов.

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

Создать приложение с именем Проект-4-2-Лаб для вычисления арифметических выражений:

i = f; j = [f]; x =8.8 y =5.8

где x, y – исходные данные - вещественные (Double).

f, i, j – результаты вычислений, причем i, J - целые (Integer),

F – вещественная (Double), а [ ] целая часть числа.

Проект должен иметь простой интерфейс.

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

f =((Pi/3 + log(x^3))/(3*y-x)) + x*sin(y^2)

i = f

J = Fix(f)

x = 8.8; y = 5.8

5. Графический интерфейс

5.1 Форма

5.2. Программный код

Option Strict On

Option Explicit Off

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 As Double, y As Double

Dim f As Double, i As Integer

Dim J As Integer

x = CDbl(Val(TextBox1.Text))

y = CDbl(Val(TextBox2.Text))

f = ((PI / 3 + Log(x ^ 3)) / (3 * y - x)) + x * Sin(y ^ 2)

i = CInt(f)

J = CInt(Fix(f))

TextBox3.Text = CStr(f)

TextBox4.Text = CStr(i)

TextBox5.Text = CStr(J)

TextBox6.Text = CStr(Int(f))

TextBox7.Text = CStr(Int(Abs(f)))

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

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

Form0.Show()

Hide()

End Sub

End Class

Разработка схемы алгоритма

Вывод f,J, i

Конец

i = f

J = Fix(f)

f = ((Pi/3 + log(x^3))/( 3*y-x)) + x*sin(y^2)

Начало

Ввод X,Y

Работа 4.3