Robby, спасибо!
» Indigo Rose AutoPlay Media Studio
Может кому тоже пригодится, смена изображений в зависимости от времени аудиозаписи.
В свойствах страницы в OnTimer код:
time = MediaPlayer.GetCurrentPos("Player");
if time == 0 then
Image.Load("Image2", "AutoPlay\\Images\\Image_00.jpg");
elseif time >5 and time < 7 then
Image.Load("Image2", "AutoPlay\\Images\\Image_01.jpg");
elseif time >10 and time < 12 then
Image.Load("Image2", "AutoPlay\\Images\\Image_02.jpg");
end
В кнопке запуска аудиозаписи в OnClick код:
MediaPlayer.Load("Player", "AutoPlay\\Audio\\Audio_1.mp3");
MediaPlayer.SetVolume("Player", 100);
Page.StartTimer(1000);
В свойствах страницы в OnTimer код:
time = MediaPlayer.GetCurrentPos("Player");
if time == 0 then
Image.Load("Image2", "AutoPlay\\Images\\Image_00.jpg");
elseif time >5 and time < 7 then
Image.Load("Image2", "AutoPlay\\Images\\Image_01.jpg");
elseif time >10 and time < 12 then
Image.Load("Image2", "AutoPlay\\Images\\Image_02.jpg");
end
В кнопке запуска аудиозаписи в OnClick код:
MediaPlayer.Load("Player", "AutoPlay\\Audio\\Audio_1.mp3");
MediaPlayer.SetVolume("Player", 100);
Page.StartTimer(1000);
Есть такая задача:
При нажатии на кнопку, нужно вывести диалог с полем ввода пароля.
При вводе нужного пароля - происходит переход на другую страницу.
Как это сделать?
При нажатии на кнопку, нужно вывести диалог с полем ввода пароля.
При вводе нужного пароля - происходит переход на другую страницу.
Как это сделать?
DartKane
На кнопку в скрипте OnClick:
pass = Dialog.Input("Ввод пароля", "Введите пароль:", "", MB_ICONEXCLAMATION);
if pass == "1234567" then Page.Jump("Page2");
else Dialog.Message("Ошибка", "Неверный пароль!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end
На кнопку в скрипте OnClick:
pass = Dialog.Input("Ввод пароля", "Введите пароль:", "", MB_ICONEXCLAMATION);
if pass == "1234567" then Page.Jump("Page2");
else Dialog.Message("Ошибка", "Неверный пароль!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end
ilnur40, спасибо помогло!
Возможно ли сделать что-то вроде графического ключа, как в андройде на блокировщике?
Нужно, чтобы по нажатию на кнопку, выходил диалог, где будут 12 точек, которые нужно соединить в нужной последовательности.
Примерно так:
Нужно, чтобы по нажатию на кнопку, выходил диалог, где будут 12 точек, которые нужно соединить в нужной последовательности.
Примерно так:
Хотел использовать этот код чтобы создать многоколоночный ListBox. У меня он не работает. ListBox не меняется. И как вообще выглядит такой ListBox?
Код: -- API-константы
GWL_STYLE = -16
LBS_MULTICOLUMN = 512
LB_SETHORIZONTALEXTENT = 404
hWnd = ListBox.GetProperties("ListBox1").WindowHandle; -- hanle Listbox
WinApi.SetWindowLong(hWnd, GWL_STYLE, LBS_MULTICOLUMN, true); -- стандартный стиль ListBox
-- добавление записей в ListBox
result = ListBox.AddItem("ListBox1", "Col1Row1\tCol2Row1\tCol3Row1", "");
result = ListBox.AddItem("ListBox1", "Col1Row2\tCol2Row2\tCol3Row2", "");
result = ListBox.AddItem("ListBox1", "Col1Row3\tCol2Row3\tCol3Row3", "");
nScrollLength = 400 -- длина прокрутки в пикселях (экспериментально)
DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..LB_SETHORIZONTALEXTENT..","..nScrollLength..",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- извращение для перерисовки ListBox
nWidth = ListBox.GetSize("ListBox1").Width;
nHeight = ListBox.GetSize("ListBox1").Height;
ListBox.SetSize("ListBox1", nWidth + 1, nHeight + 1);
ListBox.SetSize("ListBox1", nWidth, nHeight);
Код: -- API-константы
GWL_STYLE = -16
LBS_MULTICOLUMN = 512
LB_SETHORIZONTALEXTENT = 404
hWnd = ListBox.GetProperties("ListBox1").WindowHandle; -- hanle Listbox
WinApi.SetWindowLong(hWnd, GWL_STYLE, LBS_MULTICOLUMN, true); -- стандартный стиль ListBox
-- добавление записей в ListBox
result = ListBox.AddItem("ListBox1", "Col1Row1\tCol2Row1\tCol3Row1", "");
result = ListBox.AddItem("ListBox1", "Col1Row2\tCol2Row2\tCol3Row2", "");
result = ListBox.AddItem("ListBox1", "Col1Row3\tCol2Row3\tCol3Row3", "");
nScrollLength = 400 -- длина прокрутки в пикселях (экспериментально)
DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..LB_SETHORIZONTALEXTENT..","..nScrollLength..",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- извращение для перерисовки ListBox
nWidth = ListBox.GetSize("ListBox1").Width;
nHeight = ListBox.GetSize("ListBox1").Height;
ListBox.SetSize("ListBox1", nWidth + 1, nHeight + 1);
ListBox.SetSize("ListBox1", nWidth, nHeight);
И ещё. Хочу сделать поле со скролом, на котором будут разные элементы. И хочется, чтобы можно было прокручивать эти элементы вправо.
Примерно так:
Примерно так:
Всем привет. У меня есть программа. Я не хочу, чтобы кто то смог просмотреть ее исходный код. Я понимаю, что на подобный вопрос уже отвечали. Но может уже появился способ защитить от просмотра код AMS?!! Заранее спасибо.
Цитата:
Но может уже появился способ защитить от просмотра код AMS?
Если твоя разработка содержит какой-то особый, уникальный код (функцию, процедуру), то никакая защита не поможет - все достанут на свет божий. Если нет, то не парь себе мозги.
Так. Ключ уже не нужен. А вто скроллящийся список кнопок - было бы классно сделать. дабы не плодить тонны странниц.
Ребята, подскажите, как зафиксировать текст, чтобы не "гулял" в зависимости от разрешения экрана.
Вышла AutoPlay Media Studio 8.5
Изменения в версии 8.5.0.0
Цитата:
Ссылка на Retail-версию в варезнике.
Изменения в версии 8.5.0.0
Цитата:
- Feature: Added Windows 10/Server 10 support to AutoPlay Media Studio's design environment and supporting files.
- Feature: Added Windows 10/Server 10 support to AutoPlay Media Studio's runtime and supporting files.
- Feature: Added Windows 10/Server 10 to the 'System.GetOSName' action.
- Feature: Updated AMS's documentation where applicable.
- Feature: Performed Windows 10 compatibility testing on AMS's design and runtime using the Windows 10 Technical Preview.
- Feature: Updated IRScriptEditor.exe to version 2.0.1002.0.
- Fix: Fixed a bug in the 'RichText.SetParagraphFormat' action where the "PFA_JUSTIFY" Alignment option wasn't working.
- Fix: Updated distributed upx.exe to version 3.91.0.0.
- Fix: Updated the 'System.GetOSProductInfo' action with 16 additional constants.
- Fix: Fixed a crashing bug in AMS's design environment that only occurred when running the Windows 10 Technical Preview on a Virtual Machine.
- Fix: Added version resource information to lua5.1.dll.
- Fix: Fixed a bug where the trial version of AMS's design environment wouldn't run correctly on the Windows 10 Technical Preview.
Ссылка на Retail-версию в варезнике.
Приветствую,
имеется 4 поля:
Input1, Input2, Input3, Input4
Возможно ли записать данные с каждого в файл data.txt в разные строки? Например, Input1 в строку 1, Input2 в строку 2, Input3 в строку 3, Input4 в строку 4
имеется 4 поля:
Input1, Input2, Input3, Input4
Возможно ли записать данные с каждого в файл data.txt в разные строки? Например, Input1 в строку 1, Input2 в строку 2, Input3 в строку 3, Input4 в строку 4
Pazan
Код: -- получаем имена всех объектов на странице
tAll_object_names = Page.EnumerateObjects();
-- создаем таблицу
local tText={};
for index, object_name in pairs(tAll_object_names) do
-- Получаем тип объекта
type = Page.GetObjectType(object_name);
if (type == OBJECT_INPUT) then
-- сохраняем в таблице содержимое каждого инпута
tText[#tText+1] = Input.GetText(object_name);
end
end
if tText then
-- записываем содержиое таблицы в текстовый файл
TextFile.WriteFromTable("C:\\data.txt", tText, false);
end
Код: -- получаем имена всех объектов на странице
tAll_object_names = Page.EnumerateObjects();
-- создаем таблицу
local tText={};
for index, object_name in pairs(tAll_object_names) do
-- Получаем тип объекта
type = Page.GetObjectType(object_name);
if (type == OBJECT_INPUT) then
-- сохраняем в таблице содержимое каждого инпута
tText[#tText+1] = Input.GetText(object_name);
end
end
if tText then
-- записываем содержиое таблицы в текстовый файл
TextFile.WriteFromTable("C:\\data.txt", tText, false);
end
Robby
спасибо, в понедельник попробую
спасибо, в понедельник попробую
Robby
Может ты поможешь?
Цитата:
Может ты поможешь?
Цитата:
Хочу сделать поле со скролом, на котором будут разные элементы. И хочется, чтобы можно было прокручивать эти элементы вправо.
Примерно так:
Robby
а можно в коде
Цитата:
а можно в коде
Цитата:
-- получаем имена всех объектов на странице tAll_object_names = Page.EnumerateObjects(); -- создаем таблицу...ограничить запись в файл только с Input1...Input4?
Весь смысл написания хорошего кода сводиться к минимизации последующих правок тогда, когда вам станет очевидно, что предыдущая реализация вас не устраивает. Поэтому существует множество реализаций, но самая хорошая та, которая не использует "жестких" привязок к чему-либо. Поэтому:
Pazan
пример первого "жесткого" решения
Код: tText={};
tText[#tText+1] = Input.GetText("Input1"); -- значение Input1
tText[#tText+1] = Input.GetText("Input2"); -- значение Input2
tText[#tText+1] = Input.GetText("Input3"); -- значение Input3
tText[#tText+1] = Input.GetText("Input4"); -- значение Input4
if tText then
-- записываем содержимое таблицы в текстовый файл
TextFile.WriteFromTable("C:\\data.txt", tText, false);
end
Pazan
пример первого "жесткого" решения
Код: tText={};
tText[#tText+1] = Input.GetText("Input1"); -- значение Input1
tText[#tText+1] = Input.GetText("Input2"); -- значение Input2
tText[#tText+1] = Input.GetText("Input3"); -- значение Input3
tText[#tText+1] = Input.GetText("Input4"); -- значение Input4
if tText then
-- записываем содержимое таблицы в текстовый файл
TextFile.WriteFromTable("C:\\data.txt", tText, false);
end
Robby
спасибо
спасибо
Да, ещё вопрос
Можно как-то ограничить вводимые данные 14 символами в поле объекта Input, включая пробелы?
Можно как-то ограничить вводимые данные 14 символами в поле объекта Input, включая пробелы?
Robby
Цитата:
Я хочу организовать список переходов. Что-то типа оглавления.
Можно это реализовать при помощи дерева. Но с ним работать я увы - не умею.
Насчёт ссылки, ксожалению, у меня крайне плохо с английским языком(
Цитата:
Возможно непонимание этой модели приводит вас к желанию создать нечто такое, что довольно труднореализуемо и совсем неудобно для конечного пользователя. Возможно, есть боле простое решение вашей задачи.
Я хочу организовать список переходов. Что-то типа оглавления.
Можно это реализовать при помощи дерева. Но с ним работать я увы - не умею.
Насчёт ссылки, ксожалению, у меня крайне плохо с английским языком(
можно использовать ListBox для создания оглавления...
В OnSelect добавить код.
min = 1; -- начальная строка оглавления
max = 10; -- конечная строка оглавления
for count = min, max do
select = ListBox.IsItemSelected("ListBox1", count);
if select == true then Page.Jump("Page"..count+1);
end
end
В OnSelect добавить код.
min = 1; -- начальная строка оглавления
max = 10; -- конечная строка оглавления
for count = min, max do
select = ListBox.IsItemSelected("ListBox1", count);
if select == true then Page.Jump("Page"..count+1);
end
end
DartKane
Такую кучу кнопок с горизонтальной прокруткой можно получить установив на страницу объект Веб, с размерами страницы. Далее, в свойствах объекта Веб указать на htm-файл, в котором и реализовать все эти кнопки через тег button или через форму
<input type="button" value="Кликни здесь!"/>, как это сделано здесь.
Получится вот так.
То есть в программе от АМС вызывается файл html, а действия выполняются уже в нем (средствами HTML и JavaScript, например, добавив событие onclick).
А вот русская справка по Autoplay Media Studio.
Правда, я что-то совсем забросил перевод. Осталось перевести плагины действий: Frames, Memory, MemoryEx и WinAPI, но как-то не идет, не хватает знаний в этом деле.
Pazan
Можно ограничить. Почитайте в справке про объект Поле ввода и про Маску ввода.
Такую кучу кнопок с горизонтальной прокруткой можно получить установив на страницу объект Веб, с размерами страницы. Далее, в свойствах объекта Веб указать на htm-файл, в котором и реализовать все эти кнопки через тег button или через форму
<input type="button" value="Кликни здесь!"/>, как это сделано здесь.
Получится вот так.
То есть в программе от АМС вызывается файл html, а действия выполняются уже в нем (средствами HTML и JavaScript, например, добавив событие onclick).
А вот русская справка по Autoplay Media Studio.
Правда, я что-то совсем забросил перевод. Осталось перевести плагины действий: Frames, Memory, MemoryEx и WinAPI, но как-то не идет, не хватает знаний в этом деле.
Pazan
Можно ограничить. Почитайте в справке про объект Поле ввода и про Маску ввода.
collagen
А можно пример кода с событием onclick, который запускает exe файлы и открывает папки?
И ещё. Каким образом реализовать переход на страницы проекта из htm-файла?
А можно пример кода с событием onclick, который запускает exe файлы и открывает папки?
И ещё. Каким образом реализовать переход на страницы проекта из htm-файла?
DartKane
Проще все реализовать с помощью стандартных объектов программы имеющих прокрутку, например ComboBox, ListBox, Tree.
Напиши конкретней, что тебе нужно сделать.
Pazan
Цитата:
Первый способ, как сказал collagen, с помощью маски. Второй способ с помощью скрипта.
Добавлено:
Pazan
На кладке On Char объекта Input
Код: nMaxLen=14; -- макс. кол-во символов
nLenght = String.Length(Input.GetText(this)); -- получаем длину строки
if nLenght > nMaxLen then -- если длина строки больше макс. кол-ва символов
Input.SetSelection(this, nMaxLen+1, -1); -- выделяем текст в Input с позициии nMaxLen+1 до конца строки
Application.Sleep(10); -- блокируем приложение на 10 мс
Input.Delete("Input1"); -- удаляем выделенную область
end
Проще все реализовать с помощью стандартных объектов программы имеющих прокрутку, например ComboBox, ListBox, Tree.
Напиши конкретней, что тебе нужно сделать.
Pazan
Цитата:
Можно как-то ограничить вводимые данные 14 символами в поле объекта Input, включая пробелы?
Первый способ, как сказал collagen, с помощью маски. Второй способ с помощью скрипта.
Добавлено:
Pazan
На кладке On Char объекта Input
Код: nMaxLen=14; -- макс. кол-во символов
nLenght = String.Length(Input.GetText(this)); -- получаем длину строки
if nLenght > nMaxLen then -- если длина строки больше макс. кол-ва символов
Input.SetSelection(this, nMaxLen+1, -1); -- выделяем текст в Input с позициии nMaxLen+1 до конца строки
Application.Sleep(10); -- блокируем приложение на 10 мс
Input.Delete("Input1"); -- удаляем выделенную область
end
DartKane
Цитата:
Конечно ваш вопрос не в тему данной ветки, но вот код:
Код: <input type="button" value="Запускаем блокнот" onclick="location.href='C:\\Windows\\notepad.exe'"/>
Цитата:
А можно пример кода с событием onclick, который запускает exe файлы и открывает папки?
Конечно ваш вопрос не в тему данной ветки, но вот код:
Код: <input type="button" value="Запускаем блокнот" onclick="location.href='C:\\Windows\\notepad.exe'"/>
collagen
Я делаю извращение портал для нашей фирмейки. Там будут мануалы, будут номера сотрудников, будут какие-то новости и тп.
Мне нужно было сделать большой список мануалов. Т.е. при нажатии на кнопку или ссылку - происходит переход на определённую страницу, где будет выведен веб-элемент ссылающийся на htm с текстом и картинками.
Я делаю извращение портал для нашей фирмейки. Там будут мануалы, будут номера сотрудников, будут какие-то новости и тп.
Мне нужно было сделать большой список мануалов. Т.е. при нажатии на кнопку или ссылку - происходит переход на определённую страницу, где будет выведен веб-элемент ссылающийся на htm с текстом и картинками.
DartKane
Но тогда же нужно открывать htm-страницы, а не exe-шники.
Открываем эту страницу на ru-board:
Код: <input type="button" value="Открываем страницу по АМС на ru-board" onclick="location.href='http://forum.ru-board.com/topic.cgi?forum=5&topic=39341&start=1820'"/>
Но тогда же нужно открывать htm-страницы, а не exe-шники.
Открываем эту страницу на ru-board:
Код: <input type="button" value="Открываем страницу по АМС на ru-board" onclick="location.href='http://forum.ru-board.com/topic.cgi?forum=5&topic=39341&start=1820'"/>
Robby
Цитата:
Вот >тут< пример программы.
Нужно в листбоксе привязать пункты к страницам.
А что-за объект "Tree"?
Добавлено:
collagen
Вот >так< примерно будет выглядеть партал.
Только некоторые мануалы будут открывать hml в окне программы.
Мне нужно нормально реализовать меню "Мануалы".
Цитата:
Напиши конкретней, что тебе нужно сделать.
Вот >тут< пример программы.
Нужно в листбоксе привязать пункты к страницам.
А что-за объект "Tree"?
Добавлено:
collagen
Вот >так< примерно будет выглядеть партал.
Только некоторые мануалы будут открывать hml в окне программы.
Мне нужно нормально реализовать меню "Мануалы".
Страницы: 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
Предыдущая тема: память не может быть written
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.