Delphi (практический курс) - Создаём игру PingPong часть 1

[@ИванБоев-ц2у]

Всё ништяк, всё у нас нормально работает)

[@ilya9778]

Спасибо за урок,помогло в обучении.

[@GameZone-mj7tb]

Если когда нибудь ты прочитаешь это знай. Я учился у тебя и сейчас вернулся к твоему видео, и сейчас я понял. Твой код можно сократить минимум вдвое.

[@mr.dominik692]

спасибо мне оно очень понравилось и помогло

[@97MikVer]

А почему ты сразу не сделал все переменные типа integer?

[@MrOnlineCoder]

Видео класс! У меня так как в Game Maker!

[@ВладиславАнатольевич-р8е]

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

[@DmytroFokin]

Подскажите пожалуйста, можно ли компонент TShape заменить на TImage?

[@Hristianinpavel]

у меня шарик не так двигается,а как по кадрам

[@Powerlifting_in_the_heart]

в On timer ты что написал??

[@HeartleSSWoT]

серклз произноситься вроде бы,переводится как круг

[@БексултанТургунов-г2ф]

В моем Делфи Vel не работает!!!

[@4ecTHblu]

Посмотри на что процедуру создаешь. Я в первый раз ее создал на шарик, вместо формы.

[@ЕгорКалинин-й5ю]

у кого не работает на пишите не PosX, а PostX и также PostY

[@olzhas500]

Vel как его зделать

[@БексултанТургунов-г2ф]

Че ты написал на таймер Там не видно

[@vscloudead7563]

Кому надо - у меня работает: {Памятка - Таймер 10мс} {Создатель ClouDead} unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Shape1: TShape; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private procedure shar(); { Private declarations } public { Public declarations } end; var Form1: TForm1; PosX, PosY, VelX, VelY: single; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin PosX:=1; PosY:=1; VelX:=2; VelY:=3; end; procedure TForm1.shar; begin PosX:=PosX+VelX; PosY:=Posy+VelY; if PosX > ClientWidth - Shape1.Width then VelX:=-VelX; if PosX < 0 then VelX:=-VelX; if PosY > ClientHeight - Shape1.Width then VelY:=-VelY; if PosY < 0 then VelY:=-VelY; Shape1.Left:=round(PosX); Shape1.Top:=round(PosY); end; procedure TForm1.Timer1Timer(Sender: TObject); begin shar; end; end.

[@VeRTIKaLNiy]

привет

[@vladimirvladimir199]

Привет

[@vladimirvladimir199]

Ты случаем не знаешь, почему строчку VelX:=-VelX; мы пишем в обоих циклах if для PosX ?? В первом так. А во втором по идее должно быть -VelX:=VelX ? На обратном пути VelX ведь отрицательный получается, а пишем так же как и для положительного. Голову поломал уже, почему так работает

[@alekspc6198]

Vel не работоет!!!

[@cancion2able]

Почему-то вообще не двигается :)

[@rettjaconomaili8201]