Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Expedia.de-Scherzprogramm (https://www.delphipraxis.net/94573-expedia-de-scherzprogramm.html)

TimerTim 23. Jun 2007 15:07


Expedia.de-Scherzprogramm
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo!

Ich habe einmal ein kleines Scherzprogramm programmiert: Expedia.de (Einen kleinen Teil des Programmes hab ich mir aus dem Internet abgeguckt).
Der Computer fragt einen durch Application.MessageBoxes ob man billige Reisen bei Expedia.de buchen will.
Wenn nicht, erlebt man sein blaues Wunder... :-D

Neutral General 23. Jun 2007 15:14

Re: Expedia.de-Scherzprogramm
 
Hi,

Jo is ganz ok... Aber ich glaube es gibt hier Leute die sich über das blaue Wunder aufregen würden. Naja gut find ichs auch nicht... bis man das blau aus den Ritzen der Taskleiste raus hat..... -.-^^

Gruß
Neutral General

dajuhsa 23. Jun 2007 19:17

Re: Expedia.de-Scherzprogramm
 
bevor ich mich jetzt aufrege: Ist das so eine Art Bambusratte-Scherzprog, das man einfach beenden kann, oder dauert es länger bis wieder alles normal ist?

Neutral General 23. Jun 2007 20:38

Re: Expedia.de-Scherzprogramm
 
Man kanns einfach wegdrücken aber danach ist alles etwas sehr blau und du musst wieder alles normal malen

Neutral General 23. Jun 2007 20:42

Re: Expedia.de-Scherzprogramm
 
also man erlebt etwa sowas:

Delphi-Quellcode:
var
C: TCanvas;
begin
C:= TCanvas.Create;
C.Handle := GetDC(0);
C.Brush.Color := clblue;
C.Pen.Color := clblue;
C.Rectangle(0,0,10000,10000);
C.Free;
end;

CCRDude 23. Jun 2007 20:47

Re: Expedia.de-Scherzprogramm
 
Aktenzeichen 39948522.8 ("Expedia.de") beim Deutschen Patent- und Markenamt, Leitklasse 39, als erstes "Computersoftware" genannt. Ich würd aufpassen, daß das nicht zufällig jemand mitbekommt und als Rufschädigung ansieht, Amis klagen doch so gerne und teuer :D

dajuhsa 23. Jun 2007 22:41

Re: Expedia.de-Scherzprogramm
 
also, wenn man die geduld und die nerven hat, sich bis zum ende durchzuklicken kommt einfach das blaue fenster als vollbild und wenn man den tahsg-mänedscher aufruft kann man es schließen und das wars dann. Was ist daran nervig?

3_of_8 23. Jun 2007 22:43

Re: Expedia.de-Scherzprogramm
 
Naja, ohne dir jetzt zu nahe treten zu wollen, das ist weder sehr witzig noch programmiertechnisch anspruchsvoll. Ich würd mir lieber was suchen, wobei ich was lerne.

Mazel 24. Jun 2007 00:43

Re: Expedia.de-Scherzprogramm
 
Hallo,

ich würde gerne auch ein paar Worte an dich richten: es ist ein Anfang, sich mit der Programmierung under Delphi zu beschäftigen, wenn auch nicht der richtige Pfad. Versuch dich mal mit der nützlichen Programmierung auseinander zu setzen. Also Tools die jeder gebrauchen kann zu programmieren, die es aber nicht so oft gibt. Glaub mir, du hast da mehr freude daran, einfach deshalb, sich etwas auszudenken, was noch keiner gemacht hat. Das Programm ist schon kein schlechter Anfang, nur eben nicht im richtigen Bereich. Eine oft genuzte Chance bzw. ein oft genutztes Gebiet ist die Arbeit in Multimedia. Und du in mit gerade 10 Jahren, hast da noch ein großes Potenzial, aus dem man was schöpfen kann.

Wenn du ein paar Fragen hast, frag einfach, die DP gibt dir gerne Ratschläge. :)

Gruß
Mazel

Blink 24. Jun 2007 01:39

Re: Expedia.de-Scherzprogramm
 
Hi

Ich hab mal eine Frage zu den Dialogen wie kann man die mit dem Symbol und dem Ton aufrufen? (ich mach das immer mit Showmessage, aber das ist so öde)

_frank_ 24. Jun 2007 05:00

Re: Expedia.de-Scherzprogramm
 
mit Hier im Forum suchenMessageBox (WinAPI) und Hier im Forum suchenMessageDlg (VCL) kannst du die boxen mit icon anzeigen.
für den Ton einfach Hier im Forum suchenMessageBeep davor ;)

HTH Frank

Sunlight7 24. Jun 2007 06:10

Re: Expedia.de-Scherzprogramm
 
Wenn Du als Parameter einen Wert für ein Icon, zb. MB_ICONQUESTION verwendest dann kommt der Ton von selber auch ohne MessageBeep.
Die Parameter einfach mit or verknüpfen.

ManuMF 24. Jun 2007 09:44

Re: Expedia.de-Scherzprogramm
 
Aber nur bei der MessageBox, nicht dem MessageDlg.

alcaeus 24. Jun 2007 10:24

Re: Expedia.de-Scherzprogramm
 
Und dann auch nur wenn der Benutzer das so eingestellt hat, was IMO auch der korrekte Weg ist.

Greetz
alcaeus

Blink 24. Jun 2007 10:27

Re: Expedia.de-Scherzprogramm
 
Zitat:

Zitat von _frank_
mit Hier im Forum suchenMessageBox (WinAPI) und Hier im Forum suchenMessageDlg (VCL) kannst du die boxen mit icon anzeigen.
für den Ton einfach Hier im Forum suchenMessageBeep davor ;)

HTH Frank

Danke :)

jmit 24. Jun 2007 11:12

Re: Expedia.de-Scherzprogramm
 
Hallo,

Zitat:

Zitat von dajuhsa
also, wenn man die geduld und die nerven hat, sich bis zum ende durchzuklicken kommt einfach das blaue fenster als vollbild und wenn man den tahsg-mänedscher aufruft kann man es schließen und das wars dann. Was ist daran nervig?

Nervig ist, dass dieses Programm wirklich keinen Sinn macht. Einfach nur wilde Mausklickerei ist nicht nur nervig, sondern auch langweilig.

Gruß Jörg


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz