Программа для вычисления сторон треугольника
Вложений: 2
привет всем!!!
вот уже три дня не могу разобраться со своей программкой в 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 фотки кода внизууу!!! |
Часовой пояс GMT +4, время: 05:19. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.