Сканкод · дистрибьютор в РФ и СНГБаза знаний / Справочник TiOS / Разработка (TiOS) / Справочник по программированию / Объекты / Объект kp. / Обзор
Получение событий клавиатуры через события on_kp
Объект kp. поддерживает два режима получения событий клавиатуры. Режим определяется свойством kp.genkpevent.
Если kp.genkpevent = 1 - YES (по умолчанию), объект kp. генерирует события on_kp. Обработчик события on_kp вызывается каждый раз, когда клавиша переходит в новое состояние. Аргумент key_event сообщает, что это за новое состояние, а key_code - код этой клавиши.
Предположим, у вас клавиатура из раздела Коды клавиш. Вот небольшое приложение, накапливающее ввод пользователя в строке. Строка очищается при нажатии клавиши <CANCEL>. Клавиатура отключается при нажатии клавиши <ENTER>. Чтобы снова разрешить ввод, нажмите кнопку MD.
sub on_sys_init()
kp.scanlinesmapping="24,25,26,27"
kp.returnlinesmapping="28,29,30,31"
'this is only necessary on devices with explicit output buffer control
io.num=24
io.enabled=YES
io.num=25
io.enabled=YES
io.num=26
io.enabled=YES
io.num=27
io.enabled=YES
kp.autodisablecodes=str(PL_KP_EVENT_PRESSED)+",49"
kp.enabled=YES
end sub
'----------------------------------------------------------------
sub on_kp(key_event as enum pl_kp_event_codes, key_code as byte)
if key_event=PL_KP_EVENT_PRESSED then
select case key_code
case 1:
inp_str=inp_str+"1"
case 17:
inp_str=inp_str+"2"
case 33:
inp_str=inp_str+"3"
case 49:
sys.debugprint("<ENTER> pressed. Keypad disabled. Press MD to re-enable.\x0D>")
exit sub
case 2:
inp_str=inp_str+"4"
case 18:
inp_str=inp_str+"5"
case 34:
inp_str=inp_str+"6"
case 50:
inp_str="" 'this is the <CANCEL> key
sys.debugprint("<CANCEL> pressed. The string is now empty.\x0D>")
exit sub
case 3:
inp_str=inp_str+"7"
case 19:
inp_str=inp_str+"8"
case 35:
inp_str=inp_str+"9"
case 51:
inp_str=inp_str+"0"
case else:
exit sub
end select
sys.debugprint("INPUT_STRING> "+inp_str+chr(13))
end if
end sub
'----------------------------------------------------------------
sub on_button_pressed()
if kp.enabled=NO then
kp.enabled=YES
inp_str=""
sys.debugprint("Keypad re-enabled.\x0D")
end if
end sub