個人單板電腦.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 2x16 LCD Module Usage Peripheral myLCD As LCD2x16A @ 0 ‘module ID is 1 Sub Main() myLCD.Display(“HOW ARE YOU?”) ‘display message End Sub cmdBUS HOW ARE YOU? USB Keypad Module Usage Peripheral myKeypad As KeypadA @ 1 ‘module ID is 1 Sub Main() Dim keyID As Byte Dim Keystatus As Byte Do keystatus=Mykeypad.GetKeyID(KeyID) If Keystatus = 1 Then Debug Key , KeyID, CR Loop End Sub cmdBUS USB Sonar Module Usage Peripheral MySonar As SonarA @ 2 ‘module ID is 2 Sub main() Dim dis As Word Do MySonar.Ranging() ‘start the sonar Pause 100 ‘wait for reflection MySonar.GetDistance(1,dis) ‘read the distance Debug Distance = ,dis, cm,CR Loop End Sub cmdBUS USB Peripheral myComp As CompassA @ 3 ‘module ID is 3 Sub Main() Dim Ang As Word ‘declare variable Do MyComp.GetAngle(Ang) ‘angle to the North Debug Angle: , Ang, CR ‘display angle Loop End Sub Compass Module Usage cmdBUS USB Servo Commander 16 專題應用 --- 二足機器人 超音波 重力感測 藍芽、RF 、PS2 專題應用--- 二足機器人 個人單板電腦 BASIC Commander 伺服機驅動模組 Servo Control Module 伺服機 鋁材 個人單板電腦 BASIC Commander 專題應用 --- innoBot 自走車 紅外線感測 【應用】 避障、循跡、遙控….. 專題應用 --- 坦克 Peripheral MyMotor As MotorRunnerB @ 1 Sub main() Do MyMotor.ForwardA(200) MyMotor.ForwardB(200) Pause 1000 MyMotor.BackwardA(200) MyMotor.BackwardB(200) Pause 1000 Loop End Sub 個人單板電腦 BASIC Commander 馬達控制模組 專題應用 --- 六腳機械獸 BASIC Commander Servo Control Module x 2 專題應用 --- 七Omni-directional Robot全向輪移動平台機器人 機器人競賽實例 機器人競賽狀況(一) 台師大--全國二足機器人大賽 機器人跳舞、迷宮、踢足球、競走 雲科大-- 全國智慧型機器人創意大賽 機器人跳舞、迷宮、踢足球、競速車、輪型迷宮 萬能科大-- 全國智慧型機器人科技創意競賽 競速、障礙自走車、創意賽 建國科大– 全國智慧型機器人程式設計競賽 二足跳舞、二足競走、輪形迷宮賽、競速自走車 機器人競賽狀況(二) 南台科大--台灣智慧型機器人國內及國際邀請賽 .tw/robot/ 南台科大--人工智慧單晶片電腦鼠暨機器人競賽 各校輪辦-- TDK盃大專院校創思設計與製作競賽 /watch?v=Ze6rOK600M0feature=related 屏科大-- 工業機器人競賽 屏科大--田間機器人競賽 /watch?v=x4LGfHYlnnwfeature=related Passion for Innovation 謝謝聆聽 ! * * * * * * * * * * * * * * * * * * * * * * * 機器人創意製作與應用 主 講 者 蕭盈璋 Ag