機器人-Robot Nobody 機器人.

Presentation on theme: "機器人-Robot Nobody 機器人."— Presentation transcript:

1 機器人-Robot Nobody 機器人

2 Bill Gates 說 「今日的機器人產業，恰似30年前的個人 電腦」
「繼電腦與網路後，機器人將成為下一個 超級科技新星」 - 【家家都有機器人】科學人雜誌2007/02

3 台灣的機器人比賽 機器人奧林匹克大賽WRO，中小學參加 初賽的隊伍超過800隊 台灣智慧型機器人實作競賽 TDK盃創思設計與製作競賽
全國工業機器人競賽 全國機器人技能競賽 ……每年超過十數場

4 中國 2007，中國哈爾濱省教育局頒布命令，國 中小學校必須開設機器人課程，好培養下 一代的創新精神和實踐能力
機器人是中國高技術研發計畫（簡稱863 計畫）的項目之一

5 韓國 韓國首爾，一間專事機器人教育的高中已 成立，校名就叫做Robotics High School
韓國政府2004年宣布，要在2013年成為繼 美、日之後的第三大機器人強國。

6 機器人是什麼？ 當紅炸子”機” – Pleo 蛋蛋 - Rolly 吸塵器 – Roomba iRobot 變形金鋼 – i-SOBOT
Show time or show time 2 蛋蛋 - Rolly 吸塵器 – Roomba iRobot Show time 變形金鋼 – i-SOBOT 積木 – NXT ……功能（外型）千變萬化

7 機器人的組成 軟體 程式設計 人工智慧 硬體 電子 機械 類似電腦的組成 硬 體 軟 體

8 機器人的學習重點 機器人本體 電子電路 機械構造 專屬程式語言 控制行為動作 (思考 – 人工智慧) 創意與應用

9 機器人RoCar的學習重點 問題解決 電子電路 機械構造 專屬程式語言 控制行為動作 創意與應用

10 機器人RoCar架構 使用者 程式 .NET(2005/2008) VB VC++ VC# VJ#...... Robots 物件 USB

11 Robots家族 RoCar RoArm RoAnt RoDog RoBoy……
RoArm RoAnt RoDog RoBoy……

12 RoCar規格一覽 電源 : AAA電池1 ~ 6顆，USB 感測器 : 10 輸出元件 : 12~19

13 認識RoCar硬體 – 上視 感測器 聲音 * 3 感測器 碰觸 * 2 輸出元件 LED * 8 輸出元件 7段顯示器 馬達電池
1 ~ 2 輸出元件 蜂鳴器 感測器 溫度 感測器DIP sw 電源開關 左電池/中off/右USB Reset 按鈕

14 認識RoCar硬體 – 下視 輸出元件 馬達 * 2 感測器 光線 * 3 三段變速 齒輪箱

15 實作 – 1 測試硬體 裝上AAA電池1顆USB 接上USB線(開關向右) 安裝驅動程式
測試內建程式 : DIP Switch 1=音樂、2=閃 燈、3=碰碰車、4=循軌車、5=全黑停

16 實作 – 2「我的第一隻程式」 使用MoveC()讓機器人動起來 建立新專案，選取「專案/加入參考/瀏覽」
C:\Program files\旗立Robots\iRobots.dll C:\Program files\旗立Robots\vRobots.dll 程式第一行(Public Class Form1之後) : Dim WithEvents RC as New iRobots.RoCar01 或 Dim WithEvents RC as New vRobots.RoCar01 Button1_Click()加入 : RC.MoveC(“F”)

17 實作 – 3「機器人趴趴Go!」 改善前一實作，變成有”前、後、左、右 、停”共5按鈕之程式 繞圈圈 提示：
RC.MoveC(“F”) RC.MoveC(“B”) RC.MoveC(“L”) RC.MoveC(“R”) RC.MoveC(“X”) 繞圈圈 提示： RC .WaitN(2000) ‘持續兩秒

18 作業 – 自動尋跡軌道車 (請參考 Lesson 16)
狀態 傳回值 對應動作 (2進位) (10進位) 黑黑黑 000 黑黑白 001 1 直走 黑白黑 010 2 黑白白 011 3 左轉 白黑黑 100 4 白黑白 101 5 白白黑 110 6 右轉 白白白 111 7 停止

19 Private Sub Button1_Click(ByVal sender As System
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ioldc, ic As Integer ic = RC.camsIN() Do Until ic = 7 Select Case ic Case 1 RC.MoveC("F") Case 3 RC.MoveC("L") Case 4 Case 5 Case 6 RC.MoveC("R") Case Else RC.MoveC("B") End Select RC.WaitN(100) RC.MoveC("X") ioldc = ic ic = RC.camsin() Loop If ic = 7 And ioldc = 0 Then MsgBox("請放在軌道上") Else MsgBox("終點到了") End If End Sub