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 發送簡訊給我 |
發表時間：2011-04-21 08:49:35
IP:218.175.xxx.xxx 訂閱
系統時間：2024-04-25 20:12:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |