Author Topic: При нажатии клавиши что бы сработало  (Read 1990 times)

0 Members and 2 Guests are viewing this topic.

Ramzesia

  • Активный участник
  • ***
  • Posts: 263
    • View Profile
Привет всем. Помогите с такой задачей. Нужно что бы при нажатии определенной клавиши, запускался скрип и при этом выбирал из двух чек боксов. К примеру:
Code: (clickermann) [Select]
// При нажатии скажем кнопки "L" запустился скрипт и выбрал из 1 радио "А" из 2 радио "2"
IF($key_1=0)
   $key_1=RADIOBOX("Выбрать"," А"," Б")
END_IF

IF($key_2=0)
   $key_2=RADIOBOX("Выбрать"," 1"," 2"," 3")
END_IF
Если конечно такое возможно, заранее огромное спасибо.

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: При нажатии клавиши что бы сработало
« Reply #1 on: August 10, 2017, 04:26:00 PM »
Зачем скрипту выбирать из RADIOBOX, если RADIOBOX предназначен для выбора пользователя?

А что будет происходить пока не нажмём "L"? Ждать L или другую кнопку?


Ramzesia

  • Активный участник
  • ***
  • Posts: 263
    • View Profile
Re: При нажатии клавиши что бы сработало
« Reply #2 on: August 10, 2017, 06:14:39 PM »
А что будет происходить пока не нажмём "L"? Ждать L или другую кнопку?
Есть 6 возможных стартов А1,А2,А3  Б1,Б2,Б3 допустим привяжем к цифрам с 1 по 6 получается при нажатии цифры 1=А1, 2=А2, 3=А3 и т.д ну если можно без RADIOBOX тоже пойдет

open_78

  • Активный участник
  • ***
  • Posts: 285
  • v4.13.014 x64
    • View Profile
Re: При нажатии клавиши что бы сработало
« Reply #3 on: August 10, 2017, 06:46:26 PM »
Можно без RADIOBOX.
Code: (clickermann) [Select]
WHILE($keys=0)  //  ждем нажатия любой клавиши
   GETKEYSDOWN($keys)
   WAITMS(50)
END_CYC
SWITCH($keys)
CASE(49)  //  клавиша 1=А1
   $key_1=1
   $key_2=1
   PRINT("А1")
CASE(50)  //  клавиша 2=А2
   $key_1=1
   $key_2=2
   PRINT("А2")
CASE(51)  //  клавиша 3=А3
   $key_1=1
   $key_2=3
   PRINT("А3")
CASE(52)  //  клавиша 4=Б1
   $key_1=2
   $key_2=1
   PRINT("Б1")
CASE(53)  //  клавиша 5=Б2
   $key_1=2
   $key_2=2
   PRINT("Б2")
CASE(54)  //  клавиша 6=Б3
   $key_1=2
   $key_2=3
   PRINT("Б3")
DEFAULT  //  если нажата другая клавиша
   PRINT("Неправильная клавиша")
   HALT
END_SWITCH
HALT