Jump to content


P-CODE


Viktor2004

Recommended Posts

Viktor2004

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

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

Пытаюсь в 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

 

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

Edited by Viktor2004
Link to post
Share on other sites


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

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

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

Link to post
Share on other sites
gudstartup
9 часов назад, Viktor2004 сказал:

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

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

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

Link to post
Share on other sites
Viktor2004
8 часов назад, Killerchik сказал:

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

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

 

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

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

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

 

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

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

 

 

Снимок экрана от 2024-05-07 09-33-02.png

Link to post
Share on other sites
Александр1979
33 минуты назад, Viktor2004 сказал:

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

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

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

Link to post
Share on other sites
gudstartup
2 часа назад, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004
2 минуты назад, gudstartup сказал:

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

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

Link to post
Share on other sites
Александр1979
21 минуту назад, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004
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  ;

 

Link to post
Share on other sites
gudstartup
4 часа назад, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004
1 минуту назад, gudstartup сказал:

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

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

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

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

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

Link to post
Share on other sites
gudstartup
1 минуту назад, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004

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

Нажатие на 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 

 

Link to post
Share on other sites
Viktor2004
07.05.2024 в 12:19, Александр1979 сказал:

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

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

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

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

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

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

 

Link to post
Share on other sites
gudstartup
07.05.2024 в 12:49, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004
2 минуты назад, gudstartup сказал:

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

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

Link to post
Share on other sites
gudstartup
27 минут назад, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004
2 минуты назад, gudstartup сказал:

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

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

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

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

Link to post
Share on other sites
gudstartup
9 часов назад, Viktor2004 сказал:

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

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

Link to post
Share on other sites
Viktor2004
33 минуты назад, gudstartup сказал:

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

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

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

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Сообщения

    • maxx2000
      за это к сожалению не заплатят.
    • green_fly
      Можно попробовать посчитать плотность. Или даже просто опустить в воду - капролон тяжелее, а полиэтилен - легче.
    • Viktor2004
      Как все предсказуемо.
    • maxx2000
      Ага, даже на фото видно белый и прозрачный. Очень похож на полиэтилен высокого давления. Было у нас одно изделие, кабель РК75, центральная жила 4мм в изоляции из полиэтилена диаметром около 20 мм. Вот из этой изоляции точили ручки на отвёртки. Вот по внешнему виду один в один по качеству поверхности.
    • Fedor
      https://ru.wikipedia.org/wiki/Графовая_база_данных   интересная тема для формирования матриц жесткости в мкэ. Интересно существуют ли алгоритмы на матрицах решающие и возможные уравнения представленные в виде графов ... 
    • davidovka
      кажется слишком белым для капролона
    • maxx2000
      Собственно вопрос в заголовке. Клиент наточил из своего материала заготовки и утверждает что это капролон. Я ему говорю что капролон не даёт такой волсни и по цвету совсем не капролон, что капролн молочного цвета и непрозрачный. Говорит , в магазине продали как "Капролон натуральный"  Для токарки может и пойдёт, но мне его фрезеровать в 3D  
    • BSV1
    • Maik812
      ждите...если буду делать редуктор покажу пока не нужно. а вы не понимаете что в пакете СВ моушен делается расчеты и кинематика а не в сборке сопряжением. смысл говорить о чем то не вижу.     https://rutube.ru/video/b7ef84852d6d02f203ae7dbee09fa356/?r=plemwd
    • clavr
      Не праздный вопрос, зачем? есть компас есть библиотека. пару минут и все готово. нужна модель - конвертнул из компаса в солид. Мне просто интересно зачем все это реализовать в Солиде? ради чего, какие преимущества дает это?
×
×
  • Create New...