Оберон-клуб «ВЄДАsoft»

Твердыня модульных языков
Текущее время: 22 ноя 2017, 20:22

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: 04 сен 2014, 12:05 
Не в сети
Аватара пользователя

Сообщения: 843
Откуда: Днепропетровская обл.
Добавил модуль Control. Будет полезен для разработки игр. Опрашивает джойстики и кнопки, отлавливает одновременные нажатия, возвращая результат в компактном виде (как набор битов SET). Для ускорения применяется таблица раскладки клавиш.

Код: "OBERON"
  1. MODULE TestCtrl; (*$MAIN*)
  2. IMPORT B := Basic, Key := Control, Laser;
  3.  
  4. VAR
  5. pressed: SET;
  6. BEGIN
  7. LOOP
  8. pressed := Key.Get();
  9. IF Key.Left IN pressed THEN B.PAPER(B.Green) ELSE B.PAPER(B.Black) END;
  10. Laser.SETV(0, 8, 10, 8);
  11. IF Key.Right IN pressed THEN B.PAPER(B.Yellow) ELSE B.PAPER(B.Black) END;
  12. Laser.SETV(22, 8, 10, 8);
  13. IF Key.Up IN pressed THEN B.PAPER(B.Cyan) ELSE B.PAPER(B.Black) END;
  14. Laser.SETV(10, 0, 12, 8);
  15. IF Key.Down IN pressed THEN B.PAPER(B.Magenta) ELSE B.PAPER(B.Black) END;
  16. Laser.SETV(10, 16, 12, 8);
  17. IF Key.Fire IN pressed THEN B.BORDER(B.Red) ELSE B.BORDER(B.Black) END;
  18. END;
  19. END TestCtrl.


Вложения:
TestCtrl.tap [669 байт]
Скачиваний: 557
TestCtrl.png
TestCtrl.png [ 3.52 КБ | Просмотров: 11668 ]
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


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

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Тех.поддержка phpBB