【6日でできるVisual Basic2022入門】①間違い漢字探しゲームの概要

Imports System.Drawing
Imports System.Linq   ' OfType を使うため

Public Class FormGame
    ' 出題ペア（wrong:間違いで並べる、right:正解で1マスだけ）
    Private ReadOnly pairs As (wrong As String, right As String)() = {
        (wrong:="糊", right:="湖"),
        (wrong:="話", right:="語"),
        (wrong:="録", right:="緑"),
        (wrong:="潮", right:="朝"),
        (wrong:="倍", right:="培"),
        (wrong:="崎", right:="﨑")
    }

    Private ReadOnly rnd As New Random()
    Private correct As String
    Private wrong As String
    Private elapsed As Double
    Private Const N As Integer = 4   ' 4×4

    ' ※ PanelGrid（Panel など）、TextHunt（Label など）、TextTimer（Label など）、Timer1 はデザイナで配置しておく
    Private Sub FormGame_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 盤面を 4×4 自動生成（体験用）
        Dim size As Integer = 140
        Dim gap As Integer = 6

        For r As Integer = 0 To N - 1
            For c As Integer = 0 To N - 1
                Dim b As New Button()
                b.Font = New Font("Meiryo", 48.0F, FontStyle.Regular, GraphicsUnit.Point)
                b.Size = New Size(size, size)
                b.Location = New Point(c * (size + gap), r * (size + gap))
                AddHandler b.Click, AddressOf Buttons_Click
                PanelGrid.Controls.Add(b)
            Next
        Next

        StartRound()
    End Sub

    Private Sub StartRound()
        Dim p As (wrong As String, right As String) = pairs(rnd.Next(pairs.Length))
        wrong = p.wrong
        correct = p.right

        TextHunt.Text = $"「{correct}」を探せ！"
        elapsed = 0
        Timer1.Interval = 50
        Timer1.Start()

        ' まず全マスを間違い文字に
        For Each b As Button In PanelGrid.Controls.OfType(Of Button)()
            b.Text = wrong
        Next

        ' ランダムな 1 マスだけ正解に
        Dim idx As Integer = rnd.Next(PanelGrid.Controls.Count)
        Dim btn As Button = CType(PanelGrid.Controls(idx), Button)
        btn.Text = correct
    End Sub

    Private Sub Buttons_Click(sender As Object, e As EventArgs)
        Dim b As Button = DirectCast(sender, Button)
        If b.Text = correct Then
            Timer1.Stop()
            MessageBox.Show($"正解！タイム：{elapsed:0.00} 秒", "お見事")
            StartRound() ' 連続プレイ（体験）
        Else
            elapsed += 2 ' ペナルティ +2 秒
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        elapsed += Timer1.Interval / 1000.0
        TextTimer.Text = elapsed.ToString("0.00")
    End Sub
End Class