如何用VB 2005和BS2溝通??

xzy032

各位大大好，我想用VB 2005來跟BS2做溝通，我是用Boe-BS2PX USB的，使用baudrate 9600,8N1，VB的serialport也有設定好com port等等，因為我對VB才剛接觸，可以幫我看一下程式哪裡有錯，程式大致上是利用一個button和textbox，當我按下button，然後傳出dat，接著BS2收到dat之後，回傳給PC，但是執行VB則是顯示"通訊埠已經關閉"的訊息，拜託懂的人出個聲吧，或是有什麼方法提供一下，現在只是想簡單測試VB跟BS2的溝通。

-------VB 程式--------------------------------------------------------
Public Class Form1
    Dim dat(2) As Byte
    Dim readbf(2) As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Byte
        dat(0) = 5
            SerialPort1.Write(dat, 0, 1)        '在這裡顯示==>"通訊埠已經關閉"
            System.Threading.Thread.Sleep(1)
      
             SerialPort1.DiscardInBuffer()
             SerialPort1.Read(readbf, 0, 1)
        readbf(0) = A
        TextBox1.Text = A

    End Sub
End Class
--------------------------------------------------------------------

----BS2程式-------------------------------
' {$STAMP BS2px}
' {$PBASIC 2.5}
dat VAR Byte
DO
SERIN 16,16780,[dat]
DEBUG ? dat,CR
IF dat>0 THEN
  SEROUT 16,16780,[DEC 125]
ENDIF
LOOP
END
--------------------------------------------------------------------