Форум «Всё о Паскале» _ Теоретические вопросы _ помогите
Автор: short 30.09.2009 1:21
Привет всем! плс помогите на паскале можно вставить jpg картинку как фон?
Автор: volvo 30.09.2009 1:31
Во-первых, назови тему, как положено, чтобы не нарушать пункт 4 http://forum.pascal.net.ru/rules.html... А во-вторых, неплохо было бы объяснить, что за задача? Какой Паскаль, какое приложение?
Автор: short 30.09.2009 1:34
да все сори сам допер ) вот игру делаю просто хотел фон картинку зделать )
Цитата
program p1; uses crt,graphABC; var x,y,gm,gd,x1,x2,y1,y2,n:integer; procedure xop( x,y,n:integer); begin moveto(x,y); DrawPicture(n,x,y); //rectangle(x-20,y+140,x+40,y+40); end; procedure lox(x,y:integer); begin moveto(x,y); rectangle(x,y,x+5,y+8); if y<400 then y1:=y1+7 else begin y1:=5; x1:=random(640) end; end; procedure xip(x,y:integer); begin moveto(x,y); rectangle(x,y,x+5,y+8); if y<400 then y2:=y2+10 else begin y2:=5; x2:=random(640); end; end; begin n:=LoadPicture('C:\m_cfb4443e.jpg'); y:=240; x:=320; repeat clrscr; xop(x,y,n); lox(x1,y1); if y1<=10 then x1:=x+random(160)-random(160); xip(x2,y2); if y2<=10 then x2:=x+random(80)-random(80); if (x1>=x-20) and (x1<=x+40) and (y1>=y) and (y1<=y+100) then begin repeat clrscr; textout(280,200, 'GAME OVER'); readkey; until readkey=#27; halt; end; if keypressed then case readkey of #13: begin repeat readkey; until readkey=#13; end; #77: x:=x-40; #75: x:=x+40; #72: y:=y-40; #80: y:=y+40; end; delay(30); until (keypressed) and (readkey=#27); readln; end.
Автор: Unconnected 30.09.2009 2:59
Можно, например, использовать модуль, который я прикрепил в аттаче. Приведу пример использования из моей давнишней программы:
uses bmp;
begin gd:=installuserdriver('vesa256',nil); gm:=3; initgraph(gd,gm,'BGI'); //инициализация графического режима SBMI('test_lvi.bmp', 0, 0, 0); //Вывод BMP. Параметры - имя файла, далее 2 числа - координаты левого верхнего угла и последний я не знаю, зачем end;