Schiffe versenken automatisiert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nochmal hallo zusammen :)
Ich habe ein wenig gestöbert und bin hierbei auf das Spiel Schiffe Versenken gestoßen.
https://www.herber.de/bbs/user/1336.zip
Anmerkung: Das Spiel wurde von Ole P. Erlandsen programmiert.
In dieser Variante werden die Schiffe über folgenden Code gesetzt:

Private Sub FillBattleShips(TargetRange As Range)
Dim hPlacement As Boolean
On Error Resume Next
ActiveSheet.Unprotect
On Error GoTo 0
PlaceBattleShip 1, TargetRange
PlaceBattleShip 2, TargetRange
PlaceBattleShip 3, TargetRange
PlaceBattleShip 4, TargetRange
PlaceBattleShip 5, TargetRange
ActiveSheet.Protect
End Sub

Private Sub PlaceBattleShip(ShipSize As Integer, TargetRange As Range)
Dim hPlacement As Boolean, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long
Dim OK As Boolean, ShipRange As Range, cl As Range
OK = False
Randomize
hPlacement = Rnd * 100

Ich würde gerne diese Vorlage für meine Version entsprechend anpassen, leider verstehe ich den Code nicht ganz.
Über den ersten Teil wird die Schiffslänge definiert. Was ist das für eine Funktion? Einfach ein Name und eine Zahl, da komm ich nicht ganz mit.
Im unteren Teil wird dann die Position bestimmt, aber auch hier ist mir unklar, wie das alles passiert.
Wenn sich einer von euch Experten diesen Teil anschauen könnte und mir etwas Licht im Dunklen entzünden könnte, wäre ich sehr dankbar! :)
Liebe Grüße,
Dennis

Private Sub PlaceBattleShip(ShipSize As Integer, TargetRange As Range) '(Schiffsgröße, Spielfeld) Dim hPlacement As Boolean, X1 As Long, Y1 As Long Dim OK As Boolean, ShipRange As Range, cl As Range OK = False Randomize hPlacement = (Rnd * 100)

Private Sub FillBattleShips(TargetRange As Range) Dim hPlacement As Boolean On Error Resume Next ActiveSheet.Unprotect On Error GoTo 0 PlaceBattleShip 2, TargetRange PlaceBattleShip 3, TargetRange PlaceBattleShip 3, TargetRange PlaceBattleShip 4, TargetRange PlaceBattleShip 5, TargetRange ActiveSheet.Protect End Sub

Private Function CheckFrei(x, y, Ausrichtung, SchiffLaenge) As Boolean Dim rng As Range With Worksheets("Spiel") ' Erster Durchlauf noch keine Zufallszahl, darum Exit If x = 0 Then Exit Function ' Bereich für Schiff definieren If Ausrichtung = 1 Then Set rng = .Range(.Cells(x, y), .Cells(x + SchiffLaenge - 1, y)) ' Prüfen, ob Schiff im Gitter liegt If x + SchiffLaenge > 64 Then Exit Function Else Set rng = .Range(.Cells(x, y), .Cells(x, y + SchiffLaenge - 1)) ' Prüfen, ob Schiff im Gitter liegt If y + SchiffLaenge > 64 Then Exit Function End If ' Prüfen, ob es sich mit einem anderen Schiff überschneidet If WorksheetFunction.CountIf(rng, "x") > 0 Then Exit Function End With CheckFrei = True End Function

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schiffe versenken automatisiert

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread