7165.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<html>
  <head>
    <title>Re: 怎样把字串&quot;1010101&quot; 转换成数值55Hex ??</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 怎样把字串&quot;1010101&quot; 转换成数值55Hex ??</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:callback@pcmail.com.tw">callback</a> on November 06, 1998 at 19:56:19:<p>
In Reply to: <a href="7164.html">怎样把字串"1010101" 转换成数值55Hex ??</a> posted by 杀手 on November 06, 1998 at 19:15:07:<p>
我曾写过一个 function,给你参考, 可直接拿来用<br>用法:<br>dim strA as string<p>'Text1内输入 8 bit的二进位字串<br>strA=gstrBin8ToHex2(text1.text)<br>_________________________________________<p>Public Function gstrBin8ToHex2(ByVal strBin8 As String) As String<br>    Dim strHex2 As String * 2 '最后传回值<br>    Dim strTemp As String * 4, strConv As String * 1<br>    Dim bytI As Byte    '回圈计数<br>    <br>    strHex2 = ""<br>    For bytI = 0 To 1<br>        strTemp = Mid(strBin8, 4 * bytI + 1, 4)<br>        Select Case strTemp<br>            Case "0000":    strConv = "0"<br>            Case "0001":    strConv = "1"<br>            Case "0010":    strConv = "2"<br>            Case "0011":    strConv = "3"<br>            Case "0100":    strConv = "4"<br>            Case "0101":    strConv = "5"<br>            Case "0110":    strConv = "6"<br>            Case "0111":    strConv = "7"<br>            Case "1000":    strConv = "8"<br>            Case "1001":    strConv = "9"<br>            Case "1010":    strConv = "A"<br>            Case "1011":    strConv = "B"<br>            Case "1100":    strConv = "C"<br>            Case "1101":    strConv = "D"<br>            Case "1110":    strConv = "E"<br>            Case "1111":    strConv = "F"<br>            Case Else<br>                gstrBin8ToHex2 = "Input Error!"<br>                GoTo gstrBin8ToHex2_end<br>        End Select<br>        strHex2 = strHex2 & strConv<br>    Next bytI<br>    gstrBin8ToHex2 = strHex2<br>gstrBin8ToHex2_end:<br>End Function<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7165-->
</ul><!--end: 7165-->
<br><hr size=7 width=75%><p>

</body></html>

7165.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 7165.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与电子书相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?