да я питался ету програмку переделатй но у меня ни4его не полу4илосй
ету кривую (синусойду) похожая на букву "С" нада заставитй передвигатйса зна4ет все то4ки нада загнатй в масив а там есё нада будет создаватй свой тип переменой или рецорд
procedure TForm1.FormCreate(Sender: TObject); var x,y,i,z,w:integer; begin i:=1; for x:=40 to 160 do begin y:=Round(Sin(pi*x/100)*120)+((form1.PaintBox1.Height)div 2); mas[i].x:=x+60; mas[i].y:=y; inc(i); end
end;
procedure TForm1.Timer1Timer(Sender: TObject); var a,z,i:integer; begin a:=strtoint(form1.Label1.Caption); inc(a); form1.Label1.Caption:=inttostr(a); for z:=1 to 120 do form1.PaintBox1.Canvas.Pixels[(mas[z].x-10),(mas[z].y)]:=form1.PaintBox1.Color; for z:=1 to 120 do begin form1.PaintBox1.Canvas.Pixels[(mas[z].x),(mas[z].y)]:=clBlack; mas[z].x:=mas[z].x+10;
end; end;
procedure TForm1.PaintBox1Paint(Sender: TObject); var z:integer; begin
for z:=1 to 120 do begin form1.PaintBox1.Canvas.Pixels[(mas[z].x-10),(mas[z].y)]:=clBlack; end; end;
end.
спасибо себе любимому. Всё дапёр я посидел подумал
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.