Как задавать тригонометрические функции в VB

[Logain]

У меня есть такая неработающая строка:

Picture1.Print Format((2*cos(x-pi/6))/(1/2 +sin^2(y))

Причём выше есть строка
Const pi = 3.14159265358979

Функции задаются в радианах, а не в градусах, знаем, но здесь ведь вроде градусов и нет?
Почему та строка не работает, в чём ошибка?

[Selyd]

Может не +sin^2(y), а +(sin(y))^2?
Каков синтаксис этого оператора,
что он должен делать? Готовит координату?

[Logain]

Может не +sin^2(y), а +(sin(y))^2?

Компилятор указывает именно на cos... И с одним вашим исправлением не работает.

Это программа, которой даёшь значения x, y, z и формулы для расчёта, а она тебе выдаёт результат.
Формулы:
a=(2cos(x-П/6))/(1/2 +sin^2(y))
b=1+((z^2)/(3+(z^2)/5))
В виде картинки представлено ниже.

Код: [Выделить]

Private Sub Command1_Click()
Label5.Caption = ""
Picture1.Cls
X = Val(Text1)
Y = Val(Text2)
Z = Val(Text3)
Const pi = 3.14159265358979
Picture1.Print Format((2cos(x-pi/6))/(1/2 +sin^2(y))
Picture2.Print Format(1 + (Z ^ 2) / (3 + (Z ^ 2) / 5))
End Sub

[Selyd]

В исходнике не +(sin(y))^2.
Наверное не понимает +sin^2(y).
Это синус в степени 2(y). От чего?
Ecли подправим +sin^2(y)(z), то может проглотит.
Выйдет sinz в степени 2y. Но я не уверен, а пробовать
не на чём. Удачи.

[Logain]

А всё-таки тот выделяет именно косинус.

[NiC]

Бааален... Чувак, а знаки Хде? Ты Знаки ваще не ставишь.

Вот так ПримернО.

Пример Исправления:

Dim x, y, Pi as Integer
x = Val (Text1.Text)
y = Val (Text2.Text)
z = Val (Text3.Text)


Picture1.Print Format((2 * Cos(x - Pi / 6)) / (1 / 2 + Sin(y) ^ 2))


Вооо) Так то лучше!

[Logain]

Огромное спасибо, получилось! Только синус в конце должен быть без одной скобки.
Подскажите, для чего строка "Dim x, y, Pi as Integer" ? С ней код не работает, без неё - работает.

[NiC]

Эммм... Со скобками переборщил!) Просто люблю когда всего МНОГО Хдд

Dim(Инструкция) Описывает переменные и выделяет для них память.

Неее работаед?) Баален. Хз тогда. А ты наверно уже ввел  Х, Y , Z, ну всмысле как переменные или константы?)

[wital1984]

Огромное спасибо, получилось! Только синус в конце должен быть без одной скобки.
Подскажите, для чего строка "Dim x, y, Pi as Integer" ? С ней код не работает, без неё - работает.

потому что x, y и Pi  у вас не целые числа (не Integer, Pi так вообще константа) а дробные, Double