» Autoplay Media Studio

благодарю,но чек немного по-другому сделал


Код: visnews = Web.IsVisible("status");
check = CheckBox.GetChecked("CheckBox1");
if check == false
then Web.SetVisible("status", false);
else Web.SetVisible("status", true);
end

Тоже самое одой строчкой.
Web.SetVisible("status", CheckBox.GetChecked("CheckBox1"));

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

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


Кому интересно протестируйте. Замечания и пожелания приветсвуются.
http://rghost.ru/35784089
или
http://ifolder.ru/27987814

Цитата:

Тоже самое одой строчкой.
Web.SetVisible("status", CheckBox.GetChecked("CheckBox1"));

прост у меня там много объектов,вот бы это еще сохранить...

Phoenfix
Сохранение
Page1 On Close

Код:
if CheckBox.GetChecked("CheckBox1") then
INIFile.SetValue(_SourceFolder.."\\config.INS", "First", "CheckBox1", "true");
else
INIFile.SetValue(_SourceFolder.."\\config.INS", "First", "CheckBox1", "false");
end

Phoenfix
Не хочешь искать?

[more=Код]
Код: -- функция сохранения/чтения насторек ini файла
-- первый параметр strPathIni - (строка) путь к файлу ini;
-- второй параметр (сторока) strAction действие значения "load" или "save"
IniFiles = function (strPathIni, strAction)
local tblObjectType={};
-- типы объектов значения которых нужно сохранять/считывать из ini
tblObjectType[7]={Name="OBJECT_INPUT", Save = function (object) return Input.GetText(object); end};
tblObjectType[10]={Name="OBJECT_COMBOBOX", Save = function (object) return ComboBox.GetSelected(object); end};
tblObjectType[13]={Name="OBJECT_RADIOBUTTON", Save = function (object) return RadioButton.GetChecked(object); end};
tblObjectType[15]={Name="OBJECT_CHECKBOX", Save = function (object) return CheckBox.GetChecked(object); end};

if strAction=="load" then
if File.DoesExist(strPathIni) then
local tblSection_names = INIFile.GetSectionNames(strPathIni);
if (tblSection_names) then
for index_section, section in pairs(tblSection_names) do
local tblAllValue_names = INIFile.GetValueNames(strPathIni, section);
if (tblAllValue_names) then
for index_value, value in pairs(tblAllValue_names) do
if section == "OBJECT_INPUT" then
Input.SetText(value, INIFile.GetValue(strPathIni, section, value));

elseif section == "OBJECT_COMBOBOX" then
ComboBox.SetSelected(value, INIFile.GetValue(strPathIni, section, value));

elseif section == "OBJECT_RADIOBUTTON" then
if INIFile.GetValue(strPathIni, section, value) == "true" then
RadioButton.SetChecked(value, true);

else
RadioButton.SetChecked(value, false);
end

elseif section == "OBJECT_CHECKBOX" then
if INIFile.GetValue(strPathIni, section, value) == "true" then
CheckBox.SetChecked(value, true);
else
CheckBox.SetChecked(value, false);
end
end
end
end
end
end
end
elseif strAction=="save" then
local object_names = Page.EnumerateObjects();
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
if (object_names == nil) then
Dialog.Message("Notice", "Нет объектов на текущей странице!", MB_OK, MB_ICONEXCLAMATION);
else
for index, object in pairs(object_names) do
local typeObj = Page.GetObjectType(object);
if (tblObjectType[typeObj]) then
local strSection = tblObjectType[typeObj].Name;
local strValue=object;
local strData = tblObjectType[typeObj].Save(object);
INIFile.SetValue(strPathIni, strSection, strValue, tostring(strData));
end
end
end
end
end
end

Ни у кого не найдется скрипт генерирования любого числа в диапазоне 0-9?

ubian
для простого случая генерация целого числа из диапазона 0-9

Код:
Math.Random(0, 9);

Robby, спасибо. Мне и повторяющиеся подойдут

Robby

Цитата:

если тебе нужны не повторяющиеся числа, то тут уже начинаются сложности

незначительные от 0 до 9 подойдет

Код: _G_RndNum=function (tNum)
nRndNum = Math.Random(0,9);
if #tNum < 10 then
for x=1,#tNum do
if nRndNum == tNum[x] then
_G_RndNum(tNum)
end
end
return nRndNum
end
end


