| Autor |
Beitrag |
BenBE
  
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Mo 21.12.09 01:26
Oder man nehme Low-Tech, starte den Hex-Editor seiner Wahl, stelle 42h (66 Bytes) pro Zeile ein und drücke PageDown. Schon läuft der Hase von Links nach Rechts  _________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Christian S. 
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Mo 21.12.09 01:27
Cheater  _________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Mo 21.12.09 01:31
Wenn ihr die Backdoor offen lasst  Wär man doch schön blöd, da nicht durchzugehen
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Flamefire
Beiträge: 1207
Erhaltene Danke: 31
Win 10
Delphi 2009 Pro, C++ (Visual Studio)
|
Verfasst: Mo 21.12.09 19:36
Hm...100x100?
Die habe ich nicht gefunden...
Ich hätte ein 66*100 zu bieten
oder 3x 22*100:
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.Button2Click(Sender: TObject);
var x,y,cur:Integer;
begin
cur:=Button2.Tag;
if(cur=Length(a)) then begin
Timer1.Enabled:=false;
exit;
end;
for y := 0 to 100 - 1 do begin
for x := 0 to 22 - 1 do begin
if(a[cur]=0) then Image1.Canvas.Pixels[x,y]:=clBlack
else Image1.Canvas.Pixels[x,y]:=clWhite;
Inc(cur,1);
end;
for x := 0 to 22 - 1 do begin
if(a[cur]=0) then Image2.Canvas.Pixels[x,y]:=clBlack
else Image2.Canvas.Pixels[x,y]:=clWhite;
Inc(cur,1);
end;
for x := 0 to 22 - 1 do begin
if(a[cur]=0) then Image3.Canvas.Pixels[x,y]:=clBlack
else Image3.Canvas.Pixels[x,y]:=clWhite;
Inc(cur,1);
end;
end;
Button2.Tag:=cur;
end; |
Das sieht irgendwie schön einfach und übersichtlich aus. Und da läuft auch der Hase.
Ist mal wieder typisch: Ich hab die Lösung, aber versteh die Tipps und die Musterlösung nicht ^^
|
|
|
Christian S.