P-CODE

[Viktor2004 900]

Уважаемые коллеги

Чего-то я туплю страшно

Пытаюсь в P-CODE писать программу редактирования барабана инструментов

Макропеременная @MDIKEYI #8549 /* MDI Key image должна мне давать номер нажатой кнопки

Кнопка F1 под экраном имеет код 249

Кнопка <INPUT> имеет код 152

При нажатии F1 у меня должна включаться D5001.0 а при нажатии <INPUT> выключаться

Но в макропеременной #8549 код нажатой клавиши лишь кратковременно мигает. И надо много раз нажимать нужную клавишу что бы она сработала

Макропеременная #8549 у меня выводится в диагностический D5000

Кто знает, может #8549 как-то настраивается, что бы программа успела на него отреагировать

		IF [#8549 EQ 249] THEN
			#548 = 1
		ENDIF
		IF [#8549 EQ 152] THEN
			#548 = 0
		ENDIF

https://www.youtube.com/watch?v=jvsv0YoTy-8

 

Я как-то пример показывал с нажатием кнопки, но там программа была короткая и она успевала схватывать нажатие кнопки. А тут у меня сначала круги рисует и не успевает

Изменено 6 мая пользователем Viktor2004

[Killerchik 36]

3 часа назад, Viktor2004 сказал:

Но в макропеременной #8549 код нажатой клавиши лишь кратковременно мигает.

Запишите его в другую переменную и работайте с ней.

[gudstartup 760]

9 часов назад, Viktor2004 сказал:

И надо много раз нажимать нужную клавишу что бы она сработала

а если надолго нажать что будет?

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

[Viktor2004 900]

8 часов назад, Killerchik сказал:

Запишите его в другую переменную и работайте с ней.

Так он только в момент нажатия на мгновенье выдает код кнопки. Если в этот момент программа выполняет другую строчку, она не перепишет

 

2 часа назад, gudstartup сказал:

а если надолго нажать что будет?

Ничего. Она только в момент нажатия код выдает

 

Я тут проверю одну версию

Программа которая чертит круги у меня некорректно написана. Она не выходит из цикла пока все не начертит. А надо что бы выходила

 

 

[Александр1979 233]

33 минуты назад, Viktor2004 сказал:

Я тут проверю одну версию

Программа которая чертит круги у меня некорректно написана. Она не выходит из цикла пока все не начертит. А надо что бы выходила

А зачем постоянно в цикле круги чертить? Я думаю картинку нужно перечерчивать только если есть изменения.

[gudstartup 760]

2 часа назад, Viktor2004 сказал:

Она только в момент нажатия код выдает

но кто то же этот код считывает из mdi буфера раз его там не оказывается когда ваша программа его опрашивает? 

[Viktor2004 900]

2 минуты назад, gudstartup сказал:

но кто то же этот код считывает из mdi буфера раз его там не оказывается когда ваша программа его опрашивает? 

Моя программа считывает его лишь тогда, когда в момент нажатия кнопки программа выполняет команду считывания переменной. Во всех остальных случаях код получается не считан

[Александр1979 233]

21 минуту назад, Viktor2004 сказал:

Моя программа считывает его лишь тогда, когда в момент нажатия кнопки программа выполняет команду считывания переменной. Во всех остальных случаях код получается не считан

Можно попробовать код считывать из переменной #8501. В руководстве написано что значение сохраняется в переменной до тех пор, пока не будет произведено чтение из неё.

[Viktor2004 900]

16 минут назад, Александр1979 сказал:

код считывать из переменной #8501

Туда вроде наоборот заносится значение какое-то, но не считывается

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

При чем у них в программах циклы поболее моих, которыми я круги чертил

O4198  ;
#500=#8549 ;
IF[ #8549 EQ 0 ] THEN ;
     #10409=0 ;
ENDIF ;
IF[ #8549 EQ 134 && #10409 EQ 0 && #10422 NE 0 ] THEN ;
     #10409=1 ;
     #10422=FIX[#10422 / 10] ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 48 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 0 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 49 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 1 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 50 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 2 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 51 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 3 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 52 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 4 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 53 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 5 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 54 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 6 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 55 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 7 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 56 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 8 ;
     #10427=1 ;
ENDIF ;
IF[ #8549 EQ 57 && #10409 EQ 0 ] THEN ;
     #10409=1 ;
     #10422=#10422 * 10 + 9 ;
     #10427=1 ;
ENDIF ;
IF[ #10422 GT 9999 ] THEN ;
     #10422=FIX[#10422 / 10] ;
ENDIF ;
IF[ #500 EQ 249 && #8500 EQ 4170 ] THEN ;
     #8500=4601 ;
     M99  ;
ENDIF ;
IF[ #500 EQ 240 ] THEN ;
     IF[ #8500 EQ 4174 || #8500 EQ 4173 || #8500 EQ 4177 ] THEN ;
          #8500=4170 ;
          M99  ;
     ENDIF ;
     IF[ #8500 EQ 4178 ] THEN ;
          #8500=4170 ;
          M99  ;
     ENDIF ;
ENDIF ;
IF[ #500 EQ 248 && #8500 EQ 4170 && D34.0 NE 0 ] THEN ;
     #8500=4174 ;
     M99  ;
ENDIF ;
IF[ #500 EQ 247 && #8500 EQ 4170 && D30.4 EQ 1 && D29.6 EQ 0 ] THEN ;
     #8500=4175 ;
     M99  ;
ENDIF ;
IF[ #500 EQ 246 && #8500 EQ 4170 && D35.0 EQ 1 && D35.4 EQ 1 ] THEN ;
     #8500=4178 ;
     M99  ;
ENDIF ;
IF[ #8549 EQ 152 && #10409 EQ 0 && #10422 EQ 5656 ] THEN ;
     #8500=4177 ;
     M99  ;
ENDIF ;
M99  ;

 

[gudstartup 760]

4 часа назад, Viktor2004 сказал:

Во всех остальных случаях код получается не считан

куда же он девается из буфера клавиатуры ведь если код не считывать то он должен там находиться иначе неизбежен пропуск нажимаемых кнопок а это неправильно 

[Viktor2004 900]

1 минуту назад, gudstartup сказал:

куда же он девается из буфера клавиатуры

не знаю. Я на видео показал что код нажатой клавиши лишь кратковременно мигает в момент ее нажатия. Это в переменной #8549. Как его ловить со 100% успехом я не знаю

5 минут назад, gudstartup сказал:

неизбежен пропуск

Если из программы все удалить и оставить только нажатие кнопки, тогда работает

[gudstartup 760]

1 минуту назад, Viktor2004 сказал:

Как его ловить со 100% успехом я не знаю

код клавиши обязан передаться приложению экран которого активен на данный момент времени а у вас получается что он неактивен и какое то другое приложение этот код забирает

[Viktor2004 900]

Вот этот пример работает безотказно

Нажатие на F1 включает кипп-реле К50.0, нажатие F2 его выключает

O8001  
	   G240  P3  C0  
       G243  X2  Y0  A1  B0   (TEST PROGRAM) 
       G240  P6  C0  
       G243  X7  Y[4 + 1]   (SECOND SCREEN) 
	   G240  P7  C0  
       G243  X5  Y26  A1  B0   (K50.1)
	   G243  X5  Y27  A1  B0   (ON)
       G243  X12  Y26  A1  B0   (K50.1)
       G243  X12  Y27  A1  B0   (OFF)
		IF [#8549 EQ 249] THEN
				G310 K50 Q1
		ENDIF
		IF [#8549 EQ 248] THEN
				G310 K50 Q0
		ENDIF
	   M99 

 

[Viktor2004 900]

07.05.2024 в 12:19, Александр1979 сказал:

Можно попробовать код считывать из переменной #8501

Вы как всегда оказались правы.

Меня смутило то что переменную 8501 не получилось переместить в D5002 для визуализации

А без этого она работает нормально. Нажатие запоминает

Спасибо большое

https://www.youtube.com/watch?v=u_RZrqiQVjc

 

[gudstartup 760]

07.05.2024 в 12:49, Viktor2004 сказал:

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

остается вопрос почему у других работает а у вас нет, может дело в параметрах самой среды исполнения а не в вашей программе? 

[Viktor2004 900]

2 минуты назад, gudstartup сказал:

почему у других работает а у вас нет

наверное циклы строят так, что бы опрос клавиш происходил в коротком цикле

[gudstartup 760]

27 минут назад, Viktor2004 сказал:

так, что бы опрос клавиш происходил в коротком цикле

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

[Viktor2004 900]

2 минуты назад, gudstartup сказал:

  код должен лежать где положено

наверное для этого и сделали переменную #8501 но она только для MDI клавиш.

Цифр и букв там нет.

Я когда пробовал на C-Executor писать, тоже не смог реализовать перехват нажатия кнопок во время загрузки ЧПУ. Там тоже фиксируется момент нажатия, а если она уже нажата во время загрузки, инструментами СИ это перехватить не получится

[gudstartup 760]

9 часов назад, Viktor2004 сказал:

Я когда пробовал на C-Executor писать, тоже не смог реализовать перехват нажатия кнопок во время загрузки ЧПУ.

так во время загрузки клавиши опрашивает сначала лоадер а потом системное по и только при появлении экрана вашего приложения нажатие обязано передаваться ему. если вы работаете на экране setting то нажатые клавиши не передаются в редактирование потому что она не активна. системное по обязано помещать mdi ввод для активного приложения в какие либо переменные иначе просто невозможно наладить взаимодействие оператора и программы нужно только знать эти переменные. 

[Viktor2004 900]

33 минуты назад, gudstartup сказал:

сначала лоадер а потом системное по и только при появлении экрана вашего приложения нажатие обязано передаваться ему.

вот я и хотел что бы при запуске приложения C-Exe оно у меня сразу определяло нажата кнопка или нет.

Оказалось это невозможно