Game "Deal or No Deal"

[Nikolas]

@ Balu: In dem Text steht nicht überhaupt nichts zum verwendeten Algorhytmus...

[Balu der Bär]

Zitat:

Zitat von Toxman

@ Balu: In dem Text steht nicht überhaupt nichts zum verwendeten Algorhytmus...

Es gibt auch Links unten. ;)

Dieses Beispiel bezieht sich zwar auf die Online-Version, die Berechnung des Wertes sollte aber gleich sein:
http://mathforum.org/kb/servlet/Jive...6755/att1.html

[Nikolas]

hm hatte ich übersehen.

Hier mal die Übersetzung von Balus Seite:

Delphi-Quellcode:

function Tform1.NewCalcBank: Longword;
var
l,h: real;
i: integer;
lowsum, highsum: real;
lowtotal, hightotal: real;
count: byte;
limes: integer;
begin
lowtotal:=0;
hightotal:=0;
limes:= 75000;

for i:=1 to 26 do
    if MoneyButton[i].Enabled then
      if Money[i]<= limes then
         lowsum:=lowsum+money[i]
      else
         highsum:=highsum+money[i];

case Bagcount of
    20: begin l:=0.07; h:= 0.11  ; end;
    15: begin l:=0.09; h:= 0.16  ; end;
    11: begin l:=0.13; h:= 0.21  ; end;
     8: begin l:=0.17; h:= 0.26  ; end;
     6: begin l:=0.20; h:= 0.31  ; end;
     5: begin l:=0.33; h:= 0.32  ; end;
     1..4: begin l:=0.5; h:= 0.32+(5-bagcount)*0.01; end;
end;

lowtotal:= lowsum*l;
hightotal:= highsum*l*h;

result:= round(lowtotal+hightotal);

end;

Die Grenze zwischen low und high müsste noch angepasst werden, da der Maximalpreis vom Land abhängt.

[Cyberbob]

Cooles Prog hab beim ersten mal gleich 50000€ gewonnen.

[DrivenHoliday]

Hi,

ich programmiere zwar nicht in Delphin, aber ich habe trotzdem ne Frage:

ich wollte Deal or no Deal als C++ Programm schreiben. Ich verwende den Algorithmus von oben, allerdings kommen bei mir irgendwie komische Werte heraus zum Beispiel 7 oder 10 Euro, manchmal sogar nur 20 Cent ect.

Ich habe den Quellcode schon sehr oft überprüft, und habe sogar eine Excel-Mappe erstellt, aber es kommt immer das gleiche heraus.

Könnte mir bitte jemand den Algorithmus noch mal auf Deutsch erklären.

Vielen Dank im Voraus

[Balu der Bär]

Hier hast du doch den Quellcode zu der Berechnungsfunktion, was hindert dich daran das einfach nach C++ umzuschreiben?

[uwi1961]

Hallo Phantom1,

benutz mal für das Formular "poScreenCenter" anstatt "poDesktopCenter", steht sonst bei zwei Monitoren mittendrin...

Gruß Uwe.

[Thanatos81]

Gefällt mir soweit nicht schlecht, ein paar Vorschläge hab ich aber auch noch ;-)

• Sounnds deaktivierbar
• Im Highscore-Dialog wäre ein OK/Speichern-Button schön. War doch etwas verwirrt, dass ich einfach auf auf das x in der Fensterleiste klicken sollte um zu speichern.
• Wenn das letzte Angebot der Bank ausgeschlagen wurde (nur noch eigener Koffer und einer im "Pool"), warum muss ich dann noch den Koffer aus dem "Pool" anklicken?
• Shortcuts Alt+D und Alt+N oder etwas ähnliches für Deal/No Deal wären auch ganz nett.

Schönen Gruß,
Thana

[DrivenHoliday]

Zitat:

Zitat von Balu der Bär

Hier hast du doch den Quellcode zu der Berechnungsfunktion, was hindert dich daran das einfach nach C++ umzuschreiben?

Das Problem ist nur das ich Delphi nicht kenne.

[xZise]

Cool ^^

Ich hatte 25k und habe von der Bank ~ 60k bekommen ^^

Zitat:

Zitat von DrivenHoliday

Das Problem ist nur das ich Delphi nicht kenne.

"Sie haben Post"