vb.net的hex的簡單介紹

VB.NET中怎么將16進制數換成對應的ASCII，比如說&H1000，怎么把他換成31H,30H,30H,30H

Public Function dec_to_hex(dec As Long) As String

創(chuàng)新互聯(lián)公司主營榕江網站建設的網絡公司,主營網站建設方案,app軟件定制開發(fā),榕江h(huán)5微信小程序開發(fā)搭建,榕江網站營銷推廣歡迎榕江等地區(qū)企業(yè)咨詢

Dim a As String

dec_to_hex = ""

Do While dec 0

a = CStr(dec Mod 16)

Select Case a

Case "0": a = "30H"

Case "1": a = "31H"

Case "2": a = "32H"

Case "3": a = "33H"

Case "4": a = "34H"

Case "5": a = "35H"

Case "6": a = "36H"

Case "7": a = "37H"

Case "8": a = "38H"

Case "9": a = "30H"

Case "10": a = "65H"

Case "11": a = "66H"

Case "12": a = "67H"

Case "13": a = "68H"

Case "14": a = "69H"

Case "15": a = "70H"

End Select

dec_to_hex = a " " dec_to_hex

dec = dec \ 16

Loop

End Function

VB.NET，八/十六進制轉十進制的函數，怎么轉?

'此函數用于十進制到二進制

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

'此函數用于二進制到十進制

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

'====寫入以上函數后轉值操作：

'十進制到十六進制：Hex(十進制數值)

'十進制到八進制：Oct(十進制數值)

'十進制到二進制：Bin(十進制數值)

'二進制到十進制：value_Bin(二進制數值)

'八進制到十進制：Val("O" 八進制數值)

'十六進制到十進制：Val("H" 十六進制數值)

比如

msgbox DEC_to_BIN(10)

就會返回一個10轉換為十進制后的結果

或者簡單點就用

VB自帶函數：

十進制轉八進制：Oct(num)

十六進制轉八進制：oct("H" num)

十進制轉十六進制：hex(num)

八進制轉十六進制：hex("O" num)

十六進制轉換為十進制

Dim str As String

str = Text2.Text

Text10.Text = CLng("H" str)

vb.net 把十進制數轉成十六進制數的函數有哪些？

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

名稱欄目：vb.net的hex的簡單介紹
當前地址：http://muchs.cn/article8/dojhjip.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供定制網站、手機網站建設、網站營銷、靜態(tài)網站、響應式網站、品牌網站建設

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)