Turbo Basic 1.1. Руководство пользователя - стр. 184

             def fn ВидеоЭкран%
               local ЭкранаТип%
               print "тип экрана ?"
               input "[1 для моно,2 для цветного]",ЭкранаТип%
               select case ЭкранаТип%
                case 1
                  fn ВидеоЭкран%=&HB000
                case 2
                  fn ВидеоЭкран%=&HB800
                end select
              end def
             def seg=fnВидеоЭкран%
             for i%=0 to 4000 step 2
             poke i%,asc("A")
             next i%
             end
            
            
             Оператор DELAY
             --------------
            
 Функция    DELAY вставляет паузу
 -------


                                     -105 -
          
          
            
 Синтаксис  DELAY секунды
 ---------
            
 Замечания секунда-это числовое выражение,определяющее число секунд паузы,вы-
 --------- полняемой Турбо-Бейсиком перед использованием  следущего  операто-
 ра.Примечание:DELAY принимает аргументы с плавающей точкой,а дробные задерж-
 ки можно специфицировать с разрешением примерно 0.054.
  Использование DELAY ,а не программного цикла ничегонеделания,сказывается на
 программах,которые  прогоняются на машинах с разной скоростью обработки(т.е.
 базирующихся на 8088 по сравнению с базирующимися на 80286,или 6Мгц по срав-
 нению с 8Мгц).
            
 Пример print "Нажмите любую кнопку для завершения программы"
             while not instat
             locate 10,30
             print time$
             delay 5
             wend
             end
            
 
             Оператор DIM
             ------------
            
 Функция     DIM заявляет массив
 -------
            
 Синтаксис   DIM{static!dynamic}переменная(подстрочный    индекс)[,перемен-
 ---------   ная(подстрочный индекс )]...
             DIM {static!dynamic}переменная(мин:макс)[,мин:макс]...)[,пере-
 менная(мин:макс)[,мин:макс]...)]...



Содержание  Назад  Вперед

---

---

---