Beiträge von Erleon

Erleon · 14. Mai 2011

Fang einfach noch mal von vorne an. Ich und ein Kumpel haben es von lvl 1 auf 125 in ca. 2 wochen geschafft.

Von daher einfach selber einen spielen.

MfG Erleon

Erleon · 11. Mai 2011

Ist richtig vor 3 Monaten hat meine Klausurzeit nagefangen und ich hatte dafür keine Zeit. Jetzt neigen sich die Klausuren dem Ende zu und habe deswegen mehr Zeit.

Entschuldigt das ich das RL vor einen Spiel stelle

Erleon · 10. Mai 2011

Ich und wamborambo sind in der Planung für das 3. Tunier. Gedulded euch noch ein wenig.

MfG Erleon

Erleon · 8. Mai 2011

Rechtsklick auf Desktop -> Ansicht -> Häkchen bei " Symbole automatisch anordnen" raus machen und fertig.

MfG Erleon

Erleon · 4. Mai 2011

Willkommen im Team joeldde

Erleon · 4. Mai 2011

Update 43. Woche

MfG Erleon

Erleon · 3. Mai 2011

Ok, wenn ich mein Hefter der 10. Klasse finde kann ich es dir geben. Ich habe damals genau das gleiche Arbeitsblatt bekommen.

Normalerweisse bin ich ja gegen diese " Habe kein Bock das zu lesen macht das mal für mich " , aber als ich den Schimmelreiter damals lesen sollte habe ich auch sehr oft nach hilfe geschrien

MfG Erleon

//Edit: Hmm das war doch nicht 10. das war 9. Klasse als ich das lesen durfte
Den 9. Klasse Hefter habe ich glaube nicht mehr...

Erleon · 3. Mai 2011

Achja der gute alte "Pimmelreiter", wie ich dieses Buch gehasst habe...

Stell deine Fragen mal ich werde sehen ob ich diese beantworten kann.

MfG Erleon

Erleon · 29. April 2011

Ich werde diesen Thread jetzt an dieser Stelle closen , da du deine Kritik an das Spiel auch im League of Legends Froum posten kannst.
Hier denke ich mal das weitere Antworten den selben Inhalt haben werden wie die letzten Kommentare von den Usern.

MfG Erleon

-> Close

Erleon · 29. April 2011

Wie man in der Post angeschaut wird wenn man über all lippenstift im gesicht und pink-blau-grün-rote Haare hat

Letzter Schultag der 12. usw

Erleon · 28. April 2011

Schaut mal was ich gerade gefunden habe:

League of Legends besitzt nun mehr als 1 Million Fans auf Facebook.

Zitat

Beschwörer!

Diejenigen von euch, die League of Legends als Fan auf Facebook verfolgen, haben vielleicht schon bemerkt, dass wir einen beeindruckenden Meilenstein erreicht haben. Dieses Wochenende haben wir 1.000.000 Fans auf Facebook erreicht! Wir dachten, dass das eine recht große Sache ist, der wir entsprechend gedenken wollten!

Also haben wir uns dazu entschieden, zu diesem bedeutsamen Ereignis einen besonderen Desktophintergrund mit Riot-Tristana zu veröffentlichen. Schließt euch unserer schönen und pinken Yordle-Gefährtin an und feiert all die guten Freunde, die wir im maßgeblichen Social-Network gefunden haben!

Glückwunsch, Facebook-Fans! Ihr seid offiziell eine Million stark! Und wenn ihr der Party bei Facebook noch nicht beigetreten seid, dann solltet ihr hier klicken, ein Fan werden und eure Riot-Tristana beanspruchen!

Alles anzeigen

Quelle:

Spoiler anzeigen

Hier das Bild:

Spoiler anzeigen

MfG Erleon

Erleon · 28. April 2011

Update 42. Woche

MfG Erleon

Erleon · 26. April 2011

Entschuldige mcih das ich erst jetzt antworte.

Also Wie genau meinst du das mit den Connecten. Kommt du zur channel auswahl oder kommst du vorher schon nicht rein?

