全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1102
推到 Plurk!
推到 Facebook!

請教VB 2008 RS232

尚未結案
balabubu
初階會員


發表:11
回覆:15
積分:25
註冊:2006-12-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-01-07 17:19:17 IP:218.210.xxx.xxx 訂閱
各位大大
請問VB 2008,從外部8051讀BYTE進來.
因為我每一串資料的長度非固定,所以設2BYTE作抬頭 (0xFA,0X07,資料流...0xFA,0X07,資料流.....)
該怎麼找到每個抬頭後再抓資料流處理,有這個指令或技巧嗎. 不勝感激.
小弟剛學VB不久.QQ..請大大解惑.

'RS232傳輸
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim inByte() As Byte
Dim readcount As Integer
Dim check1 As Byte = 0
Dim check2 As Byte = 0

If RS232.BytesToRead <= 0 Then Exit Sub
ReDim inByte(RS232.BytesToRead - 1)
readcount = RS232.Read(inByte, 0, RS232.BytesToRead)
If readcount = 0 Then
Exit Sub
Else

For Each bData As Byte In inByte
TextBox1.Text = (Hex(bData) " ").ToString
Next
'測試程式區-----------
判讀FE07 .

'測試程式區-----------
End If
End Sub



系統時間:2017-10-18 6:30:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!