|
|
|
Полезные Советы, Практическое применение. Настройка запуска. |
|
|
Zeleax |
7.2.2012, 13:39
|
ex-Moderator UOPilot
Сообщений: 2.440
Регистрация: 8.10.2010 Группа: Пользователи Наличность: 0 Из: Киев
Пользователь №: 13.093
|
Цитата добавил функцию установки текущей раскладки клавиатуры 'set $var setlayout (layout)'. возвращает 1 если установка раскладки прошла удачно, в противном случае 0. 'layout' можно указывать четырех-восьми символьным шестнадцатеричным значением. Пример использования: Код // печатаем одной строкой текста: Вася.Пупкин@gmail.com
set $var setlayout (0419) // включили русскую раскладку sendex Dfcz/Gegrby // Вася.Пупкин (смотрим на клавиатуру) set $var setlayout (0409) // включили английскую раскладку sendex ~2gmail.com // @gmail.com Список языков для setlayout: 0419 - русский; 0409 - английский; 0422 - украинский; 0423 - белорусский Иногда sendex начинает глючить. Тогда нужно закрыть и снова запустить UOPilot. Сообщение отредактировал Zeleax - 12.2.2012, 13:38
--------------------
|
|
|
|
esqado |
6.3.2012, 9:19
|
Journeyman
Сообщений: 357
Регистрация: 5.11.2011 Группа: Пользователи Наличность: 0
Пользователь №: 14.217
|
Проверка ввода символов на не числовые значения. Например для торговли. Торговать словами могут только политики (IMG: style_emoticons/default/biggrin.gif) При вводе символов, отличных от цифр, в переменную #number записывается число -1. Три копейки
Код set $number prompt (Дави на кнопки) set #number hex2dec ($number) if #number < 0 msg Введенные значения не числовые = $number else msg Введены числовые значения = $number end_if
end_script
--------------------
В обычном программировании: любое значение может быть преобразовано в тип string В программировании Pilot: любое значение должно быть типа имейдж.
|
|
|
|
Zeleax |
18.4.2012, 7:05
|
ex-Moderator UOPilot
Сообщений: 2.440
Регистрация: 8.10.2010 Группа: Пользователи Наличность: 0 Из: Киев
Пользователь №: 13.093
|
Цитата(_LESTAT_ @ 17.4.2012, 23:38) Вот придумал тихий запуск: Код set %mas [ 1 1 ] activex.Run("cmd /c start http:/ set %mas [ 1 2 ] /ya.ru", 0, true); set %js [1] var activex = new ActiveXObject("WScript.Shell"); set %js [2] %mas [1] save_array %js "c:\Temp.js" ExecAndWait wscript "c:\Temp.js" //DeleteFile "c:\Temp.js" end_script В пилоте сильно нехватает команды DeleteFile, чтобы тихо удалять временные файлы. Я понимаю, что можно удалять через командную строку, то тогда смысл в тихом запуске пропадает. Пожалуйста добавте такую полезную мелоч, в следующей версии. Если микрофайлик Temp.js в корне вам мешает, а моргающее 0.3-1сек черное окошко нет, то замените строку //DeleteFile "c:\Temp.js" на exec cmd /c del "c:\Temp.js"
--------------------
|
|
|
|
DarkMaster |
2.5.2012, 14:23
|
Модератор UOPilot
Сообщений: 9.495
Регистрация: 2.12.2008 Группа: Супермодераторы Наличность: 28055
Пользователь №: 11.279
|
Вычисление дня недели
1 пн, 2 вт, 3 ср, 4 чт, 5 пт, 6 сб, 7 вск Код // В переменные #year, #month, #day // помещаются соответственно // год, месяц, число. // В качестве примера взята текущая дата. set #year Year set #month Month set #day Day gosub dayOfWeek msg #dayofWeek stop_script
:dayOfWeek if #month > 2 // Расчет текущего (сегодня) дня недели. set #month #month -2 set #century #year / 100 set #year #year - #century * 100 else set #month #month 10 set #year #year - #year / 100 * 100 - 1 set #century #y / 100 end_if set #dayOfWeek #day + ( ( 13 * #month - 1 ) / 5 ) + #year + ( #year / 4 ) + ( #century / 4 ) - 2 * #century set #dayOfWeek #dayOfWeek - #dayOfWeek / 7 * 7 if #dayOfWeek < 0 set #dayOfWeek #dayOfWeek + 7 end_if return
Дополнение от zavas к скрипту DarkMaster'а "название дня недели" название дня
set %day[1] Понедельник set %day[2] Вторник set %day[3] Среда set %day[4] Четверг set %day[5] Пятница set %day[6] Суббота set %day[7] Воскресенье
msg %day[#dayOfWeek]
Сообщение отредактировал Zeleax - 28.5.2012, 11:31
--------------------
Скрипты UOPilot под заказ. Консультации по UOpilot 15$/час. Услуги Lua разработчика (не пилот, проекты, постоянка) Disсоrd: Kov____
|
|
|
|
|
|
3 чел. читают эту тему (гостей: 3, скрытых пользователей: 0)
Пользователей: 0
|
|