Autor Beitrag
Testus2K
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Sa 03.05.03 20:10 
Ich weiß ja nicht, ob ihr die Illuminati kennt, hab aber für interresierte ein Programmm geschrieben, mit dem man berechnen kann, wie oft fie Zahl 23 in einem Gewissen Zeitraum aus dem Datum zu errechnen ist.

ihr findet es unter: www.easy-coding.de --> Download --> Programmbeisp... -->Testus2K

[edit] www.easy-coding.de/m..._op=getit&lid=22 [/edit]

_________________
Wissen ist Macht
Du weißt nichts,macht nichts


Zuletzt bearbeitet von Testus2K am So 04.05.03 15:29, insgesamt 1-mal bearbeitet
mirage228
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 338

Win 7 Prof.
Delphi 2005 Prof., Delphi 2010 Prof.
BeitragVerfasst: Sa 03.05.03 20:25 
das programm ist lustig :D
von meinem geb-jahr bis heute gabs 615 Möglichkeiten. hehe ;-)

ein paar vorschläge habe ich dennoch:

- das mit dem direkten adden in die memo geht sehr langsam, daher verlangsamt sich auch der ganze vorgang (von 1000 bis 9999 z.B.) ich würde das ganze in eine stringliste speichern und beim ende des vorganges einfügen

- ein abbrechen button vllt?


sonst war alles supi :D

_________________
May the source be with you, stranger.
Testus2K Threadstarter
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Sa 03.05.03 20:30 
beim Abbrechen Button bin ich bei, aber es funzt noch nicht so ganz.
Was meinst du mit String Liste ?

_________________
Wissen ist Macht
Du weißt nichts,macht nichts
mirage228
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 338

Win 7 Prof.
Delphi 2005 Prof., Delphi 2010 Prof.
BeitragVerfasst: Sa 03.05.03 20:35 
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
var
  L: TStringList;
begin
  L := TStringList.Create;
  
  L.Add('Datum    = 23.12.1987');
  // .... einfach memo1.lines.add durch l.add ersetzen
  // und am ende
  Memo1.Lines.Assign(L);
  L.Clear;
end;


so meinte ich das


Moderiert von user profile icontommie-lie: Code-Tags hinzugefügt ;-)

_________________
May the source be with you, stranger.
Testus2K Threadstarter
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Sa 03.05.03 20:36 
THX erstmal
hast du auch ne idee, wie ich die for..to..do schleife abbrechen kann ?

_________________
Wissen ist Macht
Du weißt nichts,macht nichts
mirage228
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 338

Win 7 Prof.
Delphi 2005 Prof., Delphi 2010 Prof.
BeitragVerfasst: Sa 03.05.03 20:40 
schleife verlassen geht mit
Break;

_________________
May the source be with you, stranger.
Testus2K Threadstarter
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Sa 03.05.03 20:44 
Ich hab deine StringListe eingebaut und dachte mir *ach du *mist*e schnell*

Das mit dem Break funzt aber nicht, weil ich keine Button's benutzen kann, wärend dass programm läuft.

_________________
Wissen ist Macht
Du weißt nichts,macht nichts
mirage228
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 338

Win 7 Prof.
Delphi 2005 Prof., Delphi 2010 Prof.
BeitragVerfasst: Sa 03.05.03 20:47 
edit: hehe, ist dochn bissle schneller so mitner stringlist ;-)

doch kannst du!
einfach ein

Application.ProcessMessages;

ans ende der schleife!
dann kann man auch den button drücken!

aber beachte:
du darst break; nur IN der schleife aufrufen

du könntest eine variable beim button click setzen, die dann am anfang der schleife abgefragt wird:

if abgebrochen then Break;


nur darfst du nicht vergessen, die NACH der schleife wieder auf False zu setzen!

mfG
mirage228

_________________
May the source be with you, stranger.
Testus2K Threadstarter
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Sa 03.05.03 20:51 
GEIL !!!
Danke für deine Hilfe, werd das Programm Geich neu hochladen. :D

_________________
Wissen ist Macht
Du weißt nichts,macht nichts
mirage228
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 338

Win 7 Prof.
Delphi 2005 Prof., Delphi 2010 Prof.
BeitragVerfasst: Sa 03.05.03 20:53 
Gerngeschehen ;-)

Mal gucken, ob ich heute noch die Zeit hab das Programm zu saugen!
Wenn nicht heute abend, dann morgen früh ;-)

_________________
May the source be with you, stranger.
mirage228
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 338

Win 7 Prof.
Delphi 2005 Prof., Delphi 2010 Prof.
BeitragVerfasst: So 04.05.03 07:33 
habs mir jetzt gesaugt und muss sagen, dass der geschwindigkeitsvorteil schon sehr groß ist! von mehr als 10 sek. auf 2 sek. runter ist schon was.
Der Abbrechen-Button hat auch korrekt gefunzt.

;-) mfG mirage228

_________________
May the source be with you, stranger.
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 04.05.03 07:52 
Testus2K hat folgendes geschrieben:
Ich weiß ja nicht, ob ihr die Illuminati kennt,
[...]

Als Bruder dieser Organisation kann ich dir sagen, dass du dir eine Menge Gedanken über diese Zahl machst. Aber das gehört mit zu unserer Strategie, euch Unwissende auf die falsche Spur zu bringen. :twisted:

Zitat:
ihr findet es unter:
www.easy-coding.de --> Download --> Programmbeisp... -->Testus2K

Es wurden bereits andere Entwickler auf die Regeln aufmerksam gemacht:
Zitat:
  • Gib bitte einen direkten Downloadlink zu Deinem Programm an.

Ich für meinen Teil habe nicht viel Lust, erst andere Seiten nach deinem Programm durchsuchen zu müssen. Aber das ist nur meine persönliche Meinung.

Gruß.

< -- schnibbel ----------- >

btw: Schau mal nach links, auf die Kurzzusammenfassung zu meiner Person:
Zitat:
MathiasSimmack
Senior-Member
user defined image

Anmeldungsdatum:
13.07.2002
Beiträge: 1211

Rechnet man 12 + 11, kommt 23 raus. :roll:
Moritz M.
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1672



BeitragVerfasst: So 04.05.03 08:52 
Ansonsten ist das Programm sehr interessant.
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 04.05.03 09:00 
Diese blöde Quersumme finde ich gar nicht so interessant. Viel interessanter finde ich die Tatsache, dass wenn ich mein Geburtsdatum einegebe und das aktuell Jahr, dass ich schon 10.868 Tage auf diesen Klumpen Dreck im All zu gebracht habe. :roll:
Moritz M.
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1672



BeitragVerfasst: So 04.05.03 09:05 
*gg*
Ich weiß nicht, wie lange es bei mir schon war, Aber auch schon ne ganze Zeit

PS: Luckie, das war Posting Nummer 60000. Glückwunsch *Mit grinsen handschüttel*
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 04.05.03 16:19 
So, ich habe noch technische Kritik:

1. Hast du einen Duden, Testus2k? Dann nimm den mal und überarbeite die Texte in deinem Programm. Als Tipp: "gesamt" schreibt man nicht mit zwei M. Aber da gibt´s noch andere ... äh, sprachliche Ruinen.

2. Das Memo stößt an seine Grenzen (64k, glaube ich) wenn man einen zu langen Zeitraum wählt. Ob nun Luckies Geburtsjahr oder meines, angezeigt werden weniger Möglichkeiten. Im Fall von Luckie endet die Angabe im Juni ´87.

3. Die Quersummensache kapiere ich nicht. Beim 19.08.2003 komme ich ja noch mit (1+9+8+2+3 = 23), aber der 23. eines Monats wird in jedem Fall angezeigt. Die Quersumme ist dabei wohl uninterssant? Unter diesem Gesichtspunkt kannst du die Theorie mit den Illuminaten in die Tonne treten, denn jeder Tag hat ja auch noch eine 23. Stunde, Minute und Sekunde.
Andererseits - wenn ich überlege, dass exakt der Tag vor meiner Geburt die Quersumme 23 hat ... also, wenn das kein Zeichen ist. :wink:

Als Parodie auf diverse Verschwörungstheorien ist das Programm -na sagen wir mal: annehmbar. Leider kommt es Jahre zu spät. Akte X hat die Sache totgeritten. Mittlerweile sind geheimnissvolle Machenschaften abgegähnt. Vielleicht liegt das auch daran, dass schon das Jahr 2000 nicht hielt, was uns die Weltuntergangspropheten versprochen haben ... :roll:

Gruß.
Moritz M.
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1672



BeitragVerfasst: So 04.05.03 16:25 
Aaaaaaaaaaaaaaaaaaaah............ :shock:
Die QUERSUMME MEINES GEBURTSTAGES IST 23............VERFOLGUNGSWAHN......................... :eyecrazy:


Nein, Spaß. :lol:

Ach noch was:
Ein Jahr hat bei dir 362 Tage...

Noch was zu den Illuminaten. Nach deinem Programm sind die an ganzen 10%....es gibt in etwa so viele Monatsanfänge im Jahr.
Moritz M.
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1672



BeitragVerfasst: So 04.05.03 16:27 
Noch was:
Wenn ich als beginn 100 eingebe, labert das Programm irgendwas von "Der niedrigste Wert muss unter dem höchsten liegen", obwohl der höchste 9999 ist.
Und wenn ich 1000->9999 mache, arbeitet er ne Zeit.
Ne Gauge wäre schön....
Testus2K Threadstarter
Hält's aus hier
Beiträge: 15



BeitragVerfasst: So 04.05.03 16:48 
@MathiasSimmack

Sorry, wegen der Rechtschreibung,user defined image(man kanns auch übertreiben:"äh, sprachliche Ruinen.")


Das mit dem ende der Memo wusste ich nicht.

Wenn du die Quersumme eines Jahres nimmst, gibt es ja 365 möglichkeiten, dann wären die Illuminati ja an allem Schuld, was
in diesem Jahr passiert
user defined image, ich denke man kanns auch übertreiben.
Das mit den Stunden und minuten user defined image ich sach ja, "übertreiben".
Du solltest nicht über die Illuminati Theorie Nörgeln, wenn du sie gar nicht kennst.

MathiasSimmack hat folgendes geschrieben:
Als Parodie auf diverse Verschwörungstheorien ist das Programm -na sagen wir mal: annehmbar.

Danke, es sollte nur Informativ sein und die anzahl der Möglichkeiten aufzeigen.

Zu Spät ist es garantiert nicht, wenn du dich mal im Internet umschaust,
es gibt zig Tausend Seiten, die sich aktiv mit verschwörungstheorien beschäftigen.

Onz hat folgendes geschrieben:
Ein Jahr hat bei dir 362 Tage...

Ups, da ist wohl noch der Wurm drin :lol:

THX für eure anteilnahme user defined image

_________________
Wissen ist Macht
Du weißt nichts,macht nichts
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 04.05.03 18:47 
MathiasSimmack hat folgendes geschrieben:
2. Das Memo stößt an seine Grenzen (64k, glaube ich) wenn man einen zu langen Zeitraum wählt. Ob nun Luckies Geburtsjahr oder meines, angezeigt werden weniger Möglichkeiten. Im Fall von Luckie endet die Angabe im Juni ´87.

Aha, nur unter Win98 getestet? :mrgreen:
Zitat:

3. Die Quersummensache kapiere ich nicht. Beim 19.08.2003 komme ich ja noch mit (1+9+8+2+3 = 23), aber der 23. eines Monats wird in jedem Fall angezeigt. Die Quersumme ist dabei wohl uninterssant? Unter diesem Gesichtspunkt kannst du die Theorie mit den Illuminaten in die Tonne treten, denn jeder Tag hat ja auch noch eine 23. Stunde, Minute und Sekunde.
Andererseits - wenn ich überlege, dass exakt der Tag vor meiner Geburt die Quersumme 23 hat ... also, wenn das kein Zeichen ist. :wink:

Warum überhaupt die 23?
Zitat:

Als Parodie auf diverse Verschwörungstheorien ist das Programm -na sagen wir mal: annehmbar. Leider kommt es Jahre zu spät. Akte X hat die Sache totgeritten. Mittlerweile sind geheimnissvolle Machenschaften abgegähnt. Vielleicht liegt das auch daran, dass schon das Jahr 2000 nicht hielt, was uns die Weltuntergangspropheten versprochen haben ... :roll:

Genau. Öhm, könnte mir mal jemand verraten, was dieser schwarze Lieferwagen will, der seit heute Morgen bei mir vor der Tür steht? :shock: