»Учебник QBasic» - Автор неизвестен - Страница 3

  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

  PRINT "Наберите секретный номер!"

  INPUT "Введите"; a