還有MSComm控制元件應用詳解。謝謝！[email protected]
uj5u.com熱心網友回復：
在另外一個帖子里答復的，把一個字串形式的大數轉換為字串形式二進制輸出。
Dim n As Variant
Dim strOut As String
n = CDec("289356276212170752")
Do While n > 0
If Int(n / 2) = n / 2 Then
strOut = "0" & strOut
Else
strOut = "1" & strOut
End If
n = Int(n / 2)
Loop
MsgBox strOut
uj5u.com熱心網友回復：
任意數制轉換
'從十進制轉成任意進制，Num 要轉換的數字，NumS數制值，16進制，你可以填16，回傳值是個陣列
Private Function FromDec(ByVal Num As Long, ByVal NumS As Integer) As Integer()
Dim C As Integer, Result() As Integer
Do Until Num = 0
ReDim Preserve Result(C)
Result(C) = Num Mod NumS
C = C + 1
Num = Num \ NumS
Loop
FromDec = Result
End Function
'從任意進制轉成十進制 Num()任意進制數，是個陣列，你可以從前一個函式里得到，NumS還是進制數，回傳值是個十進制數
Private Function ToDec(ByRef Num() As Integer, ByVal NumS As Integer) As Long
Dim I As Integer, Result As Long
For I = 0 To UBound(Num)
Result = Result * NumS + Num(I)
Next
ToDec = Result
End Function
'生成一個進制串，Num就是轉成任意進制后的數，是個陣列，NumStr這個進制數的符號序列，比如十六進制的序列就是0123456789ABCDEF，不填的話出來(1)(2)這種樣子的數
Private Function ShowValue(ByRef Num() As Integer, Optional ByVal NumStr As String = "") As String
Dim I As Integer, Result As String
For I = 0 To UBound(Num)
If Len(NumStr) > 0 Then
Result = Mid(NumStr, Num(I) + 1, 1) & Result
Else
Result = "(" & Num(I) & ")" & Result
End If
Next
ShowValue = Result
End Function
Private Sub Form_Load()
Dim Arr() As Integer
Arr = FromDec(634, 16) '把634轉成16進制結果保存在Arr陣列中
Debug.Print ShowValue(Arr, "0123456789ABCDEF") '顯示Arr陣列中的16進制數
Arr = FromDec(634, 2) '把64轉成2進制結果保存在Arr陣列中
Debug.Print ShowValue(Arr, "01") '顯示Arr陣列中的2進制數
End Sub
uj5u.com熱心網友回復：
一個八進制和十六進制轉二進制的奇妙方法uj5u.com熱心網友回復：
MSComm 控制元件MSComm 控制元件通過串行埠傳輸和接收資料，為應用程式提供串行通訊功能。
語法
MSComm
說明
MSComm 控制元件提供下列兩種處理通訊的方式：
事件驅動通訊是處理串行埠互動作用的一種非常有效的方法。在許多情況下，在事件發生時需要得到通知，例如，在 Carrier Detect (CD) 或 Request To Send (RTS) 線上一個字符到達或一個變化發生時。在這些情況下，可以利用 MSComm 控制元件的 OnComm 事件捕獲并處理這些通訊事件。OnComm 事件還可以檢查和處理通訊錯誤。所有通訊事件和通訊錯誤的串列，參閱 CommEvent 屬性。
在程式的每個關鍵功能之后，可以通過檢查 CommEvent 屬性的值來查詢事件和錯誤。如果應用程式較小，并且是自保持的，這種方法可能是更可取的。例如，如果寫一個簡單的電話撥號程式，則沒有必要對每接收一個字符都產生事件，因為唯一等待接收的字符是調制解調器的“確定”回應。
每個使用的 MSComm 控制元件對應著一個串行埠。如果應用程式需要訪問多個串行埠，必須使用多個 MSComm 控制元件。可以在 Windows“控制面板”中改變埠地址和中斷地址。
盡管 MSComm 控制元件有很多重要的屬性，但首先必須熟悉幾個屬性。
屬性 描述
CommPort 設定并回傳通訊埠號。
Settings 以字串的形式設定并回傳波特率、奇偶校驗、資料位、停止位。
PortOpen 設定并回傳通訊埠的狀態。也可以打開和關閉埠。
Input 從接識訓沖區回傳和洗掉字符。
Output 向傳輸緩沖區寫一個字串。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/54300.html
標籤：資源
下一篇：viz artist中文亂碼