Разработка программного обеспечения
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат на тему мир, отчет по практике
| Добавил(а) на сайт: Колбенев.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
ENDIF
//*******ВЫБОР ВИДА ПЛАТЫ******************************
exit:=alltrim(exittmp)
CLEAR GETS
st:=1
cls
DO WHILE (st4) //Предлагается меню, где можно выбрать направление взгляда на плату
cglold:=setcolor('n/rg')
@ 9,12 CLEAR TO 11,maxcol()-13
@ 9,12 TO 11,maxcol()-13 DOUBLE
set cursor off
set scoreboard off
readexit(.F.)
set cursor on
@ 10,14 say "Имя получаемоемого файла......" color ('w+/rg') get exittmp picture 'NNNNN' color('gr+/gr,n/w')
setpos(10,50)
dispout('.frg','w+/gr')
setcolor(cglold)
mas:={{'Двумерная','Трехмерная ','Имя файла','Выход'},{"Создание файла вида сбоку(двумерное изображение)","Создание файла вида со стороны(трехмерное изображение)",'Изменить имя получаемоемого файла','Выход в главное меню'}}
st:=MENU (mas,13,st)
IF st=1
@ 9,0 CLEAR TO maxrow(),maxcol()
set cursor off
TO2D(kolkomp) //пересчет точек привязки в трехмерные координаты
PRINTINFO()
ERRF()
inkey(6)
cls
ELSEIF st=2
@ 9,0 CLEAR TO maxrow(),maxcol()
set cursor off
TO3D(kolkomp) //пересчет точек привязки в трехмерные
координаты
PRINTINFO()
ERRF()
inkey(6)
cls
ELSEIF st=3
set cursor on
read
exit:=alltrim(exittmp)
set cursor off
ELSEIF st=0
st=4
ENDIF
Рекомендуем скачать другие рефераты по теме: шпори, рефераты по биологии.
Категории:
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
Главная