Kniga-Online.club

"Учебник QBasic" - Автор Неизвестен

Читать бесплатно "Учебник QBasic" - Автор Неизвестен. Жанр: Прочая околокомпьютерная литература год 2004. Так же читаем полные версии (весь текст) онлайн без регистрации и SMS на сайте kniga-online.club или прочесть краткое содержание, предисловие (аннотацию), описание и ознакомиться с отзывами (комментариями) о произведении.
Перейти на страницу:

  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

Перейти на страницу:

Автор Неизвестен читать все книги автора по порядку

Автор Неизвестен - все книги автора в одном месте читать по порядку полные версии на сайте онлайн библиотеки kniga-online.club.


"Учебник QBasic" отзывы

Отзывы читателей о книге "Учебник QBasic", автор: Автор Неизвестен. Читайте комментарии и мнения людей о произведении.


Уважаемые читатели и просто посетители нашей библиотеки! Просим Вас придерживаться определенных правил при комментировании литературных произведений.

  • 1. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
  • 2. Просьба отказаться от оскорблений, угроз и запугиваний.
  • 3. Просьба отказаться от нецензурной лексики.
  • 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.

Надеемся на Ваше понимание и благоразумие. С уважением, администратор kniga-online.


Прокомментировать
Подтвердите что вы не робот:*
Подтвердите что вы не робот:*