Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Würfel spiel (beta) (https://www.delphipraxis.net/44785-wuerfel-spiel-beta.html)

FabianIBerlin 24. Apr 2005 18:10


Würfel spiel (beta)
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich habe ein kleines würfelspiel was unter dem namen "kniffel" bekannt sein wird nachgemacht. von dem sind jetz die grundstruckturen fertig und mich würde interressieren ob irgendwer fehler oder schummel möglichkeiten sieht. später werden noch mehr feature etc kommen!

*Neue Version ist da!*

vlees91 24. Apr 2005 18:14

Re: Würfel spiel (beta)
 
ich verstehe es nciht so ganz, weil man muss irgendwo im stringgrid klicken. ich weiß aber nicht wo.
sonst klappt alles

FabianIBerlin 24. Apr 2005 18:15

Re: Würfel spiel (beta)
 
naja da wo du einfügen willst das ergebnis klickst hin und halt in die erste sparte weils spiel nr 1 ist sprich da wo schon 0 eingefügt wurden hilfe wird dann auch noch kommen...

Pr0g 24. Apr 2005 18:23

Re: Würfel spiel (beta)
 
Im Stringgrid sollten die Felder farblich hinterlegt werden, denen man die aktuelle Summe zuordnen kann, also bei denen der Wurf gültig ist. Aber sonst ganz nett gemacht.

MfG Pr0g

vlees91 24. Apr 2005 18:42

Re: Würfel spiel (beta)
 
achso
na dann
dann is es gütt

OneOfTen 24. Apr 2005 19:13

Re: Würfel spiel (beta)
 
Bei allen Möglichkeiten, die die Würfelkombination erlauben, sollten die Ergebnisse im Stringgrid schon mal angedeutet werden, so dass man nicht selbst hin- und herrechnen muss, sonst kann ichs gleich auf Papier spielen. (was deutlich mehr Spaß macht ;-)

Das Design ist noch ziemlich beta und es gibt einen Bug im Button "Neue Runde": Die Enabled-Eigenschaften der anderen beiden Buttons werden nicht gesetzt!

FabianIBerlin 24. Apr 2005 21:25

Re: Würfel spiel (beta)
 
Zitat:

Zitat von OneOfTen
sonst kann ichs gleich auf Papier spielen. (was deutlich mehr Spaß macht ;-)

Das Programm dient mir nur zum vertiefen der algorythmen etc (bzw. OOP). Was in zukunfrt anders zu dem papier spiel werden soll ist ein Multi Player fähiges programm, da muss ich aber noch ein semster warten bis wir das dran nehmen in der schule ^^. zu der oberfläche ich habe vor mir 3 d animationen bei zu bringen und solchne mit einzubinden (bei den würfeln). an der stelle hat jemand gute tutorials dafür?

toms 26. Apr 2005 05:21

Re: Würfel spiel (beta)
 
Hallo!

Das Fenster erscheint beim Starten irgendwo am Rande des Bildschirms.

FabianIBerlin 26. Apr 2005 17:08

Re: Würfel spiel (beta)
 
dank one oftens idee mit den punkten anzeigen habe ich festellen müssen, das da noch ein paar fehler bei den punkten sind welche nun erstmal behoben werden müsssen die zentrierung der Form wurde aber auch schon gemacht.

FabianIBerlin 26. Apr 2005 17:50

Re: Würfel spiel (beta)
 
Ok Soweit müssten alle bugs behoben sein, die neu version isthoch geladen und falls ihr noch fehler findet, dann schön posten.

Khabarakh 26. Apr 2005 18:20

Re: Würfel spiel (beta)
 
Naja, noch ziemlich viele Fehler:
  • Im oberen Teil hatte ich 102 Punkte (8)), gut. Im unteren 88, allerdings konnte ich nicht mehr würfeln, nachdem ich dort einmal 0 eingetragen hatte :evil: .
  • Die 88 musste ich sowieso im Kopf ausrechnen, da in "unterer Teil" immer noch 0 eingetragen war.
  • Und das Ergebnis, also 102 + 0 (bzw. 88 ), war dann laut deinem Programm 67 :freak: .
  • Wobei ich mir bei 67 nicht mehr sicher bin, da dein Programm nach Klick auf "Neue Runde" alle alten Ergebnisse (die letzten 3 Spalten) gelöscht hat :evil: ² .

PS: Bist du dir sicher, dass du Randomize genau einmal aufrufst? Manchmal habe ich nämlich so meine Bedenken.

PPS: Was bedeutet eigentlich das "FS" im Icon? "Fabian S..."?

PPPS( :wink: ): Bitte nächstes Mal als Archiv anhängen.

FabianIBerlin 26. Apr 2005 18:54

Re: Würfel spiel (beta)
 
ok ich habe eine grobe änderung vorgenimmen gehabt und habe nochj nicht soviel zeit gehabt dran zu arbeiten wahl wohl etwas früh es rein zutsellen weil komme jetz heute auch nciht mehr dazu es runter zu laden sprich nehme erstmla den link heute raus und mogen oder übermorgen kommt dann ne neue version..

P.S.
Das Icon war mal aus langeweile Entstanden und sind meine Initialien

P.P.S wie hängt man ein archiv an? :D (ahh, ist es ein Attachment :))

idontwantaname 26. Apr 2005 18:59

Re: Würfel spiel (beta)
 
