про ошибки с синусами

[hammer]

Люди, я в шоке!
Ситуация следующая:
объявляю переменные
dim result as double
operand as double

в одной из процедур выполняю следующие действия:
Operand1 = CDbl(Display.Caption) ' конвертация текстового значения в лейбле в числовое
result = Sin(Operand)
при компиляции получил следующую ошибку
run-time error '13':
type mismath

и что бы это значило???
то же самое я получил с косинусами
как с этим бороться
заранее спаибо

[RayShade]

А не в том ли дело, что ты конвертишь в одну переменную, а синус делаешь от другой?

[hammer]

сорри
опечатался (привычка бездумно юзать мышь)
строка
Operand1 = CDbl(Display.Caption) ' конвертация текстового значения в лейбле в числовое
должна выглядеть
Operand = CDbl(Display.Caption) ' конвертация текстового значения в лейбле в числовое
но ошибка не отсюда, я проверял код

[STING]

Люди, я в шоке!
Ситуация следующая:
объявляю переменные
dim result as double
operand as double

в одной из процедур выполняю следующие действия:
Operand1 = CDbl(Display.Caption) ' конвертация текстового значения в лейбле в числовое
result = Sin(Operand)
при компиляции получил следующую ошибку
run-time error '13':
type mismath

и что бы это значило???
то же самое я получил с косинусами
как с этим бороться
заранее спаибо

В объявлении operand, ты случайно Dim не забыл поставить? Если нет, то можно посоветовать проверять Display.Caption на "численность" c помощью IsNumeric. А если Display.Caption=Null, то можно воспользоваться конкатенацией со значением по умолчанию, чтобы Null преобразовывать в 0. Короче вот код:

Код: Выделить всё

Dim operand As Double
Dim result As Double
If IsNumeric(0 & Display.Caption) Then
    operand = CDbl(0 & Display.Caption)
End If
result = Sin(operand)

[hammer]

я ради пробы написал строку
result = Sin(0)
он гад выдал такую же ошибку , хотя какое тут может быть несоответствие типов!!!!???

[alibek]

Нажми F2, введи в поле поиска "sin" и сделай поиск. Возможно у тебя в проекте (или в подключенных библиотеках) есть функция с таким же названием, но принимающая другие параметры.

[GoGosha]

Несоответсвие типов не в этой строчке надоб

Operand = Val(Display.Caption)