? 計算機是采用二進制存儲的，計算機的二進制編碼方式也分為原碼，反碼，補碼方法。這是一個把十進制數(shù)字轉換到它的二進制原碼的算法，希望能給大家一些啟發(fā)吧！這個算法我是用VB6寫的，其中用到了函數(shù)遞歸調用和函數(shù)可選參數(shù)(個人感覺功能和C++中的函數(shù)重載差不多)。
--------------------------------------------------------------------------------
Option Explicit
Option Base 1
Dim S() As String * 1, i As Integer
Public Function BinaryConvertA(ByVal iNum As Integer, Optional ByVal iLength As Integer = 8) As String
'//***************************************? Design By 0412Rainbow?**********************************************//
'功能:用于將一個二進制數(shù)轉換為二進制原碼,計算思想是除二取余,iNum為所要轉換的十進制數(shù),iLength為機器字長(即二進制數(shù)
'???? 的位數(shù)),可選,默認傳遞8,iNum的轉換范圍-2^(n-1) 到 +2^(n-1),返回值為二進制的字符串形式.
'說明:本算法可以很容易的轉換成除R取余,只要在函數(shù)中加個參數(shù)即可.另原碼簡介(引自程序員教程):設機器字長為n(即采用n個
'???? 二進制位表示數(shù)據(jù)),則最高位是符號位,0表示正號,1表示負號;其余的n-1位表示數(shù)值的絕對值。
'函數(shù)調用 二進制原碼 = BinaryConvertA(十進制數(shù),二進制字長)
'//*******************************************************************************************************************//
ReDim S(iLength) As String * 1
Dim sResult As String: i = 1: Dim j As Integer
If Abs(iNum) > 2 ^ (iLength - 1) Then
??? MsgBox "十進制數(shù)表示溢出", , "進制轉換算法"
??? Exit Function
End If
'修正當十進制數(shù)為0的bug,但只處理了+0的問題，并沒有特殊處理-0的問題,最好在調用函數(shù)之前進行一個判斷
If CStr(iNum) = "0" Then
??? For j = 1 To iLength
??????? sResult = sResult & 0
??? Next
??? BinaryConvertA = sResult: Exit Function
End If
If Abs(iNum) <> iNum Then
?? S(iLength) = 1
Else
??? S(iLength) = 0
End If
Call ConvertToBinary(Abs(iNum), i)
For j = i + 1 To iLength - 1
??? S(j) = 0
??? 'Debug.Print j, S(j)
Next
For i = iLength To 1 Step -1
??? sResult = sResult & S(i)
??? 'Debug.Print sResult
Next
BinaryConvertA = sResult
End Function
Private Sub ConvertToBinary(ByVal iNums As Integer, ByVal iCount As Integer)
If iNums <> 1 Then
?? S(i) = iNums Mod 2
?? Debug.Print i, S(i)
?? i = i + 1
?? Call ConvertToBinary(iNums / 2, i)
Else
?? S(i) = 1
??
End If
End Sub
--------------------------------------------------------------------------------
函數(shù)調用范例：
新建一個工程，添加一個模塊，將上面的代碼復制到模塊中，在窗體中添加一個textbox,三個command控件，自己調整位置。
然后將下面的代碼復制到窗體的代碼頁中.
Private Sub Command1_Click()
Text1.Text = Text1.Text & BinaryConvertA(111) & vbCrLf
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & BinaryConvertA(-222, 9) & vbCrLf
End Sub
Private Sub Command3_Click()
Text1.Text = ""
End Sub
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "第一種調用方式"
Command2.Caption = "第二種調用方式"
Command3.Caption = "&clear"
End Sub
--------------------------------------------------------------------------------
這樣就實現(xiàn)了函數(shù)的調用，需要說的還有，我沒有在函數(shù)中添加對調用參數(shù)類型的判斷，這個判斷應該加到調用函數(shù)前，比如說，如果你調用的參數(shù)來自一個文本框的文本。那么，你在調用函數(shù)前要先判斷文本是否可以轉換到一個integer類型的整數(shù)(cInt函數(shù)),可以采用IsNumeric 函數(shù)進行判斷文本中的內容是否為數(shù)，具體實現(xiàn)過程就很簡單了，在此就不多加解釋了。我會在接下來的日子里寫出反碼和補碼的代碼，也有可能給出C++版的代碼，如果對此有興趣，請關注我的BLOG!Thank you~
--------------------------------------------------------------------------------
下載文檔
