步驟1：VB部分

在VB Express中創(chuàng)建新的Windows窗體應(yīng)用程序

插入

1個(gè)組合框（comPort_ComboBox）

2按鈕（connect_BTN，clear_BTN用于連接和清除）

1串行端口控制器（SerialPort1）

1計(jì)時(shí)器（Timer1）

1標(biāo)簽（Timer_LBL）1富文本框（RichTextBox1）

通過martyn currey復(fù)制和粘貼VB代碼（如下所示）

將arduino代碼上傳到您的arduino（如下所示）將Arduino Digital IO 13引腳連接到LED + ve ，

Ultrasonic的Arduino IO 7的Echo引腳和Arduino Digital IO 8的Ultrasonic的Trig引腳生成并運(yùn)行VB程序通過將手放在Ultrasonic Reader上檢查準(zhǔn)確性

第2步：Arduino部分

將Arduino Digital IO 13引腳連接到LED + ve，將Ultrasonic的Echo引腳連接到Arduino Digital IO 7，將Ultrasonic的Trig引腳連接到Arduino Digital IO 8

#define echoPin 7//回聲引腳

#define trigPin 8//觸發(fā)引腳

#define loadpin 13//觸發(fā)引腳

int jij = 0;

int maximumRange = 200;//需要的最大范圍

int minimumRange = 0;//所需的最小范圍

浮動(dòng)持續(xù)時(shí)間，距離；//用于計(jì)算距離的持續(xù)時(shí)間

void setup（）{

Serial.begin（9600）;//設(shè)置串行速度

pinMode（trigPin，OUTPUT）;

pinMode（echoPin，INPUT）;

pinMode（loadpin，OUTPUT）;//使用LED指示燈（如果需要）

digitalWrite（loadpin，LOW）;//關(guān)閉LED

}

無效循環(huán)（）

{

而（Serial.available（）== 0） ;//如果什么都沒發(fā)送就什么也不做

int val = Serial.read（）–‘0’;//減去‘0’的ascii值以查找已發(fā)送號(hào)碼的數(shù)值

如果（val == 1）{//測試命令1，然后打開LED

digitalWrite（ loadpin，高）；//打開LED

deflstart（）;

//jij = 1;

}

否則（val == 0）//測試命令0，然后關(guān)閉LED

{

digitalWrite（loadpin，LOW）;//關(guān)閉LED指示燈

//jij = 2;

deflstop（）;

}

否則//如果沒有一個(gè)以上命令的任何操作

{

//val = val;

}

//Serial.println（val）

Serial.flush（）;//清除串行端口

jij = 3;

}

void deflstart（）

{

digitalWrite（trigPin，LOW）;

delayMicroseconds（2）;

digitalWrite（trigPin，HIGH）;

delayMicroseconds（10）;

digitalWrite（trigPin，LOW）;

duration = pulseIn（echoPin，HIGH）;

//根據(jù)聲速計(jì)算距離（以厘米為單位）。

距離=持續(xù)時(shí)間/5.81；

如果（距離》 = maximumRange ||距離《= MinimumRange）{

/*向計(jì)算機(jī)發(fā)送一個(gè)負(fù)數(shù)并轉(zhuǎn)動(dòng)LED ON

指示“超出范圍” */

Serial.println（“-1”）;

//digitalWrite（LEDPin，HIGH）;

}

else {

Serial.println（distance）;

//digitalWrite（LEDPin，LOW）;

}

//延遲下一次讀取前50毫秒。

delay（100）;

}

void deflstop（ ）

{

//Serial.println（“stop“）;

}

第3步：工作。.

運(yùn)行程序

選擇源（端口）

如果一切正確，則dist超聲波傳感器和其范圍內(nèi)的對象之間的距離出現(xiàn)在富文本框中