Basic Input

 

Получение информации в вашу программу.

Входные данные - это жизнь любой программы. Если вы не можете получить что-то в свою программу, как вы собираетесь вытащить что-нибудь из нее? Ниже основы того, как получить информацию в вашу программу FreeBASIC.

Очень простая программа, которая попросит ввести ваше имя:

'Создать буфер для размещения имени пользователя
Dim As String strMyName

' Спросите имя пользователя и сохранить его в строке 'strMyName'
Input "What is your name? ", strMyName

' Ожидание полсекунды
Sleep 500

' Вывести свое имя
Print
Print "I now know your name is "; strMyName
Print

' Ожидание нажатия любой кнопки перед выходом
Print "Press any button to exit"
Sleep

INPUT - это самый простой способ получить информацию от пользователя. Здесь простые действия: ввод текста и нажатие клавиши Enter для подтверждения.

Что делать, если вы хотите получить только нажатие одной клавиши? Самый простой способ состоит в использовании метода GetKey. GetKey получает ASCII значение нажатой клавиши.

' Попросить пользователя сделать ввод
Print "Press your favorite key:"

' Установить буфер для сохранения значения ASCII ключа
Dim As Integer strKeyPress

' Цикл работает, пока не будет нажата клавиша
Do
    strKeyPress = GetKey    
Loop Until strKeyPress <> 0    

' Отображение нажатой клавиши
Print
Print "Your favorite key is: "; Chr(strKeyPress)                        
                        
' Ожидание нажатия любой кнопки перед выходом
Print
Print "Press any button to exit"
Sleep

Для получения дополнительной информации ознакомьтесь с разделом Пользовательский ввод.