Графическое программирование на Ms Fortran
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение 8 класс, рефераты бесплатно
Добавил(а) на сайт: Janutan.
Предыдущая страница реферата | 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 | Следующая страница реферата