體脂肪率計算軟件說明書

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

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

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

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

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

6、選項按鈕為選中狀態(tài)，在設(shè)置“男”選項按鈕為非選 中狀態(tài)，保證rate92屬性的單一性。 Rate92 Click 先設(shè)置age92 height92 weight92, rate92的屬性為對應(yīng)文本框 中所輸入值，利用所輸入數(shù)據(jù)計算體脂肪率，并將結(jié)果復(fù)制給 rat亡92文本框。同時按照rat92的不同屬性值彈出對話框，給岀不 同的建議。 Cmd_again92 Click 設(shè)置age92, height92 weight92 rate92文本框值為空。選項按 鈕標(biāo)記為非選中狀態(tài)。開始準(zhǔn)備下一次計算。 （四）程序代碼 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 三、體脂肪率計算數(shù)據(jù)測試的截圖說明 圖