Вопрос про переменные

[Ariman]

У меня следующий вопрос:
Я в своей игре хочу сделать консоль, в которой можно будет
использовать некоторые отладочные комманды.

Я бы хотел добавить комманды "Показать значение переменной","установить значение переменной".
Как это сделать? Мне надо, чтобы функция в качестве аргумента
получала имя переменной(в стринге), а возвращала значение.
И аналогичная ф-ция для установки значение.
Т.Е. допустим, есть переменная "a", скажем, типа INT.
SetVar("a",10) установит значение "а" на 10,
x=GetVar("a") вернет значение переменной "а" и приравняет "х" к этому значению.
Понятно, что если бы у меня было 2-3 переменые,
можно было бы написать что-нибудь типа
GetVar(Vname as string) as variant 'variant т.к. возвращаемое значение зависит от переменной-аргумента.
if Vname$="a" then GetVar=a
if Vname$="b" then GetVar=b
end sub
Но ведь нельзя же так делать со всеми переменными в программе!
Если кто знает, напишите код этих функций, плз!

И вообще, как можно сделать обработку комманд? Чтоб не писать
If left$(cmd,len("SetVarible"))="SetVarible" then SetVarible(Mid$(),,)
Во второй части я пропустил параметры, лень было высчитывать. Понятное дело
Mid$() вырезает из строки "SetVarible(a,10)" аргументы.............
Как это все организовать?

[sanches]

Насчет переменных - тут только массив или коллекция. Сейчас код выложу (мин через 5), а то еще поискать надобно....., где-то завалялся....

[sanches]

а вот и он, код. Не самый оригинальный и не самый быстрый, но работающий.
Здесь два класса: первый - Variable. У него свойства Value и Name.
Второй - набор объектов Variable. ну короче говоря посмотри, а если вопросы будут, напиши (там в принципе понятно должно быть).


можно еще ввести двумерные массивы, каждый для своего типа данных, то есть отдельно для стрингов, отдельно для double и т.д.

[Raft]

Примени Dictionary.
В модуле обьяви Dictionary, имя переменной - значение, занеси defaults.

Public dict As Scripting.Dictionary

Set dict = New Scripting.Dictionary

dict.Add "DBName", "test"
dict.Add "ConnectOnLoad", 0

А из проги вызывай Dictionary.

Private DbN as string

chkConnect = dict("ConnectOnLoad")
DbN = dict("DBName")

Значения твскай по ключу или индексу как удобнее

при желании можешь Enumerate

Dim key as Variant

For Each key In dict.Keys

Делай здесь что надо

Next

[Vi]

Есть Script Control, который позволяет это делать. Не скажу по скорости, а по возможностям - все, что тебе нужно.

Метод AddObject позволяет добавить в пространство имен твои объекты. Например, ScriptControl1.AddObject "Me", Me, True добавляет форму в пространство имен.

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

Private Sub Form_Load()
  ScriptControl1.AddObject "Me", Me, True
'или так  ScriptControl1.ExecuteStatement "Me.Caption=""xxx"""
'или так  ScriptControl1.ExecuteStatement "Caption=""xxx"""
End Sub


[Ariman]

Спасибо за идеи.
Но мне больше всего нравится идея со scriptControl.
Это в самом деле наиболее близко к моей цели.
Я сам думал об его использовании. Но единственное что:
в игре я использовал только стандартные контролы, так что в сетап-файл я не вкладывал ничего кроме самих файлов игры.
Но при использовании этого контролы мне придется добавлять и его...
а это увеличит размер сетапа....
И все же, я очень часто видел в некоторых любительских играх,
скажем, в файлах диалогов такие строки как
this.showTopic("*****")
Ясное дело, эта строка не разрезалась чем-нибудь типа mid$ и не сравнивалась If'ом с доступными коммандами, а воспринималась целиком. Но не все же юзают аналог скрипт-контрола! Как же тогда они это делают?

Но, должен сказать, что пока меня устроит и скрипт конрол. Просто хочется найти альтернативное решение этой задачи.........
Все равно спасибо всем.
P.S.
А где можно найти статьи(и хотелось бы на русском, чтоб не париться)
по этому контролу?

[Ariman]

Да, кстати, как все же изменить значение переменной? Ведь addobject добавляет объекты, а мне нужно изменить значение простых переменных.....