運動與飲食 課程：RFID應用 組員：B 黃嘉瑩 B 林書妤 B 廖佳彥

Presentation on theme: "運動與飲食 課程：RFID應用 組員：B 黃嘉瑩 B 林書妤 B 廖佳彥"— Presentation transcript:

1 運動與飲食 課程：RFID應用 組員：B09622001 黃嘉瑩 B09622012 林書妤 B09622015 廖佳彥

2 實 驗 目 的 均衡健康的優質飲食態度 ，其實比想想中簡單！攝取適量的蔬果與餐飲加上適度運動，就能享受均衡活力。
由於現代人注重良好的健康管理，因此為了忙碌的現代人，我們設計了一組系統，透過一張方便攜帶且簡易使用的智慧IC卡，幫助人們紀錄每天所攝取以及消耗…等的健康資訊。

3 實 作 情 境 模 式 RFID CARD RFID CARD 紀錄使用跑步機時 所消耗之卡洛里總數 EXERCISE RFID CARD
紀錄使用腳踏車時 所消耗之卡洛里總數 RFID CARD McDonalds 紀錄攝取麥當勞時 所得到之卡洛里總數

4 大 綱 系統大致分兩部分 資料紀錄和讀取 資料處理 運動紀錄處理 飲食紀錄處理

5 MAIN流程圖(截圖) main NO 選擇項目 END YES EXERCISE McDonalds RET RET

6 MAIN 程 式 Private Sub END_Click() End End Sub Private Sub EXE_Click()
KTTExercise.Show KTTMain.Visible = False Private Sub MCD_Click() KTTMcD.Show

7 運 動 卡洛里是熱量的單位。藉由系統運算出消耗的卡洛里資料，有效管理每日運動量。 卡洛里的計算公式：
運 動 卡洛里是熱量的單位。藉由系統運算出消耗的卡洛里資料，有效管理每日運動量。 卡洛里的計算公式： METs X 體重 X 運動時間(hr) X 1.05 = 消費的卡洛里

8 計 算 原 理 1.05 =人體的密度 METs（Metabolic equivalants）是依據美國體育醫生學會(ACSM)制訂的量測指標，是一種「代謝相對值」的概念，也代表身體活動的強度「單位」。一般人在坐下的時候為1METs，步行的時候通常為3METs 、跑步則為5METs

9 不 同 運 動 的 METs 運動 METs 跑步 6~15 騎腳踏車 3~8 這次報告我們計算的是跑步與騎腳踏車所消耗的卡路里

10 VB 截 圖

11 運 動 資 料 處 理 流 程 圖 main NO 計時器timer 選擇運動 YES 計算 讀取資料 存取資料 NO 運動開始 END
強度紀錄

12 運 動 選 項 程 式 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

13 BIKE 程 式

14 BIKE 程 式

15 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

16 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

17 BIKE 程 式 Private Sub Timer_bike_Timer()
Label_timer = Val(Label_timer) + 1 Label_calories = Label_timer * Label_MET2 * Text1(2) * 1.05 End Sub

18 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

19 BIKE 程 式 Private Sub Bike_end_Click() Timer_bike.Enabled = False
KTTExercise.Show KTTBike.Visible = False End Sub

20 飲 食 針對某餐廳(麥當勞)之食品做熱量計算。 對其販賣的餐點熱量做紀錄。 多元化的餐點，可以做出不同的搭配和選擇。
飲 食 針對某餐廳(麥當勞)之食品做熱量計算。 對其販賣的餐點熱量做紀錄。 多元化的餐點，可以做出不同的搭配和選擇。 對於上班族，速食可以方便並且縮短大家等候餐點的時間，讓您在短暫的午餐時間也可以小憩一下!! 相信這樣的結合，將會替忙碌的人們把握黃金的中午時段。

21 M

22 餐 點 內 容 與 卡 路 里 ※單位:大卡 麥香雞堡:420 薯條(中) :330 可樂(中) :230 麥香魚堡:320
雙層牛肉吉事堡:450 總:980 總:880 總:1010 ※單位:大卡

23 餐 點 內 容 與 卡 路 里 ※單位:大卡 麥克雞塊X6:350 薯條(中) :330 可樂(中) :230 勁辣雞腿堡:440
大麥克:530 總:910 總:1000 總:1090 ※單位:大卡

24 餐 點 內 容 與 卡 路 里 ※單位:大卡 麥脆雞X2:660 薯條(中) :330 可樂(中) :230 鈑烤雞腿堡:310
三層牛肉吉事堡:590 總:1220 總:870 總:1150 ※單位:大卡

25 飲 食 資 料 處 理 流 程 圖 START 卡片讀取 點餐系統 熱量計算 END

26 VB 截 圖

27 McD 程 式

28 McD 程 式

29 McD 程 式

30 Menu 程 式

31 Menu 程 式

32 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 程 式

33 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

34 Menu 程 式 Private Sub Check2_Click() KTTMain.Show
KTTMenu.Visible = False End Sub

35 E N D