![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 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 фотки кода внизууу!!! |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Стороны света ≈ стороны монитора | 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 |