Presentation is loading. Please wait.

Presentation is loading. Please wait.

計算機程式及實習 期末報告 PPT 製作 題目 : 肥胖因子檢查 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 劉志瑋 學號 : 4A115005 老師 : 謝慶存.

Similar presentations


Presentation on theme: "計算機程式及實習 期末報告 PPT 製作 題目 : 肥胖因子檢查 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 劉志瑋 學號 : 4A115005 老師 : 謝慶存."— Presentation transcript:

1 計算機程式及實習 期末報告 PPT 製作 題目 : 肥胖因子檢查 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 劉志瑋 學號 : 4A115005 老師 : 謝慶存

2 這是一個 檢查肥胖因子 的程式,使用者輸入資料後會顯示 肥胖的情形 1. 男性腰圍大於 90 ,女性腰圍大於 80 公分就屬於腰圍太粗 2. 男性腰臀比︰ 大於 0.9 屬於上半身肥胖屬蘋果型身材 小於 0.85 屬於下半身肥胖屬梨子型身材 介於 0.85 – 0.9 者為 WHR 腰臀圍比例正常 3. 女性腰臀比︰ 大於 0.8 屬於上半身肥胖屬蘋果型身材 小於 0.75 屬於下半身肥胖屬梨子型身材 介於 0.75 – 0.8 者為 WHR 腰臀圍比例正常

3 實際程式撰寫 – 表單設計 GroupBox1 rdbMan rdbWoman GroupBox2 txtWaist txtBottom GroupBox3 Chk1 Chk2 Chk3 chk4 btnOK

4 程式碼撰寫 Public Class Form1 Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Dim show As String = "" If txtWaist.Text = "" Or txtBottom.Text = "" Then show = “ 請務必輸入腰圍和臀圍 !!“ Else Dim sex As String ‘ 性別稱呼 I( 你 or 妳 ) Dim waist As Integer ' 標準腰圍的最大值 Dim case1, case2 As Single If rdbMan.Checked = True Then sex = " 妳 " : waist = 90 case1 = 0.9 : case2 = 0.85 Else

5 sex = " 妳 " : waist = 80 case1 = 0.8 : case2 = 0.75 End If If Val(txtWaist.Text) > waist Then show &= sex & " 的腰圍太粗 !" & vbNewLine Else show &= sex & " 的腰圍正常 !" & vbNewLine End If Select Case Val(txtWaist.Text) / Val(txtBottom.Text) Case Is > case1 show &= " 上半身肥胖屬於蘋果型身材 !" & vbNewLine Case case2 To case1 show &= "WHR 腰臀比例正常 !" & vbNewLine Case Is < case2 show &= " 下半身肥胖屬梨子型身材 ?" & vbNewLine

6 End Select show &= IIf(chk1.Checked = True, " 有 ", " 沒有 ") & " 遺傳的肥胖因子 " & vbNewLine show &= IIf(chk2.Checked = True, " 有 ", " 沒有 ") & " 飲食習慣的肥胖因子 " & vbNewLine show &= IIf(chk3.Checked = True, " 有 ", " 沒有 ") & " 缺乏運動的肥胖因子 " & vbNewLine show &= IIf(chk4.Checked = True, " 有 ", " 沒有 ") & " 心理方面的肥胖因子 " & vbNewLine End If MsgBox(show) End Sub End Class

7 實際執行程式 依照使用者輸入的資料計算顯示肥胖的情形

8

9 心得 上次期末報告做消費卷付現換算,對製作程式已不 那麼陌生,但因還沒有很了解,本來想挑戰做難一 點的遊戲,結果換取失敗,研究錯誤的地方許久, 卻還是不了解問題點,所以後來選了這個程式當作 業,想說先從簡易再來中度,漸漸得再來挑戰比較 難的,因為到那時自己也比之前更進步,對程式碼 也更了解了一些,成功的機會比較大,我也會配合 老師上課的進度,慢慢的學習,充實自己 , 這樣才不 會浪費父母和老師對我們的苦心。


Download ppt "計算機程式及實習 期末報告 PPT 製作 題目 : 肥胖因子檢查 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 劉志瑋 學號 : 4A115005 老師 : 謝慶存."

Similar presentations


Ads by Google