【6日でできるVisual Basic2022入門】⑥分岐条件を使う方法

If String.IsNullOrWhiteSpace(HeightTextBox.Text) Then
    MessageBox.Show("身長を入力してください。", "入力エラー")
    HeightTextBox.Focus() : HeightTextBox.SelectAll()
    Exit Sub
End If

Private Function GetBmiCategory(bmi As Double) As String
    Select Case bmi
        Case < 18.5 : Return "やせ気味です。体調管理に注意しましょう。"
        Case < 25.0 : Return "標準です。現在の生活リズムを維持しましょう。"
        Case < 30.0 : Return "やや高めです。食事と運動のバランスを意識しましょう。"
        Case Else    : Return "高めです。専門家への相談を検討してください。"
    End Select
End Function

Private Function GetBmiColor(bmi As Double) As Color
    Select Case bmi
        Case < 18.5 : Return Color.SteelBlue
        Case < 25.0 : Return Color.ForestGreen
        Case < 30.0 : Return Color.DarkOrange
        Case Else   : Return Color.Crimson
    End Select
End Function

Option Strict On
Option Infer On

Imports System.Drawing

Public Class MainForm

    Private Sub CalcButton_Click(sender As Object, e As EventArgs) Handles CalcButton.Click
        ' 1) 空・数値・範囲の分岐（ガード節）
        Dim heightCm As Double
        Dim weightKg As Double

        If Not TryReadPositiveInRange(HeightTextBox, "身長(cm)", 80, 250, heightCm) Then Exit Sub
        If Not TryReadPositiveInRange(WeightTextBox, "体重(kg)", 20, 300, weightKg) Then Exit Sub

        ' 2) BMI 計算（cm → m）
        Dim h As Double = heightCm / 100.0
        If h <= 0 Then
            MessageBox.Show("身長は 0 より大きい値を入力してください。", "入力エラー")
            Exit Sub
        End If

        Dim bmi As Double = weightKg / (h * h)
        If Double.IsNaN(bmi) OrElse Double.IsInfinity(bmi) Then
            MessageBox.Show("計算できませんでした。入力値を確認してください。", "計算エラー")
            Exit Sub
        End If

        ' 3) 表示（数値整形＋判定メッセージ＋色）
        Dim bmiRounded = Math.Round(bmi, 1, MidpointRounding.AwayFromZero)
        BmiTextBox.Text = bmiRounded.ToString("0.0")

        Dim msg = GetBmiCategory(bmiRounded)
        ResultLabel.Text = msg
        ResultLabel.ForeColor = GetBmiColor(bmiRounded)
    End Sub

    ' 入力 TextBox の分岐チェック：空 → 数値 → 範囲
    Private Function TryReadPositiveInRange(tb As TextBox, fieldName As String,
                                            minValue As Double, maxValue As Double,
                                            ByRef result As Double) As Boolean
        Dim raw = tb.Text.Trim()

        If String.IsNullOrWhiteSpace(raw) Then
            MessageBox.Show($"{fieldName} を入力してください。", "入力エラー")
            tb.Focus() : tb.SelectAll()
            Return False
        End If

        If Not Double.TryParse(raw, result) Then
            MessageBox.Show($"{fieldName} は半角の数字で入力してください。", "入力エラー")
            tb.Focus() : tb.SelectAll()
            Return False
        End If

        If result < minValue OrElse result > maxValue Then
            MessageBox.Show($"{fieldName} は {minValue} ～ {maxValue} の範囲で入力してください。", "範囲エラー")
            tb.Focus() : tb.SelectAll()
            Return False
        End If

        Return True
    End Function

    Private Function GetBmiCategory(bmi As Double) As String
        Select Case bmi
            Case < 18.5 : Return "やせ気味です。体調管理に注意しましょう。"
            Case < 25.0 : Return "標準です。現在の生活リズムを維持しましょう。"
            Case < 30.0 : Return "やや高めです。食事と運動のバランスを意識しましょう。"
            Case Else    : Return "高めです。専門家への相談を検討してください。"
        End Select
    End Function

    Private Function GetBmiColor(bmi As Double) As Color
        Select Case bmi
            Case < 18.5 : Return Color.SteelBlue
            Case < 25.0 : Return Color.ForestGreen
            Case < 30.0 : Return Color.DarkOrange
            Case Else   : Return Color.Crimson
        End Select
    End Function

End Class