MineSweeper in VBA - Aufdeckmechanismus

[Quanaarinail.com]

Ich würde bei den Leeren Feldern beim Aufdecken dann eine 0 hinenschreiben und die Schriftfarbe auf weiss stellen.
Somit kannst du am Anfang prüfen, ob das Feld bereits aufgedeckt wurde.

Warte, meinst du so etwas wie " Wenn eine 0 im Feld steht, mach nichts"?

 

[Yaslaw]

Warte, meinst du so etwas wie " Wenn eine 0 im Feld steht, mach nichts"?

Genau, dann ist das Feld bereits aufgdeckt.

 

[Quanaarinail.com]

Genau, dann ist das Feld bereits aufgdeckt.

Das ist ja der Plan, dass er das für alle umliegenden Felder ebenfalls macht. bisher fügt er - wie gesagt - bei Klicken eines leeren Feldes, wo auch kein x in der unmittelbaren Nähe ist, direkt eine 0 hinzu, da er andernfalls eine 1 (bei einem x im 1er Radius) bzw. eine 2 (bei 2 x im 1er Radius) usw. schreibt. Das ist ja die beschriebene Function "Umfeldcheck". So hab ich es zumindest verstanden, und das funktioniert soweit ja auch.

Ich hoffe, wir reden hier gerade nicht aneinander vorbei.

 

[Quanaarinail.com]

Das ist ja der Plan, dass er das für alle umliegenden Felder ebenfalls macht. bisher fügt er - wie gesagt - bei Klicken eines leeren Feldes, wo auch kein x in der unmittelbaren Nähe ist, direkt eine 0 hinzu, da er andernfalls eine 1 (bei einem x im 1er Radius) bzw. eine 2 (bei 2 x im 1er Radius) usw. schreibt. Das ist ja die beschriebene Function "Umfeldcheck". So hab ich es zumindest verstanden, und das funktioniert soweit ja auch.

Ich hoffe, wir reden hier gerade nicht aneinander vorbei.

Mir fällt gerade auf, dass ich das Wort "ja" ziemlich inflationär benutze. Muss ich ändern, sieht komisch aus.

 

[Quanaarinail.com]

Public Function Check() iPlus = 4 For y = 0 To 10 For i = 0 To 10 If Cells(y + iPlus, i + iPlus) = "x" Then Cells(y + iPlus, i + iPlus) = "y" Cells(y + iPlus, i + iPlus).Interior.ColorIndex = 3 End If Next Next End Function

Der Teil des Codes ist übrigens zu vernachlässigen, hab ich gerade bemerkt.

 

[Yaslaw]

Du gehst sehr Statisch ans Werk. Rekursiv ist einfacher.

1) Also, du prüfst das aktive Feld. Wenn es eine Mine ist - Boom, fertig.
2) Ermittle die Minen rundherum und trag die Zahl ein.
3) Wenn 0, rufe für alle acht benachbarten Felder Punkt 2 auf.

Damit finden sich die anderen leeren Felder von alleine.

 

[Quanaarinail.com]

Sobald ich herausgefunden habe, wie ich deine Worte in Code umwandeln kann, versuche ich das. Danke vielmals jedenfalls.