C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

■89589 / 親階層)  Diskcolorのエラー
□投稿者/ ルシフェル (7回)-(2018/12/06(Thu) 20:29:01)

分類:[.NET 全般] 

Private Async Sub RectangleTapped(sender As Object, e As TappedRoutedEventArgs)

Dim r As Windows.UI.Xaml.Shapes.Rectangle = sender
Dim x = r.GetValue(Grid.ColumnProperty)
Dim y = r.GetValue(Grid.RowProperty)
If CountGain(x, y Diskcolor.Red, True) > 0 Then
SetDisk(x, y, DiskColor.Red)
PlayerTurn = False
If Await IsEnd() Then
Await GameEnd()
Else
ComputerExecute()

End If
Else
Await ShowMessage("そこは打てません")
End If
End Sub

Private Function CountGain(x As Integer, y As Integer. diskColor As DiskColor, turn As Boolean) As Integer
If Status(x, y) <> MainPage.DiskColor.Empty Then Return 0
Dim result = 0
result += Search(x, y, diskColor, New Point(1, 0), turn)
result += Search(x, y, diskColor, New Point(-1, 0), turn)
result += Search(x, y, diskColor, New Point(0, 1), turn)
result += Search(x, y, diskColor, New Point(0, -1), turn)
result += Search(x, y, diskColor, New Point(1, 1), turn)
result += Search(x, y, diskColor, New Point(1, -1), turn)
result += Search(x, y, diskColor, New Point(-1, 1), turn)
result += Search(x, y, diskColor, New Point(-1, -1), turn)
Return result
End Function

Private Function Search(x As Integer, y As Integer, diskColor As DiskColor,
point As Point, turn As Boolean) As Integer

Dim targetColor As DiskColor
If diskColor = MainPage.DiskColor.Red Then
targetColor = MainPage.DiskColor.White
Else
targetColor = MainPage.DiskColor.Red
End If

Dim count = 0
Dim shouldTurn As New List(Of Point)
Dim tempX, tempY As Integer

For i = 1 To Size - 1
tempX = x + point.X + i
tempY = y + point.Y + i

If tempX >= 0 AndAlso tempX < Size AndAlso
tempY >= 0 AndAlso tempY < Size Then

Select Case Status(tempX, tempY)
Case diskColor
If count = 0 Then
Exit For
Else
If turn Then
For Each p In shouldTurn
SetDisk(p.X, p.Y, diskColor)
Next
End If
Return count
End If
Case targetColor
count += 1
If turn Then
shouldTurn.Add(New Point(tempX, tempY))
Case MainPage.DiskColor.Empty
Exit For
End Select
End If
Next
Return 0
End Function


書籍通りに記述したのですが、エラーが沢山出てきてしまいます。
DiskColorのエラーが多く出ます。
よろしくお願いします。

編集キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 →Re[1]: Diskcolorのエラー /Azulean
 
上記関連ツリー

Diskcolorのエラー / ルシフェル (18/12/06(Thu) 20:29) #89589 ←Now
Re[1]: Diskcolorのエラー / Azulean (18/12/06(Thu) 22:45) #89590
  └ Re[2]: Diskcolorのエラー / ルシフェル (18/12/08(Sat) 15:08) #89607
    └ Re[3]: Diskcolorのエラー / Azulean (18/12/09(Sun) 09:36) #89608
      └ Re[4]: Diskcolorのエラー / ルシフェル (18/12/09(Sun) 14:13) #89609 解決済み

上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信