|
миксер - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
16.07.2012, 12:03
|
#1
|
|
|
|
Разведчик
|
Регистрация: 15.07.2012
Сообщений: 0
Популярность: -70
Сказал(а) спасибо: 0
Поблагодарили 3 раз(а) в 3 сообщениях
|
миксер
Я работаю с Delphi совсем не давно , научился пока что делать только простенький браузер, и вот хотел бы спросить как делается простенький миксер?) помогите если не сложно )
Буду очень благодарен
|
|
|
16.07.2012, 16:11
|
#2
|
|
|
|
Сержант
|
Регистрация: 10.08.2011
Сообщений: 136
Популярность: 1781
Сказал(а) спасибо: 60
Поблагодарили 246 раз(а) в 145 сообщениях
|
Re: миксер
|
Цитата: |
|
|
|
|
|
|
|
|
|
Я работаю с Delphi совсем не давно , научился пока что делать только простенький браузер, и вот хотел бы спросить как делается простенький миксер?) помогите если не сложно )
Буду очень благодарен
|
|
|
|
|
|
Кидаешь на форму компонент Timer из вкладки System. В событии OnTimer пишешь:
|
Цитата: |
|
|
|
|
|
|
|
|
keybd_event(ord('5'), 0, 0, 0); // нажимаем клавишу5
keybd_event(ord('5'), 0, KEYEVENTF_KEYUP, 0); // отпускаем клавишу 5
application.ProcessMessages(); // что бы миксер не подвисал, желательно продублировать несколько раз |
|
|
|
|
|
Устанавливаешь в таймере время(свойство Interval), в формате 1000мс =1 сек. И все
И теперь, когда время на таймере истекает, будет выполняться код, прописанный в событии OnTimer
Последний раз редактировалось Роспотребнадзор; 16.07.2012 в 18:16.
|
|
|
17.07.2012, 00:09
|
#3
|
|
|
|
Разведчик
|
Регистрация: 15.07.2012
Сообщений: 0
Популярность: -70
Сказал(а) спасибо: 0
Поблагодарили 3 раз(а) в 3 сообщениях
|
Re: миксер
спасибо большое)
|
|
|
17.07.2012, 04:02
|
#4
|
|
|
|
Старший сержант
|
Регистрация: 29.07.2011
Сообщений: 197
Популярность: 8989
Сказал(а) спасибо: 45
Поблагодарили 175 раз(а) в 139 сообщениях
|
Re: миксер
Я не совсем понял, почему в данном случае "миксер" значило таймер?
|
|
|
18.07.2012, 08:33
|
#5
|
|
|
|
Старший сержант
|
Регистрация: 29.07.2011
Сообщений: 197
Популярность: 8989
Сказал(а) спасибо: 45
Поблагодарили 175 раз(а) в 139 сообщениях
|
Re: миксер
|
|
|
22.07.2012, 15:23
|
#7
|
|
|
|
Старший сержант
|
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: миксер
курим потоки)) таймер - вещь хорошая, но ненадежная
|
|
|
22.07.2012, 19:13
|
#8
|
|
|
|
Разведчик
|
Регистрация: 13.09.2010
Сообщений: 42
Популярность: 683
Сказал(а) спасибо: 45
Поблагодарили 66 раз(а) в 50 сообщениях
|
Re: миксер
|
Цитата: |
|
|
|
|
Сообщение от РОСПОТРЕБНАДЗОР |
|
|
|
|
|
|
|
Кидаешь на форму компонент Timer из вкладки System. В событии OnTimer пишешь:
Устанавливаешь в таймере время(свойство Interval), в формате 1000мс =1 сек. И все
И теперь, когда время на таймере истекает, будет выполняться код, прописанный в событии OnTimer
|
|
|
|
|
|
Код:
keybd_event(ord('5'), 0, 0, 0); // нажимаем клавишу5
keybd_event(ord('5'), 0, KEYEVENTF_KEYUP, 0); // отпускаем клавишу 5
application.ProcessMessages(); // что бы миксер не подвисал, желательно продублировать несколько раз
у меня вопрос, чтоб допустим нажимал на кнопки 4 и 5, какой код для делфи?
менял место 5 на другую цифру-не фурычит
|
|
|
23.07.2012, 17:20
|
#9
|
|
|
|
Старший сержант
|
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: миксер
фурычит, наш первый миксер именно так и написан был, первые его версии
|
|
|
23.07.2012, 21:45
|
#10
|
|
|
|
Разведчик
|
Регистрация: 26.06.2012
Сообщений: 10
Популярность: 46
Сказал(а) спасибо: 1
Поблагодарили 8 раз(а) в 7 сообщениях
|
Re: миксер
keybd_event(ord('5'), 0, 0, 0); // нажимаем клавишу5
keybd_event(ord('5'), 0, KEYEVENTF_KEYUP, 0); // отпускаем клавишу 5
application.ProcessMessages(); // реагирование на строчку sleep!
sleep(1000);
keybd_event(ord('4'), 0, 0, 0); //key 4
keybd_event(ord('4'), 0, keyeventf_keyup, 0); //up key 4
в таймер, а если, как я думаю, для Дарк Орбит, тогда в слип ставить другое значение, которое высчитаешь самостоятельно.
|
|
|
23.07.2012, 23:32
|
#11
|
|
|
|
Разведчик
|
Регистрация: 13.09.2010
Сообщений: 42
Популярность: 683
Сказал(а) спасибо: 45
Поблагодарили 66 раз(а) в 50 сообщениях
|
Re: миксер
|
|
|
23.07.2012, 23:41
|
#12
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: миксер
|
|
|
23.07.2012, 23:50
|
#13
|
|
|
|
Разведчик
|
Регистрация: 13.09.2010
Сообщений: 42
Популярность: 683
Сказал(а) спасибо: 45
Поблагодарили 66 раз(а) в 50 сообщениях
|
Re: миксер
а по подробнее можно, а то я только начинаю изучать делфи
|
|
|
23.07.2012, 23:52
|
#14
|
|
|
|
Старший сержант
|
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: миксер
|
Цитата: |
|
|
|
|
|
|
|
|
|
keybd_event(ord('5'), 0, 0, 0); // нажимаем клавишу5
keybd_event(ord('5'), 0, KEYEVENTF_KEYUP, 0); // отпускаем клавишу 5
application.ProcessMessages(); // реагирование на строчку sleep!
sleep(1000);
keybd_event(ord('4'), 0, 0, 0); //key 4
keybd_event(ord('4'), 0, keyeventf_keyup, 0); //up key 4
в таймер, а если, как я думаю, для Дарк Орбит, тогда в слип ставить другое значение, которое высчитаешь самостоятельно.
|
|
|
|
|
|
Сий код не спасет от зависаний программы, гарантировано
Добавлено через 2 минуты
|
Цитата: |
|
|
|
|
|
|
|
|
|
а по подробнее можно, а то я только начинаю изучать делфи
|
|
|
|
|
|
Отпиши в скайп, будут вопросы - помогу
Последний раз редактировалось metraz; 23.07.2012 в 23:54.
Причина: Добавлено сообщение
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 00:54.
|
|