Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2011.10.09;
Скачать: [xml.tar.bz2];

Вниз

Подобие написания/выполнения скрипта   Найти похожие ветки 

 
midikey   (2010-01-19 12:35) [0]

Имеется программа, которая принимает midi-команды . При определенном значении, должно сработать выполнение команды:

if d1=0 and d2=0 then
begin
{некий код}
end

Допустим имеется обычный Memo1. В нем написано: "up down left right" .

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

в стиле:
if слово="up" then <процедура1>
if слово="down" then <процедура2>

Подскажите, как реализовать эту процедуру считывания, т.е. захвата каждого слова и соответствующего выполнения? Хотя бы примерно.

алгоритм:
midi-команда -> выполнить набор команд, прописанных в memo1


 
midikey   (2010-01-19 12:50) [1]

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


 
Сергей М. ©   (2010-01-19 14:11) [2]

Стесляюсь спросить, каким боком слова "up down left right" касаются MIDI-протокола ?


 
midikey   (2010-01-19 14:20) [3]

преобразование миди-команд в клавиатурные

нажал кнопку на миди-контроллере - выполнилась определенная комбинация на обычной клавиатуре. ableton так контроллирую.

вобщем использовал построчное чтение:

for i:=0 to m.Lines.Count do
begin
s:=m.Lines.Strings[i];
s:=UpperCase(s);

if s="UP" then PostKeyEx32(VK_UP, [], False);
if s="DOWN" then PostKeyEx32(VK_DOWN, [], False);
if s="LEFT" then PostKeyEx32(VK_LEFT, [], False);
if s="RIGHT" then PostKeyEx32(VK_RIGHT, [], False);

вроде работает :)


 
Юрий Зотов ©   (2010-01-19 17:15) [4]

> midikey   (19.01.10 14:20) [3]

Если команду загонять в Objects, то все становится проще:  

for i:=0 to m.Lines.Count - 1 do
 PostKeyEx32(m.Lines.Objects[i], [], False);


 
Сергей М. ©   (2010-01-20 12:58) [5]


> ableton так контроллирую


А что, этот самый эблтон разве не предоставляет интерфейс удаленного управления своими функциями с использованием миди-контроллеров ?

Тогда это несерьезное ПО, если к нему еще и прокладки нужно собственноручно изобретать)


 
NiGGa   (2010-01-21 05:06) [6]

если я правильно понял, то стоит посмотреть в сторону существующих скрипт реализаций


 
NiGGa   (2010-01-21 05:07) [7]

ах ну да
что-то на подобие Pascal Script или реализацию скрипта в фаст репорте и т.д.


 
имя   (2010-03-10 09:19) [8]

Удалено модератором



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2011.10.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.003 c
15-1307107653
Tim
2011-06-03 17:27
2011.10.09
Помогите стать мастером Delphi


15-1308391782
alexdn
2011-06-18 14:09
2011.10.09
гиперссылки


2-1308655885
Kilowatt
2011-06-21 15:31
2011.10.09
Label поверх ProgressBar


15-1308562061
xayam
2011-06-20 13:27
2011.10.09
Архивная статистика: С днем рождения


1-1269069357
GA001
2010-03-20 10:15
2011.10.09
Сообщения форме





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский