Mein Schulprojekt Yahtzee V 1.0

[keikedeike]

Wollte mal mein Schulprojekt einschicken.

Hoffe es gefällt euch

Wenn ihr fehler findet gibt mir bitte bescheid den habe das Projekt noch nicht abgegeben ! Fehlerlösungen wären dann auch nütlich . Wäre nett von euch

Kritik ist natürlich auch erlaubt !



mfg Keikedeike

[implementation]

Ich bekomme für eine kleine Straße seltsamerweise keine Punkte.

Ansonsten: Nicht schlecht!

[DeddyH]

Zitat von implementation:

Ich bekomme für eine kleine Straße seltsamerweise keine Punkte.

Ich schon, dafür keine beim Full House. Und dieses Denglisch nervt, man sollte sich für eine Sprache entscheiden. Abgesehen davon könnte man in den BorderIcons einstellen, dass der Maximieren-Button inaktiv wird, wenn sich das Fenster schon nicht in der Größe ändern lässt.

[keikedeike]

Wo ist den dort noch Englisch hatte doch alles geändert ? Schaut euch mal den Source code an wenn die Strasse nicht richtig geht ? !


mfg Keikedeike

[hans ditter]

ich hab für die kleine Straße auch keine Punkte bekommen...

Ach ja, und vlt eine Kritik an der Visualisierung: vielleicht könntest du das ganze Spiel etwas schöner gestalten?! So sieht das sehr wie eine Analyseprog aus...

Aber ansonsten nette Idee!

LG; hans ditter

[keikedeike]

Schaut euch doch mal bitte Den Quellcode von Der kleine Strasse und des Full ouse knopfes an ? Vielleicht findet ihr den Fehler ! Wäre Nett


Danke für die Kommentare !

mfg Keikedeike

[borncrush]

Gefällt mir auch. Intuitiv bedienbar und kann sogar Spaß machen, wenn....

....auch Yahtzee mal gezählt werden würde.
Kleine Straße hat er bei mir gezählt.

Musst also noch a bissel tun.

Edit: Zum Thema "Denglisch". Ist kein direktes Denglisch, aber alle Einträge im Menü sind englisch.

[keikedeike]

HIer mal das FullHouse button ? Weis nicht warum er nur manchmal geht ?! Hilfe ! Der Yahtzee Knopf geht bei mir perfekt nur Strassen und Full House sind einwenig fehlerhaft !!

Delphi-Quellcode:

procedure Tfyahtzee.btnfullhouseClick(Sender: TObject);
     var i,j,k,l,comp,comp1:integer;
         str,cand:string;
begin

     comp:=1;
  str:=lbl1.caption+lbl2.caption+lbl3.caption+lbl4.caption+lbl5.caption;

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



  comp1:=1;
  for k:=0 to 2 do
  begin
    if (cand<>str[k])and (comp1 < 2)  then
    begin
      comp1:=1;
      for l:=k+1 to 5 do
      begin
        if (str[k])=(str[l]) then
           comp1:=comp1+1;
      end;
    end;




    if (comp=3) and (comp1=2)  then
    begin
    lblfullhouse.caption:='25';
    btnfullhouse.enabled:=false;

                      cb1.Checked := false;
                      cb2.Checked := false;
                      cb3.Checked := false;
                      cb4.Checked := false;
                      cb5.Checked := false;
                      cb1.enabled:= false;
                      cb2.enabled:= false;
                      cb3.enabled:= false;
                      cb4.enabled:= false;
                      cb5.enabled:= false;
                      btnbegin.enabled := true;
                      lblN.caption := '0';

    end
    else
       begin
         lblfullhouse.caption:='0';
         btnfullhouse.enabled := false;
                      cb1.Checked := false;
                      cb2.Checked := false;
                      cb3.Checked := false;
                      cb4.Checked := false;
                      cb5.Checked := false;
                      cb1.enabled:= false;
                      cb2.enabled:= false;
                      cb3.enabled:= false;
                      cb4.enabled:= false;
                      cb5.enabled:= false;
                      btnbegin.enabled := true;
                      lblN.caption := '0';

       end;



end;
 if (lbl1.caption = '-1')then
                         begin
                            btnfullhouse.enabled := true;
                            showmessage('Es wurde schon ein Feld ausgewählt');
                         end;
                          lbl1.caption := '-1';
                          lbl2.caption := '0';
                          lbl3.caption := '0';
                          lbl4.caption := '0';
                          lbl5.caption := '0';



end;

mfg keikedeike

[keikedeike]

Hier der Knopf für die Kleine Strasse!

Delphi-Quellcode:

procedure Tfyahtzee.btnkleinClick(Sender: TObject);
      var i,j,k,l,m,n,comp,comp1,comp2:integer;
    str:string;

begin
       if (lbl1.caption = '-1')then
                      begin
                         btnklein.enabled := true;
                         showmessage('Es wurde schon ein Feld ausgewählt');
                      end;

   str:=lbl1.caption+lbl2.caption+lbl3.caption+lbl4.caption+lbl5.caption;

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


comp1:=1;
for k:=2 to 5 do
begin
for l:=0 to 4 do
begin
  if (str[l])= inttostr(k) then comp1:=(comp1)+1;
end;
end;

comp2:=1;
for m:=3 to 6 do
   begin
      for n:=0 to 4 do
         begin
             if (str[n])= inttostr(m) then comp2:=(comp2)+1;
   end;
         end;

if (comp1=4) or (comp2=4) then
begin
   lblkleinestrasse.caption:='30';
   btnklein.enabled:=false;
   lblN.caption := '0';
   cb1.Checked := false;
   cb2.Checked := false;
   cb3.Checked := false;
   cb4.Checked := false;
   cb5.Checked := false;
   btnbegin.enabled := true ;
   cb1.enabled:= false;
   cb2.enabled:= false;
   cb3.enabled:= false;
   cb4.enabled:= false;
   cb5.enabled:= false;

end
else
  begin
     btnklein.enabled := false;
     lblN.caption := '0';
     cb1.Checked := false;
     cb2.Checked := false;
     cb3.Checked := false;
     cb4.Checked := false;
     cb5.Checked := false;
     btnbegin.enabled := true ;
    cb1.enabled:= false;
    cb2.enabled:= false;
    cb3.enabled:= false;
    cb4.enabled:= false;
    cb5.enabled:= false;
  end;
                      lbl1.caption := '-1';
                      lbl2.caption := '0';
                      lbl3.caption := '0';
                      lbl4.caption := '0';
                      lbl5.caption := '0';

end;

Hier Knopf Grosse Strasse

Delphi-Quellcode:

   procedure Tfyahtzee.btngrossClick(Sender: TObject);
    var i,a,b,c,d,e :integer;

begin
    a := strtoint(lbl1.caption);
    b := strtoint(lbl2.caption);
    c := strtoint(lbl3.caption);
    d := strtoint(lbl4.caption);
    e := strtoint(lbl5.caption);
    i := 1;
    i := i+1;
    if (lbl1.caption = '-1')then
       begin
          btngross.enabled := true;
          showmessage('Es wurde schon ein Feld ausgewählt');
       end;

    for i := 1 to 4 do
      begin
          if (a=i )or (b=i )or (c=i )or(d=i )or (e=i )then
             begin

                if(a=i+1 )or(b=i+1 )or(c=i+1 )or(d=i+1 )or(e=i+1 )then
                    begin

                      if(a=i+2 )or(b=i+2 )or(c=i+2 )or(d=i+2 )or(e=i+2 )then
                         begin

                           if(a=i+3 )or(b=i+3 )or(c=i+3 )or(d=i+3 )or(e=i+3 )then
                              begin
                                 if(a=i+4 )or(b=i+4 )or(c=i+4 )or(d=i+4 )or(e=i+4 )then
                                 begin
                                   lblgross.caption := '40';
                                   btngross.Enabled := false ;
                                   cb1.checked:=false;
                                   cb2.checked :=false;
                                   cb3.checked:=false;
                                   cb4.checked :=false;
                                   cb5.checked:=false;
                                   cb1.enabled:= false;
                                   cb2.enabled:= false;
                                   cb3.enabled:= false;
                                   cb4.enabled:= false;
                                   cb5.enabled:= false;
                                   btnbegin.enabled := true;
                                   lblN.caption := '0';
                                 end;


                        end;

                        end;

                        end;
                         end
                         else
                                 lblgross.caption := '0';
                                 btngross.enabled:=false;
                                  cb1.checked:=false;
                                   cb2.checked :=false;
                                   cb3.checked:=false;
                                   cb4.checked :=false;
                                   cb5.checked:=false;
                                   cb1.enabled:= false;
                                   cb2.enabled:= false;
                                   cb3.enabled:= false;
                                   cb4.enabled:= false;
                                   cb5.enabled:= false;
                                   btnbegin.enabled := true;
                                   lblN.caption := '0';
                              end;

                                      lbl1.caption := '-1';
                                      lbl2.caption := '0';
                                      lbl3.caption := '0';
                                      lbl4.caption := '0';
                                      lbl5.caption := '0';
  end;