if not tNum then tNum={} end
nRet=_G_RndNum(tNum)
if nRet ~= nil then
tNum[#tNum+1]=nRet
Dialog.Message("", nRet, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Чего то я не понял. В моей программе нужно каждую секунду генерировать число, и в зависимости от числа выполняется определенное действие. Какая конечная переменная? nRet?

Добавлено:
Соотв. 10 действий разных

у меня просто несколько объектов,точнее много,а так спасибо
да и нуб я вообще в программировании

У кого нибудь случайно не найдется скриптик () вытаскивания из винды списка процессов в таблицу, и завершение процесса по имени. (Первое не обязательно )

Блин не получается,объясни,тут один скрипт на загрузку и на сохранение? и где это все прописывать?

ubian

Цитата:

В моей программе нужно каждую секунду генерировать число

к твоей программе это не относиться просто пример генерации случайного числа без повторения!на 10-том числе скрипт прекращает выполнение!для повтора нужно очистить таблицу tNum

Цитата:

Какая конечная переменная? nRet?

да!

Цитата:

вытаскивания из винды списка процессов в таблицу

смотри действия

Код: System.EnumerateProcesses()

Хорошо, спасибо. Вот сейчас писал такой скрипт. Мне выдает ошибку attempt to perform arithmetic on global AddHour. Почему? В ComboBox

Код:
1
2
3
4
...

ubian

А ничего, что ты строки сравниваешь с числами, да и операции сложения еще с ними проводишь? Может строку в число переведешь?

я не могу понять,растолкуйте мне этот скрипт не получается даже записать

Zloy_Gelud, т.е. использовать Item Data?

Добавлено:
Phoenfix, какой именно?

Код: if CheckBox.GetChecked("newscheck") then
INIFile.SetValue(_SourceFolder.."\\configl.ini", "visible", "newscheck", "true");
else
INIFile.SetValue(_SourceFolder.."\\configl.ini", "visible", "newscheck", "false");
end

Phoenfix
On Preload

Код:
local sNCV = INIFile.GetValue(_SourceFolder.."\\configl.ini", "visible", "newscheck");
if sNCV == "true" then CheckBox.SetVisible("newscheck", true) end
if sNCV == "false" then CheckBox.SetVisible("newscheck", false) end

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

Phoenfix
Код функции записи/сохранения помещаешь либо в Global Function, находиться в меню Project. В таком случае код будет доступен в любом месте проекта. Если у тебя одна страница и нужно чтобы настройки загружались при старте проекта то можно сделать так
помещаешь код в событие On Preload (при предварительной загрузке) в свойствах страницы, а в событие On Show (при показе) помещаешь код вызова загрузки настроек

Код:
-- чтение настроек из setting.ini
IniFiles ("AutoPlay\\Docs\\settings.ini", "load");

ubian

Цитата:

т.е. использовать Item Data

нет! Zloy_Gelud тебе явно написал, то строковой параметр с номерным не складываеться!
sTimeHour = System.GetTime(TIME_FMT_HOUR); --действие возвращает строку
AddHour = ComboBox.GetItemText("Hours", ComboBox.GetSelected("Hours")); --действие возвращает строку
sTimeHour = sTimeHour + AddHour -- не реально!
правильно

Код: sTimeHour = tonumber( System.GetTime(TIME_FMT_HOUR));
AddHour = tonumber(ComboBox.GetItemText("Hours", ComboBox.GetSelected("Hours")));

lerik2703, спасибо за объяснение. А на счет кириллицы в приложении, Phoenfix, так я прогу на заказ делаю не русскому человеку .Robby, думаю ему будет легче мой код... Т.к. сначала нужно с простого)

Добавлено:
Все равно ошибка... Напишите весь код пожалуйста... А то почему-то не работает

Добавлено:

Код:

Label.SetVisible("More Info", true);
sTimeHour = tonumber ( System.GetTime(TIME_FMT_HOUR));
AddHour = tonumber ( ComboBox.GetItemData("Hours", ComboBox.GetSelected("Hours")));
sTimeHour = sTimeHour + AddHour
sTimeMinutes = tonumber ( System.GetTime(TIME_FMT_MIN));
AddMin = tonumber ( ComboBox.GetItemData("Minutes", ComboBox.GetSelected("Minutes")));
sTimeMinutes = sTimeMinutes + AddMin
if sTimeMinutes > 60 then
sTimeMinutes = sTimeMinutes - 60
sTimeHour = sTimeHour + 1
end
sTimeSec = tonumber(System.GetTime(TIME_FMT_SEC))
AddSec = tonumber(ComboBox.GetItemData("Seconds", ComboBox.GetSelected("Seconds")));
sTimeSec = sTimeSec + AddSec
if sTimeSec > 60 then
sTimeSec = sTimeSec - 60
sTimeMinutes = sTimeMinutes + 1
end
Label.SetVisible("Op Time", true);
if RadioButton.GetChecked("RadioButton1") then sRb = "Shutdown" end
if RadioButton.GetChecked("RadioButton2") then sRb = "Reboot" end
if RadioButton.GetChecked("RadioButton3") then sRb = "System sleep" end
Label.SetText("Op Time", sRb.." at"..sTimeHour..":"..sTimeMinutes..":"..sTimeSec);

Цитата:

Код функции записи/сохранения помещаешь либо в Global Function, находиться в меню Project. В таком случае код будет доступен в любом месте проекта. Если у тебя одна страница и нужно чтобы настройки загружались при старте проекта то можно сделать так
помещаешь код в событие On Preload (при предварительной загрузке) в свойствах страницы, а в событие On Show (при показе) помещаешь код вызова загрузки настроек

Код:
-- чтение настроек из setting.ini
IniFiles ("AutoPlay\\Docs\\settings.ini", "load");





В меню Project -> Actions... -> On Shutdown (событи при выходе) или
Page Properties -> On Close (событие которое произойдет при закрытии страницы)
помещаешь код

Код:
-- сохранение настроек в setting.ini
IniFiles ("AutoPlay\\Docs\\settings.ini", "save");



AutoPlay\\Docs\\settings.ini - путь к ini файлу, можешь заменить на свой
либо можешь сделать кнопку и в событие On Click поместить вызов функции сохранения. Тогда настройки будут сохраняться при нажатии на кнопку. Вариантов много...
При сохранинении будут записаны состояния (всех) следующих объектов страницы как
INPUT
COMBOBOX
RADIOBUTTON
CHECKBOX

да все уже,я сделал

Phoenfix
здесь немного общей полезной информации для начинающего.

ubian
надо бы в справку начинать заходить
[more]Design Environment
The minimum and recommended system requirements for the AutoPlay Media Studio design environment are:

Minimum
Windows 2000, Windows XP, Windows Vista, Windows 7 or greater
Pentium 4 or greater processor (or equivalent)
256 MB RAM or greater
1024x768 display resolution with 16-bit or higher color depth
100 MB of free hard disk space for installation
Mouse

Run-time Application (Published Project)
The minimum system requirements for the AutoPlay Media Studio run-time executable are:

Minimum
Windows 2000
Pentium 120 MHz
32 MB RAM

Note: Requirements may vary according to the needs of your project. For example, a faster system may be required to view large videos at high bitrates, or your project may require a specific version of the Flash player, or the presence of a specific video codec.

Minimum for Video Object
DirectX 7 or greater
Internet Explorer 4.0 or newer

Minimum for Flash Object
The Flash object will only work if the Adobe Flash Player control is installed on the user's system. The Flash object's On FlashCall event is only supported in Flash version 8.0 or later.

Minimum for Web Object
The web object will only work if the Internet Explorer ActiveX control is installed on the user's system. It is compatible with version 4.01 or newer of the Internet Explorer control.

Minimum for PDF Object
The PDF object will only work if version 8.0 or newer of the Adobe Reader ActiveX control is installed on the user's system. It is installed with version 8.0 or newer of either the free Adobe Reader application, or one of the Adobe Acrobat professional products.

Minimum for QuickTime Object
The QuickTime object will only work if the QuickTime ActiveX control is installed on the user's system.[/more]
От себя могу добавить что и Windows 98 тоже работает, если не использовать чего-то специфического.

В справке искать долго. Если бы я туда не заходил имел бы уже постов в 4-5 раз больше

ubian
какая ошибка у тебя выдается, что в диалоге написано?
Часто повторяющиеся действия лучше обернуть в функцию, можно избавиться от многократного повторения частей кода, например

Код:
-- функция преобразоания строки в число, если преобразовать не получиться (строка не числового формата), вернет 0
function StringToNumber(string)
return String.ToNumber(string);
end

nTimeHour = StringToNumber(System.GetTime(TIME_FMT_HOUR));

Да ошибка та же самая... Странно. А смысл этой функции здесь, если и так все строкой одной . Там же часы минуты и секунды... А точку и запятую я обычно ставлю, но вот на нетбуке не удобно..