Доброго утречка юзерам данного прекрасного форума!
На экзамене по Технологии программирования преподаватель задал мне вопрос: Сколько спрайтов в данном коде, каким образом ты это определил и в каком месте кода это возможно отображено?
На что соответственно я не смог ответить, ведь это не моя работа, да и учусь я ради диплома.
Пролил бы здесь тонны сочувствия и осуждения, но не хочу.
помогите пожалуйста, экзамен скоро подойдёт к концу
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ImgList, StdCtrls, jpeg;
type
TForm1 = class(TForm)
Image1: TImage;
ImageList1: TImageList;
Timer1: TTimer;
Image2: TImage;
Image3: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
i: Integer = 0;
b: Integer = -50;
a: Integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Canvas.Rectangle(-1, -1, image1.Width + 1, image1.Height + 1);
ImageList1.Draw(image1.Canvas, b, 270 - a, i);
b := b + 25;
inc(i);
if i = 5 then
i := 0;
if b >= 600 then
b := -50;
if (b >= 150) and (b < 250) then
a := 30//прыжок через пень
else
a := 0;
end;
end.
Админ: Пользуемся тегами при оформлении кода!
Бежит человек и перепрыгивает через пень.
https://ibb.co/9pLqQ5q - ссылка на скрин проги