建站
咨詢
售后
建站咨詢
新聞中心
VB.NET，八/十六進(jìn)制轉(zhuǎn)十進(jìn)制的函數(shù)，怎么轉(zhuǎn)?
'此函數(shù)用于十進(jìn)制到二進(jìn)制
創(chuàng)新互聯(lián)建站專注于鎮(zhèn)江網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供鎮(zhèn)江營(yíng)銷型網(wǎng)站建設(shè)，鎮(zhèn)江網(wǎng)站制作、鎮(zhèn)江網(wǎng)頁(yè)設(shè)計(jì)、鎮(zhèn)江網(wǎng)站官網(wǎng)定制、微信小程序開發(fā)服務(wù)，打造鎮(zhèn)江網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供鎮(zhèn)江網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
Private Function Bin(Number As Long) As Long
Dim Div_value As String
Do
Div_value = (Number Mod 2) Div_value
Number = Int(Number / 2)
Loop Until Number 2
Bin = Number Div_value
End Function
'此函數(shù)用于二進(jìn)制到十進(jìn)制
Private Function value_Bin(Number As Long) As Long
Dim Temp_value As Long, Cyc As Long
For Cyc = 0 To Len(Str(Number))
If Cyc = Len(Str(Number)) Then
value_Bin = Temp_value + Val(Mid(Str(Number), Cyc, 1))
Exit For
End If
If Cyc 0 Then Temp_value = (Temp_value + Val(Mid(Str(Number), Cyc, 1))) * 2
Next Cyc
End Function
'====寫入以上函數(shù)后轉(zhuǎn)值操作：
'十進(jìn)制到十六進(jìn)制：Hex(十進(jìn)制數(shù)值)
'十進(jìn)制到八進(jìn)制：Oct(十進(jìn)制數(shù)值)
'十進(jìn)制到二進(jìn)制：Bin(十進(jìn)制數(shù)值)
'二進(jìn)制到十進(jìn)制：value_Bin(二進(jìn)制數(shù)值)
'八進(jìn)制到十進(jìn)制：Val("O" 八進(jìn)制數(shù)值)
'十六進(jìn)制到十進(jìn)制：Val("H" 十六進(jìn)制數(shù)值)
比如
msgbox DEC_to_BIN(10)
就會(huì)返回一個(gè)10轉(zhuǎn)換為十進(jìn)制后的結(jié)果
或者簡(jiǎn)單點(diǎn)就用
VB自帶函數(shù)：
十進(jìn)制轉(zhuǎn)八進(jìn)制：Oct(num)
十六進(jìn)制轉(zhuǎn)八進(jìn)制：oct("H" num)
十進(jìn)制轉(zhuǎn)十六進(jìn)制：hex(num)
八進(jìn)制轉(zhuǎn)十六進(jìn)制：hex("O" num)
十六進(jìn)制轉(zhuǎn)換為十進(jìn)制
Dim str As String
str = Text2.Text
Text10.Text = CLng("H" str)
vb.net 如何將十六進(jìn)制字符串轉(zhuǎn)換為十六進(jìn)制變量
numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)
或
numHex = Integer. Parse("H" strHex)
vb.net 把十進(jìn)制數(shù)轉(zhuǎn)成十六進(jìn)制數(shù)的函數(shù)有哪些？
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
MsgBox(DEC_to_HEX(255))
End?Sub
Public?Function?DEC_to_HEX(ByVal?Dec?As?Long)?As?String
Dim?a?As?String
DEC_to_HEX?=?""
Do?While?Dec??0
a?=?CStr(Dec?Mod?16)
Select?Case?a
Case?"10"?:?a?=?"A"
Case?"11"?:?a?=?"B"
Case?"12"?:?a?=?"C"
Case?"13"?:?a?=?"D"
Case?"14"?:?a?=?"E"
Case?"15"?:?a?=?"F"
End?Select
DEC_to_HEX?=?a??DEC_to_HEX
Dec?=?Dec?\?16
Loop
End?Function
當(dāng)前題目：vb.net轉(zhuǎn)換函數(shù) vb轉(zhuǎn)換進(jìn)制
文章地址：http://fisionsoft.com.cn/article/hghsis.html
