Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.11.2010, 21:51   #1
mga
Новичок
Джуниор
 
Регистрация: 06.11.2010
Сообщений: 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

фотки кода внизууу!!!
Изображения
Тип файла: jpg Безымянный.jpg (34.2 Кб, 141 просмотров)
Тип файла: jpg Безымянный1212.jpg (42.3 Кб, 145 просмотров)
mga вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Стороны света ≈ стороны монитора Alex Cones Свободное общение 21 26.08.2010 17:15
кратчайшее расстояние от заданной точки до ближайщей стороны треугольника ddeman666 Помощь студентам 1 03.05.2010 14:47
Создать очередь из n целых чисел вычисляющая по формуле А=х*х+1; evrey Паскаль, Turbo Pascal, PascalABC.NET 1 02.06.2008 20:44
Процедура, вычисляющая Y=a*cos(G) и X=a*sin(G) Vishez Помощь студентам 4 25.04.2007 17:41