|
Кто знает Visual Basic
|
|
| Norat | Дата: Пятница, 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 печатает
вместо 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,
Злой нюкер
|
| |
| |
