"Учебник QBasic"
"Учебник QBasic" читать книгу онлайн
Учебник QBasic. Добро пожаловать! На этих уроках вы научитесь, как использовать язык программирования QBASIC. Если вы хотите изучить Бейсик, то, преступим!
Внимание! Книга может содержать контент только для совершеннолетних. Для несовершеннолетних чтение данного контента СТРОГО ЗАПРЕЩЕНО! Если в книге присутствует наличие пропаганды ЛГБТ и другого, запрещенного контента - просьба написать на почту [email protected] для удаления материала
topofprogram: CLS
PRINT "Это бесконечный цикл"
GOTO topofprogram
Или, так:
1 CLS
PRINT "Привет мир!"
GOTO 1
GOTO - очень простой, но все же мощный оператор. Но использование оператора не обязательно в вашей программе, его можно заменить другим. GOTO становится очень полезным, когда используется вместе с операторами IF...THEN. Вы можете использовать GOTO, чтобы создать некоторый тип меню, подобно этому:
PRINT "Мое Меню"
PRINT "Нажмите 1, чтобы очистить экран, и 2, чтобы вывести "Привет"!"
INPUT "Что вы выбираете"; choice
IF choice = 1 THEN GOTO clrscr
IF choice = 2 THEN GOTO hello
clrscr: CLS
PRINT "Готово."
hello: PRINT "Привет, Привет, Привет!"
END
Вы можете использовать GOTO после THEN, чтобы перейти к другой части программы программы. Или, Вы можете заменять "=" любым математическим символом (подобно знаку больше ">" или меньше "<"). Есть пара примеров в одной программе:
PRINT "Пример Программы #1"
PRINT "Номер, о котором я думаю стоит в промежутке от 1 и 10."
PRINT "Вы получаете 3 возможности."
INPUT "Первый выбор"; number
IF number = 3 THEN GOTO gotit
PRINT "Простите!"
INPUT " Второй выбор "; number
IF number = 3 THEN GOTO gotit
PRINT " Нет !"
INPUT " Последний выбор "; number
IF number = 3 THEN GOTO gotit
PRINT " Простите ! The number was 3!"
END
gotit: PRINT " Вы выиграли ! Хорошая работа !"
Основной элемент в этой программе - IF...THEN.
Последняя вещь в этой главе – изучение изменения цвета текста и других элементов. Цвет текста на экране позволяет менять команда COLOR (Включая Цвет фона). Вот пример использования этого оператора:
COLOR 13
PRINT "Сиреневый!"
COLOR 7
PRINT "Серый!"
Число, после оператора COLOR - один из этих номеров цвета:
00 - Сажа
08 - Тёмно - серый
01 – Темно - синий
09 – Светло - синий
02 – Тёмно – зеленый
10 - Светло - зеленый
03 – Тёмно - голубой
11 – Светло - голубой
04 – Темно - красный
12 - Светло - красный
05 – Темно - пурпурный
13 - Сиреневый
06 - Цитрус
14 - Жёлтый
07 - Серый
15 – Ярко - белый
Это заканчивает наше обсуждение оператора COLOR и нашей главы. В этой главе узнали много нового.
УДАЧИ!!! И Хорошего вам дня!!!
Учебники: / QBasic - №01 - Глава 4 /
Глава Четвёртая. Привет! В этой главе, мы изучим следующие команды:
DO...LOOP, OPEN, INT, CLOSE, RANDOMIZE TIMER RND, PRINT#, SELECT...END, SELECT, INPUT # INKEY$
В предыдущей главе, мы говорили относительно циклов DO...LOOP, которые позволяют повторять действие некоторое количество раз. Окончание цикла при уловии:
Все, что вы должны сделать - написать, DO WHILE... или UNTIL..[какое-либо условие]. В переводе с английского это бы звучало так: ДЕЛАЙТЕ какое - либо ДЕЙТСТИЕ ДО ТОГО КАК ПРОИЗОЙДЁТ [какое-либо условие]
Обязательна команда LOOP, чтобы закончить цикл. Есть очень простой пример
из того, как использовать этот цикл:
DO UNTIL a = 10
try = try + 1
PRINT "Попробуйте номер"; try
PRINT "Наберите секретный номер!"
INPUT "Введите"; a
