190 likes | 417 Views
機器人 -Robot. Nobody 機器人. Bill Gates 說. 「今日的機器人產業,恰似 30 年前的個人電腦」 「繼電腦與網路後,機器人將成為下一個超級科技新星」 - 【 家家都有機器人 】 科學人雜誌 2007/02. 台灣的機器人比賽. 機器人奧林匹克大賽 WRO ,中小學參加初賽的隊伍超過 800 隊 台灣智慧型機器人實作競賽 TDK 盃創思設計與製作競賽 全國工業機器人競賽 全國機器人技能競賽 …… 每年超過十數場. 中國. 2007 ,中國哈爾濱省教育局頒布命令,國中小學校必須開設機器人課程,好培養下一代的創新精神和實踐能力
E N D
機器人-Robot Nobody 機器人
Bill Gates 說 • 「今日的機器人產業,恰似30年前的個人電腦」 • 「繼電腦與網路後,機器人將成為下一個超級科技新星」 - 【家家都有機器人】科學人雜誌2007/02
台灣的機器人比賽 • 機器人奧林匹克大賽WRO,中小學參加初賽的隊伍超過800隊 • 台灣智慧型機器人實作競賽 • TDK盃創思設計與製作競賽 • 全國工業機器人競賽 • 全國機器人技能競賽 • ……每年超過十數場
中國 • 2007,中國哈爾濱省教育局頒布命令,國中小學校必須開設機器人課程,好培養下一代的創新精神和實踐能力 • 機器人是中國高技術研發計畫(簡稱863計畫)的項目之一
韓國 • 韓國首爾,一間專事機器人教育的高中已成立,校名就叫做Robotics High School • 韓國政府2004年宣布,要在2013年成為繼美、日之後的第三大機器人強國。
機器人是什麼? • 當紅炸子”機” – Pleo • Show time or show time 2 • 蛋蛋 - Rolly • 吸塵器 – RoombaiRobot • Show time • 變形金鋼 – i-SOBOT • 積木 – NXT • ……功能(外型)千變萬化
軟 體 硬 體 類似電腦的組成 機器人的組成 • 軟體 • 程式設計 • 人工智慧 • 硬體 • 電子 • 機械
機器人的學習重點 • 機器人本體 • 電子電路 • 機械構造 • 專屬程式語言 • 控制行為動作 • (思考 – 人工智慧) • 創意與應用
機器人RoCar的學習重點 • 問題解決 • 電子電路 • 機械構造 • 專屬程式語言 • 控制行為動作 • 創意與應用
機器人RoCar架構 VB VC++ VC# VJ#...... .NET(2005/2008) 使用者 程式 Robots 物件 USB
Robots家族 • RoCar • http://www.fisp.com.tw/blog/robots/ • RoArm • RoAnt • RoDog • RoBoy……
RoCar規格一覽 • 電源 : AAA電池1 ~ 6顆,USB • 感測器 : 10 • 輸出元件 : 12~19
認識RoCar硬體 –上視 感測器 聲音 * 3 感測器 碰觸 * 2 輸出元件 LED * 8 輸出元件 7段顯示器 馬達電池 1 ~ 2 輸出元件 蜂鳴器 感測器 溫度 感測器DIP sw 電源開關 左電池/中off/右USB Reset 按鈕
認識RoCar硬體 –下視 輸出元件 馬達 * 2 感測器 光線 * 3 三段變速 齒輪箱
實作 – 1 測試硬體 • 裝上AAA電池1顆USB • 接上USB線(開關向右) • 安裝驅動程式 • 測試內建程式 : DIP Switch 1=音樂、2=閃燈、3=碰碰車、4=循軌車、5=全黑停
實作 – 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”)
實作 – 3「機器人趴趴Go!」 • 改善前一實作,變成有”前、後、左、右、停”共5按鈕之程式 • 提示: • RC.MoveC(“F”) • RC.MoveC(“B”) • RC.MoveC(“L”) • RC.MoveC(“R”) • RC.MoveC(“X”) • 繞圈圈 • 提示: RC .WaitN(2000) ‘持續兩秒
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 RC.MoveC("F") Case 5 RC.MoveC("F") 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