[Delphi] Program o niesocjalnych kropkach

[Toster]

na forme wrzucamy Paintbox + button1 + Timer1

 

forma1:

 

unit Unit1;

interface

uses
 Windows, Messages, SysUtils,X[XX[^7G&2&V7FD7G&2FGPDf&Ó6Ć72Df&AŃ      QAŃ     (QQQ(    ŃŃQutton;
   procedure FormCreate(Sender: TObject);
   procedH[YU[Y[X
NYH]PXĘ6VćFW#D&ŚV7B&fFP&fFRFV6Ć&F2ą(AąąŃ(()(Q

implementation

{$R *.dfm}

procedure TForm1.Button1CXĘ[X
NY[[YK[XYHYN[6VGW&RDf&Óf&7&VFR6VćFW#D&ŚV7Bf CFVvW(ŹQ-)(M]Q1
Ń(0 to 250 do begin
     k := TKropka.Create(300+Random(90)-4K
[JL
KM
JNKY
ĘN[[VGW&RDf&ÓFW#FW\"6VćFW#D&ŚV7Bf CFVvW#(ŹQ-(ąŃ)((Ńźdo begin
     k := SWarm[t];
     k.CalcNewPos;
  end;

HLY[HVNFU3D&6f2V5śŁ6vFS()()'hu(ł73z7z{^bppVćB&VłŚFW&f6PW6W26Ć76W2FGPD&śą(ą(ŃŃ
ŃĄ yy:integer);
        procedure      CalcNewPos;
        |YH]TYH]JŚFVvW\"&fFPgg&V(ŃŃ`teger;
        function       GetY: integer;
     publishiH[YXY]'GŚFVvW\"&VBvWEVćCf 5v&ÓDĆ7C)ŃĄQ-()ąŃŃ

{ TKropka }
function Dist(const kr1, kr2: TKropka):real;
iY[[H
KH
H
KHHÓ\"ćgŚVćC&6VGW&RD&ś6Ć4ćWu3f CFVvX(((ŹQ-)(x := -10000;
  cy := -10000;
  for t := 0 to swarm.Count- 8Y[HVNHHŁgćgbGŚGśGŚGf
CłFV&Vv\0ĄŃĄMĄĄĄ(      if Abs(dy) > 1 then dy := Sign(dy)*sqrt(abs(dy));
(YHLL[Y[H7ŁGVćBV6R&Vv7ŁŹź(ĄŹź(( end;
  end;
  fnx := fx + cx;
  fny := fy + cy;
end;

ckXKX]J^N[YNY[ŁgŁŚVćCŚgVć7FD&śvWEFVvW#Ś&](IąIĄ)()ŃQ-ŃdŃer;
begin
  Result := Round(fy);
end;

procedure TKropka.SmJ^N[YNY[HHH^NćC&6VGW&RD&śWFFU3Ś&VvgŁfg)()(

 

Polecam ustawienie malego intervala dla timera i podziwianie jak to kropki nie lubia innych

[Kezard]

Hehe nazwa tematu zajebista

[DarkAndrew]

ty niezłe na prawde niezłe do tego ciekawa nazwa

toster co ty masz z tymi kropkami ciągle jakieś progsy o nich robisz

[Toster]

Wiesz kropki sie szybko robi a poza tym kropka to ciekawy stwor jak widac na zalaczonych wysunkach

 

// Toster do jasnej ciasnej, przylep sobie tą kartke na monitor z napisem "poza tym" - Iskar

[Nvm]

Wiesz kropki sie szybko robi a poza tym kropka to ciekawy stwor jak widac na zalaczonych wysunkach

 

// Toster do jasnej ciasnej, przylep sobie tą kartke na monitor z napisem "poza tym" - Iskar

 

Albo zainstaluj Firefoxa bo ma filtr ten Wordowy (Dzięki niemu wiem już kiedy siĘ piszE Ę na końcówkach wyrazów a kiedy nie:))

[DarkAndrew]

ew. bywaj na ircu tam pozatym razem pisane wiesz jak się kończy

od czasu wprowadzenia filtru mam zdecydowanie lepsze oceny z polskiego

[Blind]

Taaa.... Zenon rzadzi

[Toster]

nic nie da mam to hardcoded w biosie ;p