📄 化境编程界1.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0050)http://www.5xsoft.com/data/200107/0716174401_1.htm -->
<HTML><HEAD><TITLE>化境编程界</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>TD {
FONT-SIZE: 9pt; COLOR: #222222
}
.tx1 {
BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: 1px solid; WIDTH: 80px; BORDER-BOTTOM: 1px solid
}
.bt {
BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: 1px solid; WIDTH: 40px; CURSOR: hand; BORDER-BOTTOM: 1px solid; HEIGHT: 18px; BACKGROUND-COLOR: #f3eae9
}
</STYLE>
<STYLE type=text/css>.td1 {
BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; LINE-HEIGHT: 18px; BORDER-BOTTOM: #cccccc 1px solid
}
.td2 {
BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: 0px; BORDER-LEFT: 0px; COLOR: #333333; LINE-HEIGHT: 18px; BORDER-BOTTOM: 0px
}
.td3 {
BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #cccccc 1px solid; COLOR: #333333; LINE-HEIGHT: 16px; BORDER-BOTTOM: 0px
}
</STYLE>
<STYLE type=text/css>A {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff3300; TEXT-DECORATION: underline
}
</STYLE>
<SCRIPT language=javascript src="化境编程界1.files/new.js"></SCRIPT>
<SCRIPT language=javascript>
function proc_search()
{
var obj;
if(!window.search.value)
{
alert('请输入要搜索的内容');
return;
}
location.href='http://www.5xsoft.com/search.asp?type=0&search='+window.search.value;
}
</SCRIPT>
<STYLE type=text/css>A.a1 {
COLOR: #ffffff; TEXT-DECORATION: none
}
A.a1:hover {
COLOR: #ff9900; TEXT-DECORATION: underline
}
</STYLE>
<STYLE type=text/css>.td4 {
BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; LINE-HEIGHT: 16px; BORDER-BOTTOM: medium none
}
</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY bottomMargin=0 bgColor=#b3befd leftMargin=0 topMargin=0 rightMargin=0>
<TABLE height=16 cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD align=left width=415 height=16> </TD>
<TD align=left width=46 bgColor=#000000><IMG height=16
src="化境编程界1.files/angle.gif" width=40></TD>
<TD align=middle width=308 bgColor=#000000><FONT color=#ffffff><A class=a1
href="http://www.5xsoft.com/menu/index2.htm">化境作品</A> | <A class=a1
href="http://www.5xsoft.com/about.htm">关于作者</A> | <A class=a1
href="http://www.5xsoft.com/menu/index0.htm">技术文章</A> | <A class=a1
href="http://bbs.5xsoft.com/">留言板</A></FONT></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR align=middle>
<TD vAlign=bottom width=110 bgColor=#b3befd height=60><IMG height=60
src="化境编程界1.files/5xsoft.gif" width=110></TD>
<TD width=468> </TD>
<TD vAlign=bottom width=191 bgColor=#b3befd> </TD></TR>
<TR align=left>
<TD colSpan=3 height=5></TD></TR></TBODY></TABLE>
<TABLE height=1 cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=332 cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=170 bgColor=#eeeeee>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top bgColor=#b3befd>
<TD colSpan=2 height=65><BR> 站内文章搜索：<BR> <INPUT class=tx1
id=search name=search> <INPUT class=bt style="WIDTH: 40px" onclick=proc_search(); type=button value=搜索 name=button>
</TD></TR>
<TR>
<TD width="9%"> </TD>
<TD width="91%"> </TD></TR>
<TR>
<TD bgColor=#eeeeee height=257> </TD>
<TD class=td4 vAlign=top><STRONG>相关内容: </STRONG><BR>- <A
title=Combo的自动查询技术
href="http://www.5xsoft.com/data/200302/2709554101.htm">Combo的自动查询技术</A><BR>-
<A title=在VB5中生成统计图形
href="http://www.5xsoft.com/data/200302/2709513601.htm">在VB5中生成统计图形</A><BR>-
<A title="VB.net 编码规范（也适用于C#）"
href="http://www.5xsoft.com/data/200202/0416024301.htm">VB.net
编码规范（也适用于C#）</A><BR>- <A title=VB中不规则图形热点的实现
href="http://www.5xsoft.com/data/200201/3108142801.htm">VB中不规则图形热点的实现</A><BR>-
<A title=VB随机图像的魅力
href="http://www.5xsoft.com/data/200201/3108134001.htm">VB随机图像的魅力</A><BR></TD></TR></TBODY></TABLE></TD>
<TD class=td3 vAlign=top align=left width=608 bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="5%" rowSpan=5> </TD>
<TD width="95%" height=19> </TD>
<TD width=0% rowSpan=5> </TD></TR>
<TR>
<TD class=td1 vAlign=center align=left height=33><A
href="http://www.5xsoft.com/">化境编程界</A> -> <A
href="http://www.5xsoft.com/menu/index0.htm">技术文章 </A>-> <A
href="http://www.5xsoft.com/menu/index0_3_1.htm">VB/VB.Net
</A></TD></TR>
<TR>
<TD class=td1 vAlign=center align=middle height=33><FONT
size=+1><B><BR>VB下如何编写CRC校验程序(2) </B></FONT><BR><BR>[ 作者: 栾金奎
添加时间: 2001-7-7 16:19:08 ]<BR></TD></TR>
<TR>
<TD class=td1 vAlign=top align=left height=151><BR>&H80,
&H41, &H0, &HC1, &H81, &H40, &H0, &HC1,
&H81, &H40, &H1, &HC0, &H80, &H41, &H0,
&HC1, &H81, &H40, &H1, &HC0, &H80, &H41,
&H1, &HC0, &H80, &H41, &H0, &HC1, &H81,
&H40, &H0, &HC1, &H81, &H40, &H1, &HC0,
&H80, &H41, &H1, &HC0, &H80, &H41, &H0,
&HC1, &H81, &H40, &H1, &HC0, &H80, &H41,
&H0, &HC1, &H81, &H40, &H0, &HC1, &H81,
&H40, &H1, &HC0, &H80, &H41, &H0, &HC1,
&H81, &H40, &H1, &HC0, &H80, &H41, &H1,
&HC0, &H80, &H41, &H0, &HC1, &H81, &H40,
&H1, &HC0, &H80, &H41, &H0, &HC1, &H81,
&H40, &H0, &HC1, &H81, &H40, &H1, &HC0,
&H80, &H41, &H1, &HC0, &H80, &H41, &H0,
&HC1, &H81, &H40, &H0, &HC1, &H81, &H40,
&H1, &HC0, &H80, &H41, &H0, &HC1, &H81,
&H40, &H1, &HC0, &H80, &H41, &H1, &HC0,
&H80, &H41, &H0, &HC1, &H81, &H40)<BR> End
Function<BR><BR> 'CRC高位字节值表<BR> Function GetCRCHi(Ind As Long) As
Byte<BR> GetCRCHi = Choose(Ind + 1, &H0, &HC0, &HC1,
&H1, &HC3, &H3, &H2, &HC2, &HC6, &H6,
&H7, &HC7, &H5, &HC5, &HC4, &H4, &HCC,
&HC, &HD, &HCD, &HF, &HCF, &HCE, &HE,
&HA, &HCA, &HCB, &HB, &HC9, &H9, &H8,
&HC8, &HD8, &H18, &H19, &HD9, &H1B,
&HDB, &HDA, &H1A, &H1E, &HDE, &HDF,
&H1F, &HDD, &H1D, &H1C, &HDC, &H14,
&HD4, &HD5, &H15, &HD7, &H17, &H16,
&HD6, &HD2, &H12, &H13, &HD3, &H11,
&HD1, &HD0, &H10, &HF0, &H30, &H31,
&HF1, &H33, &HF3, &HF2, &H32, &H36,
&HF6, &HF7, &H37, &HF5, &H35, &H34,
&HF4, &H3C, &HFC, &HFD, &H3D, &HFF,
&H3F, &H3E, &HFE, &HFA, &H3A, &H3B,
&HFB, &H39, &HF9, &HF8, &H38, &H28,
&HE8, &HE9, &H29, &HEB, &H2B, &H2A,
&HEA, &HEE, &H2E, &H2F, &HEF, &H2D,
&HED, &HEC, &H2C, &HE4, &H24, &H25,
&HE5, &H27, &HE7, &HE6, &H26, &H22,
&HE2, &HE3, &H23, &HE1, &H21, &H20,
&HE0, &HA0, &H60, _<BR>&H61, &HA1, &H63,
&HA3, &HA2, &H62, &H66, &HA6, &HA7,
&H67, &HA5, &H65, &H64, &HA4, &H6C,
&HAC, &HAD, &H6D, &HAF, &H6F, &H6E,
&HAE, &HAA, &H6A, &H6B, &HAB, &H69,
&HA9, &HA8, &H68, &H78, &HB8, &HB9,
&H79, &HBB, &H7B, &H7A, &HBA, &HBE,
&H7E, &H7F, &HBF, &H7D, &HBD, &HBC,
&H7C, &HB4, &H74, &H75, &HB5, &H77,
&HB7, &HB6, &H76, &H72, &HB2, &HB3,
&H73, &HB1, &H71, &H70, &HB0, &H50,
&H90, &H91, &H51, &H93, &H53, &H52,
&H92, &H96, &H56, &H57, &H97, &H55,
&H95, &H94, &H54, &H9C, &H5C, &H5D,
&H9D, &H5F, &H9F, &H9E, &H5E, &H5A,
&H9A, &H9B, &H5B, &H99, &H59, &H58,
&H98, &H88, &H48, &H49, &H89, &H4B,
&H8B, &H8A, &H4A, &H4E, &H8E, &H8F,
&H4F, &H8D, &H4D, &H4C, &H8C, &H44,
&H84, &H85, &H45, &H87, &H47, &H46,
&H86, &H82, &H42, &H43, &H83, &H41,
&H81, &H80, &H40)<BR> End
Function<BR><BR> 以上程序在Win98，VB6下调试通过。 <BR><BR></TD></TR>
<TR>
<TD class=td4 vAlign=center align=middle height=48><A
href="http://www.5xsoft.com/data/200107/0716174401.htm"><FONT
face=Webdings>7</FONT> 上一页</A>
<!--nextpage--></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE height=58 cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD align=middle width=784 height=58><BR>© Copyright 化境编程界 稻香老农 2000.4 -
2002.12 | OICQ:593737 | Email: 5xsoft@21cn.com <IMG
src="化境编程界1.files/top.htm" border=0></TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -