計算機程式及實習 期末報告 PPT 製作 題目 : 肥胖因子檢查 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 劉志瑋 學號 : 4A 老師 : 謝慶存
這是一個 檢查肥胖因子 的程式，使用者輸入資料後會顯示 肥胖的情形 1. 男性腰圍大於 90 ，女性腰圍大於 80 公分就屬於腰圍太粗 2. 男性腰臀比︰ 大於 0.9 屬於上半身肥胖屬蘋果型身材 小於 0.85 屬於下半身肥胖屬梨子型身材 介於 0.85 – 0.9 者為 WHR 腰臀圍比例正常 3. 女性腰臀比︰ 大於 0.8 屬於上半身肥胖屬蘋果型身材 小於 0.75 屬於下半身肥胖屬梨子型身材 介於 0.75 – 0.8 者為 WHR 腰臀圍比例正常
實際程式撰寫 – 表單設計 GroupBox1 rdbMan rdbWoman GroupBox2 txtWaist txtBottom GroupBox3 Chk1 Chk2 Chk3 chk4 btnOK
程式碼撰寫 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
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
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
實際執行程式 依照使用者輸入的資料計算顯示肥胖的情形
心得 上次期末報告做消費卷付現換算，對製作程式已不 那麼陌生，但因還沒有很了解，本來想挑戰做難一 點的遊戲，結果換取失敗，研究錯誤的地方許久， 卻還是不了解問題點，所以後來選了這個程式當作 業，想說先從簡易再來中度，漸漸得再來挑戰比較 難的，因為到那時自己也比之前更進步，對程式碼 也更了解了一些，成功的機會比較大，我也會配合 老師上課的進度，慢慢的學習，充實自己 ， 這樣才不 會浪費父母和老師對我們的苦心。