運動與飲食 課程：RFID應用 組員：B09622001 黃嘉瑩 B09622012 林書妤 B09622015 廖佳彥
實 驗 目 的 均衡健康的優質飲食態度 ，其實比想想中簡單！攝取適量的蔬果與餐飲加上適度運動，就能享受均衡活力。 由於現代人注重良好的健康管理，因此為了忙碌的現代人，我們設計了一組系統，透過一張方便攜帶且簡易使用的智慧IC卡，幫助人們紀錄每天所攝取以及消耗…等的健康資訊。
實 作 情 境 模 式 RFID CARD RFID CARD 紀錄使用跑步機時 所消耗之卡洛里總數 EXERCISE RFID CARD 紀錄使用腳踏車時 所消耗之卡洛里總數 RFID CARD McDonalds 紀錄攝取麥當勞時 所得到之卡洛里總數
大 綱 系統大致分兩部分 資料紀錄和讀取 資料處理 運動紀錄處理 飲食紀錄處理
MAIN流程圖(截圖) main NO 選擇項目 END YES EXERCISE McDonalds RET RET
MAIN 程 式 Private Sub END_Click() End End Sub Private Sub EXE_Click() KTTExercise.Show KTTMain.Visible = False Private Sub MCD_Click() KTTMcD.Show
運 動 卡洛里是熱量的單位。藉由系統運算出消耗的卡洛里資料，有效管理每日運動量。 卡洛里的計算公式： 運 動 卡洛里是熱量的單位。藉由系統運算出消耗的卡洛里資料，有效管理每日運動量。 卡洛里的計算公式： METs X 體重 X 運動時間(hr) X 1.05 = 消費的卡洛里
計 算 原 理 1.05 =人體的密度 METs（Metabolic equivalants）是依據美國體育醫生學會(ACSM)制訂的量測指標，是一種「代謝相對值」的概念，也代表身體活動的強度「單位」。一般人在坐下的時候為1METs，步行的時候通常為3METs 、跑步則為5METs
不 同 運 動 的 METs 運動 METs 跑步 6~15 騎腳踏車 3~8 這次報告我們計算的是跑步與騎腳踏車所消耗的卡路里
VB 截 圖
運 動 資 料 處 理 流 程 圖 main NO 計時器timer 選擇運動 YES 計算 讀取資料 存取資料 NO 運動開始 END 強度紀錄
運 動 選 項 程 式 Private Sub SEL_BIKE_Click() KTTBike.Show KTTExercise.Visible = False End Sub Private Sub SEL_BYE_Click() KTTMain.Show Private Sub SEL_RUN_Click() KTTRUN.Show
BIKE 程 式
BIKE 程 式
BIKE 程 式 Private Sub Check_start_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Check_speed(0).Enabled = True Check_speed(1).Enabled = True Check_speed(2).Enabled = True Label_timer.Caption = 0 End Sub
BIKE 程 式 Private Sub Check_speed_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label_timer.Caption = 0 Timer_bike.Enabled = True Select Case Index Case 0 Label_MET2 = 8 Check_speed(0).Enabled = False Check_speed(1).Enabled = False Check_speed(2).Enabled = False Case 1 Label_MET2 = 5 Case 2 Label_MET2 = 3 End Select End Sub
BIKE 程 式 Private Sub Timer_bike_Timer() Label_timer = Val(Label_timer) + 1 Label_calories = Label_timer * Label_MET2 * Text1(2) * 1.05 End Sub
BIKE 程 式 Private Sub Check_stop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Check_start = 0 Check_speed(0).Enabled = True Check_speed(1).Enabled = True Check_speed(2).Enabled = True Timer_bike.Enabled = False change1 = Label_calories change = change + 1 If change <= 1 Then change3 = change1 Label_calories = change3 Else change3 = change1 + change2 End If change2 = change3 End Sub
BIKE 程 式 Private Sub Bike_end_Click() Timer_bike.Enabled = False KTTExercise.Show KTTBike.Visible = False End Sub
飲 食 針對某餐廳(麥當勞)之食品做熱量計算。 對其販賣的餐點熱量做紀錄。 多元化的餐點，可以做出不同的搭配和選擇。 飲 食 針對某餐廳(麥當勞)之食品做熱量計算。 對其販賣的餐點熱量做紀錄。 多元化的餐點，可以做出不同的搭配和選擇。 對於上班族，速食可以方便並且縮短大家等候餐點的時間，讓您在短暫的午餐時間也可以小憩一下!! 相信這樣的結合，將會替忙碌的人們把握黃金的中午時段。
M
餐 點 內 容 與 卡 路 里 ※單位:大卡 麥香雞堡:420 薯條(中) :330 可樂(中) :230 麥香魚堡:320 雙層牛肉吉事堡:450 總:980 總:880 總:1010 ※單位:大卡
餐 點 內 容 與 卡 路 里 ※單位:大卡 麥克雞塊X6:350 薯條(中) :330 可樂(中) :230 勁辣雞腿堡:440 大麥克:530 總:910 總:1000 總:1090 ※單位:大卡
餐 點 內 容 與 卡 路 里 ※單位:大卡 麥脆雞X2:660 薯條(中) :330 可樂(中) :230 鈑烤雞腿堡:310 三層牛肉吉事堡:590 總:1220 總:870 總:1150 ※單位:大卡
飲 食 資 料 處 理 流 程 圖 START 卡片讀取 點餐系統 熱量計算 END
VB 截 圖
McD 程 式
McD 程 式
McD 程 式
Menu 程 式
Menu 程 式
Private Sub Check3_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Check3(Index1).Value = 0 Select Case change Case 0 Select Case Index1 carlories1 = 450 Text_carl.Text = carlories1 Case 1 carlories2 = 560 Text_carl.Text = carlories2 End Select carlories3 = 320 Text_carl.Text = carlories3 carlories4 = 380 Text_carl.Text = carlories4 Case 2 carlories7 = 480 Text_carl.Text = carlories7 carlories8 = 460 Text_carl.Text = carlories8 Case 3 carlories10 = 560 Text_carl.Text = carlories10 carlories11 = 500 Text_carl.Text = carlories11 Check3(0).Enabled = False Check3(1).Enabled = False End Sub Menu 程 式
Menu 程 式 Private Sub Check4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Check4.Value = 0 carl = carlories0 + carlories1 + carlories2 + carlories3 + carlories4 + carlories5 + carlories6 + carlories7 + carlories8 + carlories9 + carlories10 + carlories11 Text_carl = carl End Sub
Menu 程 式 Private Sub Check2_Click() KTTMain.Show KTTMenu.Visible = False End Sub
E N D