【6日でできるVisual Basic2022入門】④コードの実装と実行：ラーメンタイマーアプリの完成

Imports System.Media

Public Class FormRamenTimer
    ' 入力された合計秒
    Private EndSeconds As Integer
    ' 経過秒
    Private Elapsed As Integer

    Private Sub FormRamenTimer_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load
        ' 初期表示（例）
        TextRemaining.Text = ""
        ' Enter で開始（前章で設定済みの場合は不要）
        Me.AcceptButton = ButtonStart
    End Sub

    ' Start ボタンクリック
    Private Sub ButtonStart_Click(sender As Object, e As EventArgs) _
        Handles ButtonStart.Click

        ' 1) 入力検証
        Dim input As Integer
        If Not Integer.TryParse(TextSetSeconds.Text, input) OrElse input <= 0 Then
            MessageBox.Show("ゆで時間は 1 以上の整数で入力してください。", "入力エラー")
            TextSetSeconds.Focus()
            TextSetSeconds.SelectAll()
            Exit Sub
        End If

        ' 実用上の上限（任意）：最大 3600 秒に制限
        If input > 3600 Then
            MessageBox.Show("最大 3600 秒までにしてください。", "入力エラー")
            TextSetSeconds.Focus()
            TextSetSeconds.SelectAll()
            Exit Sub
        End If

        ' 2) 変数初期化
        EndSeconds = input
        Elapsed = 0
        TextRemaining.Text = EndSeconds.ToString()

        ' 3) UI の状態変更
        TextSetSeconds.Enabled = False
        ButtonStart.Enabled = False

        ' 4) タイマースタート（1秒間隔）
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    ' 1秒毎の処理
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) _
        Handles Timer1.Tick

        Elapsed += 1
        Dim remaining = EndSeconds - Elapsed
        If remaining < 0 Then remaining = 0

        ' 画面更新
        TextRemaining.Text = remaining.ToString()

        ' 終了判定
        If remaining = 0 Then
            Timer1.Stop()

            ' UI の状態を元に戻す
            TextSetSeconds.Enabled = True
            ButtonStart.Enabled = True
            TextSetSeconds.Focus()
            TextSetSeconds.SelectAll()

            ' 通知（音＋メッセージ）
            SystemSounds.Asterisk.Play()
            MessageBox.Show("麺がゆで上がりました！お好みの固さでお召し上がりください。", "ラーメンタイマー")
        End If
    End Sub
End Class