Кто знает Visual Basic

Дата: Пятница, 2007-05-25, 3:50 PM | Сообщение # 16

HAGAKURE

Группа: Модераторы

Сообщений: 1097

Статус: Offline

Шпион, так а что не так со скриптом? У меня считает и дробные. Только он как-то странно себя с Y ведёт. Я бы заменил код в Command1_Click()
с

Code

Value2 = ScriptControl1.Eval(Trim(Text2.Text))
Result.Caption = Value & Value2

на

Code

Result.Caption = Value

_Norat_ cleric 5x [HAGAKURE] (Norat_trader)

ShpI0n

Дата: Пятница, 2007-05-25, 5:39 PM | Сообщение # 17

HAGAKURE

Группа: Union Member

Сообщений: 310

Статус: Offline

Norat, у все правильно?? A ты формулу менять не пробывал?? Я вот делаю формулу х+у и ввожу им значения по 0.5 он сильно ругается.

Добавлено (2007-05-25, 5:39 Pm)
---------------------------------------------
Norat, Вот зделал как ты написал всеравно ничего не получается

Злой нюкер

Norat

Дата: Пятница, 2007-05-25, 7:45 PM | Сообщение # 18

HAGAKURE

Группа: Модераторы

Сообщений: 1097

Статус: Offline

Теперь вижу. Бейсик не знаю, поэтому могу только предполагать.
Грабли в вот этих строчках:

Code

X = Val(Text3.Text)
Y = Val(Text2.Text)
ScriptControl1.ExecuteStatement "X=" & X
ScriptControl1.ExecuteStatement "Y=" & Y

Похоже, что "X=" & X печатает

Code

X=1,1

вместо X=1.1 (то есть запятая вместо точки).
В итоге ExecuteStatement ругается, что дескать, оператор не завершён.
Попробуй

Code

ScriptControl1.ExecuteStatement "X=" & Replace(X, ",", ".")
ScriptControl1.ExecuteStatement "Y=" & Replace(Y, ",", ".")

вместо старых ExecuteStatement

_Norat_ cleric 5x [HAGAKURE] (Norat_trader)

ShpI0n

Дата: Воскресенье, 2007-05-27, 3:51 AM | Сообщение # 19

HAGAKURE

Группа: Union Member

Сообщений: 310

Статус: Offline

Norat, работает тока что-то он не правильно считает
х+у и ввожу им значения по 0.5 он мне выдает 10.5

Злой нюкер

Charley_est

Дата: Воскресенье, 2007-05-27, 4:37 AM | Сообщение # 20

BASTEON_RU

Группа: Union Member

Сообщений: 806

Статус: Offline

финальная версия:

Code

Private Sub Command1_Click()
On Error GoTo EvalError
      Result.Caption = ScriptControl1.Eval(replace(replace(Lcase$(text1.text),"x", text3.text),"y", text2.text))
      UpdateLog
      Exit Sub
EvalError:
      Result.Caption = " Invalid Expression!"
      MsgBox ScriptControl1.Error.Description
End Sub

темку мона убить =)

...проходит ММОРПГ "жизнь в реале"... (куча скилов, свободный выбор развития и терпимая графика.... ботов почти нету)

ShpI0n

Дата: Воскресенье, 2007-05-27, 2:33 PM | Сообщение # 21

HAGAKURE

Группа: Union Member

Сообщений: 310

Статус: Offline

Сбасибо всем кто откликнулся на помощь особенно Charley_est, и Norat,

Злой нюкер