Millionenshow

[Wolfning]

hi leute!
ich wollte einmal "Millionenshow" in delphi programieren. bin aber kläglich gescheitert!
Kann jemand mir das fertige Programm geben? Ist dringend! Will mein vor meinen Mitschülern nicht verlieren.....
Danke an alle!!

[Meflin]

Hi,
1. Herzlich willkommen in der dp :dp:
2. Was ist die Millionenshow
3. Wird dir hier keiner einfach mal so ein fertiges programm schreiben...

[flomei]

Lies das durch und du wirst um einiges klüger sein: http://www.delphipraxis.net/dpX_faq_index.php

Vor allem das hier: http://www.delphipraxis.net/dpX_faq_...hp?faq=S_7#S_7

MfG Florian :hi:

[Matze]

Herzlich Willkommen in der DP! :party:

Erläutere, was du genau willst, welchen Code du bereits hast und was nicht Funktioniert (Fehlermeldungen etc).

Zitat:

Zitat von Wolfning

Will mein vor meinen Mitschülern nicht verlieren.....

Hast du etwa gewettet, dass du das programmiert *spekulier* ^^

[alcaeus]

Zitat:

Zitat von Meflin

2. Was ist die Millionenshow

In Deutschland auch als "Wer wird Millionär?" bekannt

Greetz
alcaeus

[Neuni]

Man sollte nich so einfach wetten :roll:

Achso und: Ich hätte gerne Need4Speed Underground so mit motorrädern mit source-code :mrgreen:

[Apollo13]

hier haste das proggi:

Code:

procedure WetteVerloren(Sender: Verlierer);
begin
  EinenAusgeben := true;
end;

:roll:

[Wolfning]

@alcaeus: ja :-D

@Matze:
Eigentlich habe ich fast gar keinen Code!!! Das blöde ist, dass ich gewettet habe Delphi binnen ein paar wochen zu lernen und das Programm zu schreiben. Leider ab ich mich verschätzt und bin am Boden. Das Programm was ich machen hätte sollen muss nicht weiß Gott wie kompliziert sein. Ich soll jedenfalls eine TXT datei als Fragedatei in das Programm integrieren. Darüber hinaus solltes es (wie denn sonst) 4 Antworten in Form von Radiobuttons vorhanden sein.

mfg

[Matze]

Sorry, aber dann hast du pech gehabt und die Wette verloren. Dir wird hier keiner ein fertiges Programm liefern.

Lies die hier mal ein Einsteigertutorial durch oder kauf die ein Delphi-Buch.

[Kevin]

@Wolfning

Du wirst sicher verstehen, daß niemand ein fertiges Programm mal eben verschenkt. Die DP hätte Dir beim "Delphi binnen ein paar wochen zu lernen" aber sicherlich helfen können. Und das kann sie auch immernoch. Das Programm ist nicht sonderlich schwer umzusetzen. Mit ein bisschen Eigeninitiative und Hilfe von anderen sollte es kein Problem sein.

Und nochetwas: Wetten sollte man nur, wenn man sich auch sicher ist... :zwinker:

[Neutral General]

Zitat:

Zitat von Wolfning

@Matze:
Eigentlich habe ich fast gar keinen Code!!!

Es wäre hilfreich wenn du uns das bisschen Code zeigen würdest, damit wir dir helfen können oder sehen das du praktisch keine Ahnung hast und erstmal ein paar Tutorials wie diese durcharbeiten solltest :wink:

http://www.delphi-treff.de/content/t...insteigerkurs/

[Kevin]

Aber er hat doch keinen Code. Wenn er schreibt, er habe fast garkeinen, dann hat er wahrscheinlich gerade mal das Standard-Delphi-Gerüst. So wie es imho scheint, möchte er ohne große Eigentinitiative seine Wette gewinnen. Das alleine finde ich schon nicht gut. Abgesehen davon, daß hier niemand Source verschenkt...

[Wolfning]

hier habt ihr meinen Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    ffnen1: TMenuItem;
    Beenden1: TMenuItem;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    
    procedure Beenden1Click(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var qn,i : integer;

procedure TForm1.Button1Click(Sender: TObject);
var eingabe, richtig:string;
begin

richtig:=memo1.Lines[qn+5];


If form1.radiobutton1.checked = true then eingabe := '1';
If form1.radiobutton2.checked = true then eingabe := '2';
If form1.radiobutton3.checked = true then eingabe := '3';
If form1.radiobutton4.checked = true then eingabe := '4';

If richtig = eingabe then
 begin
 i:=i+1;
 qn:= qn+6;
 form1.radiobutton1.checked:= false;
 form1.radiobutton2.checked:= false;
 form1.radiobutton3.checked:= false;
 form1.radiobutton4.checked:= false;
 form1.label1.caption:=memo1.Lines[qn];

 form1.radiobutton1.caption:= memo1.Lines[qn+1];
 form1.radiobutton2.caption:= memo1.Lines[qn+2];
 form1.radiobutton3.caption:= memo1.Lines[qn+3];
 form1.radiobutton4.caption:= memo1.Lines[qn+4];
 richtig:=memo1.Lines[qn+6];
 IF form1.memo1.Lines[qn] = '' then form1.Label1.Caption:= 'ENDE';
 end
 else
 begin
 form1.label1.caption:= 'falsch!!!!!';
 form1.label2.caption:= 'Richtige Antworten: '+ inttostr(i);
 form1.RadioButton1.Visible:=false;
 form1.RadioButton2.Visible:=false;
 form1.RadioButton3.Visible:=false;
 form1.RadioButton4.Visible:=false;
 form1.Button1.Visible:=false;
 end;

end;


procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
Form1.Button1.visible:= true;
qn:= 0;

form1.label2.caption:='';
form1.RadioButton1.Visible:=true;
form1.RadioButton2.Visible:=true;
form1.RadioButton3.Visible:=true;
form1.RadioButton4.Visible:=true;
form1.Label1.Visible:=true;
form1.Button1.Visible:=true;

form1.Memo1.lines.LoadFromFile('questions.txt');
form1.label1.caption:= memo1.Lines[qn+0];
form1.radiobutton1.caption:= memo1.Lines[qn+1];
form1.radiobutton2.caption:= memo1.Lines[qn+2];
form1.radiobutton3.caption:= memo1.Lines[qn+3];
form1.radiobutton4.caption:= memo1.Lines[qn+4];


end;



end.

[flomei]

Bitte die [delphi]-Tags benutzen um den Code formatieren zu lassen.

Danke!

MfG Florian :hi:

[Wolfning]

hä???? :wiejetzt: :shock:

[fkerber]

Hi!

Er meinte damit, dass du vor deinen Delphi-Code [.delphi] und danach [./delphi] (jeweils ohne den .) schreiben sollst, damit der Code so formatiert wird, wie er jetzt oben ist.


Ciao Frederic

[Wolfning]

so in etwa?
hab den post editiert...

[fkerber]

Hi!

Ja.


Ciao Frederic

[Neutral General]

Also ich kann mir vom Code her nicht wirklich vorstellen wie dein Programm aussieht/funktioniert
(funktionieren soll) ...
Wäre nett wenn du mal zumindest zeigen würdest wie die Questions.txt aufgebaut ist.

[Wolfning]

hi!
das sieht man eh aus dem code!

erste zeile ist die frage, dann 4 antworten (je 1 zeile), dann eine zeile,
wo die richtige antw steht.
in dem fall:

[Neutral General]

Ich glaube ich habs verstanden, aber was genau funktioniert denn nicht ?

[moritz]

Es gibt hier BB-Codes ( Die Buttons über dem Beitrag ). Da gibt es zum einen [ CODE ] und zum anderen [ Delphi-Code ]. Und Delphi-Code highlightet halt Delphi-Sachen schön.

Kurz im Archiv gekramt und siehe da: Ich hab sowas auch mal gemacht. Ich hab den Code kurz kommentiert und das Quiz angepasst.
Habs in den Anhang getan. Meine Bitte an dich: Sieh es als Beispiel an. Der Quellcode ist kurz, aber hat es für einen Anfänger in sich. Das Programm ist unter der LGPL-Lizenz veröffentlicht, du darfst den Quellcode also verwenden, solange du dazuschreibst von wem es kommt. Du musst also ( alleinschon aus Fairness ) dein eigenes Quiz schreiben, das Programm hier hilft dir vielleicht. Bitte denke daran.

Ansonsten kannst du ein kleines Quiz in Ströng schreiben, damit sollte das recht schnell gehen und der der Compiler frei ist kann man das Quiz jederzeit ändern. Siehe dazu den Beitrag hier im Forum ( Freeware-Sparte ) oder http://www.gaehnen.net/stroeng.exe .

Ansonsten kannst du ja bei Fragen jederzeit hier ins Forum kommen.

Und zum Schluss noch zwei Links:
http://noebis.pi-noe.ac.at/noebis.ph...lphi/index.htm
http://www.plauener.de/lessing/delphi/

Und: Sei das nächste mal vorsichtiger mit Wetten ;)