kannst du für die Positionierung deines Fensters poScreenCenter statt poDesktopCenter verwenden ??
denn das fenster steht am anfang zwischen meinen beiden monitoren

ich mit meiner supertollen konstruktiven kritik ... :stupid: :mrgreen:

FabianIBerlin 27. Apr 2005 23:28

Re: Würfel spiel (beta)
 
So neue version ist hoffentlich fehler frei. Werde mich jetz demnächst mit der mehrspieler ebene auseinander setzen das wird aber noch dauern bis ergebnisse bereitgestellt werden. bin aber trotzdem offen für kritik etc.
Fehler behebe ich so schnell wie möglich also schön posten wenn ihr welche findet (zur entspannung ne runde würfeln am pc kann nicht schaden mit etwas musick:D). Changelog wurde nun auch eingeführt.

Zitat:

Zitat von Khabarakh
PS: Bist du dir sicher, dass du Randomize genau einmal aufrufst? Manchmal habe ich nämlich so meine Bedenken.

Ich habe auch meine bedenken wenn ich mir die zaheln so manchmal anschaue aber habe nochmal durchgeschaut und randomize kommt nur beim form create einmal vor sonst never again (und form create rufe ich auch nicht noch einmal auf).
ich habe sogar zufallszahlen verknüpft(siehe quelltext):
Code:
    if NochWuerfeln[n] = true then
      for i := 1 to random(9999) do
        AlleAugen[n] := Random(6)+1;

Khabarakh 28. Apr 2005 16:12

Re: Würfel spiel (beta)
 
Gut ein Archiv :wink: . Sieht alles gut aus (besonders, da ich sofort nach dem Start eine große Straße hatte :mrgreen: ).
Was ich aber schon früher fragen wollte: Was ist "Knüller" und "kleine Straße"?

FabianIBerlin 29. Apr 2005 19:12

Re: Würfel spiel (beta)
 
"Knüller" oder auch "Kniffel" sind alle würfeln eines wertes sprich 5*1 oder 5*4 etc.
kleine straße sind einfach 4 aufeinander folgende würfel sprich 1234 usw.

fantotal 30. Apr 2005 21:35

Re: Würfel spiel (beta)
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hey,

also ich find das Programm bisher eigentlich sehr gut, aber habe zwei Fehler entdeckt.

1.) Also ich muss etwas ausholfen...Ich hatte im ersten Wurf: 1,3,5,3,2 also habe ich die 1,2 und 3 behalten. Dann wieder gewürfelt und hatte nun : 1,2,3,4,3 also noch die vier mitgenommen und nochmal gewürfelt...dann hatte ich : 1,2,3,4,2 und wollte es auf kleine Straße eintragen, hat er aber nicht übernommen. Hat mir einfach eine 0 eingetragen!

2.) Siehe Sceenshot

und noch ein Verbesserungsvorschlag: Mach das doch so, dass man das Ergebnis auch schon eintragen kann, wenn es erst der erste Wurf ist. Ich hatte mti dem ersten Wurf: 1,1,1,3,3 und wollte es auch FullHouse eintragen. Ging aber nicht, musste alle selektieren und noch zweimal würfel, erst dann konnte ich das eintragen!

FabianIBerlin 1. Mai 2005 23:00

Re: Würfel spiel (beta)
 
Zitat:

Zitat von fantotal
Hey,
und noch ein Verbesserungsvorschlag: Mach das doch so, dass man das Ergebnis auch schon eintragen kann, wenn es erst der erste Wurf ist. Ich hatte mti dem ersten Wurf: 1,1,1,3,3 und wollte es auch FullHouse eintragen. Ging aber nicht, musste alle selektieren und noch zweimal würfel, erst dann konnte ich das eintragen!

Dafür gibt es den Button "Wurf Beenden" ;)

Zitat:

Zitat von fantotal
1.) Also ich muss etwas ausholfen...Ich hatte im ersten Wurf: 1,3,5,3,2 also habe ich die 1,2 und 3 behalten. Dann wieder gewürfelt und hatte nun : 1,2,3,4,3 also noch die vier mitgenommen und nochmal gewürfelt...dann hatte ich : 1,2,3,4,2 und wollte es auf kleine Straße eintragen, hat er aber nicht übernommen. Hat mir einfach eine 0 eingetragen!

Das kann ich mir fast garnicht vorstellen außer ich habe was übersehen evt. findet ihr ja was:

Delphi-Quellcode:
var i,k,help : integer;
    fehler2 : boolean;
begin
  //Sotiervorgang
  for i:=1 to 5 do WuerfelZiffern[i]:= Augen[i];
   for i:= 5 downto 1 do
                 begin
                   for k:=1 to i do
                     begin
                       if WuerfelZiffern[k-1]>WuerfelZiffern[k] then
                         begin
                           help := WuerfelZiffern[k-1];
                           WuerfelZiffern[k-1] := WuerfelZiffern[k];
                           WuerfelZiffern[k] := help;
                         end;
                     end;
                 end;
  //überprüfung
  result := 30;
  fehler := false;
  fehler2:= false;
  for i := 1 to 3 do
    if (WuerfelZiffern[i] = (WuerfelZiffern[i+1]-1)) then else fehler := true;
  for i := 2 to 4 do
    if (WuerfelZiffern[i] = (WuerfelZiffern[i+1]-1)) then else fehler2 := true;
  if (fehler = true) and (fehler2 = true) then result := 0;


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:58 Uhr.

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