Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Sudoku Hilfe (https://www.delphipraxis.net/121700-sudoku-hilfe.html)

Thendo 2. Okt 2008 18:42


Sudoku Hilfe
 
HiHo DPler,

ich wollte mich an mein erstes Spiel heranwagen: Sudoku.
Nur mir fällt nicht ein wie ich es bewerkstelligen kann das eine bestimmte anzahl von zufälligen zahlen in zufällige Felder beim start kommen.

Könnte mir vlt einer helfen?

MfG Thendo

mkinzler 2. Okt 2008 18:56

Re: Sudoku Hilfe
 
Random(), Randomize()

AlexII 2. Okt 2008 19:03

Re: Sudoku Hilfe
 
Hier ein Ausschneit aus nem Buch

Beispiel: "Selbst gebastelter Würfel"
Delphi-Quellcode:
Label1.Caption:=IntToStr(Random(6)+1);
Um den Zufallsgenerator jeweils unterschiedlich zu starten, empfiehlt sich ein vorheriger Aufruf von Randomize.

Thendo 2. Okt 2008 19:33

Re: Sudoku Hilfe
 
Danke euch 2 :) Hat mir echt geholfen!

Thendo 2. Okt 2008 19:40

Re: Sudoku Hilfe
 
Hab noch eine Frage^^:

Wie kann ich es machen das er eine oder zwei Zahlen aus einem Edit nicht beim neuen auswählen nimmt?

mkinzler 2. Okt 2008 19:50

Re: Sudoku Hilfe
 
Du könntest den Zug dann verwerfen.

Thendo 2. Okt 2008 20:09

Re: Sudoku Hilfe
 
Wie meinst du?

mkinzler 2. Okt 2008 20:10

Re: Sudoku Hilfe
 
Wenn ein Random-Aufruf diese(n) Wert(e) hat einfcah nochmal aufrufen

Thendo 2. Okt 2008 20:12

Re: Sudoku Hilfe
 
Aber dan kann es ja sein das die Zahl nochma kommt ( auch wenn sehr selten^^)

Kann ich nicht irgentwie die Zahlen aus paar Edits von einer neuen wahl in einer if schleife ausschließen?

mkinzler 2. Okt 2008 20:13

Re: Sudoku Hilfe
 
Nein, aber nach der Wahl überprüfen, ob schon vorhanden und dann neu ziehen oder alle möglichen Zahlen in eine Liste schreiben und gezogene entfernen und zufällig aus den vorhandenen (per Position) ziehen


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

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