Создать функцию работы с устройствами ввода-вывода или функцию с применением функционалов. MuLisp

@Igor_15 · Регистрация: 12.02.2013

Author24 — интернет-сервис помощи студентам

Задание: Создать функцию определение нажатой клавиши, вернуть код клавиши. Функция должна быть без параметров.

Написать нужно на MuLisp

@Catstail · 13.02.2013, 18:50

Lisp

(defun get-key ()
  (loop ((listen) (read-byte)))
  (let ((code (read-byte)))
       (princ "You press ") (princ (code-char code))
       (princ " (") (princ code) (princ ")") (terpri)))

@Igor_15 · 13.02.2013, 19:42 **[ТС]**

Сообщение от Catstail

Lisp

(defun get-key ()
  (loop ((listen) (read-byte)))
  (let ((code (read-byte)))
       (princ "You press ") (princ (code-char code))
       (princ " (") (princ code) (princ ")") (terpri)))

спасибо, но она почему то кнопки F1-F12 обозначает как (255), но это ведь не правильно...они ведь 112-123.... а в целом работает) спасибо

@Catstail · 13.02.2013, 20:27

Не только F1-F12... Эта программа не будет корректно обрабатывать и нажатие стрелок и все клавиши, нажатие которых в (DOS-е) порождает два байта.

@xbx · 13.02.2013, 20:44

Catstail подскажите как в этом же коде вывесити вместо "You press" кнопку из псевдографики с координатами и цветом

@Catstail · 13.02.2013, 21:53

Примерно так:

Lisp

(defun task ()
   (clear-screen)
   (dotimes (i 25 t) 
     (dotimes (j 80 t)
       (princ (code-char 176))))
   
   (loop ((listen) (read-byte))) 
   
   (set-cursor 11 31)
   (princ (code-char 201))   
   (dotimes (i 16 t) (princ (code-char 205)))
   (princ (code-char 187))
   
   (set-cursor 12 31)
   (princ (code-char 186))   
   (princ " Press any key! ")
   (princ (code-char 186))
   
   (set-cursor 13 31)
   (princ (code-char 200))   
   (dotimes (i 16 t) (princ (code-char 205)))
   (princ (code-char 188))
   
   (let ((code (read-byte)))))

@xbx · 13.02.2013, 22:25

Catstail на сколько я понял должно получится вот так:

Создать функцию работы с устройствами ввода-вывода или функцию с применением функционалов. MuLisp

Возможно это уже наглость и т.д с моей стороны, но возможно сделать так:
что бы кнопка отрисовывалась при запуске и когда нажимаешь на кнопку она выводит какая кнопка нажата, и изменяет цвет "окантовки кнопки" с белого например на красный
ЗЫ мюЛисп ругался на "dotimes", но дело решилось после подключения common.lsp

@xbx · 13.02.2013, 22:44

Не по теме:

