Задачи на графику Опции

[Dezman]

Ни на одном форуме мне никто не смог помочь. Надеюсь, что здесь я все таки найду помощь

1. Написать программу, которая выводит на экран меню, в котором в зависимости от выбора пользователя появляется круг, квадрат или треугольник.

2. Напишите программу, которая в зависимости от кода нажатой клавиши (используйте клавиши перемещения курсора) управляет движением фигуры человечка (вверх, вниз, влево, вправо). Образ человечка занесите в память.

Заранее спасибо!

[Ozzя]

которая выводит на экран меню

меню во фрейме

Добавлено через 2 мин.

которая в зависимости от кода нажатой клавиши (используйте клавиши перемещения курсора) управляет движением фигуры человечка (вверх, вниз, влево, вправо

Помогите советом

[Dezman]

2Ozzя
В Паскале у меня есть один большой пробел это графика. Поэтому из всего там написаного я ничего не понял. Как это прикрутить к моим програмам?

[Ozzя]

2.
вводный проект

Добавлено через 2 мин.
В 1-м готовый модуль. Пишешь uses fmenu; и используешь проц-ру simplemenu

[Dezman]

А вторую часть первой проги куда прикрутить?

[Dezman]

Вторая задача у меня не работает Может кто-нить скинуть код проги без лишних процедур, операций, функций?

[Dezman]

Неужели никто не знает? Мне это на зачет надо, плиз помогите.
Я саму прогу написал, но как сохранить в память человечка не знаю!

Сообщение отредактировано: Dezman - 9.12.2007 11:57

[Dezman]

Мдя

[Ozzя]

как сохранить в память человечка не знаю!

getimage

[Dezman]

Я сделал вторую программу, но столкнулся с проблемой. У меня на экране два человечка: один висит в левом верхнем углу, другим я управляю с помощью клавиш. Как убрать первого?

program z1;
uses graph,crt;
var xold,yold,dx,dy,drivervar,modevar,i,size,x,y,xmax,ymax:integer;
p1,p2:pointer;
c:char;
begin
drivervar:=detect;
detectgraph(drivervar,modevar);
initgraph(drivervar,modevar, ' ');
size:=imagesize(0,0,20,100);
setlinestyle(0,0,3);
pieslice(10,10,0,360,10);
fillellipse(10,40,10,20);
line(8,50,0,100);
line(12,60,20,100);
getmem(p1,size);
getimage(0,0,20,100,p1^);
dx:=1; dy:=1;
x:=100;y:=100;
xmax:=getmaxx;ymax:=getmaxy;
repeat;
putimage(x,y,p1^,1);
xold:=x;yold:=y;
c:=readkey;
if c=#0 then c:=readkey;
case c of
#72:if y>1 then y:=y-dy;
#75:if x>2 then x:=x-dx;
#80:if y<ymax-100 then y:=y+dy;
#77:if x<xmax-20 then x:=x+dx;
end;
putimage(xold,yold,p1^,1);
until c=#27;
freemem(p1,size);
closegraph;
end.

[Ozzя]

После GetImage сделай ClearViewPort.

[volvo]

getimage(0,0,20,100,p1^); { <--- это у тебя было }

{ добавляешь эти 2 строки }
setfillstyle(solidfill, black);
bar(0, 0, 20, 100);

Кстати, добавление 2-х строк выявляет глюк в программе: ты копируешь изображение не полностью. несколько пикселей остаются на экране... Увеличь ширину копируемой области...

[Dezman]

Спасибо большое, теперь все понятно

меню во фрейме
У меня не работает программа которую написал Дож. Пишет что Unit не может запуститься. Что делать?

Сообщение отредактировано: Dezman - 10.12.2007 13:52

[volvo]

А Unit не запускается... Его надо подключить к программе (так же, как ты подключаешь Graph и Crt, в Uses), и использовать...

[Dezman]

То есть:
Program Z1;
Uses Unit ....
Или как? Я в модулях не шарю.

[Артемий]

Да.Только не Unit - это зарезервированное слово.Unit1 пойдет

[Dezman]

file not found (unit1.tpu)
И где его взять? Замучился уже...

[Артемий]

Так ты должен создать сначала этот юнит,другими словами Build.

[Dezman]

Можешь написать этот кусок?

[volvo]

Dezman, по приведенной тобой ссылке есть текст модуля... Сохрани его в файл под именем FUNIT.PAS в той же папке, что и твоя программа, и в основной программе делай

Uses { что там у тебя было }, FUnit; { <--- Все, модуль подключен, можешь использовать }
...

(для компиляции нажимай F9, а не Alt+F9, тогда сначала скомпилируется модуль, а потом - твоя программа...)