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

わんくま同盟

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

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

ツリー一括表示

Diskcolorのエラー /ルシフェル (18/12/06(Thu) 20:29) #89589
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 解決済み


親記事 / ▼[ 89590 ]
■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のエラーが多く出ます。
よろしくお願いします。

[ □ Tree ] 返信 編集キー/

▲[ 89589 ] / ▼[ 89607 ]
■89590 / 1階層)  Re[1]: Diskcolorのエラー
□投稿者/ Azulean (1019回)-(2018/12/06(Thu) 22:45:14)
No89589 (ルシフェル さん) に返信
> 書籍通りに記述したのですが、エラーが沢山出てきてしまいます。
> DiskColorのエラーが多く出ます。

おそらく、入力が足りないのでしょう。
DiskColor という事前に用意された型はないはずなので、書籍内のどこかで定義されているはずです。
見ているページに記載がない場合は、それ以前のページに記載がないかも確認してみてください。

[ 親 89589 / □ Tree ] 返信 編集キー/

▲[ 89590 ] / ▼[ 89608 ]
■89607 / 2階層)  Re[2]: Diskcolorのエラー
□投稿者/ ルシフェル (8回)-(2018/12/08(Sat) 15:08:15)
No89590 (Azulean さん) に返信
> おそらく、入力が足りないのでしょう。
> DiskColor という事前に用意された型はないはずなので、書籍内のどこかで定義されているはずです。
> 見ているページに記載がない場合は、それ以前のページに記載がないかも確認してみてください。

うーん、DiskColorのエラーは改善されたのですが、他のエラーが出てきてしまってどこにあるか解らない感じです。
随時必要な情報は記述していきます。
しばらくお待ち下さい・・・。
[ 親 89589 / □ Tree ] 返信 編集キー/

▲[ 89607 ] / ▼[ 89609 ]
■89608 / 3階層)  Re[3]: Diskcolorのエラー
□投稿者/ Azulean (1020回)-(2018/12/09(Sun) 09:36:59)
No89607 (ルシフェル さん) に返信
> うーん、DiskColorのエラーは改善されたのですが、他のエラーが出てきてしまってどこにあるか解らない感じです。
> 随時必要な情報は記述していきます。

基本的には書籍の通りに打ち込むことになります。
第三者には「元となった書籍」や「現在打ち込まれているソースコード」がわからないので、エラー内容を示されても的確な助言は難しいです。

また、「質問するために必要な説明」には、ある程度の理解力・文章力が必要となってしまいますし、回答側も質問者の理解度が測りづらく、適切なレベルな助言にならずなど、お互いにコミュニケーションが大変になります。
初学の段階で Web ベースでうまく質問することは難しいと思うので、近場の相談できる仲間・先輩・同僚・上司の方を頼ることも考えてみてください。
(相談先がいないとなると、じっくり見比べながら努力していく感じになりますが…)
[ 親 89589 / □ Tree ] 返信 編集キー/

▲[ 89608 ] / 返信無し
■89609 / 4階層)  Re[4]: Diskcolorのエラー
□投稿者/ ルシフェル (9回)-(2018/12/09(Sun) 14:13:48)
No89608 (Azulean さん) に返信
> ■No89607 (ルシフェル さん) に返信
>
> 基本的には書籍の通りに打ち込むことになります。
> 第三者には「元となった書籍」や「現在打ち込まれているソースコード」がわからないので、エラー内容を示されても的確な助言は難しいです。
>
> また、「質問するために必要な説明」には、ある程度の理解力・文章力が必要となってしまいますし、回答側も質問者の理解度が測りづらく、適切なレベルな助言にならずなど、お互いにコミュニケーションが大変になります。
> 初学の段階で Web ベースでうまく質問することは難しいと思うので、近場の相談できる仲間・先輩・同僚・上司の方を頼ることも考えてみてください。
> (相談先がいないとなると、じっくり見比べながら努力していく感じになりますが…)

返信ありがとうございます。
仲間がいないのでもうちょっと自分で努力してみます。
ありがとうございました。
解決済み
[ 親 89589 / □ Tree ] 返信 編集キー/


管理者用

- Child Tree -