精华内容
下载资源
问答
  • VB.NET 进制转换 2进制 8进制 10进制 16进制 实现互 自己写的代码有不足之处请多包涵
  • VB 实现进制转换,不错的代码,基本支持所有进制。支持 16,10,2,8进制直接的转换。
  • vb编的进制转化程序,2进制16进制之间的相互转换
  • 方法1: int d=10; d.ToString("x") //或把x改为X,,,就变成了16位的字符串了. int x=Convert.ToInt32(d.ToString("x"),...//把16进制的字符串变回10进制的. 方法2: CodestaticvoidMain(){int...

    方法1:

    int   d=10;  
       
      d.ToString("x")   //或把x改为X,,,就变成了16位的字符串了.  
       
      int   x=Convert.ToInt32(d.ToString("x"),16);//把16进制的字符串变回10进制的.

     

    方法2:

     

    ContractedBlock.gifExpandedBlockStart.gifCode
    static   void   Main()   
      {   
            
    int   i   =   446;   
            
    string   hex   =   i.ToString(   "X"   /*   or   x   *   );   
            Console.WriteLine(   hex   );   
              
            int   j   =   HexToInt(   hex   );   
            Console.WriteLine(   j   );   
      }         
              
            static   int   HexToInt(string   hex)   
                      {   
                              hex   =   Regex.Replace(hex,   "^0x",   "",   RegexOptions.IgnoreCase);   
        
                              if   (Regex.IsMatch(hex,   "[g-z]",   RegexOptions.IgnoreCase))   
                              {   
                                      throw   new   Exception("Invalid   Hexadecimal   Expression.:   0x"   +   hex);   
                              }   
        
                              char[]   chars   =   hex.ToUpper().ToCharArray();   
                              Array.Reverse(chars);   
        
                              int   dec   =   0;   
                              for   (int   i   =   0;   i   <   chars.Length;   i++)   
                              {   
                                      dec   +=   HexMapping(chars[i])   *   (int)Math.Pow(16,   i);   
                              }   
        
                              return   dec;   
                      }   
        
                      static   int   HexMapping(char   c)   
                      {   
                              switch   (c)   
                              {   
                                      case   '0':   
                                              return   0;   
                                      case   '1':   
                                              return   1;   
                                      case   '2':   
                                              return   2;   
                                      case   '3':   
                                              return   3;   
                                      case   '4':   
                                              return   4;   
                                      case   '5':   
                                              return   5;   
                                      case   '6':   
                                              return   6;   
                                      case   '7':   
                                              return   7;   
                                      case   '8':   
                                              return   8;   
                                      case   '9':   
                                              return   9;   
                                      case   'A':   
                                              return   10;   
                                      case   'B':   
                                              return   11;   
                                      case   'C':   
                                              return   12;   
                                      case   'D':   
                                              return   13;   
                                      case   'E':   
                                              return   14;   
                                      case   'F':   
                                              return   15;   
                                      default   :   
                                              throw   new   Exception("Invalid   Hexadecimal   Character   :"   +   c.ToString());   
                              }   
                      }

     

    转载于:https://www.cnblogs.com/wenanry/archive/2009/05/25/1489186.html

    展开全文
  • 进制转换器 16进制10进制2进制相互转换 vb6编写 有需要源代码的请发邮件到namezhou#gmail.com索取
  • VB编写的科学计算器,支持连续输入,比如2*...附带2、4、8、16进制转换(稍微修改就能转换为任意进制);另还有时间、长度、质量换算的功能。有源代码和可执行文件。有什么不明白,可以单密QQ:809239352<郭玉郑成>。
  • 2进制和10进制的转换

    2018-09-24 21:59:48
    VB代码2进制和10进制的转换,VB有专门的API函数CopyMemory能处理2-10进制浮点数转换和10-2进制浮点数转换。 下列代码演示了10进制Single(单精度浮点型转为16进制字符显示的浮点数和其相反运算:
  • 数制转换, 将一个十进制整数m转换成 →r(216)进制字符串,VB6.0源代码编写
  • 16进制的字符串表示形式转换为等效的64位有符号整数,进制的基数,必须为2,8,10 或16。。 如果fromBase为16,则可以将value参数指定的数字加上前缀“0x”或“0X”。 VB代码示例: 'Declaration Public Shared...

    将16进制的字符串表示形式转换为等效的64位有符号整数,进制的基数,必须为2,8,10 或16。。

    如果fromBase为16,则可以将value参数指定的数字加上前缀“0x”或“0X”。

    VB代码示例:

    'Declaration
    Public Shared Function ToInt64 ( _
        value As String, _
        fromBase As Integer _
    ) As Long

    C#代码:

    Convert.ToInt64("f",16).ToString()

    Delphi 16进制转换代码:

    function   HexToChar(Str:   string):   string;   
      var   
          i:   integer;   
          buf1:   array[0..100]   of   byte;   
      begin   
          for   i   :=   0   to   (length(Str)   div   2   -   1)   do   
          begin   
              buf1[i]   :=   strtoint('$'   +   copy(Str,   i   *   2   +   1,   2));   
              Result   :=   Result   +   char(buf1[i]);   
          end;   
      end;   
        
      function   CharToHex(Str:   string):   string;   
      var   
          i:   integer;   
          ch:   char;   
      begin   
          for   i   :=   1   to   (length(str))   do   
          begin   
              ch   :=   Str[i];   
              Result   :=   Result   +   inttohex(byte(ch),   2);   
          end;   
      end;

     

    展开全文
  • VB有专门的API函数CopyMemory能处理2-10进制浮点数转换和10-2进制浮点数转换。 下列代码演示了10进制Single(单精度浮点型转为16进制字符显示的浮点数和其相反运算: Option Explicit Private Declare Su

    四字节16进制数可转换为四个二进制字节(Bytes),从而使用Api函数来处理成单精度浮点数。

    以下用VB代码处理。

    VB有专门的API函数CopyMemory能处理2-10进制浮点数转换和10-2进制浮点数转换。

    下列代码演示了10进制Single(单精度浮点型转为16进制字符显示的浮点数和其相反运算:

    Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Private Sub BinToSin_Click()
        Dim sinStr As String
        Dim sinSj As Single
        Dim Buffer(3) As Byte
        Dim i As Integer
        sinStr = Text2
        For i = 1 To Len(Text2) Step 2
            Buffer((7 - i) / 2) = Val("&H" & Mid(sinStr, i, 2))
        Next
        CopyMemory ByVal VarPtr(sinSj), ByVal VarPtr(Buffer(0)), 4
        Text3 = sinSj
    End Sub
     
    Private Sub SinToBin_Click()
        Dim i As Integer
        Dim hexData As String
        Dim a As Single
        Dim Buffer(3) As Byte
        a = Val(Text1)
        CopyMemory Buffer(0), a, 4
        For i = 0 To 3
            If Len(Hex(Buffer(i))) = 1 Then
                hexData = "0" & Hex(Buffer(i)) + hexData
            Else
                hexData = Hex(Buffer(i)) + hexData
            End If
        Next
        Text2 = hexData
    End Sub

    需要注意的事项是这四字节的高低字节排序,不能搞错。

    VB的Single 数据类型

    Single(单精度浮点型)变量存储为 IEEE 32 位(4 个字节)浮点数值的形式,它的范围在负数的时候是从 -3.402823E38 到 -1.401298E-45,而在正数的时候是从 1.401298E-45 到 3.402823E38。Single 的类型声明字符为感叹号 (!)。

    在内存以32位二进制形式存在:

    XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX

    第1位为符号位

    第2-9位为阶码位

    第10-32位为2进制小数尾值

    即F2 ^ n * 1. XXXXXXX XXXXXXXX XXXXXXXX

    其中

    F为正号或负号(首为为0正数,首位为1负数

    n为2-9位组成的BYTE数据值

    XXXXXXX XXXXXXXX XXXXXXXX为尾数


    1、4字节指的是有4个内存单元,每个单元各放着一个0~255的整数,拼凑起来形成一个32个二进制位的数儿;
    2、根据不同的视角来看待或理解这个数儿,可以得出很多不同的答案;
    3、针对你的问题,其实是“将视角切换为单精度浮点数”,单精度浮点数在内存单元中如何表示,是个挺复杂的事儿,具体是国际电气标准IEEE754规定的,如果你能看懂,绝对可以品味到其中的精彩,这个才是最核心的“原理”;
    4、从你的描述上看,似乎也并不是想了解到最底层的透彻,仅仅是了解这段程序如何能工作,如果是这样的话,答案是:强制类型转换。(float*)&cByte的意思是带上一副“单精度浮点数”的眼镜,去看cByte数组中的内容,前面再加一个*,意思是“看好了,拿出来”。


    ///

    c++?c局部变量只能放在函数开头
    float pfValue=*(float*)&cByte;
    &cByte的地址当作(float*)型指针取内容







    展开全文
  • VB用RGB改颜色跟实际颜色不一样? 本软件VB\WEB都可用 本软件自带 1、拾色器 216进制染色码转换器() 使用方法 16进制颜色:列&H525252& 粘贴到vb颜色属性中方可
  • 以下是n个VB.Net to C# (C# to VB.net)代码转换(互换互)工具1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)在线版:VB.Net => C# C#=>VB.Net 离线版:C#=>VB.Net 2....

    以下是n个VB.Net to C# (C# to VB.net)代码转换(互换互转)工具

    1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)
    在线版:VB.Net => C#   C#=>VB.Net
    离线版:C#=>VB.Net

    2.http://csharpconverter.claritycon.com/(推荐!非常好用的一个,几乎没出过太大的问题。)
    在线版:C#=>VB.Net
    离线版:C#=>VB.Net

    3.http://www.ragingsmurf.com/
    在线版:C#=>VB.Net

    4.http://aspalliance.com/
    在线版:C#=>VB.Net

    5.http://developerfusion.com/
    在线版:VB.Net => C#   C#=>VB.Net

    6.www.icsharpcode.com中的#develop本身带有转换功能

    大家如果有其它的欢迎评论告诉我一声
    最后送一个最管用的:呵呵,看了就知道.
    http://www.4guysfromrolla.com/webtech/012702-1.shtml


    出自:http://ike.126.com

    花纯春 整理
    还是C#1.0翻VB.NET比较容易翻,只要没用unsafe,volatile和少数VB不支持的语法(如event属性,event上的field target attribute,重实现接口,都是一般情况下很少有人用的特性)。而VB中C#不支持的特性既多又常用,所以翻译成功的机率就比较低了。

    C#2005又多了许多难于翻译成VB的特性,同样VB2005也是,以后互相翻译的意义越来越小了。

    展开全文
  • Public Function MODBUSLongtoFloat32(input1 As String) As Double ‘输入格式16进制:33 46 5E 3F字符串格式 '如果是10进制数 可以调用 hex(dex1) & " " & hex(dex2) & " " & hex(dex3) & " " & hex(dex4) Public ...
  • VB.Net to C# 代码转换(互换互)工具

    千次阅读 2006-04-09 18:45:00
    以下是n个VB.Net to C# (C# to VB.net)代码转换(互换互)工具1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)在线版:VB.Net => C# C#=>VB.Net 离线版:C#=>VB.Net 2....
  • 以下是n个VB.Net to C# (C# to VB.net)代码转换(互换互)工具1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)在线版:VB.Net => C# C#=>VB.Net 离线版:C#=>VB.Net 2....
  • VB.Net C#代码转换工具

    2019-10-08 05:19:36
    1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)在线版:VB.Net=> C# C#=>VB.Net离线版:C#=>VB.Net2.http://csharpconverter.claritycon.com/(推荐!非常好用的一个,几乎没出过太...
  • 1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)在线版:VB.Net => C# C#=>VB.Net 离线版:C#=>VB.Net 2.http://csharpconverter.claritycon.com/(推荐!非常好用的一个,几乎没出过太大的...
  • 1.http://www.kamalpatel.net/(最常用的,不过对于16进制的Int不能正常转换)在线版:VB.Net=> C# C#=>VB.Net离线版:C#=>VB.Net2.http://csharpconverter.claritycon.com/(推荐!非常好用的一个,几乎没出过太...
  • 2)将16进制中的每一位数当成单个十进制数后转换为二进制的四位数,然后连接起来0011 0011 1000 (3)去除开头所有0,得到1100111000 (4)通过在开头加0的方式,将字符串拆分为7个一组,得到0000
  • o011.zip 16进制数转换成十进制, 16进制转换成二进制等(1KB) 642,o010.zip 转换二进制数为16进制数(1KB) 643,o009.zip 指定两个日期, 计算相隔的天数(2KB) 644,o008.zip 非常COOL的文字效果(9...
  • VB串口编程--测量程序

    2017-03-27 02:06:19
    If Len(Str_Send) Mod 2 = 0 And Len(Str_Send) <> 0 Then '检验16进制字符串长 ReDim sj(Len(Str_Send) / 2 - 1) For i = 0 To Len(Str_Send) - 1 Step 2 sj(i / 2) = Val("&H" & Mid(Str_Send, i + 1, 2)) ...
  • str() = strBuff '接收数据处理为16进制 For i = 0 To UBound(str) If Len(Hex(str(i))) = 1 Then strData = strData & "0" & Hex(str(i)) Else strData = strData & Hex(str(i)) End If Next receivetext....
  • 实例68 按照16进制方式显示文件  实例69 格式化磁盘  实例70 自己的压缩程序  第7章 数据库  实例71 输入控制与格式化数据(方案例)  实例72 在数据库中存取图像字段  实例73 获得数据库的信息  实例74...
  • PSPad editor是一款简单好用的编辑器软件。软件集UltraEdit、Editplus、EmEditor等各种编辑器的优点于一身,可以同时...进制转换器:2、8、10、16进制转换 表达式求值:放弃Windows自带的计算器吧 PSPad editor截图
  • o011.zip 16进制数转换成十进制, 16进制转换成二进制等(1KB) 642,o010.zip 转换二进制数为16进制数(1KB) 643,o009.zip 指定两个日期, 计算相隔的天数(2KB) 644,o008.zip 非常COOL的文字效果(9...

空空如也

空空如也

1 2 3 4 5
收藏数 93
精华内容 37
关键字:

vb16进制转2进制代码