精华内容
下载资源
问答
  • 任意字符到ASCII互转工具,VB开发源代码,可以把任意字符(数字、字母、汉字)转化成ascii,也可以把ascii还原成最初的字符。转化后的的结果(注:每个字符之间用“/”间隔开)。  使用说明:一共三个大文本框,...
  • VBASC码查询程序

    2008-12-19 10:07:21
    vb做的查询asc码的小程序,可以在十进制、十六进制和八进制之间转换。
  • 这是一个测试键盘事件的程序,基于VisualBasic6.0开发平台,运行程序后,当键盘上的按键时,对话框上就能显示相应按键的ASCII的数值,很方便!
  • 这里整理了ASP常用的ASCII对应表,用的时候方便对照。 字符 意义 字符 意义 字符 意义 字符 意义 字符 意义 chr(9) tab空格 chr(10) 换行 chr(13) 回车 Chr(13)&chr(10) 回车换行 chr(32) 空格符 ...

    这里整理了ASP常用的ASCII码对应表,用的时候方便对照。

    字符意义字符意义字符意义字符意义字符意义
    chr(9)tab空格chr(10)换行chr(13)回车Chr(13)&chr(10)回车换行chr(32)空格符
    chr(34)双引号chr(39)单引号chr(33)!chr(34)"chr(35)#
    chr(36)$chr(37)%chr(38)&chr(39)chr(40)(
    chr(41))chr(42)*chr(43)+chr(44),chr(45)-
    chr(46).chr(47)/Chr(48)0Chr(49)1Chr(50)2
    Chr(51)3Chr(52)4Chr(53)5Chr(54)6Chr(55)7
    Chr(56)8Chr(57)9chr(58):chr(59);chr(60)<
    chr(61)=chr(62)>chr(63)?chr(64)@chr(65)A
    chr(66)Bchr(67)Cchr(68)Dchr(69)Echr(70)F
    chr(71)Gchr(72)Hchr(73)Ichr(74)Jchr(75)K
    chr(76)Lchr(77)Mchr(78)Nchr(79)Ochr(80)P
    chr(81)Qchr(82)Rchr(83)Schr(84)Tchr(85)U
    chr(86)Vchr(87)Wchr(88)Xchr(89)Ychr(90)Z
    chr(91)[chr(92)\chr(93)]chr(94)^chr(95)_
    chr(96)`chr(97)achr(98)bchr(99)cchr(100)d
    chr(101)echr(102)fchr(103)gchr(104)hchr(105)i
    chr(106)jchr(107)kchr(108)lchr(109)mchr(110)n
    chr(111)ochr(112)pchr(113)qchr(114)rchr(115)s
    chr(116)tchr(117)uchr(118)vchr(119)wchr(120)x
    chr(121)ychr(122)zchr(123){chr(124)chr(125)
    chr(126)~chr(127)删除chr(153)chr(169)©chr(174)®
    展开全文
  • static INT_PTR StatusName(CString csTxt)  {  CString csTemp;  csTemp = csTxt;  char * pchar = new char [csTemp.GetLength()*2 + 1];  memset(pchar, 0, csTemp.GetLength()*2+ 1);...

     static INT_PTR StatusName(CString csTxt)
     {
      CString csTemp;
      csTemp = csTxt;
      char * pchar = new char [csTemp.GetLength()*2 + 1];
      memset(pchar, 0, csTemp.GetLength()*2+ 1);
      WideCharToMultiByte( CP_ACP, 0, csTemp, -1, pchar, csTemp.GetLength()*2 + 1, NULL, NULL );
      unsigned char buf1[2];
      buf1[0] = pchar[1];
      buf1[1] = pchar[0];
      short iAsccii = 0;
      memcpy(&brt,buf1,2);
      delete [] pchar;
      pchar = NULL;
      return (INT_PTR)iAsccii;
     }

    测试环境:VC2010

    展开全文
  • VB chr()码值-ASC II编码表。 汇总在一起,方便使用。
  • 逻列出指定范围的所有字符的ASC码,帮助开发分析!
  • 此程序是获取按键后获取其ASCII码值的小程序,是本人学习VB语言的第一个程序
  • 内附源代码 综合汇总小程序ASC码等四项(VB6.0代码编写)
  • VB 字符和ASCII间的相互转换

    热门讨论 2010-06-07 10:45:41
    VB 字符和ASCII间的相互转换 VB 字符和ASCII间的相互转换
  • 日期时间转换成ASC码或者BCD码

    热门讨论 2012-07-24 14:22:44
    日期时间转换成ASC码或者BCD码,做串口调试数据。
  • Dec Mod 2 & D2B Dec = Dec \ 2 Loop Dim n As Integer Dim i As Integer n = 7 - Len(D2B) '要明确必须不够7位补齐7位 因为ASC码是7位 For i = 1 To n D2B = "0" & D2B Next End Function '二进制转十进制 Private ...
    Option Explicit
    
    Private Sub Command1_Click()
        Dim s As String
        Dim s1 As String
        s = "abcABCdasfdsaf3421432"
        Text1 = s
        s1 = TransCoding(s)
        Text2 = s1
        s = s1
        s1 = TransCoding(s)
        Text3 = s1
    End Sub
    
    Private Function TransCoding(str1 As String) As String
        Dim i As Integer
        For i = 1 To Len(str1)
            TransCoding = TransCoding & Chr(B2D(Reversal(D2B(Asc(Mid(str1, i, 1))))))
        Next
    
    End Function
    
    '2进制字符串反转
    Private Function Reversal(str1 As String) As String
        Dim i As Integer
    
        
        For i = Len(str1) To 1 Step -1
            Reversal = Reversal & Mid(str1, i, 1)
        Next
    
    
    End Function
    
    '十进制转二进制
    Private Function D2B(Dec As Long) As String
        
        D2B = ""
        Do While Dec > 0
            D2B = Dec Mod 2 & D2B
            Dec = Dec \ 2
        Loop
        Dim n As Integer
        Dim i As Integer
        n = 7 - Len(D2B) '要明确必须不够7位补齐7位 因为ASC码是7位
        For i = 1 To n
        D2B = "0" & D2B
        Next
        
    End Function
    
    
    '二进制转十进制
    Private Function B2D(vBStr As String) As Long
    Dim i As Integer
    For i = 1 To Len(vBStr)
        B2D = B2D * 2 + Val(Mid(vBStr, i, 1))
    Next i
    
    End Function
    
    
    

    展开全文
  • /// <summary> /// 传入单个字符,得到字符的ASCII /// </summary> /// <param name="chr">汤</param> /// <returns>-13120</returns>...
            /// <summary>
            /// 传入单个字符,得到字符的ASCII码
            /// </summary>
            /// <param name="chr">汤</param>
            /// <returns>-13120</returns>
            public static int ASCII(string chr)
            {
                Encoding ecode = Encoding.GetEncoding("GB18030");
                Byte[] codeBytes = ecode.GetBytes(chr);
                if (IsTwoBytesChar(chr))
                {
                    // 双字节码为高位乘256,再加低位
                    // 该为无符号码,再减65536
                    return (int)codeBytes[0] * 256 + (int)codeBytes[1] - 65536;
                }
                else
                {
                    return (int)codeBytes[0];
                }
            }
            /// <summary>
            /// 传入单个字符的ASCII码,得到ASCII码对应的字符(含双字节)
            /// </summary>
            /// <param name="asc">-13120</param>
            /// <returns>汤</returns>
            public static string Character(int asc)
            {
                //asc = asc + 65536;
                Encoding asciiEncoding = Encoding.GetEncoding("GB18030");
                Byte[] chrByte = BitConverter.GetBytes((short)asc);
                string strCharacter = string.Empty;
                if (asc < 0 || asc > 255)
                {
                    Byte[] chrByteStr = new byte[2];
                    chrByteStr[0] = chrByte[1];
                    chrByteStr[1] = chrByte[0];
                    strCharacter = asciiEncoding.GetString(chrByteStr);
                }
                else
                {
                    Byte[] chrByteStr = new byte[1];
                    chrByteStr[0] = chrByte[0];
                    strCharacter = asciiEncoding.GetString(chrByteStr);
                }
                return (strCharacter);
            }
    

      下面对应单元测试

            [TestMethod]
            public void CharacterTest()
            {
                Assert.AreEqual(CommonFuntion.Character(-13120), "汤");
                Assert.AreEqual(CommonFuntion.Character(-10544), "中");
            }
            [TestMethod]
            public void ASCIITest()
            {
                Assert.AreEqual(CommonFuntion.ASCII("中"), -10544);
                Assert.AreEqual(CommonFuntion.ASCII("汤"), -13120);
            }
            [TestMethod]
            public void ASCIIAndCharTest()
            {
                Assert.AreEqual("中", CommonFuntion.Character(CommonFuntion.ASCII("中")));
                Assert.AreEqual("汤", CommonFuntion.Character(CommonFuntion.ASCII("汤")));
                Assert.AreEqual("A", CommonFuntion.Character(CommonFuntion.ASCII("A")));
                Assert.AreEqual("¥", CommonFuntion.Character(CommonFuntion.ASCII("¥")));
                Assert.AreEqual(-13120, CommonFuntion.ASCII(CommonFuntion.Character(-13120)));
                Assert.AreEqual(-10544, CommonFuntion.ASCII(CommonFuntion.Character(-10544)));
            }
    

      

    转载于:https://www.cnblogs.com/xewnwsl2001/archive/2013/01/30/2882468.html

    展开全文
  • vb16进制与ASCII转换

    热门讨论 2010-07-05 22:11:20
    vb6.0 做上位机,16进制与ASCII转换,ascii与十六进制转换
  • VB编的ASCII的转换

    2008-04-18 22:39:36
    自己做的,直接可以用的实例 .vbp 格式的
  • 标准ASCII 也叫基础ASCII,使用7 位二进制数来表示所有的大写和小写字母,数字0 到9、标点符号, 以及在美式英语使用的特殊控制字符。其中:0~31及127(共33个)是控制字符或通信专用字符(其余为可显示字符),...
  • 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况下面这篇文章将对此做了说明计算机世界2000年第36期实现中文文本的加密方法武汉交通科技大学计算机科学与工程系 吴业福本文介绍了在VB6实现...
  • 内容索引:VB源码,字符处理,ASCII,字符转换 任意字符的ASCII转换工具,基于VB6的源代码,可以把任意字符(数字、字母、汉字)转化成ascii,也可以把ascii还原成最初的字符。转化后的的结果(注:每个字符之间...
  • 如何由两个ASC码(区位码)复原成一个汉字?VB技术很实用的源码关于vb网络的编程基础知识winsock控件的使用,简单的聊天程序,局域网的网络编程
  • vb6怎么将Unicode转中文

    2017-12-11 08:45:37
    ![图片说明](https://img-ask.csdn.net/upload/201712/11/1512981848_23463.png) 想将出参内的Unicode转中文 哪位大神知道指点指点
  • ASC码查询器

    2008-01-10 23:00:24
    平时可能会有用的,至少我自己经常用 版权归BrainDeveloper(蔡智聪)所有.
  • VB编写完整源码判断字符串某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:  If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1))  Label2.Caption = ...
  • 摘要:VB源码,网络相关,数据转换,异或校验 VB通信数据转换,16进制ASC异或校验,16进制ASC和校验。通过VB编写上位机与下位机通信时,数据之和以及异或校验的编写,其中数据以16进制的ASCII编程,在变频器的通信和PLC...
  • 例如:Len(Str(3.4)) =4 Len(CStr(3.4)) =3 Asc函数用于获取对应字符的ASC的值, Chr函数用于根据ASC的值来得到相应的字符 Hex函数和Oct函数分别用于求指定十进制数值的十六进制数和八进制数
  • 展开全部条形作为一e68a843231313335323631343130323136353331333233656533种机器可识别的图形,它能快速、准确地标识某种产品或商品,在许多数据库应用起作很重要的作用,如超市收银、车站售票等场合。...
  • 内容索引:VB源码,字符措置惩罚,ASCII,字符转换任意字符的ASCII转换工具,鉴于VB6的源代码,能够把任意字符(数字、字母、汉字)转化成ascii,也能够把ascii还原成最初的字符。转化后的的结果(注:每一个字符之间...
  • 以前我用vb,很快得出了这个想要的结果:dim ascstr as string = asc(textbox.text(0))可是我用c#了,对这个看似简单的,也费尽了脑。string ascstr = (int)textbox1.text[0];能对付abcd.....及+_(),但对“我,你、...
  • 基于VB的三菱PLC FX3u-48M跟PC的串口通信,批量读取PLC的X000——X007的位状态时,PLC的X0为高电平,发送代码:sendata = Chr(5) + "00FFBR0X00000820" 第一次返回的是Asc码为6的字符,是应答信息,之后返回的为Asc...
  • VB中函数表

    2021-07-28 09:09:08
    VB.NET函数表(2009-03-21 14:48:02)转载var$tag='it'; var $tag_code='0f51bb338ff0e9134e095b3b11d3ee5d'; var$r_quote_bligid='4d93071c0100ckub'; var $worldcup='0'; var$worldcupball='0'; 标签:itS...
  • 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。 欢迎大家捧场:《Visual Basic...模块的代码: Module Module1 ''' <summary> ''' 扫描线设.

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,767
精华内容 1,106
关键字:

vb中asc码