dochex.bas

来自「按摩椅软件开发示例,VB-PIC单片机通讯题,主要是串口通讯问题」· BAS 代码 · 共 34 行

Attribute VB_Name = "DocHex"

Public Function Doc_Hex(doc_num As Integer) As String


    Dim hex_word As String
    Dim hex_len As Byte
    hex_word = Hex(doc_num)
    hex_len = Len(hex_word)
    Select Case hex_len
        Case 1: Doc_Hex = "0" + hex_word

        Case 2: Doc_Hex = hex_word
       
         Case 3: Doc_Hex = "0" + hex_word
         Case 4: Doc_Hex = hex_word
         
       
       
    End Select












End Function