|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Need help! разобраться в коде
Доброго утречка юзерам данного прекрасного форума!
На экзамене по Технологии программирования преподаватель задал мне вопрос: Сколько спрайтов в данном коде, каким образом ты это определил и в каком месте кода это возможно отображено? На что соответственно я не смог ответить, ведь это не моя работа, да и учусь я ради диплома. Пролил бы здесь тонны сочувствия и осуждения, но не хочу. помогите пожалуйста, экзамен скоро подойдёт к концу Код:
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 - ссылка на скрин проги Последний раз редактировалось Admin, 08.12.2020 в 09:48. |