Программа просмотра кодов клавиатуры

Скачать статью в PDF

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

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

LDTextWindow.KeyDown = Keyb ' назначаем подпрограмму-обработчик события

Sub Keyb ' подпрограмма-обработчик события
    TextWindow.CursorLeft = 0 ' затираем предыдущий текст
    TextWindow.Write("                             ") 
    
    TextWindow.CursorLeft = 0

    If LDTextWindow.LastKey = "Escape" Then ' ESC - выход
        TextWindow.Write(LDTextWindow.LastKey)
        TextWindow.WriteLine("")
        TextWindow.WriteLine("Bye!")
        Program.Delay(2000)
        Program.End()
    EndIf

    TextWindow.Write(LDTextWindow.LastKey) ' выводим код клавиши
EndSub


TextWindow.WriteLine("Коды клавиш") ' пишем заголовок

While "True" ' бесконечный пустой цикл самой программы
    Program.Delay(100) ' чтоб процессор не грелся
EndWhile