привет всем!!!
вот уже три дня не могу разобраться со своей программкой в
VB-2005...
как мне исправить данные ошибки при проверке?..что не так?..как ее сделать лучше и структурнее?...
смотрите код....
заранее благодарен....
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
'функция ввода углов и радиуса треугольника
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
'Функция вывода результата в TextBox
Sub vivod(ByVal Z As Single, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
'функция вычисления суммы углов треугольника
Public Function summa(ByVal a1 As Single, ByVal a2 As Single, ByVal a3 As Single) As Single
Return CSng(a1 + a2 + a3 = 180)
End Function
'Поцедура вычисления сторон треугольника по его улам и описанному радиусу
Sub abc(ByVal a1 As Single, ByVal a2 As Single, ByVal a3 As Single, ByVal R As Integer)
Dim a As Single, b As Single, c As Single
a1 = 180 - a2 - a3
a2 = 180 - a1 - a3
a3 = 180 - a2 - a1
a = summa(CSng(2 * R * Sin(a2)))
b = summa(CSng(2 * R * Sin(a2)))
c = summa(CSng(2 * R * Sin(a3))) 'Вызов ф-ции выч-я суммы углов треугольника
End Sub
'Процедура обработки события нажатия на кнопку Button2
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Dim a3 As Single, a2 As Single, a1 As Single, R As Integer
Dim a, b, c As Single
a1 = vvod(TextBox1) : a2 = vvod(TextBox2) : a3 = vvod(TextBox3) : R = CInt(vvod(TextBox4))
abc(a, b, c, R)(a1, a2, a3)
vivod(a, TextBox5) : vivod(b, TextBox6) : vivod(c, TextBox7)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
End Class
фотки кода внизууу!!!