體脂肪率計算軟件說明書

1、體脂肪率計算軟件說明書 一、設計背景 肥胖癥是現(xiàn)代社會威脅人類健康的主要殺手，衡量肥胖癥的指標之一是體脂肪率，它是將脂肪 含量用其占總體重的百分比的形式表示。體脂肪率計算公式為： 體重（公斤） 體脂肪率（） = 1.2定+ 0.23*年齡一54一108準性別 身髙（米） 其中男性性別取值為1，女性取值為0。一般認為男性體脂25%,女性33%是診斷肥胖的標準。 試設計一個VBA窗體程序，計算體脂肪率。 要求輸出時，給出性別和合理的體脂肪率。 將該軟件開發(fā)成APP,應用于平常手機中可以有效幫助肥胖或潛在肥胖人群監(jiān)控自身體重，隨 時隨地替促自己進行食量控制和健康鍛煉。在社會中可以掀起鍛煉的風潮，有助

2、于全民健康。 二、面向對象程序說明 （一）構造界面控件說明 窗體對象界面元素 對象實例說明 對象所屬的類 對象事件 窗體 Form 窗體 Load 文字“歡迎使用體脂肪率計算軟件” Labell92 標簽 文字身髙” Label492 標簽 身高”后文本框 Height92 文本框 文字“米” Label792 標簽 文字“體重” Labe1692 標簽 “體重”后文本框 Weight92 文本框 文字“Kg” Label892 標簽 文字“年齡” Labell092 標簽 年齡”后文本框 Age92 文本框 文字“請選擇性別” Labell592 標簽 Opt “ 男” Optimale92

3、 選項按鈕 Click 文字男” Labell792 標簽 Opt “女” 0pt_female92 選項按鈕 Click 文字“女” Labell992 標簽 文字“體脂肪率計算” Cmd_rate92 命令按鈕 Click 文字“您的體脂肪率為：” Label2292 標簽 “您的體脂肪率為：”后文本框 Rate92 文本框 文字“再來一次” Cmd_again92 命令按鈕 Click （二）控件屬性說明 對象實例名稱 對象屬性設置 Form “標題”為“歡迎使用計算體脂肪率軟件”背景色SCDDCAF Label192 “標題”為歡迎使用體脂肪率計算軟件”背景色：淺色頁眉 背景陰影 La

4、bel492 “標題”為“身高背景色#EFD3D2,凸起 Height92 Labe1792 “標題”為“米”背景色#FFFFFF Labe1692 “標題”為“體重”背景色#EFD3D2,凸起 Weight92 Labe1892 “標題”為“Kg”背景色#FFFFFF Label1092 “標題”為“年齡”背景色#EFD3D2,凸起 Age92 Label1592 “標題”為“請選擇性別”背景色SEFD3D2,凸起 0pt_male92 Label1792 標題”為“男”背景色#FFFFFF 0pt_female92 Label1992 “標題”為“女”背景色#FFFFFF Cmd_rate

5、92 “標題”為“體脂肪率計算” Label2292 “標題”為“您的體脂肪率為：”背景色#FFFFFF Rate92 Cmd_again92 “標題”為“再來一次” （三）控件事件代碼說明 對象實例名稱 對象事件 事件功能 Form Load 打開窗體時，窗體名稱默認為歡迎使用計算體脂肪率軟件”，將 age92, height92, weight92, rate92文本框值默認為空,選項按 鈕標記為非選中狀態(tài) 0pt_male92 Click 先設巻“男”選項按鈕為選中狀態(tài)，在設置“女”選項按鈕為非選 中狀態(tài)，保證rate92屬性的單一性。 0pt_female92 Click 先設程“女”

6、選項按鈕為選中狀態(tài)，在設置“男”選項按鈕為非選 中狀態(tài)，保證rate92屬性的單一性。 Rate92 Click 先設置age92 height92 weight92, rate92的屬性為對應文本框 中所輸入值，利用所輸入數據計算體脂肪率，并將結果復制給 rat亡92文本框。同時按照rat92的不同屬性值彈出對話框，給岀不 同的建議。 Cmd_again92 Click 設置age92, height92 weight92 rate92文本框值為空。選項按 鈕標記為非選中狀態(tài)。開始準備下一次計算。 （四）程序代碼 Option Compare Database Private Sub for

7、m_load() Me. Caption二歡迎使用訃算體脂肪率軟件少 Me. age92. Value =“ Me.height92. Value = Me. weight92Value = Me.rate92. Value = Me. opt_fem81己92 Value = False Me. opt_male92Value = False End Sub Private Sub optimale92_c1ick 0 If opt_male92 Value = True Then opt_female92 Value = False End If End Sub Private Sub o

8、pt_fema1e92_c1ick() If opt_female92 Value = True Then opt_male92Value = False End If End Sub Private Sub cmd_rate92_click 0 Dim age, sex As Integer Dim weight, height, rate As Double If Me. opt_male92 Value Then sex = 1 Elself Me. opt_female92Value Then sex = 0 End If age = Me. age92 Value height =

9、Me. height92 Value weight = Me. weight92Value rate = 1.2* weight / (height 2) + 0. 23 * age -5.4-10.8 * sex rate92 Value = rate 給男性的建議 If sex = 1 And rate = 10 And rate = 25 Then MsgBox (帥哥, 您的體型正常0 Elself sex =1 And rate 25 Then MsgBox (帥哥, 您的體型過胖，食量適度二二“) End If 給女性的建議 If sex = 0 And rate = 15 And rate = 33 Then MsgBox c女士, 您的體型正常0 Elself sex =0 And rate 33 Then End MsgBox 少吃有助于身心健康) If End Sub Private Sub cmd_again92_click() Me. age92. Value = Me.height92. Value = Me. weight92Value = Me.rate92. Value = Me. opt_fem81己92 Value = False Me. opt_male92Value = False End Sub 三、體脂肪率計算數據測試的截圖說明 圖