Помогите пожалуйста! в этой строке : x = Text1.Text выво

[Вова1987]

Помогите пожалуйста! в этой строке : x = Text1.Text выводит ошибку "несовпадение типов". подскажите что исправить

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

Dim x As Double, a As Single, b As Integer, c As Integer, y As Single, z As Single, msgb As String
Private Sub Command1_Click()
a = 65
b = 5.32
c = 1.01
msg = "Aaaaeoa cia?aiea o!"
If Text1.Text = " " Then
MsgBox msg
Else
x = Text1.Text
y = (Log(Abs(x + b * Sqr(Abs(x)))) / Log(a)) / (2 * a * x - (x / b))
z = (x / y - Sqr(Abs(x * y) ^ (1 / c))) / (Log(Abs(x - b)) / Log(c))
Label7.Caption = y
Label8.Caption = z
End If
End Sub

[Viper] :: Пользуйся тэгом CODE!

[Qwertiy]

Значит у тебя не число в текстовом поле.

[Viper]

А в чем смысл объявить b и c с типом Integer, а затем присваивать им действительные числа 5.32 и 1.01, соответственно? Ошибка по идее уже на строках присваивания должна быть.

[ger_kar]

Значит у тебя не число в текстовом поле.

Вот именно! И скорее всего поле просто пустое. И пустое поле это далеко не 0

подскажите что исправить

Поставить условие и делать операцию присвоения только если это число.
Например проверку на пустоту можно сделать так:

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

If Len(Text1.Text) Then x = Text1.Text Else x=0

И заметь, это только проверка на пустоту, а кроме неё нужно проверить, что поле содержит именно число, а не нечто.
Поэтому проверку нужно дополнить, а не использовать пример "как есть", так как это просто пример проверки на пустоту

[Qwertiy]

Поэтому проверку нужно дополнить

А можно просто написать Val

[ger_kar]

Dim x As Double x = Text1.Text NO VAL

[Qwertiy]

Dim x As Double x = Text1.Text NO VAL

Я не про его код

[Вэйл]

Вначале нужно Text1 что-то присвоить.

[Qwertiy]

Вначале нужно Text1 что-то присвоить.

Зачем? Это же TextBox.

[Вэйл]

Обычно x=Val(Text1.Text) поскольку Dim x Integer, а в тексте - строковая переменная (символы), как ответил VB6.

[caa2000]

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

Dim s As String, x As Double


Private Sub Command1_Click()
s = Text1.Text
x = CDbl(s)
Label1.Caption = x
End Sub


Можно поиграться с
Dim x As Variant
В лбом случае - функция Format,Convert

[caa2000]

ЗЫ.
Только надо в Text1.Text проверочку придумать, если введёш string опять ругаться будет - Type missmatch