一个非常经典的小游戏，潜艇大战，很有参考的价值，不足的请多多指教...

本计算器实现了计算器的基本的运算功能，以及使用比较广泛的函数功能，可作为函数功能型计算器使用，同时为了方便实用，本人进行了统计功能的编程，使本计算器可以用于简单的统计。在编程时只使用了最基本的方法，未用到特别的技术。本程序的执行文件过大是一个较大的问题，在今后的学习中会逐渐改进，将程序进行分块儿，以提高执行效率。-the calculator calculator achieved the basic computing functions, and the use of more extensive Function can be used as a functional calculator use, in order to facilitate the practical, I conducted a statistical functional programming, so that the calculator can be used in simple statistics. When the program to use only the most basic of ways, not the particular technology used. The procedures are too big and is a major problem in the next study will gradually improve, procedures pm deadline, in order to enhance the efficiency of enforcement.

1） 在线

滑动条的显示状态-sliding strip"s state

演示桌面动画的程序例子，适用于VB5。很好玩的-Desktop animation demo program example, applies to VB5. Very fun

多线程的例子程序-multithreading examples procedures

二进制数据文件交织处理,二进制数据文件交织处理-Intertwined to deal with binary data files, binary data files handled intertwined

delphi 获取CPU序列号的简单代码，可以试着了解看看，之前是为了做授权验证使用的

win2000下直接访问端口 1、用install_giveio.bat，调用loaddrv.exe，安装giveio.sys 到系统中。 2、安装 port.pas后，在delphi的‘Custom‘面板中, 有一个port元件。 3、拖一个TPort到窗体上，命名为port。 4、那么就可以直接访问端口（2000下也可以），如：读 i:= port[$378] 写 port[$378]:= 5、status_giveio.sys 查看状态，remove_giveio.sys 反安装驱动。 6、tstio.exe 直接调用bios来发声，可以用来测试是否安装驱动成功。cygwin1.dll是loaddrv.exe 要调用的，因为它是用MinGw32下的gcc编译的。 -win2000 under the direct access to port 1, using install_giveio.bat, call loaddrv.exe, installed into the system giveio.sys. 2, installed after port.pas in delphi the

域名服务器的仿真程序： 一个简单的仿真模拟程序，其中包括数据的输入、查询和删除功能，要求在该程序的基础上添加一些功能，使程序的功能更为全面，操作更加方便。-Domain Name Server simulation procedures: a simple simulation program, including data entry, query and delete functions, the requirements in the program based on the add function, the function of the process more comprehensive, more convenient operation.

使用显示进度条程序-use of the procedure shows progress