14 odpowiedzi w tym temacie

[pilarteam]

unit pilka;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Shape1: TShape;
Shape2: TShape;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,y,a,b:INTEGER;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
shape1.left:=shape1.Left+x;
shape1.Top:=shape1.top+y;
shape2.left:=shape2.Left+a;
shape2.Top:=shape2.top+b;
if (shape1.left>616) OR (shape1.left<1) then x:=-x;
if (shape2.left>616) OR (shape2.left<1) then a:=-a;
if (shape1.top>400) OR (shape1.top<1) then y:=-y;
if (shape2.top>400) OR (shape2.top<1) then b:=-b;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=2;
y:=2;
a:=2;
b:=2;
end;

end.

[Gawlo]

Powodzenia

[miniPAKER]

LO czy gimnazjum ;p na ktorym roku?
he u mnie pascala walkowalismy ^^

[bikerider]

miniPAKER, - w mało którym gim sie robi pascala. raczej to LO. pascal w porównaniu np z C++ jest łatwiutki!!

[Peet]

no i co chciałeś się popisać bo trochę nie rozumiem...

[bikerider]

Peet, - o co Ci chodzi??.... tylko napisałem, ze pascal jest dość łatwym językiem!!

[miniPAKER]

moze i w malo ktorym ale jest taka mozliwosc
pascala mialem nawet w 8 klasie podstawowki.. tak ze.. w gimnazjum moze byc jak najbardziej. (szczytowym osiagnieciem bylo zrozumienie sortowania bombelkowego heheh)

[bikerider]

miniPAKER, - może i masz racje, ale to zależy od szkoły i nauczyciela (u mnie to ja bym mogł prowadzi lekcje,a nie moja nauczycielka xD)

[Gość]

bikerider skad ja to znam?
nasza lekcja wygladala tak ze kazdy odpalal sobie ski jumping... zal

[bikerider]

MariuchxD, - haha... u nas troche lepiej, ale office itp to prze zamuła, albo logomocja buahahahah xD

[Peet]

hmmm, chodziło mi o twórcę tematu... a btw pascal musi być prosty, bo ta wersja, którą używamy, powstała 12 lat temu

[bikerider]

Peet, - jak byś przysiadł tak na tydzien to umiesz 95% czyli biegle- prosty jest!!

[Gość]

NIE SPAMOWAĆ !












tylko ja moge tu spamować :*

[datulus]

maks jebany spamerze!!!

wogole co to jest ten pascal ktos wie??? bo ja to ni huja nie czaje nic... a wogole to same spamery tu ja pierdole no nie moge co za wiesniaki xD

[MikolajWB3]

dobra dla każdego ostrzeżenie poleci za kazdy spam !