菜鸟注册机编写基础教程
写在前面：辛辛苦苦把一个算法弄清楚后，苦于不懂编程，完美的总结中总留下点遗憾，也给文章的技术含量打了不少折扣。就象块洁白的美玉上多了块瑕疵。本文就是专门针对那些对算法已经非常熟悉了却苦于无法用高级语言来表达的“技术员”写的。事先声明，本人也不是程序员，在编程方面也是菜鸟一个，只是把自己仅有的一点心得拿出来与大家分享，主要还是靠自己努力，所以高手就不要来看笑话了，万一不小心飘过的话最好能提点意见，顺便把文中的错误更正一下。
文章采用VB、DELPHI、VC同时进行的方法，这样便于对比。这三种语言到底哪个好呢，网络上有很多的比较，各个语言都有自己的特，你只要认准哪种语言，那种就是好的。因为是写注册机，所以编译速度、编译后文件的大小等对我们都不重要，我们也不深入了解各种语言（再说更深入的我也不懂），我们只要了解一些常用的与算法相关的内容。文章拟定分基础篇、入门篇、提高篇、高级篇、实战篇和效果篇。话不多说，开始….
一、基础篇
这节不看也罢，大部分知识网络上都能收集的到，而且比这里齐全，这里只是做了集中收集，并进行了对比，我希望大家知道一点，那些搜索引擎永远都是最好的老师，要想得到更全的内容请到网上搜集。本节内容：常量、变量赋值，运算符，基本语句，常用函数。要求熟记之。
1、常量、变量赋值
* 比如我们想定义变量A为整型数据：
VB：    Dim a as Integer
DELPHI:  a:integer;
VC:      int a;
* 定义常量B为16进制值75BCD15：
VB：    b=&H75BCD15
DELPHI:  CONST
b=$ 75BCD15
VC:      CONST LONG b=0X75BCD15
==============================================================
* VB、Delphi和C++数据类型对照表 *
字长/值域              VB              Delphi                  C++
8位有符号整型      Integer          ShortInt              signed char
16位有符号整型      Integer          SmallInt              short
32位有符号整型      long            Long                  Long
8位无符号整型      byte            Byte                  unsigned char
16位无符号整型      byte            Word                unsigned short
菜鸟教程python下载32位有符号整型      Integer          Integer                int
32位无符号整型      Integer          Cardinal              unsigned int
布尔型              Boolean          Boolean                bool
真/假或 16位无符号整型              ByteBool              unsigned char
真/假或 16位无符号整型              WordBool              unsigned short
真/假或 32位无符号整型              LongBool              BOOL (WinAPI)
8位无符号字符      string            AnsiChar                char
宽字编码字符        string            WideChar              wchar_t
8位无符号字符      string            Char                    char
AnsiString类        string            String                  AnsiString
32位浮点数        single            Single                  float
64位浮点数        double          Double                double
80位浮点数                          Extended              long double
32位浮点数                          Real                    double
32无类型指针                        Pointer            void *
32位字符型指针                        Pchar              unsigned char *
32位ANSI型字符指针                  PAnsiChar            unsigned char *
64位浮点数                          Comp                Comp 类
OLE可变类型值                      OleVariant          OleVariant 类
====================================================================== 2、运算符
Visual Basic                C#                    Delphi          运算符的名称
+（一元）                    +（一元）            +（一元）加
-（一元）                  -（一元）              -（一元）减
IsTrue                      true                  （无此运算符）判断真
IsFalse                    false                （无此运算符）判断假
Not                          !                      not            逻辑非
Not                          ~                      not            取反
（无此运算符）（无此运算符）            Trunc          将实型值截取为整型值
（无此运算符）（无此运算符）            Round          将实数值舍入为整型值
（无此运算符）              ++                    Inc            递增
（无此运算符）              --                    Dec              递减
+                            +                      +                加法
-                            -                      -                减法
*                            *                    *                乘法
/                            /                    /                除法
\                        （无此运算符）（无此运算符）整除
（无此运算符）（无此运算符）          div                除
&                        （无此运算符）（无此运算符）连接符
^                        （无此运算符）（无此运算符）指数运算
（无此运算符）              <<                  shl                逻辑左移
（无此运算符）              >>                  shr                逻辑右移
=（判断等值不是赋值）        ==                    =                  等于
<>                          !=                  <>                  不等于
<                            <                    <                  小于
<=                          <=                  <=                  小于等于
>                            >                    >                    大于
>=                          >=                  >=                  大于等于
And                          &                  and                  逻辑与
Or                            |                  or                  逻辑或
Xor                        ^                    xor                  逻辑异或
And                        &&                    and                  逻辑与
Or                        ||                    or                    逻辑或
（无此运算符）（无此运算符）          xor                  异或
Mod                        %                    mod                    取余
Like                    （无此运算符）（无此运算符）          VB的LIKE CType              用户定义的类型转换用户定义的类型转换类型转换
3、基本语句（只讲最常用的三种，更多的内容看附件）
①赋值语句
VB：
变量＝表达式
例：
Dim a As Integer
a=100*20
Set 变量＝表达式
例：
Dim ex As DataBase
Set ex=OpenDataBase("File.mdb")
DELPHI：
赋值语句的符号是冒号＋等号即：=
例：
A:integer;
A=$ 75BCD15
VC：
变量名，后接“=”
例：
a = 10
变量定义=变量名
例：
long b;
②循环语句
VB：
For  var=start To end[Step step]
.
..
Next var
例：
For I = 1 to 8
N=n+I
Next I
DELPHI：
for 循环变量：= 初值 to 终值 do
循环体语句
for 循环变更：= 初值 downto 终值 do
循环体语句
例：
for i:=1 to 8 do
begin
n := n+i
end;
VC：
for(statement1; statement2; statement3) {                /* body */
}
例：
for(i = 0; i <= 8; i++) {
a[i] = i + i;
}
③  IF语句
VB：
If 表达式 Then
...
Else
...
End If
例：
If Password=str Then
msgbox”true”
Else
msgbox”false”
End if
DELPHI：
if 表达式 then
语句1
else
语句2
例：
If Password=str Then
begin
ShowMessage(' True');
end
Else
begin
ShowMessage('False');
end
VC：
if ("条件")
{
}
else
{
}
例：
if(Password=str )MessageBox('true ',4);
else{
MessageBox('false ',4);
}
4、常用函数（只介绍几个常用的，更详细的内容看附件，以下的比较只是功能类似，有几个函数功能并不是完全一样。）
VB            DELPHI              VC
取字符长度            len()            Length()              Length Strlen()
转大写                Ucase()          UpperCase()          toUpper()
转小写                Lcase()          LowerCase()          toLower()
去掉字符串两边空白    Trim()            Trim()                Trim()
随机数                Rnd()            random()              random()
取字符串第N位        mid(s,m,n)        copy(s,m,n)            strcpy(s,m,n)
取字串左边N位        left(s,n)          copy(s,m,n)            strcpy(s,m,n)
取字串右边N位        right(s,n)      copy(s,length(s)-m+1,n)  copy(s,strlen(s)-m+1,n)
十六进制转十进制        hex()              inttohex()            itoa  ltoa
十进制转十六进制        &H              $,  strtoint            atoi  atol
十进制转八进制          oct()
取字符ASCII码          s                ord()
去掉小数点，保留整数    fix()              trunc()
返回N个空格            space()          string of char(‘’,n)
返回N个字符            string()          string of char()
格式化字串              format()          format()                format()
数值转字符              chr()            chr(),inttostr            char ch=64
查字符在另一字符串中的位置  instr()      pos()
四舍五入转整数          Cint()            round()                atoi
转浮点数                Csng(),CDbl()      strtofloat                atof
转长整型                CLng()            strtoint                atol
转字节型                Cbyte            inttostr                itow
取绝对值                abs()              abs()                  abs()
取平方                  sqx()              Sqr()                  sqrt()
字符转数值              val()              val()
数值转字符              str()                str()
取变量指针              varptr()

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。