|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2009, 17:59 | #1 |
Регистрация: 18.12.2009
Сообщений: 4
|
Как рассчитать периметр фигуры
Дана трапеция с основаниями А,В, высотой h, углами k,l.
Данные вводятся в Userform произвольные. Периметр рассчитывается по формуле P = (A + B) + h * ((1 / sin(k)) + 1 / sin(l)) Углы вводятся в форму в градусах. Для расчетов их надо перевести в радианы: k= значение в градусах*Пи/180. Как написать эту формулу в VB? Через какие функции и т.п.??? |
18.12.2009, 18:41 | #2 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Все используемые здесь операции и функции являются стандартными математическими. Если пишете макрос, то так и пишите.
Пример: Код:
Последний раз редактировалось motorway; 18.12.2009 в 18:45. |
23.12.2009, 17:16 | #3 |
Регистрация: 18.12.2009
Сообщений: 4
|
Как рассчитать периметр фигуры
не совсем понятно.
У меня макрос получается такой: Private Sub cmdStart_Click() Dim A As Integer, B As Integer, h As Integer, k As Double, l As Double A = Val(txtA.Text) B = Val(txtB.Text) h = Val(txth.Text) If (A <> B) And ((k + l) < 180) And (k <= 90) And (l <= 90) Then P = (A + B) + h * ((1 / sin(k)) + 1 / sin(l)) S = ((A + B) * h) / 2 txtP.Text = Str(P) txtS.Text = Str(S) Else MsgBox "Îøèáêà!" + Chr(13) + "Äàííàÿ ôèãóðà íå ÿâëÿåòñÿ òðàïåöèåé", vbCritical + vbOKOnly, "Îøèáêà!!!" txtA.Text = "" txtB.Text = "" txth.Text = "" txtk.Text = "" txtl.Text = "" txtA.SetFocus End If End Sub А куда вставить строчку про углы k и l? И как их описать в радианах? |
23.12.2009, 17:48 | #4 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Моя строчка про углы была только для примера. А для радианов умножьте углы на пи и разделите на 180, это надо вставить перед функцией синуса.
|
24.12.2009, 07:51 | #5 | |
Форумчанин
Регистрация: 17.10.2008
Сообщений: 239
|
Цитата:
По данным в вашей программе не возможно расчитать периметр не хватает хотя бы одного угла. Для расчета с использованием двух углов все просто - дабавляете еще два поля в своей UserFormе. в этом случае ваша прога будет иметь другой вид Код:
Тогда ваш макрос будет иметь следующий вид Код:
Обратите внимание на существенное дополнение Вашего условия, а именно Код:
Последний раз редактировалось Юнлинг; 24.12.2009 в 07:58. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как рассчитать значения в табеле? | fs444 | Microsoft Office Excel | 2 | 16.11.2009 13:10 |
как рассчитать какой тренд-убывающий или возрастающий? | kate158 | Microsoft Office Excel | 3 | 06.09.2009 05:36 |
как с помощью html рисовать геометрические фигуры | 1100100011000101 | HTML и CSS | 3 | 01.05.2009 19:17 |
3D фигуры, как реализовать? | Nikiforov | Помощь студентам | 2 | 22.02.2008 00:24 |