Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ESCAPE-последовательности / 6 сообщений из 6, страница 1 из 1
13.04.2006, 10:04
    #33663332
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ESCAPE-последовательности
Уважаемые Господа здравствуйте !!!
Когда-то в одном форуме я задал вопрос, но ответ так и не получил.

1. В MSM ESCAPE-последовательности я обрабатываю так:

Код: plaintext
1.
2.
3.
u $i:(::::# 64 ) r *a  s esc=$zb\ 256 
           i a= 13  W "Это Enter !!!",!
           i esc= 17  W "Это стрелка  вверх !!!",!
.....
и т.д.

Заметьте всего u $i:(::::#64) r *a s esc=$zb\256

2. В Cache' примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
Esc ;;Escape Sequences
	  N Esc,y,yy,yyy
	  Set Esc=$C( 27 ) Use $IO:("":"":Esc) 
                  Read *y I $ZB=Esc Use $IO:("":"S")
	  I y= 13   Write "Это Enter !!!",!
	  Read *yy If yy= 91 ! 79  Read *yyy
	  If yyy= 65  W "Это стрелка  вверх !!!",!
...
и т.д.

Возможно как-то укоротить код ?
Почему не работает $zb\256 ?


Большое спасибо !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 10:08
    #33663346
MX -- ALEX
MX -- ALEX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ESCAPE-последовательности
ValeriuУважаемые Господа здравствуйте !!!
Когда-то в одном форуме я задал вопрос, но ответ так и не получил.

1. В MSM ESCAPE-последовательности я обрабатываю так:

Код: plaintext
1.
2.
3.
u $i:(::::# 64 ) r *a  s esc=$zb\ 256 
           i a= 13  W "Это Enter !!!",!
           i esc= 17  W "Это стрелка  вверх !!!",!
.....
и т.д.

Заметьте всего u $i:(::::#64) r *a s esc=$zb\256

2. В Cache' примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
Esc ;;Escape Sequences
	  N Esc,y,yy,yyy
	  Set Esc=$C( 27 ) Use $IO:("":"":Esc) 
                  Read *y I $ZB=Esc Use $IO:("":"S")
	  I y= 13   Write "Это Enter !!!",!
	  Read *yy If yy= 91 ! 79  Read *yyy
	  If yyy= 65  W "Это стрелка  вверх !!!",!
...
и т.д.

Возможно как-то укоротить код ?
Почему не работает $zb\256 ?


Большое спасибо !!!


Read *yy If yy=91!79 Read *yyy

что бы это значило ? yy=91!79
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 10:23
    #33663400
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ESCAPE-последовательности
Алекс, запусти:

Код: plaintext
1.
2.
3.
4.
5.
6.
	  Set Esc=$C( 27 ) Use $IO:("":"":Esc) 
          Read *y I $ZB=Esc Use $IO:("":"S")
	  I y= 13   Write "Enter !!!",!
	  Read *yy w "Это значение yy - ",yy,!
	  If yy= 91 ! 79  Read *yyy
	  If yyy= 65  Write "Стрелка вверх!!!"
	  Quit

Стрелка вверх - yy=91
F1 -yy=79
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 11:35
    #33663676
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ESCAPE-последовательности
Т.е. для функциональной клавиши Up Arrow (стрелка вверх) :

1. Escape-последовательность - Esc[A => (27,91,65)

2. $ZB\256 - 17
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 15:07
    #33664727
MX -- ALEX
MX -- ALEX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ESCAPE-последовательности
ValeriuТ.е. для функциональной клавиши Up Arrow (стрелка вверх) :

1. Escape-последовательность - Esc[A => (27,91,65)

2. $ZB\256 - 17

If yy=91!79

или

If yy=91!(yy=79)

как лучше ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 16:07
    #33664975
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ESCAPE-последовательности
По синтаксу - да, это правильнее

If yy=91!(yy=79)

но...

USER>s yy=91

USER>w:yy=79!91 "This number is 91 !!!"
This number is 91 !!!
USER>s yy=79

USER>w:yy=79!91 "This number is 79 !!!"
This number is 79 !!!
USER>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ESCAPE-последовательности / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]