Жаль нельзя посты править((

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

а когда нажимаю(например F) вот так:

или это из-за библиотеки такой косяк?

@xbx · 13.02.2013, 23:19

Не по теме:

Надеюсь с администрацией проблем не будет :(

Вообщем немного поковырял своими "прямыми" руками код:
Вышло вот так:

Catstail как теперь изменить цвет текста "PRESS"?
И как вывести положение кнопки и цвет "PRESS"?

@Catstail · 14.02.2013, 06:44

Чтобы изменить цвет текста, перед его выводом вызывайте

Lisp

1	(foregound-color Код_цвета)

код цвета - число 0 - 15 (0-черный, 1-синий, 2-зеленый,... 8-серый,9-ярко-синий,10-ярко-зеленый,...17-ярко-белый)

@~~Апострофф~~ · 14.02.2013, 07:24

Не по теме:

Сообщение от Catstail

17-ярко-белый

15-ярко-белый, не могу поправить(или не поправить?):pardon:

@Catstail · 14.02.2013, 10:07

Сообщение от Апострофф

15-ярко-белый, не могу поправить(или не поправить?)

- зря смеетесь... 7 - белый; 7+8=15 - ярко-белый. Скажу больше: в этой схеме 8 - это ярко-черный!

@xbx · 14.02.2013, 13:36

Catstail спс за цвет

Еще бы координаты клавиши вывести

@Igor_15 · 14.02.2013, 20:36 **[ТС]**

Сообщение от Catstail

Не только F1-F12... Эта программа не будет корректно обрабатывать и нажатие стрелок и все клавиши, нажатие которых в (DOS-е) порождает два байта.

А как можно реализовать, чтобы она и клавиши в 2 байта считывала и возвращала название клавиши и код??

@Catstail · 14.02.2013, 20:50

Пока не знаю... Надо внимательно почитать описание muLisp.

@Igor_15 · 14.02.2013, 21:25 **[ТС]**

Сообщение от Catstail

Пока не знаю... Надо внимательно почитать описание muLisp.

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

@Catstail · 14.02.2013, 21:43

Разберемся...

@Константин_2012 · 14.02.2013, 23:19

а клавиши в 2 байта - это F1..F12, стрелки и insert..page down?

@Catstail · 15.02.2013, 12:21

Да.

Добавлено через 3 часа 54 минуты
Я разобрался. Через некоторое время выложу!

Добавлено через 1 час 15 минут
Вот:

Lisp

(defun get-key ()
  (loop ((listen) (read-byte)))
  (let ((code (read-byte)) (nam-key ""))
       (if (eq code 255)
         (progn
          (setq code (read-byte)) 
          (cond ((eq code 72) (setq code (- code) nam-key "Up arrow"))
                ((eq code 80) (setq code (- code) nam-key "Down arrow"))           
                ((eq code 77) (setq code (- code) nam-key "Right arrow"))
                ((eq code 75) (setq code (- code) nam-key "Left arrow"))
                ((eq code 82) (setq code (- code) nam-key "Insert"))
                ((eq code 83) (setq code (- code) nam-key "Delete"))
                ((eq code 71) (setq code (- code) nam-key "Home"))
                ((eq code 79) (setq code (- code) nam-key "End"))
                ((eq code 73) (setq code (- code) nam-key "Page Up"))
                ((eq code 81) (setq code (- code) nam-key "Page Down"))
                ((eq code 59) (setq code (- code) nam-key "F1"))
                ((eq code 60) (setq code (- code) nam-key "F2"))
                ((eq code 61) (setq code (- code) nam-key "F3"))
                ((eq code 62) (setq code (- code) nam-key "F4"))
                ((eq code 63) (setq code (- code) nam-key "F5"))
                ((eq code 64) (setq code (- code) nam-key "F6"))
                ((eq code 65) (setq code (- code) nam-key "F7"))
                ((eq code 66) (setq code (- code) nam-key "F8"))
                ((eq code 67) (setq code (- code) nam-key "F9"))
                ((eq code 68) (setq code (- code) nam-key "F10"))
                ((eq code 133) (setq code (- code) nam-key "F11"))
                ((eq code 134) (setq code (- code) nam-key "F12")))
                (princ "You press ")
                (princ nam-key) 
                (princ " (") 
                (princ code)
                (princ ")") 
                (terpri) code)
          (progn  
                (princ "You press ") 
                (princ (code-char code)) 
                (princ " (") 
                (princ code) 
                (princ ")") 
                (terpri) code))))

Для расширенных кодов функция возвращает отрицательные числа (что позволяет отличить нажатие, например, стрелки вверх от H).

@Igor_15 · 15.02.2013, 18:17 **[ТС]**

спасибо огромное!!!

Создать функцию работы с устройствами ввода-вывода или функцию с применением функционалов. MuLisp

Решение

Решение

@Igor_15 0 / 0 / 0 Регистрация: 12.02.2013 Сообщений: 12
		1
	Создать функцию работы с устройствами ввода-вывода или функцию с применением функционалов. MuLisp 12.02.2013, 23:31. Показов 1644. Ответов 19 Метки нет (Все метки) Задание: Создать функцию определение нажатой клавиши, вернуть код клавиши. Функция должна быть без параметров. Написать нужно на MuLisp 0

@Catstail Модератор 37301 / 20735 / 4272 Регистрация: 12.02.2012 Сообщений: 34,124 Записей в блоге: 14
	13.02.2013, 20:27	4
	Не только F1-F12... Эта программа не будет корректно обрабатывать и нажатие стрелок и все клавиши, нажатие которых в (DOS-е) порождает два байта. 0

@xbx 0 / 0 / 0 Регистрация: 09.02.2013 Сообщений: 19
	13.02.2013, 20:44	5
	Catstail подскажите как в этом же коде вывесити вместо "You press" кнопку из псевдографики с координатами и цветом 0

@xbx 0 / 0 / 0 Регистрация: 09.02.2013 Сообщений: 19
	13.02.2013, 22:25	7
	Catstail на сколько я понял должно получится вот так: Возможно это уже наглость и т.д с моей стороны, но возможно сделать так: что бы кнопка отрисовывалась при запуске и когда нажимаешь на кнопку она выводит какая кнопка нажата, и изменяет цвет "окантовки кнопки" с белого например на красный ЗЫ мюЛисп ругался на "dotimes", но дело решилось после подключения common.lsp 0

@xbx 0 / 0 / 0 Регистрация: 09.02.2013 Сообщений: 19
	13.02.2013, 22:44	8
	Не по теме: Жаль нельзя посты править(( вообщем кнопку программа выводит, но немного не там где хотелось бы. А цвет если можно что бы то же выводило под кнопкой а когда нажимаю(например F) вот так: или это из-за библиотеки такой косяк? 0

@xbx 0 / 0 / 0 Регистрация: 09.02.2013 Сообщений: 19
	13.02.2013, 23:19	9
	Не по теме: Надеюсь с администрацией проблем не будет :( Вообщем немного поковырял своими "прямыми" руками код: Вышло вот так: Catstail как теперь изменить цвет текста "PRESS"? И как вывести положение кнопки и цвет "PRESS"? 0

@~~Апострофф~~
	14.02.2013, 07:24 #11
	Не по теме: Сообщение от Catstail 17-ярко-белый 15-ярко-белый, не могу поправить(или не поправить?):pardon: 1

@Catstail Модератор 37301 / 20735 / 4272 Регистрация: 12.02.2012 Сообщений: 34,124 Записей в блоге: 14
	14.02.2013, 10:07	12
	Сообщение от Апострофф 15-ярко-белый, не могу поправить(или не поправить?) - зря смеетесь... 7 - белый; 7+8=15 - ярко-белый. Скажу больше: в этой схеме 8 - это ярко-черный! 2

@xbx 0 / 0 / 0 Регистрация: 09.02.2013 Сообщений: 19
	14.02.2013, 13:36	13
	Catstail спс за цвет Еще бы координаты клавиши вывести 0

@Igor_15 0 / 0 / 0 Регистрация: 12.02.2013 Сообщений: 12
	14.02.2013, 20:36 [ТС]	14
	Сообщение от Catstail Не только F1-F12... Эта программа не будет корректно обрабатывать и нажатие стрелок и все клавиши, нажатие которых в (DOS-е) порождает два байта. А как можно реализовать, чтобы она и клавиши в 2 байта считывала и возвращала название клавиши и код?? 0

@Catstail Модератор 37301 / 20735 / 4272 Регистрация: 12.02.2012 Сообщений: 34,124 Записей в блоге: 14
	14.02.2013, 20:50	15
	Пока не знаю... Надо внимательно почитать описание muLisp. 0

@Igor_15 0 / 0 / 0 Регистрация: 12.02.2013 Сообщений: 12
	14.02.2013, 21:25 [ТС]	16
	Сообщение от Catstail Пока не знаю... Надо внимательно почитать описание muLisp. плоховато, а то я пробовал, но ничего... нужно ещё сделать, чтобы она выводила название кнопки и её код... это ужас 0

@Catstail Модератор 37301 / 20735 / 4272 Регистрация: 12.02.2012 Сообщений: 34,124 Записей в блоге: 14
	14.02.2013, 21:43	17
	Разберемся... 1

@Константин_2012 55 / 56 / 37 Регистрация: 06.02.2013 Сообщений: 257 Записей в блоге: 1
	14.02.2013, 23:19	18
	а клавиши в 2 байта - это F1..F12, стрелки и insert..page down? 0

@Igor_15 0 / 0 / 0 Регистрация: 12.02.2013 Сообщений: 12
	15.02.2013, 18:17 [ТС]	20
	спасибо огромное!!! 0