Музыка - Что только не играло

(08.06.06)
Вечером все просто зашибись сначала поиграл в игру Syndicate на Sega, затем поиграл в Super Tux, потом решил продолжить свой проект:
ScriptLangTest2 - первый как-то не очень прижился... Там жестокие глюки при использвании Do... и все переменные типа String... Поэтому функция EOF фозвращает, то "True", то 1 и из-за этого я решил закрыть первый тест и начать второй, в котором я разчитываю будет GoTo, Do, If и может быть For...

Сейчас парился над функцией Calc(CodeStr as String, Wnd as Object) as Variant
Решил использовать для переменных тип Variant, пусть это занимает больше памяти зато работает нормально... Эта функция считает так 2+2*2 она вернет 6, хотя ответ 8, он просто сгребает все значения и выполняет действия... она поддерживает скобки (но только одни) можно написать так (2+2)*2 и она вернет 8...

Эта расчитываю вставить сюда еще проверку на функции... Еще создал функцию CalcA(Val1, Val2, ValA). В первое и второе значаение а третий параметр это действие там лежит строка типа +-*&^\| она может складывать(+), отнимать(-), умножать(*), делить(\), возводить в степень(^), OR (|) и соединять строки (& ) в принципе строки можно соединять и оператором сложения, он я предпочитаю &, так как если использовать + то и в первом параметре лежит строка а во втором число, произойдет ошибка...