Глава Четверта. Вітання! В цьому розділі, ми вивчимо такі команди:
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
LOOP
Це б означало що цикл тривав до набору числа 10. Ця команда дуже проста,
але нескінченно корисна.
Відмінність цього циклу від команди INPUT - не потрібно натискати клавішу "ENTER" після введення числа.
Зараз програмісти прагнуть дотримуватися цього в своїх програмах,
а саме, в місцях де написано "натисніть будь-яку клавішу".
Функція INKEY $ - вимагає негайного натискання на будь-яку клавішу ...
Ви можете "вставляти" ці команди в вашу програму.
DO WHILE INKEY $ = ""
PRINT "Натисніть будь-яку клавішу. Для закінчення циклу."
LOOP
І це б означало, то що, цикл б не припинився поки б ви не натиснули будь-яку клавішу.
Функцію можна використовувати в:
Меню "викликає клавіші" INPUT (Як горючу клавішу).
Однак, це вимагає конструкцію, подібну IF. THEN.
Вивчимо, тепер, новий набір команд - SELECT CASE. END SELECT,
що дозволяє вам встановлювати зв'язку IF. THEN,
замість сотень окремих функцій у вашій програмі будуть оператори SELECT CASE. END SELECT.
Це також дозволить вам мати багаторазові команди в змінної CASE.
Ось простий приклад:
PRINT "Головне меню"
PRINT "1) Закінчення програми"
PRINT "2) Сюрприз"
PRINT
INPUT "Ваш вибір"; chc
SELECT CASE chc
CASE 1
PRINT "Добре чи неправда!"
END
CASE 2
PRINT "СЮРПРИЗ."
PRINT "Ви були здивовані. А?"
END
CASE ELSE 'зверніть сюди увагу
PRINT "Чому ви вибрали 1 а не 2?" 'Команда, яка дозволяє вам END
END SELECT 'захоплювати неприпустимі відповіді (CASE ELSE)
Все, що ви повинні зробити для роботи програми - вибрати один з 2-ух розділів змінної "chc". Коли ви оберете розділ, ваша програма буде виконуватися.
Якщо ж ви не вибираєте, то програма стоїть на місці. Цікаве місце програми там,
де я використовував оператор CASE ELSE. Наприклад, якщо ви не вибрали 1 то цей оператор дозволяє виконувати програму під іншими цифрами тобто в нашому випадку під цифрою 2.
Вибір повинен обов'язково починатися з оператора CASE SELCET,
а закінчуватися оператором END SELECT.
Вивчимо наступний корисний пункт - як робити випадкові числа в QBASIC.
Дуже простий спосіб зробити це, можна зробити за допомогою команд LET, INT, і RND.
Є простий приклад цього:
x = INT (RND * 10) + 1
Це б надало змінної "x" між число 1 і 10. Отримати номер
Між 0 і 10, а не 1 і 10 можна позбувшись "+ 1" в кінці рядка.
Це все, що ви повинні знати, щоб зробити генерацію випадкових чисел:
INT - округлює дробове число до цілого.
RND - задає випадкові числа
Тепер, перейдемо до командам файлу. Це обов'язково має бути вивчено!
Для відкриття файлів використовується команда OPEN, щоб закрити файл команда CLOSE.
Файл повинен обов'язково закриватися, інакше ваша програма не працюватиме!
Щоб відкрити файл, використовують команду OPEN таким чином:
OPEN "filename.ext" FOR (OUTPUT / INPUT / APPEND) AS # 1 (or other number)
Відкрити "Імяфайла.расшіреніе" для (вводу / виводу / Приєднання) Як # 1 (або інший номер)
OPEN "file.txt" FOR OUTPUT AS # 1
PRINT # 1, "Привіт світ!"
CLOSE
OPEN "file.txt" FOR INPUT AS # 1
INPUT # 1, s $
PRINT s $
CLOSE
OPEN "file.txt" FOR INPUT AS # 1
LINE INPUT # 1, s $
PRINT s $
CLOSE
Це читало б повну рядок з файлу в змінну "s $". тільки заново
елемент, при використанні OUTPUT, це стирає те, що знаходиться в файлі.
Четверта глава на цьому закінчується. Ось завдання:
1.Зробіть програму в якій потрібно згенерувати випадкове число між 1 і 20.
Дати грає 5 шансів, і після того, як ви ввели число,
програма повинна повідомляти високо чи низько введене вами число.
2.Сделать програму, яка б зберігала вищі результати в файл.