Es wurden keine IP`s gebannt!

MfG Erleon

Erleon · 21. April 2011

Alles Gute

mfG Erleon

Erleon · 19. April 2011

Packste mich mal auf die white list?

ign: Erleon

Erleon · 18. April 2011

Morgen. Kennt jemand von euch einen Private Server der den Patch 4.06 schon drauf hat und auch gut besucht ist?

Falls nicht kann mir jemand erklären wie ich von 4.06 auf 3.5.5 komme?

MfG Erleon

Erleon · 16. April 2011

Nabend Forum.

So wie es scheint lässt riot die Affen los und hetzt diese auf die Beschwörer. Also nehmt euch in Acht und lasst euch die Bananen nicht klauen.

Zitat

Gerade erst durftet ihr einen ersten Blick auf einen großartigen, aber etwas verstört wirkenden Yordle in der Gestalt der mechanisierten Bedrohung namens Rumble werfen. Aber das ist nicht die einzige Überraschung, die wir heute für euch im Ärmel haben! Hier ist ein kurzer Blick auf einen kommenden Champion, der noch etwas weiter entfernt am Horizont wartet. Und auch wenn es noch etwas dauern wird, bis ihr ihn auf den Richtfeldern erblicken werden könnt, so seid nicht überrascht, wenn ihr zukünftig wieder von ihm hört!

Gerne bringen wir euch diese Video-Vorschau zum Monkey King!

Alles anzeigen

http://eu.leagueoflegends.com/board/showthread.php?t=169793

Erleon · 16. April 2011

Ich könnte einen gebrauchen , da mein alter account der von einen Mate war und der wieder spielt. Somit habe ich keinen mehr .

MfG Erleon

Erleon · 16. April 2011

Jax würde ich einen Anfänger nicht empfehlen! Jax zu spielen ist auch schwer und ausserdem geht der meistens erst mit dodge runen ab ( gelbe ). Ist einer meiner Main Champs.

MfG Erleon

Erleon · 15. April 2011

Morgen Forum.

AIso ich habe 2 Probleme.

1. Ich habe gestern in der Schule an meinen Programm gearbeitet. dieses programm würfelt zuerst 10000 5 stellige Zufallszahlen und soll sie danach sotieren. Dabei kann man zwischen unterschiedlichen Sortier Verfahren wählen ( Bubblesort Selectionsort Shellsort usw. ). Jedoch muss ich irgendwo ein Fehler im Quelltext eingeschlichen haben , da mein Quicksort nicht ganz funktioniert. Ich finde diesen verdammten Fehler einfach nicht.

Quellcode: http://paste.www.stagetwo.eu/paste.php?key=07md53pm&title=Delphi Fehler

Spoiler anzeigen

Code

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Zufallszahlen1: TMenuItem;
Wrfeln1: TMenuItem;
Ende1: TMenuItem;
ListBox1: TListBox;
Sortieren1: TMenuItem;
Bubble1: TMenuItem;
ListBox2: TListBox;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Insertion1: TMenuItem;
Label3: TLabel;
Label4: TLabel;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Speichern1: TMenuItem;
Laden1: TMenuItem;
unsortiertLschen1: TMenuItem;
sortiertLschen1: TMenuItem;
Selection1: TMenuItem;
Label5: TLabel;
Label6: TLabel;
Shell1: TMenuItem;
Label7: TLabel;
Label8: TLabel;
Quick1: TMenuItem;
procedure quicksort(links , rechts: integer);
procedure Quick1Click(Sender: TObject);
procedure Shell1Click(Sender: TObject);
procedure Selection1Click(Sender: TObject);
procedure sortiertLschen1Click(Sender: TObject);
procedure unsortiertLschen1Click(Sender: TObject);
procedure Laden1Click(Sender: TObject);
procedure Speichern1Click(Sender: TObject);
procedure Insertion1Click(Sender: TObject);
procedure Bubble1Click(Sender: TObject);
procedure Wrfeln1Click(Sender: TObject);
procedure Ende1Click(Sender: TObject);
procedure zeigen;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
const
max = 1000;
var
Form1: TForm1;
reihe : Array[1..max] of integer;
lauf : integer;
tausch_bubble : integer;
start_bubble, ende_bubble : real;
tausch_ins : integer;
start_ins, ende_ins : real;
tausch_sel : integer;
start_sel, ende_sel : real;
tausch_shell : integer;
start_shell, ende_shell : real;
implementation
{$R *.dfm}
procedure TForm1.zeigen;
begin
for lauf := 1 to max do
begin
ListBox2.Items[lauf - 1] := IntToStr(reihe[lauf]);
end;
end;
procedure TForm1.Ende1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Wrfeln1Click(Sender: TObject);
begin
randomize;
for lauf := 1 to max do
begin
reihe[lauf] := random(90000) + 10000;
ListBox1.Items[lauf - 1] := IntToStr(reihe[lauf]);
end;
end;
procedure TForm1.Bubble1Click(Sender: TObject);
var
lauf1, lauf2 : integer;
hilfe : integer;
begin
tausch_bubble := 0;
start_bubble := time;
for lauf2 := 1 to max do
for lauf1 := 2 to max do
begin
if reihe[lauf1 - 1] > reihe[lauf1] then
begin
{Tausch}
inc(tausch_bubble);
hilfe := reihe[lauf1 - 1];
reihe[lauf1 - 1] := reihe[lauf1];
reihe[lauf1] := hilfe;
end;
end;
ende_bubble := time;
zeigen;
Label1.Caption := 'Tauschvorgänge : ' + IntToStr(tausch_bubble);
Label2.Caption := 'Sortierzeit : ' + FloatToStrF((ende_bubble-start_bubble)*24*3600,fffixed,10,3)+' s';
end;
procedure TForm1.Insertion1Click(Sender: TObject);
var
lauf1, lauf2 : integer;
hilfe : integer;
begin
tausch_ins := 0;
start_ins := time;
for lauf1 := 2 to max do
begin
hilfe := reihe[lauf1];
lauf2 := lauf1;
while (lauf2 > 1) and (reihe[lauf2 - 1] > hilfe) do
begin
reihe[lauf2] := reihe[lauf2 - 1];
dec(lauf2);
end;
reihe[lauf2] := hilfe;
inc(tausch_ins);
end;
ende_ins := time;
zeigen;
Label3.Caption := 'Tauschvorgänge : ' + IntToStr(tausch_ins);
Label4.Caption := 'Sortierzeit : ' + FloatToStrF((ende_ins-start_ins)*24*3600,fffixed,10,3)+' s';
end;
procedure TForm1.Speichern1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Listbox1.Items.SaveToFile(SaveDialog1.Filename);
end;
procedure TForm1.Laden1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Listbox1.Items.LoadFromFile(OpenDialog1.Filename);
for lauf := 1 to max do
reihe[lauf] := StrToInt(Listbox1.Items[lauf - 1]);
end;
procedure TForm1.unsortiertLschen1Click(Sender: TObject);
begin
ListBox1.Clear;
end;
procedure TForm1.sortiertLschen1Click(Sender: TObject);
begin
ListBox2.Clear;
end;
procedure TForm1.Selection1Click(Sender: TObject);
var
lauf1, lauf2, imax, smax : integer;
begin
tausch_sel := 0;
start_sel := time;
for lauf1 := max downto 2 do
begin
imax := lauf1;
smax := reihe[lauf1];
for lauf2 := 1 to lauf1 - 1 do
if reihe[lauf2] > smax then
begin
imax := lauf2;
smax := reihe[lauf2];
end;
reihe[imax] := reihe[lauf1];
reihe[lauf1] := smax;
inc(tausch_sel);
end;
ende_sel := time;
zeigen;
Label5.Caption := 'Tauschvorgänge : ' + IntToStr(tausch_sel);
Label6.Caption := 'Sortierzeit : ' + FloatToStrF((ende_sel-start_sel)*24*3600,fffixed,10,3)+' s';
end;
procedure TForm1.Shell1Click(Sender: TObject);
var
abstand, lauf1, lauf2, merke : integer;
fertig : boolean;
begin
tausch_shell := 0;
start_shell := time;
abstand := max;
while (abstand > 1) do
begin
abstand := abstand div 2;
repeat
fertig := true;
for lauf2 := 1 to max - abstand do
begin
lauf1 := lauf2 + abstand;
if (reihe[lauf2] > reihe[lauf1]) then
begin
merke := reihe[lauf2];
reihe[lauf2] := reihe[lauf1];
reihe[lauf1] := merke;
fertig := false;
inc(tausch_shell);
end;
end;
until fertig;
end;
ende_shell := time;
zeigen;
Label7.Caption := 'Tauschvorgänge : ' + IntToStr(tausch_shell);
Label8.Caption := 'Sortierzeit : ' + FloatToStrF((ende_shell-start_shell)*24*3600,fffixed,10,3)+' s';
end;
procedure TForm1.quicksort(links, rechts:integer);
var
lauf1,lauf2,mitte, merke: integer;
begin
lauf1:= links;
lauf2:= rechts; {übergebene Variable werden eingelesen}
mitte:= reihe[(links + rechts) div 2];
repeat
while reihe[lauf1] < mitte do inc(lauf1);
while Mitte < reihe[lauf2] do dec(lauf2);
if lauf1 <= lauf2 then
begin
merke:= reihe[lauf1];
reihe[lauf1] := reihe[lauf2];
reihe[lauf2] := merke;
inc(lauf1);
dec(lauf2);
end;
until lauf1 > lauf2;
if links < lauf2 then quicksort(links,lauf2);
if lauf1 < rechts then quicksort(lauf1, rechts);
end;
procedure TForm1.Quick1Click(Sender: TObject);
begin
{ein iteratives Programm}
quicksort(1,a);
zeigen;
end;
end.

Alles anzeigen

2. Brauche ich ein kostenloses Programm mit dem ich Delphi porgrammieren kann. Meine testversion von Embederaco ( oder wie auch immer ) ist leider vorgestern ausgelaufen .

MfG Erleon

//EDIT:

Kann geclosed werden. hab unten bei Quicksort anstatt der Constante max a geschrieben... und ich hab herausgefunden das man seine trial von delphi rad xe studio verlängern kann

MfG Erleon

Beiträge von Erleon

Verschenkt Wer Seinen Cabal Online ACC?

StageTwo LoL Turnier

StageTwo LoL Turnier

[Vista]Dateien selbst ordnen

Neuer Mobile-Mod

Kostenlose Champions für die 52. Woche der 1. Saison

Der Schimmelreiteer

Der Schimmelreiteer

Eure Meinung zu den Updates

Stammtisch: Wir schaffen 8888 Seiten! (1000, 1337, 2222, 3333, 4444, 5555, 6666 & 7777 geschafft)

League of Legends ist Legen... , wait , wait , ...dary

Kostenlose Champions für die 52. Woche der 1. Saison

Kann nicht Connecten

Alles Gute Altes Haus

[StageTwo]Minecraft Server, We are Back!

WoW 4.06 Private Server

The Monkey King is Coming!!

Verschenke Minecraft Keys

Was mach ich falsch?

Fehler im Quelltext + Programm