DotFix ::: Software protection portal
 *Начало * Ответить * Статистика * Задать вопрос * Поиск * FAQ * *

DotFix Forum / Вопросы программирования и исследования защит / предлагаю всем open sourse проект
Автор Сообщение
neznaiy
Участник


Дата: 25 Дек 2008 22:04


все кто хотят коллективно разрабатывать свой язык программирования пишите здесь. Со дня на день выложу исходники начинаний!

Admin
Администратор


Дата: 26 Дек 2008 09:44


Quoting: neznaiy

Со дня на день выложу исходники начинаний!


Ну вот как выложишь так бы и создал тему а пока это просто флуд.

neznaiy
Участник


Дата: 26 Дек 2008 15:37


http://content.files.mail.ru/Q6X8PD/455d0b3752039f48ee03ae0691bfc269

Admin
Администратор


Дата: 27 Дек 2008 01:20


neznaiy

Форма готова, теперь надо писать самое сложное

neznaiy
Участник


Дата: 28 Дек 2008 11:57


Помогите пожалуйста. Пишу оператор Окно.Размер,
Кусок кода:
 Case "Окно.Размер," 
  params(1) = ЗапятаяНаКонце(params(1)) 
  params(2) = ЗапятаяНаКонце(params(2)) 
  params(3) = ЗапятаяНаКонце(params(3)) 
  MsgBox params(1) 
  Call SetWindowPos(params(1), params(1), 67, 67, params(2), params(3 
), SWP_NOMOVE)


Функция ЗапятаяНаКонце:
Public Function ЗапятаяНаКонце(stroka As String) As Stri 
ng If Right(stroka, 1) = "," Then ЗапятаяНаКонце = Left(stroka, Len(stroka - 1)) End If End Function


Потом когда запускаю, ну никак не хочет работать! Почему?

neznaiy
Участник


Дата: 29 Дек 2008 18:29


сам ведь понял!
1 - закралась досадная опечатка: ЗапятаяНаКонце = Left(stroka, Len(stroka - 1))
а должно быть ЗапятаяНаКонце = Left(stroka, Len(stroka) - 1)!
И ещё:
Call SetWindowPos(params(1), params(1), 67, 67, params(2), params(3 ), SWP_NOMOVE)

Call SetWindowPos(params(1), form1.hwnd, 67, 67, params(2), params(3 ), SWP_NOMOVE)

neznaiy
Участник


Дата: 29 Дек 2008 18:35


ещё один вопрос:
Я усовершенствовал функцию:
Public Function ÇàïÿòàÿÍàÊîíöå(stroka As String) As String
If Right(stroka, 1) = "," Then
If Left(stroka, 1) And Right(stroka, 1) = "@" Then

Else
ÇàïÿòàÿÍàÊîíöå = Left(stroka, Len(stroka) - 1)
End If
End If
End Function
здесь как видно я поставил распознавание переменных. тоько как ими пользоваться?
чтобы @переменная@ = ........
как сохранить это значение в памяти? Ведь нельзя же прописать Dim (params(0)) as string.

Admin
Администратор


Дата: 30 Дек 2008 02:47


neznaiy

Возьми лучше за основу движок GPScript. Зачем изобретать велосипед с нуля?

Ваш ответ

Bold Style  Italic Style  Underlined Style  Image Link  Insert URL  Email Link  Код 
... Отменить *Что это?


Перед отправкой "нелатинского" текста проверьте кодировку броузера!
 » Логин  » Пароль