Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

          m=0                        ! Числовое обнуление

          do k=1,24                  ! Количество вводимых цифр

            i2=getch()               ! Возврат кода нажатой клавиши

            if (i2.eq.13) exit       ! Нажат ввод

            if (i2.eq.27) return     ! Нажата Esc (выход из программы)

            call GetTextPosition(rc) ! Возврат текущей позиции

            call SetTextPosition(rc.row,rc.col,rc)  ! и ее установка

            write(one,'(a)') char(i2)  !  Печать в буфер введенного символа

            if (i2.eq.8) then  !  Нажата клавиша Backspace

              call SetTextPosition(rc.row,rc.col-1,rc)

              write(one,'(a)') ' ' ! При нажатии BackSpace удаляется

            end if                 ! последний введенный символ (запись в буфер пробела)

            call OutText(one)      ! Печать введенного символа

            if (i2.eq.8) call SetTextPosition(rc.row,rc.col-1,rc) ! При печати пробела смещаемся влево, поэтому возврат

            if (i2.ge.48.and.i2.le.57.or.i2.eq.43.or.i2.eq.45.or.i2.eq.46.or.i2.eq.69.or.i2.eq.101) then

! Перечислены коды следующих символов:0,1,2,3,4,5,6,7,8,9,+,-,.,E,e

              m=m+1 ! Отсчет количества введенных символов

              if (m.eq.12) exit ! Максимум 12 символов

              write(ValElem,'(a,a)') ValElem(1:m),char(i2)  ! В буфер помещается первые m символов и введенный

            else

              if (i2.ne.8) call SetTextPosition(2,2,rc)

              if (i2.ne.8) call OutText(' Ошибка ввода! ')

              if (i2.eq.8) write(ValElem,'(a,a)') ValElem(1:m),' ' ! При нажатии Backspace

              if (i2.eq.8) m=m-1 ! Удаление последнего символа

            end if

          end do

          call SetTextPosition(3,2,rc)

          read(ValElem,'(f12.0)') A(i,j) ! Преобразование символа в число (через буфер)

          write(5,*)'Элемент массива ',A(i,j)

          i2=getch() ! Задержка до нажатия клавиши

          call ClearScreen($GWINDOW) ! Очистка текстового окна

          i2=SetColor(8)             ! Цвет зеленый

          i2=rectangle($GFILLINTERIOR,0,0,nx,ny)

          i2=SetColor(2)             ! Цвет зеленый

          i2=rectangle($GBORDER,1,Int(kr*ny),Int(kc*nx),ny-1)

        end do

      end do

11    format('(',i1,',',i1,') ')

      end

     Для переноса текста в пределах окна используется функция WrapOn.

Пример:

   dum = WrapOn($gwrapon), где:

              $gwrapon – символическая константа, указывающая на перенос строки по границе окна

              $gwrapoff – обрывание строки по границе окна.

Функция не оказывает влияние на вывод текста шрифтом (с помощью outgtext).

Вставка рисунка из файла

Вставка рисунка формата pcx в любую позицию экрана возможно с использованием файлов библиотек gx_cl.lib и pcx_cl.lib, gxint.for, pcxint.for. Вставляемый рисунок должен иметь формат pcx.

! File: ins_pic.for

! Программа демонстрации вывода рисунка из файла на экран

! ?? Закомментировать строки 156,157 файла gxlib.for

Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.





Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата