Поставим задачу:

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

Можно запустить и увидеть на экране две строчки текста. В первой написано «Жми мышью на экран» (вольный перевод), а во второй «Hello World» - это значение переменной Label.

При клике мышью пропадает значение переменной (становится равной 0). Это потому, что функция My_Input() пуста, а ее значение, соответственно, равно нулю.Исправим это:Как Вы уже заметили, у функции есть 5 входных параметров:

• x#, y# - координаты верхнего левого угла окошка;
• dx#, dy# - ширина и высота окошка;
• s$ - это значение по умолчанию, т.е. какой текст уже будет введен при создании окошка.

Чтобы присвоить функции какое-либо значение, используется команда Return. Впишем в тело функции строку:

Function my_input$(s$,x#,y#,dx#,dy#) Return s$ End Function

Окошко работает нормально. Переходим к этапу ввода текста с клавиатуры.Для того, чтобы узнать какая клавиша была нажата, в Blitz используются несколько функций. Нам подойдет функция WaitKey(). Эта функция останавливает работу программы до тех пор, пока не будет нажата клавиша, и возвращает код этой клавиши.

ВНИМАНИЕ !!! Существует стандартная таблица символов, в которой перечислены все символы и клавиши и их коды (называется ASCII). В Blitz есть своя такая таблица, но с другими кодами (Scancodes). Важно не перепутать к какой таблице обращается функция. Например: В таблице Blitz клавиша Esc имеет код 1, а в стандартной таблице (ASCII) клавиша Esc под кодом 27. Обе таблицы можно найти нажав на иконку «Домик» на панели управления среды Blitz. Затем нажимаем на ссылку «Command Reference». Слева в списке категорий найдете таблицы ASCII и Scancodes. Функция WaitKey работает с таблицей ASCII.В нашу функцию после строки Flip добавляем код:

Теперь программа будет останавливаться на этой строке и ждать нажатия на клавишу. Код нажатой клавиши сохранится в переменной k.

Чтобы добавить нажатую клавишу к выводимой строке, допишем:

Текст функции на данный момент:

Function my_input$(s$,x#,y#,dx#,dy#) While Not KeyHit(28) Cls Color 200,200,200 Rect x,y,dx,dy,1 Color 0,0,0 Rect x+2,y+2,dx-4,dy-4,0 view_text$=s Text x+dx/2,y+dy/2,view_text,1,1 Flip k=WaitKey() s$=s$+Chr(k) Wend Return s$ End Function

Посмотрев внимательно в таблицу кодов ASCII, заметим, что коды букв, цифр и спецзнаков лежат в диапазоне от 32 до 126. Воспользуемся этим и поставим условие на добавление символа к строке: Если код нажатой клавиши в диапазоне от 32 до 126, то …Наша функция примет вид:

Function my_input$(s$,x#,y#,dx#,dy#) While Not KeyHit(28) Cls Color 200,200,200 Rect x,y,dx,dy,1 Color 0,0,0 Rect x+2,y+2,dx-4,dy-4,0 view_text$=s Text x+dx/2,y+dy/2,view_text,1,1 Flip k=WaitKey() If (k>31)And(k<127) Then s$=s$+Chr(k) EndIf Wend Return s$ End Function

• Left() – Возвращает указанное количество символов, начиная с начала строки.
• Right() – Возвращает указанное количество символов, начиная с конца строки.
• Mid() - Возвращает указанное количество символов, начиная с указанного символа.

Примеры по использованию этих функций смотри в справке Blitz.

Перед строкой Wend добавляем код:

Запускаем, проверяем. При нажатии на клавишу BackSpace, символы стираются с конца строки. Нам не хватает курсора!!! Сейчас будет. Только функция немного изменится. В качестве курсора будем использовать знак « | ». Чтобы курсор не становился частью строки, а только выводился на экран, я заранее ввел переменную View_Text$.Еще нам понадобится переменная Cur_Pos – значение этой переменной будет содержать позицию курсора в строке. Управление курсором осуществляется клавишами влево и вправо, коды 31 и 30 соответственно.

СОВЕТ: Чтобы не искать код той или иной клавиши в таблице ASCII, создайте новый лист и наберите маленькую программку:

Function my_input$(s$,x#,y#,dx#,dy#) cur_pos%=Len(s) view_text$="" While Not KeyHit(28) Cls Color 200,200,200 Rect x,y,dx,dy,1 Color 0,0,0 Rect x+2,y+2,dx-4,dy-4,0 view_text=Left(s,cur_pos) view_text=view_text+"|" view_text=view_text+Right(s,Len(s)-cur_pos) Text x+dx/2,y+dy/2,view_text,1,1 Flip k=WaitKey() If (k>31)And(k<127) Then temp$=s s$=Left(temp$,cur_pos)+Chr(k)+Right(temp$,Len(temp$)-cur_pos) cur_pos=cur_pos+1 EndIf If k=8 Then If cur_pos<>0 Then temp$=s$ s= Left(temp$,cur_pos-1)+Right(temp$,Len(temp$)-cur_pos) cur_pos=cur_pos-1 EndIf EndIf If k=4 Then If cur_pos<>Len(s) Then temp$=s s= Left(temp$,cur_pos)+Right(temp$,Len(temp$)-cur_pos-1) EndIf EndIf If k=31 Then cur_pos=cur_pos-1 If cur_pos<0 Then cur_pos=0 EndIf If k=30 Then cur_pos=cur_pos+1 If cur_pos>Len(s) Then cur_pos=Len(s) EndIf Wend Return s$ End Function

После доработки наша функция выглядит так:

Теперь Мы можем перемещать курсор по строке и удалять символы перед и после курсора, как во всех редакторах.Перед дальнейшим улучшением нашей функции, оптимизируем уже имеющийся код.Заменим наши условия оператором Case:

Так намного красивее, а главное - быстрее. В нашей программе разницу в скорости Вы не заметите, а в огромных проектах или играх разница существенна.

Для удобства добавим обработку клавиш Home и End, в начало или конец строки:

Надеюсь, что понятно, куда дописать эти строки.

Остался только один Bug. И этот недостаток заключается в том, что Строка в окошке может выходить за его пределы – это не хорошо, но исправимо.Воспользуемся командой ViewPort(), которая ограничивает зону вывода на экран.Добавив ограничение вывода на экран, получим окончательный вариант функции.Вот текст всей программы вместе с последними добавлениями:

Полученную функцию можно подогнать под Вашу программу и использовать. Основной принцип я объяснил.