6日でできるVisual Basic2022入門】⑤今日の運勢アプリ：コードの実装と実行

Option Strict On
Imports System.ComponentModel
Imports System.Drawing

Public Class FormUranai
    ' 乱数はクラス全体で使い回して同一秒の連続実行でも偏りを減らす
    Private Shared ReadOnly Rnd As New Random()

    ' 画像（リソース）の読み込み
    Dim rm As New ComponentResourceManager(GetType(FormUranai))
    Dim Title As Image = CType(rm.GetObject("Title"), Image)
    Dim Daikichi As Image = CType(rm.GetObject("Daikichi"), Image)
    Dim Chukichi As Image = CType(rm.GetObject("Chukichi"), Image)
    Dim Shokichi As Image = CType(rm.GetObject("Shokichi"), Image)
    Dim Kichi As Image = CType(rm.GetObject("Kichi"), Image)
    Dim Kyo As Image = CType(rm.GetObject("Kyo"), Image)

    ' 結果別メッセージ（バリエーション豊富に）
    Private ReadOnly MsgDaikichi As String() = {
        "直感が冴え渡る日。難所もスッと解けます。", "丁寧に書いたコードが華麗に動作！",
        "良いレビューが集まり自信に。", "学びがつながり、理解が一段深まる。"
    }
    Private ReadOnly MsgChukichi As String() = {
        "集中が続き作業がはかどります。", "昨日つまずいた箇所に突破口。",
        "質問力が上がり、解決が早まる。", "チームとの連携がスムーズ。"
    }
    Private ReadOnly MsgShokichi As String() = {
        "小さな改善が積み重なり効果に。", "メモが役立ち再発を防げる。",
        "テストが静かに品質を守る日。", "地道なリファクタが効いてくる。"
    }
    Private ReadOnly MsgKichi As String() = {
        "安定運。基本の徹底が最善。", "休息も力のうち、無理は禁物。",
        "着実に前進。丁寧さを大切に。", "レビューで気づきを得られる。"
    }
    Private ReadOnly MsgKyo As String() = {
        "設計の見直しが好転の鍵。", "焦らず再現手順を整えよう。",
        "小休止して頭を切り替えると◎。", "助けを求めると早く進む。"
    }

    ' 初期化（タイトル画像と案内文）
    Private Sub FormUranai_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load
        Me.AcceptButton = ButtonTell
        DatePick.Value = Date.Today
        ' タイトル画像（リソース）を表示
        PictureBoxResult.Image = Title
        TextResult.Text = "日付を選んで［占う］を押してください。"
        TextResult.ForeColor = SystemColors.ControlText
    End Sub

    ' ［占う］クリック → 結果を判定して反映
    Private Sub ButtonTell_Click(sender As Object, e As EventArgs) _
        Handles ButtonTell.Click

        Dim key As Integer = GetFortuneKey(DatePick.Value) ' 0..4
        ApplyFortune(key)
    End Sub

    ' 判定キー：年内通算日（DayOfYear）の剰余で 0..4 にマップ
    Private Function GetFortuneKey(d As Date) As Integer
        Return d.DayOfYear Mod 5
    End Function

    ' 画像・色・メッセージをまとめて反映
    Private Sub ApplyFortune(key As Integer)
        Dim img As Image = Title
        Dim color As Color = SystemColors.ControlText
        Dim rank As String = "？"
        Dim text As String = "もう一度お試しください。"

        Select Case key
            Case 0
                img = Daikichi
                color = Color.Gold
                rank = "大吉"
                text = Pick(MsgDaikichi)
            Case 1
                img = Chukichi
                color = Color.LimeGreen
                rank = "中吉"
                text = Pick(MsgChukichi)
            Case 2
                img = Shokichi
                color = Color.RoyalBlue
                rank = "小吉"
                text = Pick(MsgShokichi)
            Case 3
                img = Kichi
                color = Color.SteelBlue
                rank = "吉"
                text = Pick(MsgKichi)
            Case 4
                img = Kyo
                color = Color.Crimson
                rank = "凶"
                text = Pick(MsgKyo)
        End Select

        PictureBoxResult.Image = img
        TextResult.ForeColor = color
        TextResult.Text =
            $"【{DatePick.Value:yyyy/MM/dd} の運勢：{rank}】{Environment.NewLine}{text}"
    End Sub

    ' 配列からランダムに1件取得
    Private Function Pick(arr As String()) As String
        Return arr(Rnd.Next(arr.Length))
    End Function
End Class

[占う クリック]
   ├─ key ← (DatePick.Value.DayOfYear Mod 5)
   ├─ Select Case key
   │     0..4 → 画像/色/文を決定（ランダムPick）
   └─ PictureBox.Image と TextResult に反映