Jump to content

P-CODE


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.




  • Сообщения

    • Александр1979
      Посмотрите на станке, где есть "автоподход", параметры 6071-6089. Если в одном из этих параметров число 46, то при выполнении кода M46 вызывается пользовательская макропрограмма. 
    • jtok
      Какая хоть версия, чего ставить? У меня последняя 21(
    • androskv
      При выборе того или иного подшипника для обеспечения его статической и динамической прочности необходимо руководствоваться справочными значениями его статической и динамической грузоподъемности. В старых ГОСТах (за 1975 и 1987 гг.) для указанных ниже в таблице подшипников приводились таблицы со справочными значениями их статической и динамической грузоподъемности. Но неожиданно для себя я обнаружил что в новых ГОСТах (за 2022 и 2023 гг.) данные таблицы отсутствуют, а также отсутствует какая-либо ссылка (сноска), где в этом случае смотреть справочную статическую и динамическую грузоподъемность подшипников. Поиск информации вывел на два ГОСТа: – ГОСТ 18855-2013. Подшипники качения. Динамическая грузоподъемность и номинальный ресурс – ГОСТ 18854-2013. Подшипники качения. Статическая грузоподъемность.   В данных ГОСТах действительно есть формулы для расчета статической и динамической грузоподъемности для каждого типа подшипника. Однако, чтобы рассчитать данные значения необходимо знать дополнительные параметры, например, для шариковых подшипников это: – Z – число шариков в подшипнике; – Dw – диаметр шарика в подшипнике; – Dpw – диаметр центов шариков в подшипнике. Данные параметры не приводятся ни в старых, ни в новых ГОСТах по подшипниках. Числовые значения двух данных параметров (Z и Dw) можно найти только в справочниках (например, Анурьев). Dpw – в справочниках не приводится, но если рассуждать логически то его можно принять равным Dpw=d+0.5(D-d), но это не точно. Все это делает нелогичным расчет грузоподъемности по ГОСТ, беря для этого недостающие данные из справочников или другой специальной литературы.   Решил проверить расчет статической и динамической грузоподъемности подшипников по формулам и сравнить их с приведенными в старых ГОСТах (приняв Z и Dw из справочников, а Dpw рассчитав по предложенной формуле). Для простоты выбрал шариковые радиальные однорядные подшипники с диапазоном номеров 200…220. В результате получилось следующее: 1 рассчитанная по формуле динамическая грузоподъемность достаточно близко совпадает с динамической грузоподъемностью приведенной в таблицах в старых ГОСТах 2 рассчитанная по формуле статическая грузоподъемность достаточно близко совпадает со статической грузоподъемностью, приведенной в таблицах в старых ГОСТах, но для подшипников с малым диаметром внутреннего кольца d. По мере увеличения диаметра внутреннего кольца подшипника расхождение между расчетными и табличными значениями существенно возрастает. Например, для подшипника №220 табличное значение статической грузоподъемности в старом ГОСТе составляло 79.000 Н, а рассчитанное по формуле составило 92.900 Н. 3 для аналогичных подшипников SKF и FAG, указанные в каталогах статическая и динамическая грузоподъемность достаточно близко совпадает с рассчитанной по формулам.   Файл с расчетом прилагаю ниже. Сравнение расчета по ГОСТ грузоподъемности подшипников.rar   Вопрос скорее всего будет риторический: что думаете по этому поводу и ваши предложения по расчету статической и динамической грузоподъемности по новым ГОСТам?
    • Zver 0209
    • tiomat
      Присоединяюсь к вопросу автора, аналогичная проблема в 22-ой версии. Элементы массива в дереве не подсвечиваются при их выборе в модели.
    • Павлуха
      Хитрый полик.SLDPRT
    • mcxuser
      https://wdfiles.ru/1sP76
    • kupirden
      Поправка автоматический подход не  задней бабки, а револьверной головки к пиноли и выдвижения штока для ее перемещения. На некоторыхх станках просто выдвигается шток. Но РГ не подходит к месту парковки пиноли.  
    • kupirden
      Доброго времени суток! Заинтересовал  вопрос реализации автоматического подхода задней бабки по команде M47 и M46. Суть в том, что на некоторых станках  DOOSAN PUMA 3000 серии выполняется "автоподход" по командам описанным выше, а на некоторых  нет. Может кому-то известен параметр или просто причина? 
    • jtok
      Ну как бы выглядит то так, но нет. В новой модели одно тело и три поверхности: Должно быть одно тело и ноль поверхностей. Выполнено за 7 фичеров. Надеюсь, можно за два.   PS: По поводу бобышкодавов - ну оборудование у нас такое, что можно всё сделать одной командой "Бобышка-Вытянуть", че теперь... Но у кого-то кривые поверхности постоянно, типа ручки утюга или мышь какая-нить анатомическая. Вот у них и спрашиваю.
×
×
  • Create New...