warscheinlich die 1000ste Version Von Kniffel

[keikedeike]

hey Leute ! Muss dass gleich für ein Schulprojekt machen, bin nun fast fertig jedoch klappt dass mit dem Full House und dem 3 /4 pasch nicht ! Könntet ihr mir helfen

mfg Keikedeike

[pustekuchen]

Zitat von keikedeike:

hey Leute ! Muss dass gleich für ein Schulprojekt machen, bin nun fast fertig jedoch klappt dass mit dem Full House und dem 3 /4 pasch nicht ! Könntet ihr mir helfen

mfg Keikedeike

* raushol*

Bitte erläutere doch mal, wo dein Problem genau ist. Was klappt nicht. Fehlermeldungen?

Bzw eröffne ein neues Topic und schildere dort dein Problem. Des weiteren kannst du dir das Beispiel ja runterladen und anschauen.

[DeddyH]

Kleiner Tipp (ja, auch ich habe schon ein Kniffel geschrieben): wenn man sich ein Array[1..6] of byte deklariert, kann man darin schön festhalten, welche Zahl wie oft gewürfelt wurde. Das erleichtert auch die Auswertung, bei einem FullHouse z.B. muss ja eine Zahl 3 mal und eine 2 mal vorkommen.

[p80286]

Zitat von DeddyH:

Kleiner Tipp (ja, auch ich habe schon ein Kniffel geschrieben): wenn man sich ein Array[1..6] of byte deklariert, kann man darin schön festhalten, welche Zahl wie oft gewürfelt wurde. Das erleichtert auch die Auswertung, bei einem FullHouse z.B. muss ja eine Zahl 3 mal und eine 2 mal vorkommen.

Das hast Du nicht gelesen?

Delphi-Quellcode:

for i:=1 to 6 do 
  array[i]:=0;
for i:=1 to anzLabel do
  inc(Array[inttostr(label.text)],1);

und danach kommt die Auswertung.
(da oben das ist Pseudocode!)

Gruß
K-H

[Aike]

Attribute werden in Delphi aber nie mit "_" geschrieben

Verbesserungsvorschläge:

• Ich finde das Programm zu groß, wenn es denn so groß ist wie auf deinen Bild dargestellt. Mach alle Buttons 25 Pixel (Originalgröße) hoch. Abstände sehen meines Erachtens am besten aus, wenn sie 2-5 Pixel betragen. Mehr ist Unsinn.
• Verwende anstatt TPanel lieber TImage für die Würfelzahlen.
• Braucht man wirklich eine Beschreibung, dass das die Würfel 1-5 sind? Bei Kniffel ist das doch logisch.
• Wofür steht die "3" da oben?
• Was macht das Smiley? Ich mag es, wenn Programme intuitiv sind. Entweder, die Buttons müssen selbst sagen, was sie tun, oder es sollte drüber stehen. Ein Smiley sagt eher wenig über die Bedeutung des Buttons und dessen Funktion aus.
• Wenn ich mich richtig erinnere, heißt es "1er", "2er", "3er" etc. "1 - er" ist auf jeden Fall falsch. Ich bin dafür, die vier Buchstaben auch noch auszuschreiben. Das sieht stilistisch einfach sehr viel besser aus.
• "Full House" ist ein feststehender englischer Ausdruck. Da gehört kein Bindestrich hin.
• "Dreierpasch" und "Viererpasch" schreibt man groß. Bei der kleinen und großen Straße kann man sich streiten.
• Die schwarzen Balken sind mal echt hässlich Ein einfachen Strich, ein Pixel breit / hoch ist vollkommen ausreichend um erkennbar zu machen, dass hier eine Abtrennung stattfinden soll. btw. gibt es dafür auch die Komponente TPanel, damit man Objekte, die zusammengehören, auch visuell zuordnen kann. Optional ist natürlich auch TGroupBox möglich.
• Was ist das für ein Panel unter dem Button mit dem Stift drin? Was macht der Button mit dem Stift überhaupt?

[dajuhsa]

ok! ich hab das ding an nem halben tag geschrieben und nicht besonders auf das design geachtet ich werd mal noch dran basteln.

Wenn du dir das thema mal ganz durchliest wirst du sehen was der Stift bringt.

(smilie ist ne form und die dinger mit _ sind variablen )

[keikedeike]

Irgentwie klappt das nicht mit dem Topic !

Also erläutere mal mein Problem


hab den 3-Pasch mal programmiert jedoch geht er nur wenn der 1. Wurfel zum Pasch gehört zb 32331 wenn die Würfel auf 23133 fallen funktioniert der Knopf nicht ! Schicke mal den den Quelltext

Delphi-Quellcode:

procedure Tzt.btndreierpaschClick(Sender: TObject);
var i,j,comp:integer;
         str:string;
begin
  btndreierpasch.enabled := false;
  btnbegin.enabled := true;
  comp:=1;
  str:=lbl1.caption+lbl2.caption+lbl3.caption+lbl4.caption+lbl5.caption;

  for i:=0 to 4 do
  begin
  if comp < 3 then
  begin
  comp:=1;
    for j:=i+1 to 4 do
    begin
      if (str[i])=(str[j]) then
      comp:=comp+1;
    end;
    end;
    end;

    if comp >= 3 then
    lbldreierpasch.caption:=(inttostr (strtoint(lbl1.caption)+ strtoint(lbl2.caption)+ strtoint(lbl3.caption)+ strtoint(lbl4.caption)+ strtoint(lbl5.caption)));
    lblN.caption := '0';

Hoffe ihr könnt mir helfen muss in einer Woche abgeben und wollte noch einige Zusatz sachen einprogrammieren jedoch kann ich dies erst machen wenn der Programm läuft Das mit dem Full House weiss ich auch nicht so recht !

mfg Keikedeike