十進(jìn)制轉(zhuǎn)換二進(jìn)制(原碼)
? 計(jì)算機(jī)是采用二進(jìn)制存儲(chǔ)的，計(jì)算機(jī)的二進(jìn)制編碼方式也分為原碼，反碼，補(bǔ)碼方法。這是一個(gè)把十進(jìn)制數(shù)字轉(zhuǎn)換到它的二進(jìn)制原碼的算法，希望能給大家一些啟發(fā)吧！這個(gè)算法我是用VB6寫(xiě)的，其中用到了函數(shù)遞歸調(diào)用和函數(shù)可選參數(shù)(個(gè)人感覺(jué)功能和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?**********************************************//
'功能:用于將一個(gè)二進(jìn)制數(shù)轉(zhuǎn)換為二進(jìn)制原碼,計(jì)算思想是除二取余,iNum為所要轉(zhuǎn)換的十進(jìn)制數(shù),iLength為機(jī)器字長(zhǎng)(即二進(jìn)制數(shù)
'???? 的位數(shù)),可選,默認(rèn)傳遞8,iNum的轉(zhuǎn)換范圍-2^(n-1) 到 +2^(n-1),返回值為二進(jìn)制的字符串形式.
'說(shuō)明:本算法可以很容易的轉(zhuǎn)換成除R取余,只要在函數(shù)中加個(gè)參數(shù)即可.另原碼簡(jiǎn)介(引自程序員教程):設(shè)機(jī)器字長(zhǎng)為n(即采用n個(gè)
'???? 二進(jìn)制位表示數(shù)據(jù)),則最高位是符號(hào)位,0表示正號(hào),1表示負(fù)號(hào);其余的n-1位表示數(shù)值的絕對(duì)值。
'函數(shù)調(diào)用 二進(jìn)制原碼 = BinaryConvertA(十進(jìn)制數(shù),二進(jìn)制字長(zhǎng))
'//*******************************************************************************************************************//
ReDim S(iLength) As String * 1
Dim sResult As String: i = 1: Dim j As Integer
If Abs(iNum) > 2 ^ (iLength - 1) Then
??? MsgBox "十進(jìn)制數(shù)表示溢出", , "進(jìn)制轉(zhuǎn)換算法"
??? Exit Function
End If
'修正當(dāng)十進(jìn)制數(shù)為0的bug,但只處理了+0的問(wèn)題，并沒(méi)有特殊處理-0的問(wèn)題,最好在調(diào)用函數(shù)之前進(jìn)行一個(gè)判斷
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ù)調(diào)用范例：
新建一個(gè)工程，添加一個(gè)模塊，將上面的代碼復(fù)制到模塊中，在窗體中添加一個(gè)textbox,三個(gè)command控件，自己調(diào)整位置。
然后將下面的代碼復(fù)制到窗體的代碼頁(yè)中.
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 = "第一種調(diào)用方式"
Command2.Caption = "第二種調(diào)用方式"
Command3.Caption = "&clear"
End Sub
--------------------------------------------------------------------------------
這樣就實(shí)現(xiàn)了函數(shù)的調(diào)用，需要說(shuō)的還有，我沒(méi)有在函數(shù)中添加對(duì)調(diào)用參數(shù)類(lèi)型的判斷，這個(gè)判斷應(yīng)該加到調(diào)用函數(shù)前，比如說(shuō)，如果你調(diào)用的參數(shù)來(lái)自一個(gè)文本框的文本。那么，你在調(diào)用函數(shù)前要先判斷文本是否可以轉(zhuǎn)換到一個(gè)integer類(lèi)型的整數(shù)(cInt函數(shù)),可以采用IsNumeric 函數(shù)進(jìn)行判斷文本中的內(nèi)容是否為數(shù)，具體實(shí)現(xiàn)過(guò)程就很簡(jiǎn)單了，在此就不多加解釋了。我會(huì)在接下來(lái)的日子里寫(xiě)出反碼和補(bǔ)碼的代碼，也有可能給出C++版的代碼，如果對(duì)此有興趣，請(qǐng)關(guān)注我的BLOG!Thank you~
--------------------------------------------------------------------------------
下載文檔
