Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 06.11.2010, 22:47   #1 (permalink)
mga
Новичок
 
Регистрация: 06.11.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Программа для вычисления сторон треугольника

привет всем!!!

вот уже три дня не могу разобраться со своей программкой в 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

фотки кода внизууу!!!
Миниатюры
aacuiyiiue1212.png   aacuiyiiue.png  
mga вне форума   Ответить с цитированием

Старый 06.11.2010, 22:47
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Похожая задача уже решалась на нашем форуме

Вычисления по формулам
Вывести на экран результат вычисления выражения
Программа
Что за программа?
Программа без ОС
Программа печати площади заданного треугольника

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:09.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.