十进�Ӟ��八进�Ӟ��十六�q�制�Q�二�q�制�怺�转换(vb)

moonandsun — Sun, 29 Mar 2009 02:57:00 GMT

十进�Ӟ��八进�Ӟ��十六�q�制�Q�二�q�制�怺�转换

' 用途：��十�q�制转化��Z��q?br /> ' 输入�Q�Dec(十进制数)
' 输入数据�c�d��Q�Long
' 输出�Q�DEC_to_BIN(二进制数)
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647,输出最大数�?111111111111111111111111111111(31�?)
Public Function DEC_to_BIN(Dec As Long) As String
    DEC_to_BIN = ""
    Do While Dec > 0
        DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
        Dec = Dec \ 2
    Loop
End Function

' 用途：��二�q�制转化为十�q�制
' 输入�Q�Bin(二进制数)
' 输入数据�c�d��Q�String
' 输出�Q�BIN_to_DEC(十进制数)
' 输出数据�c�d��Q�Long
' 输入的最大数�?111111111111111111111111111111(31�?),输出最大数�?147483647
Public Function BIN_to_DEC(ByVal Bin As String) As Long
    Dim i As Long
    For i = 1 To Len(Bin)
        BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
    Next i
End Function

' 用途：��十六进制�{化�ؓ二进�?br /> ' 输入�Q�Hex(十六�q�制�?
' 输入数据�c�d��Q�String
' 输出�Q�HEX_to_BIN(二进制数)
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647个字�W?br /> Public Function HEX_to_BIN(ByVal Hex As String) As String
    Dim i As Long
    Dim B As String

    Hex = UCase(Hex)
    For i = 1 To Len(Hex)
        Select Case Mid(Hex, i, 1)
            Case "0": B = B & "0000"
            Case "1": B = B & "0001"
            Case "2": B = B & "0010"
            Case "3": B = B & "0011"
            Case "4": B = B & "0100"
            Case "5": B = B & "0101"
            Case "6": B = B & "0110"
            Case "7": B = B & "0111"
            Case "8": B = B & "1000"
            Case "9": B = B & "1001"
            Case "A": B = B & "1010"
            Case "B": B = B & "1011"
            Case "C": B = B & "1100"
            Case "D": B = B & "1101"
            Case "E": B = B & "1110"
            Case "F": B = B & "1111"
        End Select
    Next i
    While Left(B, 1) = "0"
        B = Right(B, Len(B) - 1)
    Wend
    HEX_to_BIN = B
End Function

' 用途：��二�q�制转化为十六进�?br /> ' 输入�Q�Bin(二进制数)
' 输入数据�c�d��Q�String
' 输出�Q�BIN_to_HEX(十六�q�制�?
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647个字�W?br /> Public Function BIN_to_HEX(ByVal Bin As String) As String
    Dim i As Long
    Dim H As String
    If Len(Bin) Mod 4 <> 0 Then
        Bin = String(4 - Len(Bin) Mod 4, "0") & Bin
    End If

    For i = 1 To Len(Bin) Step 4
        Select Case Mid(Bin, i, 4)
            Case "0000": H = H & "0"
            Case "0001": H = H & "1"
            Case "0010": H = H & "2"
            Case "0011": H = H & "3"
            Case "0100": H = H & "4"
            Case "0101": H = H & "5"
            Case "0110": H = H & "6"
            Case "0111": H = H & "7"
            Case "1000": H = H & "8"
            Case "1001": H = H & "9"
            Case "1010": H = H & "A"
            Case "1011": H = H & "B"
            Case "1100": H = H & "C"
            Case "1101": H = H & "D"
            Case "1110": H = H & "E"
            Case "1111": H = H & "F"
        End Select
    Next i
    While Left(H, 1) = "0"
        H = Right(H, Len(H) - 1)
    Wend
    BIN_to_HEX = H
End Function

' 用途：��十六进制�{化�ؓ十进�?br /> ' 输入�Q�Hex(十六�q�制�?
' 输入数据�c�d��Q�String
' 输出�Q�HEX_to_DEC(十进制数)
' 输出数据�c�d��Q�Long
' 输入的最大数�?FFFFFFF,输出的最大数�?147483647
Public Function HEX_to_DEC(ByVal Hex As String) As Long
    Dim i As Long
    Dim B As Long

    Hex = UCase(Hex)
    For i = 1 To Len(Hex)
        Select Case Mid(Hex, Len(Hex) - i + 1, 1)
            Case "0": B = B + 16 ^ (i - 1) * 0
            Case "1": B = B + 16 ^ (i - 1) * 1
            Case "2": B = B + 16 ^ (i - 1) * 2
            Case "3": B = B + 16 ^ (i - 1) * 3
            Case "4": B = B + 16 ^ (i - 1) * 4
            Case "5": B = B + 16 ^ (i - 1) * 5
            Case "6": B = B + 16 ^ (i - 1) * 6
            Case "7": B = B + 16 ^ (i - 1) * 7
            Case "8": B = B + 16 ^ (i - 1) * 8
            Case "9": B = B + 16 ^ (i - 1) * 9
            Case "A": B = B + 16 ^ (i - 1) * 10
            Case "B": B = B + 16 ^ (i - 1) * 11
            Case "C": B = B + 16 ^ (i - 1) * 12
            Case "D": B = B + 16 ^ (i - 1) * 13
            Case "E": B = B + 16 ^ (i - 1) * 14
            Case "F": B = B + 16 ^ (i - 1) * 15
        End Select
    Next i
    HEX_to_DEC = B
End Function
' 用途：��十�q�制转化为十六进�?br /> ' 输入�Q�Dec(十进制数)
' 输入数据�c�d��Q�Long
' 输出�Q�DEC_to_HEX(十六�q�制�?
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647,输出最大数�?FFFFFFF
Public Function DEC_to_HEX(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

' 用途：��十�q�制转化为八�q�制
' 输入�Q�Dec(十进制数)
' 输入数据�c�d��Q�Long
' 输出�Q�DEC_to_OCT(八进制数)
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647,输出最大数�?7777777777
Public Function DEC_to_OCT(Dec As Long) As String
    DEC_to_OCT = ""
    Do While Dec > 0
        DEC_to_OCT = Dec Mod 8 & DEC_to_OCT
        Dec = Dec \ 8
    Loop
End Function

' 用途：��八�q�制转化为十�q�制
' 输入�Q�Oct(八进制数)
' 输入数据�c�d��Q�String
' 输出�Q�OCT_to_DEC(十进制数)
' 输出数据�c�d��Q�Long
' 输入的最大数�?7777777777,输出的最大数�?147483647
Public Function OCT_to_DEC(ByVal Oct As String) As Long
    Dim i As Long
    Dim B As Long

    For i = 1 To Len(Oct)
        Select Case Mid(Oct, Len(Oct) - i + 1, 1)
            Case "0": B = B + 8 ^ (i - 1) * 0
            Case "1": B = B + 8 ^ (i - 1) * 1
            Case "2": B = B + 8 ^ (i - 1) * 2
            Case "3": B = B + 8 ^ (i - 1) * 3
            Case "4": B = B + 8 ^ (i - 1) * 4
            Case "5": B = B + 8 ^ (i - 1) * 5
            Case "6": B = B + 8 ^ (i - 1) * 6
            Case "7": B = B + 8 ^ (i - 1) * 7
        End Select
    Next i
    OCT_to_DEC = B
End Function

' 用途：��二�q�制转化为八�q�制
' 输入�Q�Bin(二进制数)
' 输入数据�c�d��Q�String
' 输出�Q�BIN_to_OCT(八进制数)
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647个字�W?br /> Public Function BIN_to_OCT(ByVal Bin As String) As String
    Dim i As Long
    Dim H As String
    If Len(Bin) Mod 3 <> 0 Then
        Bin = String(3 - Len(Bin) Mod 3, "0") & Bin
    End If

    For i = 1 To Len(Bin) Step 3
        Select Case Mid(Bin, i, 3)
            Case "000": H = H & "0"
            Case "001": H = H & "1"
            Case "010": H = H & "2"
            Case "011": H = H & "3"
            Case "100": H = H & "4"
            Case "101": H = H & "5"
            Case "110": H = H & "6"
            Case "111": H = H & "7"
        End Select
    Next i
    While Left(H, 1) = "0"
        H = Right(H, Len(H) - 1)
    Wend
    BIN_to_OCT = H
End Function

' 用途：��八�q�制转化��Z��q�制
' 输入�Q�Oct(八进制数)
' 输入数据�c�d��Q�String
' 输出�Q�OCT_to_BIN(二进制数)
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647个字�W?br /> Public Function OCT_to_BIN(ByVal Oct As String) As String
    Dim i As Long
    Dim B As String

    For i = 1 To Len(Oct)
        Select Case Mid(Oct, i, 1)
            Case "0": B = B & "000"
            Case "1": B = B & "001"
            Case "2": B = B & "010"
            Case "3": B = B & "011"
            Case "4": B = B & "100"
            Case "5": B = B & "101"
            Case "6": B = B & "110"
            Case "7": B = B & "111"
        End Select
    Next i
    While Left(B, 1) = "0"
        B = Right(B, Len(B) - 1)
    Wend
    OCT_to_BIN = B
End Function

' 用途：��八�q�制转化为十六进�?br /> ' 输入�Q�Oct(八进制数)
' 输入数据�c�d��Q�String
' 输出�Q�OCT_to_HEX(十六�q�制�?
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647个字�W?br /> Public Function OCT_to_HEX(ByVal Oct As String) As String
    Dim Bin As String
    Bin = OCT_to_BIN(Oct)
    OCT_to_HEX = BIN_to_HEX(Bin)
End Function

' 用途：��十六进制�{化�ؓ八进�?br /> ' 输入�Q�Hex(十六�q�制�?
' 输入数据�c�d��Q�String
' 输出�Q�HEX_to_OCT(八进制数)
' 输出数据�c�d��Q�String
' 输入的最大数�?147483647个字�W?br /> Public Function HEX_to_OCT(ByVal Hex As String) As String
    Dim Bin As String
    Hex = UCase(Hex)
    Bin = HEX_to_BIN(Hex)
    HEX_to_OCT = BIN_to_OCT(Bin)
End Function

VB自带函数�Q?br /> 十进制�{八进�Ӟ��Oct(num)
十六�q�制转八�q�制�Q�oct("&H" & num)
十进制�{十六�q�制�Q�hex(num)
八进制�{十六�q�制�Q�hex("&O" & num)

十六�q�制转换为十�q�制
    Dim str As String
    str = Text2.Text
    Text10.Text = CLng("&H" & str)

文章出处�Q�http://blog.programfan.com/article.asp?id=11903
感谢作者的无私奉献、、、�?br />

moonandsun 2009-03-29 10:57 发表评论

在VB中声明和使用API函数

moonandsun — Sat, 28 Mar 2009 08:46:00 GMT

一、在VB中声明API函数有两�U�方法：如果我们只在某个�H�体中��用API函数�Q�我们可以在�H�体代码的General部分声明它：

　　声明的语法是�Q?

　　Private Declare Function ...

　　Private Declare Sub.....

　　�q�里必须采用Private声明�Q�因��个API函数只能被一个窗体内的程序所调用�?

　　如果我们的程序有多个�H�体构成�Q�而且我们需要在多个�H�体中��用同一个API函数�Q�就需要在模块中声明了�?

　　先添加一个模块（如图�C�）�Q?

　　然后采用如下语法声明�Q?

　　Public Declare Function....

　　Public Declare Sub....

　　Public声明的含义是把API函数作�ؓ一个公共函数或�q�程�Q�在一个工�E�中的�Q何位�|�（包括所有的�H�体和模块）都能直接调用它�?声明完毕我们��p��在程序中使用此API函数了�?

　　二、可采用以下几种方式使用API函数�Q�以SetWindowPos函数��Z��Q?

　　�Q?�Q�忽略函数返回值的调用�Q?

　　　　SetWindowPos Form1.hWnd, -2 ,0 ,0 ,0, 0, 3

　　注意此时函数的参数是不加括号的�?

　　�Q?�Q�Call�Ҏ��调用�Q?

　　　　Call SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)

　　注意�q�里需要加上括��P��但我们不取回函数的返回倹{�?

　　�Q?�Q�取得函数返回值的调用�Q?

　　　　MyLng = SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)

　　此时需要加上括��P��而且我们必须事先定义一个变量（变量的类型与函数�q�回值类型相同）�?a class="article" target="_blank">存储API函数的返回倹{�?

　　三、几个问题的说明�Q?

　　�Q?�Q�声明中的Lib �?Alias 是怎么回事

　　一般情况下WIN32API函数��L��包含在WINDOWS�pȝ��自带的或是其它公司提供的动态连接库DLL中，而Declare语句中的Lib关键字就用来指定DLL�Q�动态连接库�Q�文件的路径�Q�这样VB才能扑ֈ��q�个DLL文�g�Q�然后才能��用其中的API函数。如果我们只是列出DLL文�g名而不指出其完整的路径的话�Q�VB会自动到.EXE文�g所在目录、当前工作目录、WINDOWS\SYSTEM目录、WINDOWS目录下搜寻这个DLL文�g。所以如果所要��用DLL文�g不在上述几个目录下的话，我们应该指明其完整�\径�?

　　Alias用于指定API函数的别名，如果我们调用的API函数要��用字�W�串�Q�参��C��包含String型）的话�Q�Alias关键字是必须的。这是因为在ANSI和Unicode字符集中同一API函数的名�U�可能是不一��L��Q��ؓ了保证不出现声明错误�Q�我们��用Alias关键字指出API函数的别名，一般来说在WIN9X�q�_��下我们把API函数名后加一个大写A作�ؓ别名卛_��?

　　�Q?�Q�常见的API参数�c�d��的说�?

　　API函数的参��C��最常见的是长整Long型数据类型，例如API中的句柄、一些特定的帔R��、函数的�q�回值都是此�c�d�� 的��|��另外几种常见的参数类型有�Q�整型Integer、Byte型、String型等�?

　　�Q?�Q�声明中的ByVal是作什么用�?

　　�q�跟VB的参��C��递方式有养I��在默认情况下VB是通过地址传递方式传递函数的参数、而有些API函数要求必须采用传值方式来传递函数参敎ͼ��q�两�U�参��C��递方式是不同的，前者传递的是一个指针，而后者要求是参数真实的��|��。这样就会发生错误，解决的办法是在API函数参数声明的前面加上ByVal关键字，�q�样VB��采用传值方式传递参��C��?

　　�Q?�Q�怎样得到完整的API函数声明

　　VB自带了API文本查看器API TEXT VIEWER�Q�我们可以在其中扑ֈ�API函数的完整声明，然后把它�_�脓到程序中卛_��?br />
原文地址�Q�http://www.enet.com.cn/article/2004/0312/A20040312293927.shtml

moonandsun 2009-03-28 16:46 发表评论

成人免费看片网站,神马电影久久,日韩美一区二区三区

十进�Ӟ��八进�Ӟ��十六�q�制�Q�二�q�制�怺�转换(vb)

在VB中声明和使用API函数