Gruß, Moritz

[ibp]

Zitat:

Zitat von Wolfning

...
Eigentlich habe ich fast gar keinen Code!!! Das blöde ist, dass ich gewettet habe Delphi binnen ein paar wochen zu lernen und das Programm zu schreiben. Leider ab ich mich verschätzt und bin am Boden. Das Programm was ich machen hätte sollen muss nicht weiß Gott wie kompliziert sein. Ich soll jedenfalls eine TXT datei als Fragedatei in das Programm integrieren. Darüber hinaus solltes es (wie denn sonst) 4 Antworten in Form von Radiobuttons vorhanden sein...

was ist es dir denn wert nicht als looser betitelt zu werden?

[Matze]

OT:

Zitat:

Zitat von moritz

Kurz im Archiv gekramt und siehe da: Ich hab sowas auch mal gemacht. Ich hab den Code kurz kommentiert und das Quiz angepasst.

Archiv ist gut, solange sind die Wahlen auch nicht her. :mrgreen:

Und außerdem:

Zitat:

Geändert am: Heute, 8. November 2004, 16:26:08

Gibt's doch zu, dass du's für ihn programmiert hast, ist ja nichts schlimmes dabei. ;)

[moritz]

Okay, das ich hab im heutigen Archiv gekramt ;) Aber psssst ;)
Es sollte ne kurze Hilfestellung sein und das mich interessiert hat hab ich mich kurz hingesetzt

[Wolfning]

@moritz
danke, werds mir mal anschaun; vielleicht ist ja etwas Nützliches dabei!

aber ich bräuchte gewinnstufen! so wie: 1. frage richtig--> 100 €
usw.
wie könnte man das machen?

[Matze]

Zählt halt eine integervariable (Flag) hoch.

und dann

Delphi-Quellcode:

case Flag of
  1: Summe := '100€';
  2: Summe := '200€';
  ...
  end;

[ibp]

hast du irgendwelche programmiererfahrungen?

[moritz]

Kein Problem.

Es hört sich so an als ob du so gut wie keine Erfahrung hättest. Tipp:
Programmier soetwas erstmal mit ströng ( http://www.gaehnen.net/stroeng.exe Hier im Forum gibts dazu auch einen Post ), damit du verstehst wie dus machen musst. Dann programmierst mit Delphi.

Gruß

[Thorben77]

komplett Offtopic:
Immer schön Werbung für stroeng machen, ne^^ :wink:

juhu, meinerster Post :bounce1: :bounce1: :bounce1:

achja :dp: :dp:


mfg

[moritz]

Ja klar :mrgreen:

[Wolfning]

:wall:
könnte mir jetzt bitte wer helfen?!?!

[moritz]

Ich hab dir doch ein Beispiel geschrieben. Was ist denn deine konkrete Frage?

[Nicodius]

hehe wette schon verloren? :thumb: