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

VB經由RS232,怎麼傳送大於255以上的數值到8051?

答題得分者是:pedro
z
一般會員


發表:8
回覆:7
積分:3
註冊:2006-12-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-04-21 08:49:35 IP:218.175.xxx.xxx 訂閱
 各位大大您好,

請教一下,因為51只能收255的數值,但超過的話,用兩個暫存器小弟會,但vb要怎麼分解成兩個byte來送呢?謝謝唷。
編輯記錄
z 重新編輯於 2011-04-20 19:10:02, 註解 無‧
pedro
尊榮會員


發表:152
回覆:1177
積分:865
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-04-21 18:19:33 IP:60.248.xxx.xxx 未訂閱
用數值切割的概念

以下片段,憑我的印象寫的,因為我沒有VB環境可以測試,請自行調整
[code vb]
Dim v1 As Integer
Dim v2 As Integer
Dim number As Integer
number = 1234567
Dim arrN(3) As Byte

v1 = number \ 65536
v2 = number Mod 65536
arrN(0) = v1 \ 256
arrN(1) = v1 Mod 256
arrN(2) = v2 \ 256
arrN(3) = v2 Mod 256

Dim s As String
For Each n In arrN
s = s n.ToString() " "
Next

MessageBox.Show(s)
[/code]

z
一般會員


發表:8
回覆:7
積分:3
註冊:2006-12-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-04-21 22:47:52 IP:218.175.xxx.xxx 訂閱
感謝大大的幫忙,謝謝。好厲害唷。


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