如何用VB 2005和BS2溝通??

max

打擾了!我也想請教程式碼的問題!?
一樣是想轉VB的形式,想問如何用VB PING BS2晶片的腳位及動作(下列為超音波程式碼)
----------------------BS2-------------------------
PingA           PIN      7
A:
    GOSUB Get_SonarA                             ' get sensor value
    cm = rawDist ** RawToCm                     ' convert to centimeters
    PUT 0,Word cm
    GOTO B
Get_SonarA:
    PingA = IsLow                                  ' make trigger 0-1-0
    PULSOUT PingA, Trigger                         ' activate sensor
    PULSIN  PingA, IsHigh, rawDist                 ' measure echo pulse
    rawDist = rawDist */ Scale                    ' convert to uS
    rawDist = rawDist / 2                         ' remove return trip
    RETURN

max

這網址以過期了,想請問用VB連接藍芽鄉郭範例嗎?