設好通訊協定
comm.portopen
comm.output="i"+vbcr (這裡需要test, or vblf or vbcr+lf)
dim s as string
do
s=s+comm.input
loop until instr(1,s,"height=17"+vbcrlf)
'這裡也需要測試終端字元或加入timeout 設計
※ 引述《lkk02042005 (人要賤才活的下去)》之銘言：
: 最近要做一個專題
: 內容用到一台具有辨識功能的攝影機來辨識影像
: 先讓機器學習要辨識的東西並編號
: 辨識了以後攝影機的面板上就會顯示東西相對應數字
: 但是現在要把其辨識到的資訊傳到電腦裡並做一點變化
: 首先
: 我用tera term軟體或是XP內建的超級終端機擷取到的資料介面是:
: RoadNarrows Intelligent Systems
: RoboSight (C)2009
: HW STD1 v1.0 S/N 00032
: FW RSST v1.1.0
: 按了h以後會跑出:
: Single letter commands
: c - show category and distance
: d - download data from host
: f - force forget
: h - display help
: i - display Cognimem information
: k - restore data from EEPROM
: n - show all neurons
: r - read register
: s - save data to EEPROM
: t - train video
: u - upload data to host,,,
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.44.78.124