06.11.2010, 22:47 | #1 (permalink) |
Новичок
Регистрация: 06.11.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа для вычисления сторон треугольника
вот уже три дня не могу разобраться со своей программкой в 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 фотки кода внизууу!!! |
06.11.2010, 22:47 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожая задача уже решалась на нашем форуме Вычисления по формулам Вывести на экран результат вычисления выражения Программа Что за программа? Программа без ОС Программа печати площади заданного треугольника |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|