南台科技大學 機械工程系 班級 : 車輛三甲 學號 :49915045 學生 : 黃郁鈞.  BMI 值的計算就是 :  體重 / 身高 x 身高  身高需換算成公尺單位計算.

Presentation on theme: "南台科技大學 機械工程系 班級 : 車輛三甲 學號 :49915045 學生 : 黃郁鈞.  BMI 值的計算就是 :  體重 / 身高 x 身高  身高需換算成公尺單位計算."— Presentation transcript:

1 南台科技大學 機械工程系 班級 : 車輛三甲 學號 :49915045 學生 : 黃郁鈞

2  BMI 值的計算就是 :  體重 / 身高 x 身高  身高需換算成公尺單位計算

3 首先填入 身高 及 體重 接著選擇 性別 : 男 / 女 填寫完畢後 再按下 的按鈕 最後結果會顯示在這裡 判別是否 過輕、適中、過重

4  當未輸入任何數據資料時按下 則會出現 請填身高對話方塊 請填體重對話方塊

5 以男生 身高 170 體重 65 來計算 BMI 值結果為 : 22 正常

6 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim hight, weight, tmp As Double Dim ans As Integer If TextBox1.Text = "" Then MessageBox.Show(" 請填身高 ") End If If TextBox2.Text = "" Then MessageBox.Show(" 請填體重 ") End If

7 If TextBox1.Text <> "" Then If TextBox2.Text <> "" Then hight = CDbl(TextBox1.Text) weight = CDbl(TextBox2.Text) tmp = hight / 100 ans = weight / (tmp * tmp) Label4.Text = ans End If

8 If RadioButton1.Checked = True Then If ans < 18 Then Label4.Text += " 過輕 " ElseIf ans < 24 Then Label4.Text += " 正常 " ElseIf ans >= 24 Then Label4.Text += " 過重 " End If

9 If RadioButton2.Checked = True Then If ans < 18 Then Label4.Text += " 過輕 " ElseIf ans < 24 Then Label4.Text += " 正常 " ElseIf ans >= 24 Then Label4.Text += " 過重 " End If End Sub End Class

10 第一次接觸 Visual Basic 是在上大學之後 的事情，上大學以前可以說是完全沒有程式 語言的概念，一切都是重頭開始學，經過老 師的教導下，動手寫程式讓我覺得有些許的 成就感；而且還發現，原來小時候玩的電腦 遊戲都是這樣子寫出來的，程式語言是電腦 很重要不可或缺的一環。

11  Visual Basic 2010 輕鬆學習 作者 : 秦邦皓  Pixnet:jarvis037  Visual Basic 2010 基礎必修課 作者 : 林義証. 蔡文龍