Где-то напутал в математике

[samlab]

Код:

Dim u, v, x, y, z As Variant

Private Sub cmd1_Click()
x = CVar(txt1.Text)
v = x - 2 * Tan(1)
u = 2 * (Atn(3) + Log(7 * x))
y = Cos(u) + (8 * Sin(3 * v))
z = Round(y, 3)
lbl2 = z
End Sub

Private Sub cmd2_Click()
End
End Sub

Проверьте, пожалуйста, где я напутал в математике... При x=0,77 должно выдать y= -6,457. Задали по информатике курсовую работу, а я в математике полный профан, на вас только и надежда...

[Sla]

нужна начальная формула.

[samlab]

Начальные данные
y = cos u + 8 sin 3v
u = 2 arctg 3 + lg7x
v = x - 2 tg 1
Найти y при x=0,77

[Sla]

Задание
u = 2 arctg 3 + lg7x

Реализация
u = 2 * (Atn(3) + Log(7 * x))

Два умножить на ЧТО?

[samlab]

Не знаю, если честно, скорее всего, на скобку всю. Хотя, может и на первое выражение только.

[Sla]

правильно! на всю "скобку"
А нужно на ЧТО?

[samlab]

Да хз, препод видимо сам в математике не силен...  Ну да ладно, методом проб и ошибок, как-нибудь дойду... Хотелось бы уточнить вот еще что, если вместо чисел ввести, скажем - какой нить текст, то программа вылетит с ошибкой... Надо сделать какую нибудь проверку... Я вот как это вижу

Код:

If {сравниваем то, что ввели} Then 
тут выполняем основной код
Else
Msg.Box msg , , "Ошибка"
End If

Подскажите, как сравнить, вернее, с чем?

[Sla]

возможно здесь поможет функция Val

Value = Val("12345.678")

[samlab]

Спасибо, но не работает... Видимо, нужна функция для преобразования строки в число, где это возможно... Или регулярным выражением показать, что вводить можно только числа...

Код:

Dim u, v, x, y, z As Double

Private Sub cmd1_Click()
x = (txt1)
If x <> 0 And x <> "" Then
v = x - (2 * Tan(1))
u = 2 * (Atn(3) + Log(7 * x))
y = Cos(u) + (8 * Sin(3 * v))
z = Round(y, 3)
lbl2 = z
Else
MsgBox "Enter a valid number", , "Error"
End If
End Sub

Private Sub cmd2_Click()
End
End Sub

Private Sub cmd4_Click()
txt1 = ""
lbl2 = ""
End Sub

Вот так вот я запретил ввод нуля и пустой строки

[Dale]

Спасибо, но не работает... Видимо, нужна функция для преобразования строки в число, где это возможно...

Функция IsNumeric проверяет, может ли строка быть вычислена как численное выражение.

Пример:

Код:

Public Sub Main()
    Debug.Print IsNumeric("123")
    Debug.Print IsNumeric("abc")
End Sub

Результат:

True
False

По результату проверки принимайте решение, стоит ли пытаться преобразовать строку в число.

[samlab]

Спасибо

Добавлено через 1 день, 3 часа, 59 минут и 55 секунд:
Вот как все-таки вышел из положения, хотя ответ все-равно не сходится

Код:

Private Sub cmd1_Click()
x = Val(txt1.Text)
If (x <> 0) And (x <> "") Then
u = (2 * Atn(3)) + (Log(7 * x))
v = x - (2 * Tan(1))
y = Cos(u) + (8 * Sin(3 * v))
p = Round(y, 3)
MsgBox p, vbInformation, "Ответ"
Else
MsgBox "Введите число", vbCritical, "Ошибка"
End If
End Sub

Private Sub cmd2_Click()
End
End Sub

Private Sub cmd3_Click()
txt1.Text = ""
End Sub

Пробовал в начале объявлять переменные

Код:

Dim x, u, y, v, p As Double

Думал, может повысится точность подсчета, но ничего не поменялось.