【6日でできるVisual Basic2022入門】①今日の運勢アプリの概要

Public Class FormUranai
    Private ReadOnly msgDaikichi = {
        "最高のひらめきが舞い降ります！", "コードが美しくまとまります。", "レビューで称賛の嵐。", "学習がぐんと進みます。"}
    Private ReadOnly msgChukichi = {
        "作業が軽やかに進みます。", "苦手箇所を克服できそう。", "良い質問ができる日。", "集中力が続きます。"}
    Private ReadOnly msgShokichi = {
        "小さな達成が積み上がります。", "地道な改善が効きます。", "学びのメモが役立ちます。", "丁寧さが成果に。"}
    Private ReadOnly msgKichi = {
        "安定運。基本を大切に。", "いつも通りが最善。", "休息も成果のうち。", "無理せず着実に。"}
    Private ReadOnly msgKyo = {
        "設計を見直す好機。", "焦らず再現手順を整理。", "小休止で流れが戻る。", "助け合いで打開。"}

    Private Sub ButtonTell_Click(sender As Object, e As EventArgs) _
        Handles ButtonTell.Click

        Dim key = DatePick.Value.DayOfYear Mod 5
        Dim rnd As New Random()
        Dim text As String = ""
        Dim color As Color = Color.Black

        Select Case key
            Case 0 ' 大吉
                text = msgDaikichi(rnd.Next(msgDaikichi.Length))
                color = Color.Gold
            Case 1 ' 中吉
                text = msgChukichi(rnd.Next(msgChukichi.Length))
                color = Color.LimeGreen
            Case 2 ' 小吉
                text = msgShokichi(rnd.Next(msgShokichi.Length))
                color = Color.RoyalBlue
            Case 3 ' 吉
                text = msgKichi(rnd.Next(msgKichi.Length))
                color = Color.SteelBlue
            Case 4 ' 凶
                text = msgKyo(rnd.Next(msgKyo.Length))
                color = Color.Crimson
        End Select

        TextResult.ForeColor = color
        TextResult.Text = $"【{DatePick.Value:yyyy/MM/dd} の運勢】{Environment.NewLine}{text}"

        ' 画像は後章でリソース追加後に：
        ' Dim rm As New ComponentResourceManager(GetType(FormUranai))
        ' Dim Title As Image = CType(rm.GetObject("Title"), Image)
        ' PictureBoxResult.Image = Title
    End Sub
End Class