VB經由RS232,怎麼傳送大於255以上的數值到8051? |
答題得分者是:pedro
|
z
一般會員 發表:8 回覆:7 積分:3 註冊:2006-12-03 發送簡訊給我 |
各位大大您好,
請教一下,因為51只能收255的數值,但超過的話,用12.0pt;font-family:新細明體;mso-ascii-font-family:Arial;mso-hansi-font-family:Arial; mso-bidi-font-family:Arial;color:black;mso-font-kerning:1.0pt;mso-ansi-language: EN-US;mso-fareast-language:ZH-TW;mso-bidi-language:AR-SA">兩個暫存器小弟會,但vb要怎麼分解成兩個byte來送呢?謝謝唷。 編輯記錄
z 重新編輯於 2011-04-20 19:10:02, 註解 無‧
|
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
用數值切割的概念
以下片段,憑我的印象寫的,因為我沒有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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |