Автор Тема: Трудности в программировании.  (Прочитано 72 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Space

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Трудности в программировании.
« : Март 16, 2019, 11:43:02 pm »
Здравствуйте всем! Заинтересовался Clickermann как отличным инструментом, но т.к. опыта пока нет и программным языком владею как "в темном лесу", читал - читал но в голове пока "каша", появились проблемы в реализации задумки.
Пока непонятно какие операторы и т.д. должны стоять и как они должны взаимодействовать не мешая друг другу. В мануале кликерманна маловато разжеванных для наглядности примеров. 
Алгоритм я составил, но как использовать и какие выбрать операторы и как правильно связать - тут затык)
Нужно искать два цвета
заданная область (1314,155, 1314,297)
кн. "YES" координаты (1275,734)
кн. "NO" координаты (1365,734)
искать цвет "A"(32768)
искать цвет "B"(16711680)

Спасибо тем, кто откликнется.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3407
  • Котэ
    • Просмотр профиля
Re: Трудности в программировании.
« Ответ #1 : Март 17, 2019, 09:19:34 am »
Код: Clickermann
  1. GETSCREEN
  2. $A = PXLCOUNT(1314,155, 1314,297, 32768)
  3. $B = PXLCOUNT(1314,155, 1314,297, 16711680)
  4.  
  5. IF(($A > 0)&($B = 0))
  6.   LCLICK(1275,734) // YES
  7.   WAITMS(100)
  8.   SOUND("Cricket.wav")
  9.   WAIT(1)
  10.   TFWRITE("Text.txt", STRCONCAT("YES - ", $_time_h,":",$_time_m,":",$_time_s," - ",$_date_y,".",$_date_m,".",$_date_d))
  11. END_IF
  12.  
  13. IF(($B > 0)&($A = 0))
  14.   LCLICK(1365,734) // NO
  15.   WAITMS(100)
  16.   SOUND("Duck.wav")
  17.   WAIT(1)
  18.   TFWRITE("Text.txt", STRCONCAT("NO - ", $_time_h,":",$_time_m,":",$_time_s," - ",$_date_y,".",$_date_m,".",$_date_d))
  19. END_IF
  20.  
  21. WAITMS(500)

Space

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Re: Трудности в программировании.
« Ответ #2 : Март 17, 2019, 10:40:39 am »
Оо! Большое СПАСИБО!!! Я уже начал городить целую неработающую этажерку, а тут все так коротко и просто или все гениальное просто! :) Теперь попробую разобраться как все работает по отдельности и вместе, подписывая для себя комментарии. Это как первый детекторный приемник - сам долго собираешь и не работает, в итоге бросаешь это занятие. А при помощи опытного человека все настраивается и усиливается интерес к электроники.

Space

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Re: Трудности в программировании.
« Ответ #3 : Март 17, 2019, 07:42:07 pm »
Работает отлично, согласно алгоритму!!! При появившемся цвете жмет кнопку, воспроизводит звук и делает конспект. Еще раз СПАСИБО!
Но в алгоритме я не сделал подробного пояснения (сам виноват).
Сейчас, при появившемся цвете, (а цвет может задержаться на долго) он делает многократное включение блока Y, равно как и блока N, а нужно однократное включение. Например появился цвет А - однократно нажал кн."YES" только один раз проиграл звук и один раз записал текст.
Появился цвет А - 1 раз включил блок Y, появился цвет В - 1 раз включил блок N, снова появился цвет А и снова 1 раз включил блок Y и т.д.
Пробовал увеличить временную задержку в блоках но это приводит к нестабильной работе.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3407
  • Котэ
    • Просмотр профиля
Re: Трудности в программировании.
« Ответ #4 : Март 17, 2019, 09:48:29 pm »
Теперь срабатывать будет однократно при обнаружении цвета. Сброс происходит при исчезновении цвета.

Код: Clickermann
  1. GETSCREEN
  2. $A = PXLCOUNT(1314,155, 1314,297, 32768)
  3. $B = PXLCOUNT(1314,155, 1314,297, 16711680)
  4.  
  5. IF(($A = 0)&($Check_A = 1))
  6.   $Check_A = 0
  7. END_IF
  8. IF(($B = 0)&($Check_B = 1))
  9.   $Check_B = 0
  10. END_IF
  11.  
  12. IF(($A > 0)&($B = 0)&($Check_A = 0))
  13.   LCLICK(1275,734) // YES
  14.   WAITMS(100)
  15.   SOUND("Cricket.wav")
  16.   WAIT(1)
  17.   TFWRITE("Text.txt", STRCONCAT("YES - ", $_time_h,":",$_time_m,":",$_time_s," - ",$_date_y,".",$_date_m,".",$_date_d))
  18.   $Check_A = 1
  19. END_IF
  20.  
  21. IF(($B > 0)&($A = 0)&($Check_B = 0))
  22.   LCLICK(1365,734) // NO
  23.   WAITMS(100)
  24.   SOUND("Duck.wav")
  25.   WAIT(1)
  26.   TFWRITE("Text.txt", STRCONCAT("NO - ", $_time_h,":",$_time_m,":",$_time_s," - ",$_date_y,".",$_date_m,".",$_date_d))
  27.   $Check_B = 1
  28. END_IF
  29.  
  30. WAITMS(500)

Space

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Re: Трудности в программировании.
« Ответ #5 : Март 17, 2019, 10:54:25 pm »
БЛАГОДАРЮ!!!