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 c As Double 'локальный объект
c = ((1 / (2 * PI)) - (x * (Sqrt((2.5 * 10 ^ 3) * y)) * (Abs(Cos(x ^ 3)))))
Return c 'возврат результата
End Function
'Процедура обработки события нажатия на кнопку Button1
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 c As Double, p As Single, k As Integer
Dim i, n As Double
Dim s1, s2 As String
'выполнение присваивания
x = CDbl(Val(TextBox1.Text)) 'преобразование типа String в Double
y = CDbl(Val(TextBox2.Text)) 'преобразование типа String в Double
c = func(x, y) 'вызов функции и присвоение результата
p = CSng(c) 'преобразование типа Double в тип Single
k = CInt(c) 'преобразование типа Double в тип Integer
i = CDbl(CStr(Fix(c))) 'преобразование типа Double в String
n = CDbl(CStr(Int(c))) 'преобразование типа Double в String
s1 = CStr(c) : s2 = CStr(p) 'преобразование числовых типов с тип String
'вывод результатов
TextBox3.Text = CStr(c) 'значение c
TextBox4.Text = CStr(k) 'значение k
TextBox5.Text = CStr(i) 'значение Fix(c)
TextBox6.Text = CStr(n) 'значение Int(c)
TextBox7.Text = CStr(p) 'значение p
TextBox8.Text = CStr(c + 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 c As Double)
c = ((1 / (2 * PI)) - (x * (Sqrt((2.5 * 10 ^ 3) * y)) * (Abs(Cos(x ^ 3)))))
End Sub 'Процедура обработки события нажатия на кнопку Button1
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 c As Double, p As Single, k As Integer
Dim i, n As Double
Dim s1, s2 As String
'выполнение присваивания
x = CDbl(Val(TextBox1.Text)) 'преобразование типа String в Double
y = CDbl(Val(TextBox2.Text)) 'преобразование типа String в Double
proc(x, y, c) 'вызов прцедуры
p = CSng(c) 'преобразование типа Double в тип Single
k = CInt(c) 'преобразование типа Double в тип Integer
i = CDbl(CStr(Fix(c))) 'преобразование типа Double в String
n = CDbl(CStr(Int(c))) 'преобразование типа Double в String
s1 = CStr(c) : s2 = CStr(p) 'преобразование числовых типов с тип String
'вывод результатов
TextBox3.Text = CStr(c) 'значение c
TextBox4.Text = CStr(k) 'значение k
TextBox5.Text = CStr(i) 'значение Fix(c)
TextBox6.Text = CStr(n) 'значение Int(c)
TextBox7.Text = CStr(p) 'значение p
TextBox8.Text = CStr(c + p) 'сложение чисел
TextBox9.Text = CStr(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, c As Double
'Процедура, вычисляющая выражение
Sub proc2()
c = ((1 / (2 * PI)) - (x * (Sqrt((2.5 * 10 ^ 3) * y)) * (Abs(Cos(x ^ 3)))))
End Sub
'Процедура обработки события нажатия на кнопку Button1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'объявление переменных
Dim p As Single, k As Integer
Dim i, n As Double
Dim s1, s2 As String
'выполнение присваивания
x = CDbl(Val(TextBox1.Text)) 'преобразование типа String в Double
y = CDbl(Val(TextBox2.Text)) 'преобразование типа String в Double
proc2() 'вызов прцедуры
p = CSng(c) 'преобразование типа Double в тип Single
k = CInt(c) 'преобразование типа Double в тип Integer
i = CDbl(CStr(Fix(c))) 'преобразование типа Double в String
n = CDbl(CStr(Int(c))) 'преобразование типа Double в String
s1 = CStr(c) : s2 = CStr(p) 'преобразование числовых типов с тип String
'вывод результатов
TextBox3.Text = CStr(c) 'значение c
TextBox4.Text = CStr(k) 'значение k
TextBox5.Text = CStr(i) 'значение Fix(c)
TextBox6.Text = CStr(n) 'значение Int(c)
TextBox7.Text = CStr(p) 'значение p
TextBox8.Text = CStr(c + p) 'сложение чисел
TextBox9.Text = CStr(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