VPF::Подскажите с VB - Форум программистов

cardinal

Дата 20.3.2005, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

http://www.codenet.ru/progr/vbasic/listfun.php

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Staruha

Дата 20.3.2005, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

Цитата

Пример

' Вычисляем синус прямого угла

Dim MyAngle,retval,GradToRad
Const pi = 3.14159265358979 ' определяем константу pi
MyAngle=90 ' задаем угол в градусах
GradToRad=MyAngle*pi/180 ' переводим градусы в радианы
retval=Sin(GradToRad) ' вычисляем синус прямого угла
Debug.Print retval

от Падре

--------------------

Возмездие настигнет

DarkAngel

Дата 21.3.2005, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 19.3.2005

Репутация: нет
Всего: 1

Ну всмысле фуекция то вроде правильная cos(a) а считает какую то лажу,может надо задать a параметр градусов,если да то как?
Добавлено @ 10:33
Ой ссори ваших ответов не увидел,че то форум не обновил прошу прошения!

Mephisto

Дата 25.3.2005, 01:14 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34

Код

Dim sSin!,sCos!,sTg!,a!
a=InputBox("a=")
sSin=Sin(a)
sCos=Cos(a)
sTg=Tan(a)
MsgBox "a="+CStr(a)+ _
"Sin(a)="+CStr(sSin)+ _
"Cos(a)="+CStr(sCos)+ _
"Tg(a)="+CStr(sTg)

Добавлено @ 01:19
Внимание!
Вводить необходимо в радианах! Функция перевода градусы в радианы:

Код


Private Function sGradIntoRad(ByVal sGrad!) as Single
     sGradIntoRad=sGrad*3,1415/180
End Function

Юзанъе функции:

Код


Dim sSin!,sCos!,sTg!,a!
a=InputBox("a=")
a=sGradIntoRad(a)
sSin=Sin(a)
sCos=Cos(a)
sTg=Tan(a)
MsgBox "a="+CStr(a)+ _
"Sin(a)="+CStr(sSin)+ _
"Cos(a)="+CStr(sCos)+ _
"Tg(a)="+CStr(sTg)

Теперь можно вводить в градусах.

P.s. Если не работает, сильнно не бить. Пишу и компилирую в уме.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »