Entwickler-Ecke

Freeware Projekte - Illuminati Tester


Testus2K - Sa 03.05.03 20:10
Titel: Illuminati Tester
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: http://www.easy-coding.de --> Download --> Programmbeisp... -->Testus2K

[edit] http://www.easy-coding.de/modules.php?name=Downloads&d_op=getit&lid=22 [/edit]


mirage228 - 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


Testus2K - 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 ?


mirage228 - Sa 03.05.03 20:35


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 ;-)


Testus2K - Sa 03.05.03 20:36

THX erstmal
hast du auch ne idee, wie ich die for..to..do schleife abbrechen kann ?


mirage228 - Sa 03.05.03 20:40

schleife verlassen geht mit
Break;


Testus2K - 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.


mirage228 - 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


Testus2K - Sa 03.05.03 20:51

GEIL !!!
Danke für deine Hilfe, werd das Programm Geich neu hochladen. :D


mirage228 - 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 ;-)


mirage228 - 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


Delete - So 04.05.03 07:52
Titel: Re: Illuminati Tester
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:
http://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. - So 04.05.03 08:52

Ansonsten ist das Programm sehr interessant.


Delete - 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. - 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*


Delete - 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. - 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. - 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 - 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


Delete - 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:


Moritz M. - So 04.05.03 18:49

Luckie hat folgendes geschrieben:
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:


*gg* Ich weiß auch nicht, ich fühl mich irgendwie auch beobachtet. Ich glaub die hams auf die Delphi-Fangemeinde abgesehen... :?


Delete - So 04.05.03 20:32

Luckie hat folgendes geschrieben:
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:

Denkst du allen Ernstes, ich lasse Programme aus Delphi-Foren einfach so an mein sauberes, stabiles und abgesichertes XP? Zuerst wird es unter 98 getestet, und wenn es mir wert scheint, dann darf es sich unter XP beweisen. :)

Testus2k hat folgendes geschrieben:
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 ... ich denke man kanns auch übertreiben.

Und genau darum halte ich nichts von solchen Theorien. Wenn du das willst, kannst du in allem eine Verschwörung sehen.

Zitat:
Du solltest nicht über die Illuminati Theorie Nörgeln, wenn du sie gar nicht kennst.

Ich nörgele nicht. Ich amüsiere mich! Wenn solche Themen nicht bis zum Erbrechen abgehandelt werden würden, könnte man die Sache mit einer gewissen Faszination betrachten.

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

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

Hoffentlich werden bei deinem Programm auch die Schaltjahre berücksichtigt.


Testus2K - So 04.05.03 20:53

MathiasSimmack hat folgendes geschrieben:
Hoffentlich werden bei deinem Programm auch die Schaltjahre berücksichtigt.

Danke, du scheinst mich ja echt für sehr doof zu halten,
natürlich habemacht es dass.

MathiasSimmack hat folgendes geschrieben:
Und genau darum halte ich nichts von solchen Theorien. Wenn du das willst, kannst du in allem eine Verschwörung sehen.

Da hast du recht, dass interresant daran ist nur, dass es die wirklich
mal gegeben hat, bis sie verboten wurden.


Delete - So 04.05.03 20:56

Haha ihr seid köstlich, hier geht um das Proggie nicht um Diskussion über Verschwörungen. :lol: :lol: :shock: :?
Haben die Herren wieder das Thema verloren :) :wink: ?

Also ich finde das Programm gut (rein programmiertechnisch gesehen).
Natürlich eignet sich das Programm gut, um Verschwörungstheorien zu parodieren...561 Möglichkeiten (oder so) von meinem Geburtstag an bis zu diesem Jahr sind doch etwas viel ?


mirage228 - Mo 05.05.03 05:42

ich hab 615 :D

vonner verschwörung hab ich aber noch nix gemerkt...
vllt kommts ja noch ;-)


Delete - Mo 05.05.03 12:57

Unsere Zahlen hängen zusammen...vorsicht.... :lol:

Seit ich dieses Programm hab wunder ich mich auch, warum mir ständig Lieferwagen hinterherfahren.


Testus2K - Mo 05.05.03 13:27

Das war auch meine absicht !
Jetzt habt ihr einen Illuminati Trojaner drauf Ha Ha Ha.

just joke,ist kein Trojaner


Delete - Mo 05.05.03 21:07

Jaja, zu spät...Abschussliste wurde schon erweitert...vertraue niemandem 8)


Delete - Di 06.05.03 12:44

Testus2k hat folgendes geschrieben:
MathiasSimmack hat folgendes geschrieben:
Hoffentlich werden bei deinem Programm auch die Schaltjahre berücksichtigt.

Danke, du scheinst mich ja echt für sehr doof zu halten,

Eigentlich nicht. Es war nur eine Frage bzw. ein Hinweis, denn manchmal vergisst man solche Dinge unabsichtlich. Ich wollte dir mitnichten Dummheit unterstellen.

Zitat:
natürlich habemacht es dass.

Das kann schon sein, Aber nach welchem Prinzip gehst du vor? - Richtig ist, und das zeigt das Programm auch an, dass der 29. Februar 2008 die Quersumme 23 hat (2+9+0+2+2+0+0+8 = 23). Nun kann man sich die Sache auch einfach machen: Weil die Quersumme des 29.02. immer 13 ist (2+9+0+2), muss man also nur noch nach Jahren suchen, die die Quersumme 10 ergeben und Schaltjahre sind. Richtig?

Beispielsweise zeigt dein Programm den 29.02.1900 an. Laut Schaltjahresregel im gregorianischen Kalender war 1900 aber kein Schaltjahr. Diese Regel findet sich auch in der Funktion "IsLeapYear" von Borland:
SysUtils.pas (Delphi 5) hat folgendes geschrieben:

Quelltext
1:
2:
3:
4:
5:
6:
7:
function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and // 1900 mod 4   = 0   = TRUE
    ((Year mod 100 <> 0) or      // 1900 mod 100 = 0   = FALSE
     (Year mod 400 = 0)          // 1900 mod 400 = 300 = FALSE
    );
end;

Alle 4 Jahre ein Schaltjahr, alle vollen 100 Jahre nicht, volle 400 Jahre jedoch wieder.

Oder nehmen wir das Jahr des Herrn, 1522. :) Das hat auch die Quersumme 10, und mit dem 29. Februar ergibt sich wieder die ominöse 23. Diesen Tag zeigt dein Programm sogar an! Nur war 1522 überhaupt kein Schaltjahr. :roll:

Anders herum geht es auch. Glücklicherweise gibt es ja nicht allzu viele Schaltjahre, die die Quersumme 10 haben: 1036, 1072, 1108, 1144, 1180, 1216, 1252, 1324, 1360, 1432, 1504, 1540, 1612 und 1720. (Um nur die zu nennen, die bereits Geschichte sind.)
Ein paar davon werden im Zusammenhang mit dem 29. Februar in deinem Programm angezeigt. Andere allerdings nicht; 1432, um nur ein Beispiel zu nennen.

Jedenfalls nicht in der Version deines Programms, die ich habe.

Gruß.


Testus2K - Di 06.05.03 13:37

:evil: *mist*E hab mod 100 vergessen :evil:
SHIT dreksmisst.
MathiasSimmack hat folgendes geschrieben:
manchmal vergisst man solche Dinge unabsichtlich


Wie ich bewiesen hab :(

werds nachher korrigieren, danke für den hinweiß!


JayEff - Mi 02.06.04 23:10

*bibber* ich lad das Prog nicht! *sichumguck* ich bin doch nicht dumm! *nachrechtslins*
ich weiss warum mein Kamm weg is und paar Tage später ZUFÄLLIG *zitter* hinter meiner Komode auftauchte! *kreisch* Da habt ihr ne Wanze rein gemacht!!!! *nachlinkslins* und die Lastwägen die vor meiner Haustür rumfahren! von wegen, in meiner Strasse wird ein Swimmingpool gebaut! *zusammenfahr* 4.8.87!! Quersumme 27!! Jetzt zieht mal 5 ab! warum grad 5?! als ich dashier getippt hab hab ich auf die Uhr gesehen!! und? 12:01:55 Sekunden!!! 55 sekunden!!!! *waaah!* aber ihr.. ihr kriegt mich nicht!!! :twisted: ich hab hier einen Schraubenzieher!!! DAS WISST IHR DOCH! IST JA NE WANZE DRIN!!! *keuch* aber ads... das ist absicht! ICH BRING MICH JETZT UM ! hyaaaaahahahahahaaha!!
3.6.2004 Quersumme?? 25!! WIEDER DIE 5! DAS IST MEIN TODES TAG!!! aber ich komm euch zuvor!! die Wörter "Illuminati Tester" haben mit leertaste 17 Zeichen!! "Delphi" hat 6 Zeichen ADDIERT ES!!! HYAHAHAAAA
Zitat:
sch**** hab mod 100 vergessen:evil:
ADDIERT ALLE BUCHSTABEN UND STERNCHEN!(wertet dabei das :evil : als ein buchstabe. apropos "evil! das wort spricht für sich und kommt 2 mal vor!!! Ausserdem: Mein PC ist heut 23 mal abgestürtzt! gut ich hab nicht gezählt... aber Trotzdem!! haahaaa aufwieder sehen welt!!*nimmtschraubenzieher,bohrtsichinsherz,klicktlinkemaustaste,stirbt*

*hihiichlebnoch!!* *fg*
PS: Addiert mal die Quersumme des Tags und Monats meines Beitritts und meine die meiner 40 Beiträge... ^^
PPS: 4.8.87 ist mein geburtstag...


patrick - Do 03.06.04 11:29

:rofl:
man kann sagen was man will aber:
reaktionen führt er offenbar herbei.und das nicht nur auf dem pc


Delete - Do 03.06.04 11:42

Na ja, nach einem Jahr
Zitat:
Testus2K
Verfasst am: Di 06.05.03

wird´s wohl wieder mal Zeit für absurde Verschwörungstheorien. Übrigens: Schon mal "evil" rückwärts gelesen? Dann wisst ihr was wirklich böse ist. :mrgreen:


JayEff - Do 03.06.04 13:09

määänsch das kennt man doch ^^
(woher hast du das? aus AS?)
liest man evil rückwärts, erhält man "live". und das nicht ohne Grund: die Dämonen, die auch als "evil" bezeichnet werden, waren früher des Menschen Freund, darum gaben ihnen die Menschen ein Anagramm als Namen! (Zitat aus AS)


matze - Do 03.06.04 16:29

der download link funzt nicht, oder bin ich doof ??