BMIチェックプログラムの改造2

BMIチェックプログラムの改造2

【開発環境】
os:Windows 10
IDE（統合開発環境）:VisualStudio 2017
言語；VB

【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原　博之/宮崎　昭世

【BMIチェックアプリの改善2】
・前回の改造では、デザインを分かりやすく変えたが、今回は入力された値が数字以外の場合の措置を考えて見ましょう。


【コーティング】
Public Class BMI改造
'変数宣言
Dim 体重 As Integer
Dim 身長 As Double
Dim BMI As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'型変換の確認
If Integer.TryParse(TextBox1.Text, 体重) = True Then
'値の読み込み、数字変換する
体重 = Integer.Parse(TextBox1.Text)
Else
MsgBox("数字を入れろ")

End If

'型変換の確認
If Double.TryParse(TextBox2.Text, 身長) = True Then
'値の読み込み、数字変換する
身長 = Double.Parse(TextBox2.Text)

Else
MsgBox("数字を入れろ")

End If

If 身長 ＜＞ 0 Then
'少数の丸める
BMI = 体重 / 身長 ^ 2
Label3.Text = Math.Floor(BMI)
Else

MsgBox("ゼロを入れるな")

End If


'if文を追加
If BMI ＜ 18 Then
Label4.Text = "痩せている"

ElseIf BMI ＞= 18 And BMI ＜ 25 Then
Label4.Text = "普通体重"

Else
Label4.Text = "太り過ぎ"

End If
End Sub
End Class

【結果】

関数を使ってみた

【コーティング】
Public Class BMI改造
'変数宣言
Dim 体重 As Double
Dim 身長 As Double
Dim BMI As Integer

'関数
Private Function チェック(text As String, Value As Double) As Double
If Double.TryParse(text, Value) = True Then
Value = Double.Parse(text)
Else

MsgBox("数字を入れろ")
End If

Return Value
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'関数を使う
体重 = チェック(TextBox1.Text, 体重)
身長 = チェック(TextBox2.Text, 身長)


If 身長 ＜＞ 0 Then
'少数の丸める
BMI = 体重 / 身長 ^ 2
Label3.Text = Math.Floor(BMI)
Else

MsgBox("ゼロを入れるな")

End If


'if文を追加
If BMI ＜ 18 Then
Label4.Text = "痩せている"

ElseIf BMI ＞= 18 And BMI ＜ 25 Then
Label4.Text = "普通体重"

Else
Label4.Text = "太り過ぎ"

End If
End Sub


End Class