喷嚏网----阅读、发现和分享：8小时外的健康生活！ 之 [青少年学电脑编程(8-17岁)]

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

汉语编程-汉芯之后的中国软件界大骗局

KPLer — Thu, 18 Oct 2007 09:57:00 +0800

一、闹得沸沸扬扬的汉语编程
二、汉语编程其实是一个大骗局
三．汇编都是英文的，其他变成汉语有什么用
四、其实汉语编程很好创造出来，但是却没什么用
五、中国人编程难的问题和出路在那里

一、闹得沸沸扬扬的汉语编程

这几年以来，特别是最近一段时间，汉语编程闹得沸沸扬扬，大有我中华民族之骄傲，如果不加紧实行汉语编程，中华民族就要消失了。徽剑本对于汉语编程不以为然，一直没有理会。之所以写这篇文章，是因为徽剑前几天接到一电话，是北京一家公司打过来的，大谈推广汉语编程，要跟徽剑的公司合作在深圳推广，于是徽剑查了一下资料，发现这两年所谓的汉语编程这场闹剧居然愈演愈烈，于是徽剑不得不出来揭露下。对比去年的汉芯事件，徽剑认为，所谓的汉语编程只不过是另一场汉芯的重演而已。所以看完本文，特别是程序员朋友，如果您认为徽剑说的有理，请将本文多多转发到各种论坛，揭露这场骗局。

先来看新闻，2007年09月《通信产业报》以“汉语编程异军突起民族产业出黑马”为题发表了一篇文章。开头是这样：

“当今世界，科技突飞猛进。网络改变了人们的生活和思维，成为人们学习和工作不可或缺的一部分。人们点击鼠标进行学习、工作和接收外界信息的时候，计算机程序设计语言在其中起到了至关重要的作用。很多年来，我们一直在使用国外的编程语言，人们已经习惯了用C语言、JAVA等计算机语言编写应用程序，实现人与计算机的完美对话。但是朋友您知道吗，真正属于我们自己的计算机程序设计语言——汉语编程已经问世，而且已经在诸多领域发挥了重要的作用。”

然后文章介绍了汉语编程：

“汉语编程萌发于1984年，1994年获得国家发明专利。汉语程序设计语言，不是对计算机语言的简单汉化，也不是为某种软件制造一个中文环境，而是中国人自已掌握全部源代码，使用汉字信息指令，从计算机底层入手，使计算机的中央处理器(CPU)能够处理存储器中的汉字词典，从而实现计算机对汉字程序的识别，不受现行操作系统控制的技术系统，且完全拥有独立的自主知识产权。”（呵呵，这段话里面的问题就先不说了）

在文章的末尾，还上升到了民族大义的高度：

“我们曾经因为闭关锁国错过了工业革命的巨轮，也曾忙于阶级斗争，而错过战后新技术发展的浪潮。如今，我们有了完全自主知识产权的计算机语言，其核心技术无可挑剔，且优势日益明显，我们不能再错过最好的发展时机。汉语编程是民族的，是国家的，中国这个有着5000年深远文化的泱泱大国，理应把它好好利用起来，发展和振兴我国民族产业，为中国人民所熟知和使用。”

徽剑在收集到的另外的资料还有这样报道：

“近日，用汉语编程实现的数据库开发环境将通过江苏省科技厅的验收。按照进程，汉语程序设计语言数据库开发环境项目完成后一年，项目承担方——南京汉语编程有限公司将以汉语编程数据库教育版为推广重点并进行其他工程开发。项目完成后两年，汉语编程数据库标准版将以OEM方式与国内PC制造商捆绑销售。项目完成后三年，将推出汉语编程数据库企业版参与政府、企业、部队信息化建设，部分替代进口产品。江苏省科技厅将对该项目投资三百万元。同样看好汉语编程的还有重庆市科委，他们的预期投资是上千万。汉语编程作为重大科技发明发现正在申请重庆市的国家级项目。重庆药监局正在应用汉语编程开发的数据库实现对所有下属药店的监管。目前这个项目完成了大部分，6月底将最后完工。”

当然徽剑在报道中也找到了不同的声音：“从2001到2002的两年间，北京市科委对汉语编程项目进行了5次评审。评审的结果是，超过50%的专家并不认可汉语编程的可行性，元易达没有能在北京市科委立项。元易达于是坚持“农村包围城市”的市场开发路线。当年对北京元易达公司进行评审的时候，原中国科学院计算机软件研究所研究院员仲萃豪这样评价，“用汉语编程语言开发数据库，这条路是相当艰巨的。汉语编程现在还只是一个小玩意。”

看完这些，有人会问，到底这个汉语编程是怎么回事？到底有多大价值？对未来的发展有如何贡献？那么好，下面就来分析。

二、汉语编程其实是一个大骗局

我们知道一个骗局“汉芯事件”， 2003年2月，在摩托罗拉公司做测试的工程师陈进，将一片从美国买来的MOTO-free scale 56800芯片，雇请民工磨掉原有标志，然后加上自己的“标识”，变成了所谓“完全拥有自主知识产权”的“汉芯一号”，申请了多项专利，并借此当上了上海交大微电子学院院长、博导以及“长江学者”。

汉芯事件一大特点就是拿一块别人的芯片，简单修改一下，然后包装成自己的成果。这种如果是商业上，只要不侵犯别人权益也就无可厚非。但是作为科技开发就不同，讲究的是原创和事实。我们来对比下汉芯和汉语编程，我们会发现他们有惊人的易曲同工之妙。

报道这样说：“汉语程序语言是在1993年由北京百乐航天应用技术公司汉语工控部的沈志斌发布的，最初为PC1.0版，是一个16位版本，只能在MS－DOS环境下运行。2000年，沈志斌组建了北京元易达公司，专门从事汉语编程的产品开发。经过近十年的发展，汉语程序语言目前最新的版本为2.03，能够在WINDOWS9X/NT环境下运行。”

一开始的时候，徽剑也没明白这到底是什么语言，还以为这真是汉语编程的原创，只是觉得有些别扭，一来是觉得“汉语编程”的软件经过这么多年的发展，版本一直不变，是否让人难以理解？而且其开发界面极其难看，用反汇编软件居然发现汉编编译器主程序文件居然使用的是微软的VC运行库，这里让人极其不解，既然汉语编程都到了可以汉语汇编的程度，为什么编译器还要用VC来开发？

最近在铁血社区看到一篇文章，才完全证实了徽剑的猜测。

从词典看某“汉语编程”与Forth语言http://bbs.tiexue.net/post_2304429_1.html
看完了文章上面的图片对比，相信只要有编程基础的人士都可以明白，这完全是彻头彻尾的剽窃。一个把开源代码复制过来，加以简单修改，然后包装成自己的原创。

这里很抱歉一开始的时候，徽剑对于这种叫Forth语言确实孤陋寡闻，徽剑正想自己动手比较的时候，有一位网友做了好事，先比较了下：
原帖链接（http://www.xycq.net/forum/thread-152078-1-1.html），作者来个分析：

“汉语编程目前能够下载到的版本为2.03.1920，由于只使用一个版本的汉语编程，后面的描述中就省掉版本了。在铁血网中的帖子有一个简单的比较，用的是一个叫win32forth的forth实现，在其主页Download's中可以得到两个不同的版本，一个是4.2build671，另一个是6.12.00是目前最新的稳定版。在铁血帖中提到过wincon.dll这个文件，我也是从这个文件入手的。”

于是该网友用VC6中的Depends查看三了个wincon.dll的结果。发现入口非常相似，也就是有可能是差不多的文件。于是该网友考虑了将三个DLL进行互换。

“将三个dll文件复制到一起，先将三个文件复制到win32forth4.2中，分别使用三个dll后启动WIN32FOR.EXE的结果发现“汉语编程的wincon.dll文件能够被win32forth4.2正常使用，而且读出来的数值与汉语编程环境下一致，都是10895。由于接口改变，4.2和汉语编程的wincon.dll都不能在6.12中使用了。而win32forth4.2版与6.12版的wincon.dll文件都能够在汉语编程环境下使用，而且读出的值都与原环境下一致。综上情况，汉语编程与win32forth在wincon.dll文件上保持了相当好的兼容性，如果说二者一点关系都没有，形成这种结果的几率不知道能有多大。”

更为搞笑的是，当该网友试着将汉语编程程序和win32forth4.2目录下的这个同名文件WINCON.DLL删除时居然发现汉语编程与4.2的提示基本一致（徽剑测试时除了标题的两个字母大小写不同外其他一致）。该网友不禁问：“这也是巧合吗？一个号称汉语的居然冒出一句英文的提示而且还跟别人的如此相似，而且是"Missing procedures!"这种计算机程序中少见的用词以及少见的标题栏中用标点。”

“将汉语编程的win32chp.dll文件复制到win32forth4.2文件夹下并命名为win32for.img，当然之前要备份好原来的win32for.img文件；将汉语编程的ckernel.ovl复制到win32forth4.2文件夹下。然后找一个16进制编辑器，打开win32for.img文件，从偏移4（也就是第5个字节）开始，连续4个字节修改为D5 11 92 01，保存。双击win32for.exe，”

徽剑看到的是居然看到的是带着win32forth 4.2图标的汉语编程。

最后该网友总结到：“说到底，汉语编程应该是这么来的，由于win32forth的源码是公开的，汉语编程利用其源代码将win32forth字样抹去，并且修改了识别词库文件的标志（将win32forth的D5 11 92 01修改为DA B7 6E EF），编译出可执行程序。然后又根据需要，汉化及添加、修改了词库形成了现在用汉字和一堆全角符号编程的汉语编程语言。可以说汉语编程为了掩盖其与win32forth的关系，将符号修改的很彻底，也不管那一堆全角符号用起来多么古怪。”

“如果继续研究下去，我想还会掌握更多的证据，甚至有希望根据wincon.dll和winapi词数找到汉语编程使用的那个版本的win32forth，不过目前我觉得这些证据已经足够了，已经不需要再浪费时间了。”

最后作者得出结论：

“其实汉语编程就是win32forth的一个修改版，实现的功能基本上都是win32forth实现的。把这个东西吹嘘为民族的希望，汉语编程需要带的ckernel.ovl和win32forth 4.2需要带的kernel.bin文件都是词库（其实就是编译过一次的字节码）的要求，比如要是用汉语编程的编辑器winedit.dll替换成win32for.img的话就不需要带ckernel.ovl了。注意观察一下汉语编程的各个程序，都是由同名的一个exe文件和一个dll文件组成的，那个dll文件并不是真正的win32格式的dll文件，而是与win32forth 4.2的img仅差一个标志的一种格式；而那个exe文件其实都是可以互换使用的，当然跟win32forth 4.2互换都没有问题。”

看到没有，一个骗子。一个跟汉芯一样的骗子。

三．汇编都是英文的，其他变成汉语有什么用

下面来介绍下语言的基础，（这部分主要是给对编程不是很了解的人士看的，有些地方不严谨，但是只要说明意思就可以了）

我们先看语言基础，我们平时看到的电脑每做的一次动作，一个步骤，都是按照以经用计算机语言编好的程序来执行的，程序是计算机要执行的指令的集合，而程序全部都是用我们所掌握的语言来编写的。所以人们要控制计算机一定要通过计算机语言向计算机发出命令。计算机语言的种类非常的多，总的来说可以分成机器语言，汇编语言，高级语言三大类。

计算机所能识别的语言只有机器语言，即由0和1构成的代码。但通常人们编程时，不采用机器语言，因为它非常难于记忆和识别。目前通用的编程语言有两种形式：汇编语言和高级语言。

作为机器语言，其核心是如何控制内部运算，对于不同的CPU架构体系，其机器语言也会不同。表现出来的就是指令集，CPU依靠指令来计算和控制系统，每款CPU在设计时就规定了一系列与其硬件电路相配合的指令系统。

汇编语言的实质和机器语言是相同的，只不过指令采用了英文缩写的标识符，更容易识别和记忆。使用汇编语言编写的程序，机器不能直接识别，要由一种程序将汇编语言翻译成机器语言，这种起翻译作用的程序叫汇编程序，由于汇编语言只是机器语言的符号化,虽说相对简单了,但是还是得要求人们学习相应的内部结构,对于复杂的内部结构,有很大一部分人还是无从着手的.所以就出现了高级语言,当程序员用高级语言指令写完源程序后,只需用编译器编译就可运行了.此时编译器所做的工作就是把高级语言指令翻译成汇编语言(机器语言。.

对于软件开发者来说，他需要考虑的是CPU的指令集，也就是CUP指令集的汇编指令，只有针对这些指令才能开发出相应的程序来，举例来说，你在基于英特尔CUP的汇编指令上开发的程序，就不能在苹果电脑上运行。而这些汇编指令集都是CUP等硬件厂商开发提供的，目前我们知道CUP的大部分厂商都是海外公司，他们的指令集（都是汇编语言写成）都是英文的。

高级语言是目前绝大多数编程者的选择。和汇编语言相比，它不但将许多相关的机器指令合成为单条指令，并且去掉了与具体操作有关但与完成工作无关的细节，这样就大大简化了程序中的指令。高级语言如目前流行的VB、VC、FoxPro、Delphi等，高级语言所编制的程序不能直接被计算机识别，必须经过转换才能被执行。

通常而言,人们写程序有两种方式，
一是直接用汇编语言写，然后翻译成机器语言。
二是用高级语言写，然后编译器翻译成汇编，最后翻译成机器语言。

也就是说，程序语言的编写分为三个层次。

第一层次（最低层次）是机器语言其语言都是01.
第二层次是汇编语言（使用不同的CUP指令集）其语言都是英文
第三层次是高级语言

我们会发现一点，不过你采用什么语言编写，最终的都是要编译成汇编语言然后到机器语言，最终都是要调用CUP指令集。（这里需要指出的是，任何汇编指令集，都是硬件开发厂商开发的，而不是什么程序语言公司开发的。）就目前而言，这块都是英语，目前国内有人推出的汉语汇编编程，徽剑觉得啼笑皆非，就汇编语言而言，是直接对CPU等硬件操作的，必须依赖各种指令集，而这些厂商，有几个提供汉语指令集？

在没有硬件厂商提供的汉语指令集前提下，所谓的汉语汇编是不是“鸡对鸭讲”？这么一来是不是要有人把英文指令集翻译成汉语？那跟汉化有什么区别？

这样一来任何人都可以开发出一套汉语汇编来，很简单，找一套汇编编译器，增加一个翻译过程，当输入汉语时，将其翻译成对应的英文汇编程序，然后再翻译成机器语言，或者直接采用替换方式，当输入英文的时候，将其翻译成（英文对应）的机器语言。

任何汇编指令集，都是硬件开发厂商开发的，而不是什么程序语言公司开发的。让程序开发者利用汇编语言来操作他们的硬件。除非硬件厂商提供直接针对汉语的指令集，否则任何所谓的汉语汇编都是，翻译器加汇编编译器。

也就是说，在汇编领域，目前并未有任何厂商提供汉语指令的指令集，那么意味我们所谓的“先进的汉语汇编”就不是什么自主开发的东西。那么这里有一点就可以明了，就是目前的真正的汇编都是英文的。汉语汇编其实只是“假汇编”。

四、其实汉语编程很好创造出来，但是却没什么用

前面谈到的那个“汉编”事实上是个骗子，下面徽剑要说说不是骗子的汉语编程，以易语言为例。

易语言是曾经和朱崇君一起开发CCED的吴涛于 2000年初开始开发的，这是一款Windows下全中文可视化编程语言，最新版本为 4.0。易语言自发布后，以其类似于VB的风格和彻底中文化的特点赢得了不少电脑爱好者的青睐，

易语言的特点就是用汉语来写，原来编写程序输入的是英文，现在改成输入汉字了，我们来看段易语言程序：

引入 apr;
公开类启动类
{
公开静态启动()
{
整数数量;
控制台.输出行("请输入将要生成的随机数个数:");
数量= 控制台.输入整数();

随机数集合.显示(数量);

随机数集合.显示();
}
}
公开类随机数集合
{
公开静态显示(整数生成个数=10)
字节集临时字节集;
整数 I,J;
内存池局内存池 = 创建内存池;
控制台.输出行("下面开始生成"+生成个数.到文本+"个随机数====>");

计次循环(生成个数,J)
{
   临时字节集=随机数.生成随机数(1,局内存池);
   I=字节集类.到整数(临时字节集);
   控制台.输出行(整数类.到文本(I));
}
控制台.输出行("<========随机数已生成");
控制台.输入文本();//暂停屏幕滚动用
}
}

事实上，徽剑看不出这里有什么优势，懂中文的人似乎也没几个能明白。有人说易语言似乎对于英语不好的人有帮助，其实很荒谬，因为如果但是写程序部分所使用的英文数量是很少的，常用的也就几十个英文单词，一般情况下也就几百个英文单词。也就是说，如果仅仅考虑到“写程序”这块而言，会个三五百单词足够，这点数量的单词相信没有几个人学不会。

我们必须看到而真正出问题的在于“接口”上面，前面说了，目前的操作系统、几乎所有的各种应用程序都是英文编写的，所谓的中文版只是在用户界面做了汉化，这样一来，用汉语编写的程序如果要在操作系统上运行、或者与其他程序交换数据，不可避免的遇到英文代码，特别是操作系统，比如windows下的API等而这些接口又是成千上万，如果没有很好的英文是很头疼的。

更为甚者，这些接口的文档大多都是英文编写，没有好的英文水平是阅读不了的。也就是说如果你想成为程序高手，英文是必须解决的拦路虎。也许有一天有了全中文的硬件指令集、全中文代码的操作系统，那时候我们就可以说用中文编程了。就目前而言对于专业程序员而言，汉语作为程序设计的描述语言并没有什么实际意义。

如果仅仅是考虑普通用户不懂英文，不会“写程序”，那么徽剑提出一个更为简单的方法：“汉化”，我们可以分为这么几步走：

第一步，对汇编编程器进行汉化，使其在输入汉语汇编指令时自动对应相应的机器语言。

第二步，对诸如C、C++等编译器进行汉化，将其内部对应的英文指令替换成汉语，这样一来在输入汉语C、C++程序时可以直接编译。

第三步，编译C、C++等的教材，将其中英文描述换成规范的汉语程序词汇。同时大量翻译各种英文指令书籍，便于中文编程人员查找。

第四步，创立汉语操作系统，找一套开放源码的LINUX，修改其编译器，将编译器输入对应的英文换成汉语，然后将全部源代码翻译成汉语，再用编译器编译一下。当然个别地方要考虑到汉语的编码特点修正一下。徽剑计算，依照几十名翻译人员，差不多一年可以完成，看看一套全面的汉语代码操作系统出来了，

看到没有，就这么几步，连强大的C、C++等都成了汉语编程语言了。如果想傻瓜点，也可以啊，跟微软合作、跟SUN合作，可以把.net、JAVA全部汉化了，想来他们也没有什么反对的。

有人说：“汉语编程的优点概括为以下几个方面：首先是安全系数高。汉语编程是我们用汉语实现的人机对话，我们掌握所有的源代码，目前尚未发展能与之对抗的病毒，非常有利于保证计算机内的机密安全。”

这纯粹胡扯，目前的计算机语言，特别是诸如C、C++语言本身都是免费的、开放的，任何人都可以学习、使用。就像相对论不是中国人发现的，但是我们一样用，这只是一种知识而已，如何在这种知识上开发成果来，那是另外一回事。一种知识是谈不上安全的。我们并不因为飞机是外国人发明的，我们自己造飞机就泄露了什么机密。假如我们完全用自己的汉语编程，难道国外特工就不会学吗？难道国外的信息部队就不会针对这个开发病毒吗？而且还是一开一个准，因为你是单独的，与众不同，开发针对你的不用担心自己受影响。

有人说：“汉语编程是效率高。汉语编程的原理是建立在汉字的本身优势上，汉字看起来很复杂，但表达的意义却很丰富。且在键盘上输入汉字远比输入英文快，用汉语编程写出的程序远比其他语言篇幅要短很多。”

这里同样也是胡说，请问一下，当你在键盘上输入“if”快还是“如果”快，是输入“end”快还是“结束”快？要知道在编程的英语不是日常的英语，完全可以说是一种新的人类语言，在键盘上输入汉字只是在总的信息量上比英文多，而不是单位数量汉字敲击键盘的次数比英文少。徽剑做过简单测试，发现以C++为例，如果把C++翻译成汉语输入，单位时间内的击键次数是英文的很多倍。

有人说：“汉语编程是简单易学，便于普及。只要认识汉字，上到九十九下到刚会走，都可以学习和使用。”

这更是胡说八道，如同前面分析的那样，用汉语“写程序”是方便了，可是还有那么多英文接口、英文文档怎么办？再说了，有必要来个全民编程吗？美国普通人也没几个会编程的。而且我们看看上面的易语言代码，光是认识汉字的人明白吗？

我们还是看一段评论：“从理论上讲，汉语编程应当是一种以汉语为描述语言的计算机程序设计语言，在程序设计中体现了汉语语法和逻辑，符合中国人的语言习惯和思维方式，而不是英文程序设计语言的简单汉化，或者是简单地营造一个汉语编程环境。很遗憾的是，目前我们所能见到的汉语编程语言，就只不过停留这个层次上，并没有取得任何实质性的突破。事实上，从2001年到2002年间，北京市科委对汉语编程项目进行了5次评审，评审的结果是超过50%的专家并不认可汉语编程的可行性。”

五、中国人编程难的问题和出路在那里

下面我们看看中国人编程难难在那里？

徽剑以一个拿到（说混到也可以）的系统分析员证书的编程者的亲身体验，中国人编程难难在难在接口语言和技术资料语言上，而不是“写程序”的语言上。学过编程的朋友都知道，程序中绝大部分都是逻辑和数学表达式，与采用英语还是汉语来描述的关系实质并不大。

就程序而言，不管学习编程的是谁，是中国人，还是美国人，有一个共同的难点。那就是计算机语言不是我们人类日常交流的语言，越是效率高的编程语言，越是离人们日常生活交流语言较远。这点上是共同的。

而中国人真正不利之处就是如果英文不熟练，无法阅读技术文档（诸如C++、Java中上万个用英文的库函数也不是需要编程者都得记住的东西），无法理解大量的接口等英文信息。而这一点就不是简单用汉语编程那么简单了。世界上最著名的软件公司，大多是母语为英语的国家。印度现在之所以成为世界第二软件大国，因其母语是英语，这样一来在阅读和学习过程中接触相关技术就没有什么障碍。

依照我们目前的发展条件，短期内不大可能出现诸如硬件、操作系统等的全国产化，这样一来如果我们还是热衷于所谓的用“汉语写”程序的话，就未免搞笑了。其实我们来看看编程的发展历史：

最早期，直接对硬件编程，使用机器语言和汇编语言。
后来，出现高级语言，在一定程度便于人们的理解了。
再后来，出现面向对象的程序开发，使得程序开发进一步容易理解和实施。
现在流行的是面向对象的可视化程序开发，每个语言本身都是“不可视”的，仅仅是语言而已；所谓“可视化”不过是编程工具所提供的功能，让你在编窗口等一些“看到着”的程序时可以使用拖拽等可视化操作。如同C++是门语言，而vc++只是一个可视化编程工具,vc++实现了C++的可视化编程。

有过较长期编程经验的老程序员都会有这演感受，在十年前写C++语言程序是很累的(那时国内还很少大家都是用C较多)，现在用C++的话，可以用VS2005多方便啊。诸如.NET代码生成器有助于快速应用程序开发。

现在甚至不用写代码就可以生成很多小点的程序，这在十年前、二十年前是不可想象的，同样再过十年，不写代码生成很多今天看来是很大的程序也不是难事。所以徽剑以为在未来，程序员编程“写”的代码数量将会越来越少，程序员更多的考虑的是程序的结构和性能，然后动动鼠标，输入几个数据，一套程序就编好了。

在这种情况下，更多的内容被封装了，到那时，才可以说不懂英文也照样编程。这才是发展的趋势。

至于底层部分，那就只有等到国产的硬件出来了，推出大量中文指令集，才有实现真正汉语底层开发的可能。

来源：http://sziis.blog.163.com/blog/static/7455725200791721726745/?fromTip

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=8177

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【9】：如何对按键进行处理？如何处理字母精灵的爆炸效果？

KPLer — Sun, 19 Aug 2007 16:20:00 +0800

为了完成最后的按键处理和爆炸处理过程，我们需要在游戏循环内增加一个新的方法：HandleKeys()

该方法的位置如下：

  While GameOver=False
   Trace("animate!")
   Animate()

   Trace("HandleKeys!")
   HandleKeys()   //新增该行
  End While

  Alert("Game Over!","hehe")

HandleKeys的定义如下：

Method HandleKeys()
  Var key As String=GetKey()

  Trace("key:"+key)

  Var i As Int
  Var num As Int
  Var explodecount As Int

  For i=1 To MaxCharNum
   If key=EnglishCharArray[CurIndexArray[i]].name And EnglishCharArray[CurIndexArray[i]].living=False Then
//   PlaySound( "Explosion1.wav" )

    LoadSprite( "ExplodePlayer", "Explosion.gif" )
    MoveSpriteToPoint( "ExplodePlayer", GetSpriteLeft( "char"+i ), GetSpriteTop( "char"+i ) )
    SetSpriteZIndex( "ExplodePlayer", 5000 )
    ShowSprite( "ExplodePlayer" )

    HideSprite( "char"+i )


    For num = 1 To GetSpriteFrameCount( "ExplodePlayer" )
     SetSpriteActiveFrame( "ExplodePlayer", num )
     RefreshScreen()
     Delay( 10 )
    Next

    UnloadSprite( "ExplodePlayer" )


    EnglishCharArray[CurIndexArray[i]].living=True

    explodecount=explodecount+1

    If explodecount=MaxCharNum Then
     GameOver=True
    End If
   End If

End Method

这段代码中，有些细节我们要好好交代一下，因为为了代码可以顺利执行，我们要对以前的代码做一些小的调整。

这段代码的思路如下：

【1】返回一个按键；

【2】判断该按键代表的字符精灵是否还在屏幕上，如果还在的话，则字母精灵爆炸消失；

要处理这个环节，我们需要把以前在Main方法内定义的两个变量放在该方法的外部，即放在数据类型定义的后面。这样原来的局部变量就变成了全局变量，可以在任意位置被访问了。

移动的变量是：

//初始化字母数组
Var EnglishCharArray As EnglishChar[MaxCharNum]
//保存随机字母顺序的数组
Var CurIndexArray As Int[MaxCharNum]

为了标志已经爆炸使用过的字母精灵，我们为EnglishChar数据类型增加了一个新的属性:living,用于标识对应的字母精灵是否存活（爆炸后死掉，不再显示）

做出了上述调整后，以上的代码过程就不难理解了。

【3】屏幕上的字母爆炸完后，游戏结束。

字母爆炸的动画处理，可以参见KPL游戏示例编程中，飞机爆炸的代码，完全一样。

到此为止，打字练习的游戏代码示范结束。你可以根据这个思路，修改成可以打字升级的游戏，也可以改变字母精灵出现的方式。

或者自己重新做一个完全不一样的程序。

我们把最终的代码放在下面供大家参考：

Program Demo

//自定义数据结构
Structure EnglishChar
  index As Int  //序号
  name As String  //字母
  using As Bool  //是否已被使用
  living As Bool
End Structure

//屏幕上的点的数据结构
Structure Point
  x As Decimal
  y As Decimal
End Structure

//最大字母数
Var MaxCharNum As Int=26

//初始化字母数组
Var EnglishCharArray As EnglishChar[MaxCharNum]
//保存随机字母顺序的数组
Var CurIndexArray As Int[MaxCharNum]

Var oldPoint As Point[MaxCharNum] //用于保存图片移动前的位置
Var curPoint As Point[MaxCharNum] //用于保存图片的当前位置
Var xPoint As Point[MaxCharNum] //用于保存图片移动的偏移量

Var GameOver As Bool=False

Method Main()

  Var CharNum As Int

  For CharNum=1 To MaxCharNum
   EnglishCharArray[CharNum].index=CharNum
   EnglishCharArray[CharNum].name=CharArray[CharNum]
   EnglishCharArray[CharNum].using=False

   //调试语句
   Trace("indx:"+EnglishCharArray[CharNum].index)
   Trace("name:"+EnglishCharArray[CharNum].name)
   Trace("using:"+EnglishCharArray[CharNum].using)
   Trace("---------------------------------------")
  Next





  Var CurNum As Int=1
  Var CurIndex As Int

  While CurNum<=MaxCharNum
   //随机抽取
   CurIndex=Random(1,MaxCharNum)

   //以下代码保证字母抽取不重复
   If EnglishCharArray[CurIndex].using=False Then
    EnglishCharArray[CurIndex].using=True
    CurIndexArray[CurNum]=CurIndex

    CurNum=CurNum+1

    Trace("CurIndexArray["+CurNum+"]:"+EnglishCharArray[CurIndex].name+"---CurIndex:"+CurIndex)
   End If


  End While

  //初始化精灵
  Var count As Int

  For count=1 To MaxCharNum
   LoadSprite("char"+count,"snurkel-a-z.gif")
   SetSpriteActiveFrame("char"+count,CurIndexArray[count])
   SetSpriteZIndex("char"+count,count)

   While curPoint[count].x=oldPoint[count].x And curPoint[count].y=oldPoint[count].y
    curPoint[count].x=Random(0,ScreenWidth() - 20)
    curPoint[count].y=Random(0,ScreenHeight() - 20)
   End While

   MoveSpriteToPoint("char"+count,curPoint[count].x,curPoint[count].y)
   ShowSprite("char"+count)

   oldPoint[count].x=curPoint[count].x
   oldPoint[count].y=curPoint[count].y

   xPoint[count].x=Random( -10, 10 )
   xPoint[count].y=Random( -10, 10 )

   Trace("x:"+xPoint[count].x+" y:"+xPoint[count].y)

   Next



  While GameOver=False
   Trace("animate!")
   Animate()

   Trace("HandleKeys!")
   HandleKeys()
  End While

  Alert("Game Over!","hehe")

End Method

Method Animate()

  BeginFrame()

  Var i As Int

  For i=1 To MaxCharNum
   If curPoint[i].x<0 Or curPoint[i].x>(ScreenWidth()- GetSpriteWidth("char"+i)) Then
    xPoint[i].x=xPoint[i].x*-1
   End If

   If curPoint[i].y<0 Or curPoint[i].y>(ScreenHeight()- GetSpriteHeight("char"+i)) Then
    xPoint[i].y=xPoint[i].y*-1
   End If

   curPoint[i].x=curPoint[i].x+xPoint[i].x
   curPoint[i].y=curPoint[i].y+xPoint[i].y

   MoveSpriteToPoint("char"+i,curPoint[i].x,curPoint[i].y)
   Trace("x:"+xPoint[i].x+" y:"+xPoint[i].y)
  Next

  RefreshScreen()
End Method

Method HandleKeys()
  Var key As String=GetKey()

  Trace("key:"+key)

  Var i As Int
  Var num As Int
  Var explodecount As Int

  For i=1 To MaxCharNum
   If key=EnglishCharArray[CurIndexArray[i]].name And EnglishCharArray[CurIndexArray[i]].living=False Then
//   PlaySound( "Explosion1.wav" )

    LoadSprite( "ExplodePlayer", "Explosion.gif" )
    MoveSpriteToPoint( "ExplodePlayer", GetSpriteLeft( "char"+i ), GetSpriteTop( "char"+i ) )
    SetSpriteZIndex( "ExplodePlayer", 5000 )
    ShowSprite( "ExplodePlayer" )

    HideSprite( "char"+i )


    For num = 1 To GetSpriteFrameCount( "ExplodePlayer" )
     SetSpriteActiveFrame( "ExplodePlayer", num )
     RefreshScreen()
     Delay( 10 )
    Next

    UnloadSprite( "ExplodePlayer" )


    EnglishCharArray[CurIndexArray[i]].living=True

    explodecount=explodecount+1

    If explodecount=MaxCharNum Then
     GameOver=True
    End If
   End If

End Method
End Program

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=6698

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【8】：如何让字母精灵在屏幕的范围内自由碰撞，边界如何处理？

KPLer — Sun, 19 Aug 2007 16:06:00 +0800

在学习中，有一个基本的技巧就是：你并不需要所有的代码都自己写。你可以模仿现成的代码，也可以直接照搬过来。

我们今天写的字母精灵的自由碰撞的代码，就出自KPL本身的一些例程，非常简单。

我们在程序开始时定义了一个游戏结束的标志变量：

Var GameOver As Bool=False

表示游戏未结束。

然后在Main方法的后面，添加如下代码:

  While GameOver=False
   Trace("animate!")
   Animate()

   Trace("HandleKeys!")
  End While

该代码是游戏处理的主要循环部分，包含了一个让字母精灵在屏幕范围内自由碰撞的处理：

在Animate方法内部的循环是精灵的边界处理。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=6697

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【7】：如何在屏幕上随机显示字母精灵？

KPLer — Sun, 19 Aug 2007 15:49:00 +0800

接下来的工作，是要准备精灵图片。

我们写下如下的代码：

  For count=1 To MaxCharNum
   LoadSprite("char"+count,"snurkel-a-z.gif")
   SetSpriteActiveFrame("char"+count,CurIndexArray[count])
   SetSpriteZIndex("char"+count,count)

   While curPoint[count].x=oldPoint[count].x And curPoint[count].y=oldPoint[count].y
    curPoint[count].x=Random(0,ScreenWidth() - 20)
    curPoint[count].y=Random(0,ScreenHeight() - 20)
   End While

   MoveSpriteToPoint("char"+count,curPoint[count].x,curPoint[count].y)
   ShowSprite("char"+count)

   oldPoint[count].x=curPoint[count].x
   oldPoint[count].y=curPoint[count].y

   xPoint[count].x=Random( -10, 10 )
   xPoint[count].y=Random( -10, 10 )

   Trace("x:"+xPoint[count].x+" y:"+xPoint[count].y)

  Next

我们解释一些上面的代码。

在循环的内部，我们首先从图片中定位相应字母的图片：

   LoadSprite("char"+count,"snurkel-a-z.gif")
   SetSpriteActiveFrame("char"+count,CurIndexArray[count])
   SetSpriteZIndex("char"+count,count)

为了记录和保存精灵在屏幕上的位置，我们在程序开头定义了一个关于点的数据结构：

//屏幕上的点的数据结构
Structure Point
x As Decimal
y As Decimal
End Structure

然后申明了三个关于点的变量数组：

Var oldPoint As Point[MaxCharNum] //用于保存图片移动前的位置
Var curPoint As Point[MaxCharNum] //用于保存图片的当前位置
Var xPoint As Point[MaxCharNum] //用于保存图片移动的偏移量

接着往下看代码，还是回到刚才的循环代码内：

   While curPoint[count].x=oldPoint[count].x And curPoint[count].y=oldPoint[count].y
    curPoint[count].x=Random(0,ScreenWidth() - 20)
    curPoint[count].y=Random(0,ScreenHeight() - 20)
   End While

这段代码的含义就是：随机产生图片的显示位置，如果该位置和刚才的位置相同，则重新产生新位置。这样避免了图片重叠。

   MoveSpriteToPoint("char"+count,curPoint[count].x,curPoint[count].y)
   ShowSprite("char"+count)

   oldPoint[count].x=curPoint[count].x
   oldPoint[count].y=curPoint[count].y

   xPoint[count].x=Random( -10, 10 )
   xPoint[count].y=Random( -10, 10 )

同样：移动精灵，显示精灵，保存图片位置，产生随机移动偏移量。为下步随机移动精灵做好准备。

这一节很简单，到此为止，全部的代码如下：

Program Demo

//自定义数据结构
Structure EnglishChar
  index As Int  //序号
  name As String  //字母
  using As Bool  //是否已被使用
End Structure

//屏幕上的点的数据结构
Structure Point
  x As Decimal
  y As Decimal
End Structure

//最大字母数
Var MaxCharNum As Int=26

Var oldPoint As Point[MaxCharNum] //用于保存图片移动前的位置
Var curPoint As Point[MaxCharNum] //用于保存图片的当前位置
Var xPoint As Point[MaxCharNum] //用于保存图片移动的偏移量

Method Main()

  // 初始化26个英文字母
  //Var CharArray As String[]={"a","b","c"}
  Var EnglishCharStr As String="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
  Var CharArray As String[]=Split(EnglishCharStr,",")

  //初始化字母数组
  Var EnglishCharArray As EnglishChar[MaxCharNum]

  Var CharNum As Int

  For CharNum=1 To MaxCharNum
   EnglishCharArray[CharNum].index=CharNum
   EnglishCharArray[CharNum].name=CharArray[CharNum]
   EnglishCharArray[CharNum].using=False

   //调试语句
   Trace("indx:"+EnglishCharArray[CharNum].index)
   Trace("name:"+EnglishCharArray[CharNum].name)
   Trace("using:"+EnglishCharArray[CharNum].using)
   Trace("---------------------------------------")
  Next


  //保存随机字母顺序的数组
  Var CurIndexArray As Int[MaxCharNum]


  Var CurNum As Int=1
  Var CurIndex As Int

  While CurNum<=MaxCharNum
   //随机抽取
   CurIndex=Random(1,MaxCharNum)

   //以下代码保证字母抽取不重复
   If EnglishCharArray[CurIndex].using=False Then
    EnglishCharArray[CurIndex].using=True
    CurIndexArray[CurNum]=CurIndex

    CurNum=CurNum+1

    Trace("CurIndexArray["+CurNum+"]:"+EnglishCharArray[CurIndex].name+"---CurIndex:"+CurIndex)
   End If


  End While

  //初始化精灵
  Var count As Int

  For count=1 To MaxCharNum
   LoadSprite("char"+count,"snurkel-a-z.gif")
   SetSpriteActiveFrame("char"+count,CurIndexArray[count])
   SetSpriteZIndex("char"+count,count)

   While curPoint[count].x=oldPoint[count].x And curPoint[count].y=oldPoint[count].y
    curPoint[count].x=Random(0,ScreenWidth() - 20)
    curPoint[count].y=Random(0,ScreenHeight() - 20)
   End While

   MoveSpriteToPoint("char"+count,curPoint[count].x,curPoint[count].y)
   ShowSprite("char"+count)

   oldPoint[count].x=curPoint[count].x
   oldPoint[count].y=curPoint[count].y

   xPoint[count].x=Random( -10, 10 )
   xPoint[count].y=Random( -10, 10 )

   Trace("x:"+xPoint[count].x+" y:"+xPoint[count].y)

   Next

End Method

End Program

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=6696

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【6】：如何随机产生不重复的26个英文字母？

KPLer — Tue, 07 Aug 2007 22:20:00 +0800

上次我们演示了如何随机产生26个英文字母。现在我们来解决一个遗留问题：如何使产生的字母不重复。

我们需要找到一个办法，来表明产生了的字母已经被使用。

这样，跟字母的相关属性，我们就有了两个要求：一是要知道字母是什么，二是要知道该字母是否已经使用。说不定以后，我们还有一些跟字母相关的属性需要增加。

在这些属性中，有些属性是用于显示的，有些是用于判断的。但他们都是一组相关的属性集合。

所以，我们可以用自定义数据类型的方式，使它们看起来象是一体的。

因此，我们首先新增一个自定义函数在程序的开始部分：

//自定义数据结构
Structure EnglishChar
  index As Int  //序号
  name As String  //字母
  using As Bool  //是否已被使用
End Structure

如果是这样的话，我们上次的代码就要做一些调整：我们要声明新的变量，该变量使用我们自定义的数据类型。

下面的代码保留：

然后，我们申明新的变量：

Var EnglishCharArray As EnglishChar[MaxCharNum]

为了便于整个程序范围内都可以访问，我们把MaxCharNum放在了程序的函数或方法外。

Var MaxCharNum As Int=26

接下来，我们初始化新的变量数组：

  For CharNum=1 To MaxCharNum
   EnglishCharArray[CharNum].index=CharNum
   EnglishCharArray[CharNum].name=CharArray[CharNum]
   EnglishCharArray[CharNum].using=False

   //调试语句
   Trace("indx:"+EnglishCharArray[CharNum].index)
   Trace("name:"+EnglishCharArray[CharNum].name)
   Trace("using:"+EnglishCharArray[CharNum].using)
   Trace("---------------------------------------")
  Next

请大家仔细看看循环内的前三条代码，是如何访问字母数组的各个属性的。

有了.using标志，我们就可以在原来随机选取的基础上判断：

  //保存随机字母顺序的数组
  Var CurIndexArray As Int[MaxCharNum]


  Var CurNum As Int=1
  Var CurIndex As Int

  While CurNum<=MaxCharNum
   //随机抽取
   CurIndex=Random(1,MaxCharNum)

   //以下代码保证字母抽取不重复
   If EnglishCharArray[CurIndex].using=False Then
    EnglishCharArray[CurIndex].using=True
    CurIndexArray[CurNum]=CurIndex

    CurNum=CurNum+1

    Trace("CurIndexArray["+CurNum+"]:"+EnglishCharArray[CurIndex].name+"---CurIndex:"+CurIndex)
   End If


  End While

在上面的代码中，大家要注意循环的方法由原来的for循环，变成了while循环。从这个例子，可以看出两者使用的不同：

【1】当循环的次数是确定的，两种循环都可以用；

【2】当已知一种边界条件，而不知要循环多少次的时候，使用while循环；

通过上面的代码调整，我们已经可以不重复地抽取26个英文字母了。

一些题外话，在程序中，要合理地使用循环，如果循环用错，可能程序一直执行不完。其次，循环在程序中，一般是比较耗时的。所以，减少循环次数，也是优化程序效率的一种方法。

循环对编程语言的设计者也是挑战，现在的计算机已经进入了多核时代，如何用简单的方法编程，而编译器就可以用多个CPU进行并行运算，从而充分利用好表现优异的硬件。

可以想像，总有一天，我们每个人都可能拥有现在不可想像的超级计算的能力。我不知道，那时的编程会成为什么样子，但相信这一天一定会在不远的将来就会来到。让我们拭目以待。

附本节代码：

Program Demo

//自定义数据结构
Structure EnglishChar
  index As Int  //序号
  name As String  //字母
  using As Bool  //是否已被使用
End Structure

//最大字母数
Var MaxCharNum As Int=26

Method Main()

End Program

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=6475

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【5】：如何随机产生26个英文字母？

KPLer — Sat, 28 Jul 2007 17:33:00 +0800

如何随机产生26个英文字母？

回忆一下我们平时是怎么掷骰子的：假如我们有分别写有26个字母的骰子，从a到z，按顺序装在一个筒里，晃动，然后，我们会发现，出来的顺序跟进去的时候不一样。

掷骰子的步骤中有两点很重要：

【1】你得有分别写有26个字母的骰子；

【2】你得晃动，没有晃动，就不能打乱原先骰子的顺序；

电脑中的随机产生数和字母的原理，跟上面是完全一样的：

【1】你得要选取的东西存放或标识在某个变量或数组里面；

【2】使用系统提供的随机函数，产生随机数。这个随机函数，就相当于现实中的“晃动”。

所以，如何随机产生26个英文字母的方法就很容易了：

【1】把26个英文自己放置在一个数组里；

【2】使用KPL的随机函数生成器，在1和26间产生随机数；

这里有几个问题需要大家推敲和考虑：

【1】可以分别命名26个变量，然后，保存26个字母吗？

在这里是最糟糕的选择，一是因为分别命名，非常麻烦，二是要检索26个字母是第几个字母非常麻烦。

而数组是这样一个好东西：它存放相同数据类型的数据，而且可以通过下标来定位变量的值。比如说如果我们按顺序存放，我们就知道num[1]里面放的是a，num[26]里面是z。数组括号内的数字就是下标。相当于我们说的索引值。跟我们住的楼房的单元房间编号一个道理：你只需要记住301和302，而不去想到底里面住的是张三还是李四。

用数组保存字母，还有一个重要的原因，是因为KPL的随机数产生函数Random，只能提供在数之间的随机生成。既然如此，那么也就是说，可以随机产生的其实是数组的下标。

所以，用数组是最优的方式，也是唯一的一种选择。

我们说太多了，还是来从代码来看看吧：

Program Demo

Method Main()

  // Enter your program code here
  Var CharArray As String[]={"a","b","c"}

  Var num As Int

  For num=1 To ArrayLength(CharArray)
   Trace(CharArray[num])
  Next
End Method

End Program

我们定义了一个数组CharArray,是字符类型的，然后，我们直接给它赋值。（为了简化，我们只给了3个字母，编码的时候，也可以简化，先验证思路，思路通了，可以很容易修改的。）

数组赋值有很多方法，下面这种是最老实的一种：

var CharArray as String[26]

CharArray[1]="a"
CharArray[2]="b"
CharArray[3]="c"

上面的几句等同于： Var CharArray As String[]={"a","b","c"}

显然，哪个更简单方便，是明摆着的。

字符的赋值还有一种方法，效果是一样的：

Var EnglishCharStr As String="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
Var CharArray As String[]=Split(EnglishCharStr,",")

上面的Split方法是非常好用的。它的用途就是根据分割符“，”，把每个分割开的元素，一个一个地放入到相应的数组位置中。简直太方便了！

通过上述三种方法的任意一种，我们都可以把26个英文字母放在一个数组中了。你可以注释掉第一句，分别用其中一句替换，在KPL环境中试试看，是否是跟我们说的一样?

接下来就是做随机抽取的问题了。

我们先在Main外定义一个全局的变量：

//最大字母数
Var MaxCharNum As Int

然后在上述的代码后面，给出以下代码：

  MaxCharNum=ArrayLength(CharArray)

  //保存随机字母顺序的数组
  Var CurIndexArray As Int[MaxCharNum]


  Var CurNum As Int
  Var CurIndex As Int

  For CurNum=1 To MaxCharNum
   //获得随机位置
   CurIndex=Random(1,MaxCharNum)

   CurIndexArray[CurNum]=CurIndex

   Trace("CurIndexArray["+CurNum+"]:"+CurindexArray[curNum]+"-"+CharArray[CurIndex])
  Next

我们简单整理一下：我们定义了一个用于保存随机抽取字母顺序的数组CurIndexArray。然后，我们在循环的内部，使用Random，随机产生顺序值，把该值保留下来。我们用了Trace语句来观看随机抽取的效果。

如图所示。

我们发现了一个问题，虽然是随机抽取了字母，但没有排除重复抽取的情况。

那么我们该如何做，才能使26个字母抽取完全前，做到不重复抽取呢？

这就是我们下一次的练习：如何随机产生不重复的26个英文字母？

本节完整的代码如下：

Program Demo
//最大字母数
Var MaxCharNum As Int

Method Main()

  // 初始化26个英文字母
  //Var CharArray As String[]={"a","b","c"}
  Var EnglishCharStr As String="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
  Var CharArray As String[]=Split(EnglishCharStr,",")

  Var num As Int

  For num=1 To ArrayLength(CharArray)
   Trace(CharArray[num])
  Next

  MaxCharNum=ArrayLength(CharArray)

  //保存随机字母顺序的数组
  Var CurIndexArray As Int[MaxCharNum]


  Var CurNum As Int
  Var CurIndex As Int

  For CurNum=1 To MaxCharNum
   //获得随机位置
   CurIndex=Random(1,MaxCharNum)

   CurIndexArray[CurNum]=CurIndex

   Trace("CurIndexArray["+CurNum+"]:"+CurindexArray[curNum]+"-"+CharArray[CurIndex])
  Next

End Method

End Program

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5944

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【4】：如何编写一个打字练习的游戏？

KPLer — Sat, 28 Jul 2007 17:31:00 +0800

（一）开始

我们从今天开始，做一个系列练习。这个练习结束的时候，我们希望得到一个简单的游戏：当程序运行时，KPL屏幕会最大化，在屏幕上会随机地产生很多英文字母，这些字母象台球一样在屏幕内游荡，当你在键盘上敲击相应的字母时，字母会爆炸消失，当你把所有的字母都敲击完成后，游戏结束。

这个小游戏，跟我们平时的打字练习的游戏有点相似。你通过学习后，很容易根据自己的爱好，扩展出其他的方式。

我们完成这个游戏，主要是展示代码是如何逐步完成。在做这个游戏时，我们会看到需要哪些基本的KPL语法知识，而这些知识又是如何在一起使用的。

在任何学习中，最难的一步，其实不是第一步，而是开始迈入综合应用的时候。我们这个程序就是为了帮助大家迈出这一步，做的一个演示。

如果大家能跟着思路一步一步走的话，一定会有很多收获，在学习中达到事半功倍的效果。

（二）工作思路

我们先说说，我们的工作思路：当一个问题比较复杂的时候，你要做的事情，不是一步到位，尤其是当你还不熟悉，技术也不太熟练的时候。你要做的第一件事情，是简化你的工作，把你的工作先缩小范围，降低对技能的要求。直到你遇到一个不得不面对的简单的问题，你才开始去尝试各种方法，重新翻书，去找已经存在的相似的代码，然后，在模仿或者借鉴的过程中，找到自己要的那个部分。唯有这样，你才有可能靠自己取得进展。

所以，我们开始的时候，虽然知道我们最终的结果是上面描述的那个样子，但我们清楚，我们可能一下还达不到那步。我们先把一些问题抛开：比如字母移动，如何按键，如何爆炸。

我们把问题简化为：如何随机产生26个英文字母？

大家想一想：这个是不是整个程序的关键的第一步呢？当然是了，如果不是的话，后面的字母移动，判断，爆炸，就无法做。

因此，简化的过程，其实也是分解步骤的过程，哪些需要先做，哪些需要后做，可以在思考的过程中逐渐清晰起来。

要完成整个KPL的例程，我们分解成这么几个问题：

【1】如何随机产生26个英文字母？

【2】如何随机产生不重复的26个英文字母？

【3】如何把随机产生的字母用对应的图片精灵表示？

【4】如何让字母精灵在屏幕的范围内自由碰撞，边界如何处理？

【5】如何对按键进行处理？如何处理字母精灵的爆炸效果？

这样沿着基本要求走下来，我们要逐步解决的问题就会迎刃而解。

我要告诉大家的是：你并不需要在一开始的时候，对每个步骤，每个细节都构思好，你只要确定好开始的问题后，其他的问题，都可以随之而来。不用太过于担心。

只要你有明确的目的要求，那些障碍和问题是不会逃掉的。

让我们开始吧！

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5943

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL开发环境中的一个bug

KPLer — Fri, 27 Jul 2007 09:38:00 +0800

在KPL开发环境中发现一个系统本身的bug,估计是因为系统设计是英文版的，在中文环境下，对某些字符没有处理过造成的错误。

用来测试错误的例子：

Program Test

Method Main()

  // Enter your program code here
  Var x As Int=0
  Var y As Int=0

  Loop 600
   x=x+1
   MoveTo(x,y)
  End Loop

  Loop 100
   y=y+1
   MoveTo(x,y)
  End Loop

  Loop 600
   x=x-1
   MoveTo(x,y)
  End Loop

End Method

End Program

导致出错的语句是： x=x-1

出错时的报错信息：

解决办法也很简单：

把 x=x-1 修改成 x=x - 1 ,就是在减号后面增加空格。就可以避免上述错误。

希望大家今后遇到该类问题，可以很快绕过。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5815

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL【3】：如何调试KPL程序？

KPLer — Mon, 23 Jul 2007 15:07:00 +0800

第一个问题：什么是调试？

这里面有个典故。我从网上搜的一个经典的说法，放在下面：

1937年，美国青年霍德华.艾肯找到IBM公司为其投资200万美圆研制计算机，第一台成品艾肯把它取名为：马克1号，又叫“自动序列受控计算机”，从这时起IBM公司由生产制表机，肉铺磅秤，咖啡研磨机等乱七八糟玩意儿的行业，正式跨进“计算机”领地。

为马克1号编制程序的是一位女数学家雷斯.霍波，有一天，她在调试程序时出现故障，拆开继电器后，发现有只飞蛾被夹扁在触点中间，从而“卡”住了机器的运行。于是，霍波诙谐的把程序故障统称为“臭虫（BUG）“，把排除程序故障叫DEBUG（捉虫子），而这奇怪的”称呼“，竟成为后来计算机领域的专业行话。

我们重复一下：调试（debug）就是排出程序故障。

刚学电脑编程的人，都会以为程序代码是通过精确构思，一气呵成的，其实，电脑编程跟写文章，做其他的工作完全一样。总是在大的构思下，通过修修补补完成的。

刚开始，哪怕输入错一个关键字符，都有可能导致程序出错。找出程序出错的过程，就叫调试。

编写任何程序都需要调试语句或工具。在KPL里面提供了一些简单的调试语句，如Trace、ShowTrace和Stop等。

私下里说：KPL的调试工具是相当的弱智，跟商业的调试工具不能相比。但因为我们要编写的代码，也不算复杂。所以，我们还是可以克服这个弱点，继续前进的。

既然调试就是排错，那么，换句话说就是要定位出错的位置。我们该如何做呢？

我来告诉大家我是如何做的。

【1】我在阅读一段新的代码或定位错误的时候，我会用到注释语句。大家想想为什么这样？

因为我们知道，注释语句后，代码不会被执行。这样，我就把大的程序化整为零了。

我先把代码后面的部分注释掉，让程序一段一段地执行。

有人说了，如果要注释的语句很多，不是很麻烦？

不麻烦，因为在KPL开发环境的工具栏上有两个个工具：一个注释工具，一个取消注释的工具。

你可以在代码窗口选中要注释或取消注释的代码块。

这样是不是很方便了呢？

接下来的问题是：我把后面的代码都注释了，我想了解当前已执行的代码的变量的结果，如何获知呢?

【2】这时，Trace语句该上场了。我们来看一个例子：

var i as int
var total as int

for i=1 to 10

  total=total+i
  Trace("Total:"+total)
next

循环内的Trace语句是我们为了看见，在每次循环过程中的累加结果，增加的一条语句。

这样，原来看不见的循环结果，通过简单的结果显示语句就可以“看见”了。这个结果，不会显示在KPL程序的界面上，而是显示在KPL的开发环境的Messages消息框内。这就是KPL的调试，其实很简单！

同样，我们可以在需要确认和判断的地方，加上类似的代码，帮助我们确认程序出错的位置，或确定程序是否按设计的逻辑和思路进行。

通过上面两个基本方法或工具，我们可以调试所有的KPL程序。

KPL的程序调试给我们还有另外的一种启示：简单的东西，并不等于没有用；好东西，也不代表着完美无缺。更多的时候，我们要自己想办法，绕过一些障碍。

我想，这个结论，不仅适应于KPL编程，也适用于其他任何事情。

我相信，大家一旦掌握了这两个工具，学习的信心和能力会大大的增强。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5419

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL[2]：编码的习惯和常识

KPLer — Mon, 23 Jul 2007 14:12:00 +0800

这时的我们已经大致了解了KPL，按照KPL入门的例子也输入了个别的例子。我们小心翼翼地不敢确认，难道这样就开始学习编程了？

很小的一步，对新人来说，也是一大步。人们常说：万事开头难。即使是这样，在开头的时候，养成一些好习惯，对以后有很大的帮助。

让我一点一点的来说。

当我们打开KPL编程环境，建立一个新的KPL文件时，系统会自动产生如下的代码：

// All KPL programs start with the word "Program" followed by the
// name of your program, and end with the words "End Program".
Program NewProgram

// This is the starting point of the program, and is 'called'
// by KPL automatically when the program is run.
//
// To expand this method, double-click on the box below or click
// the plus symbol to the left of the words "Method Main()"
Method Main()

// Enter your program code here

End Method

End Program

系统为什么会自动产生这些代码？主要的原因是：系统认为这是所有程序的基本框架，你不用每次输入了。当然了，如果你一定要自己输入当作熟悉或练习，它也不会拦着你。

//这个符号后面的内容表示是注释，也就是说这一行内容是一个提示，给编码的人自己看的，一般用于提醒自个儿，不要在很久以后看到下面的代码的时候，回忆不起以前到底在干嘛。

这个注释的符号在很多编程语言里面都有。注释的部分，在程序运行时，并不被执行，所以，即使是在英文版的系统里面，这里的注释也可以输入中文。

当然，在编码文件的其他地方，KPL目前的版本是不支持中文的。

这样在命名程序名称和变量时，就只能用英文或者拼音，我们来看下面的一个代码：

Program HelloWorld

Method SayHello()
PrintLine ("Hello!")
End Method

Method SaySomething(SomeThing As String)
PrintLine (Something)
End Method

Method Main()

  Color ( Blue )

  SayHello()

  Var WhatIWantToSay As String
  WhatIWantToSay = "Hello Again!"
  SaySomething(WhatIWantToSay)

WhatIWantToSay = "Goodbye!"
SaySomething(WhatIWantToSay)

End Method

End Program

这个例子是KPL提供的示例代码Learning Programs目录下的第一个例子：

LearningProgra001a.kpl。这个版本是没有注释的，因为比较简单。

注释的写法有个简单规则：并不需要每条都写，而是写重要的，或容易忘记的。重要的处理函数和方法，可以写详细一点。

变量命名的规则：用意思明白的词来命名，比如上面的：WhatIWantToSay 就很清楚，只有在不需要表示特别意义的时候，使用单字母变量命名，比如在循环的时候，可以使用 i 来代替 count 变量声明。

变量名可以用英文，也可以用拼音。个人习惯。一般采用首字大写的原则，但这个不是一个必须的规定，只是一个习惯性建议而已。

代码之间可以空行，这样，象写文章可以分段一样。这样使代码看起来结构上更加清晰。

如果把代码密密麻麻一溜排下来，自己阅读和检查起来，也会很累。你们看看上面的例子，是不是看起来很清爽？

同样的道理，保持缩进也是为了保持结构清晰：

  For Location = 1 To 300
         Delay(10)
         MoveSpriteToPoint( "UFO", Location, Location )
  Next

我们一下就看出是一段循环，里面有若干语句。(每缩进一次，只需要按键盘左上Q健旁的Tab键就可以了)

上面说的，是基本的编码习惯，几乎在所有的编程过程中，都会有这样的要求。

这是一种基本的素养。请大家在开始的时候，就适应并达到这种要求！

这样不仅使代码看起来优雅，而且培养了一种严谨的习惯。

接下来，我给大家讲讲，该如何调试程序。

喷嚏网 -原创 www.dapenti.com www.dapenti.com

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5418

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

structure有什么用？

KPLer — Sun, 22 Jul 2007 19:25:00 +0800

今天在KPL qq 群里，回答的几个问题。

Q：为什么编程的最开头要写"structure" 有什么用? Main是程序运行起始点
可是为什么MAIN前还能加其他的东西?

A：structure是一种自定义数据类型的方式，主要是为了方便编程访问。

我先说kpl的程序结构，再说structure的用途。

kpl的结构都是这样的：

程序框架

自定义数据类型

定义全局变量

程序入口 Main

各方法

各函数

程序框架

我们在《用设计的方式理解程序语言》解释过structure:
more.asp?name=KPLer&id=4857

自定义数据结构：信息总是比较多的。而且信息有个特点，它并不总是单独存在。比如，拿我们自己来说吧，跟自己相关的信息很多，姓名、年龄、性别、电话、家庭住址等等。如果我们要表明相关信息，给每个信息设置一个变量，是一个非常麻烦的事情。

程序的设计者考虑到了这一点，通过自定义数据结构来打包访问。

Structure People
  name as string
  age as int
  address as string
end Structure

这样当我们申明一个people类型的变量时，就可以这样使用：

var curuser as People

curuser.name="kpler"
curuser.age=2
curuser.address="www.dapenti.com"

你看，这样是不是很简单？！

在各个方法和函数里定义的变量为局部变量。在外面定义的为全局变量。全局变量可以在任何地方被改变值，并且可以保留改变。

在Main外是可以放其他东西的，这个跟代码的执行顺序有关系：

[1]在程序主体定义的东西，其实是最先执行的，先于Main方法；

[2]在主体一般来说，首先是自定义数据结构（如果需要的话），然后是全局变量申明，然后是给变量赋予初始值；

[3]然后程序才从Main开始的。

Q:"结构变量里的域项可以用结构变量名,后跟"."字符,再加域变量名访问."是什么意思?

A:你可以理解为：下属的，比如 mypoint.x 就是 mypoint 下属的 x 坐标

Q:域项是什么意思?

A:就是包含的项目

Q:结构变量包含的项目?

A:就跟房子一样，一个单元就是一个域，每个房间就是一个域项，一个组成的元素

Q:声明变量用VAR可以吗

A: var 和 define 的用途是一样的，这是编写语言的冗余设计.variable 是变量的意思，var是前三个字符

有两段代码
Loop 5
printline("printing")
End loop
还有一段
define x as int=5
Loop x
printline("printing")
End Loop

它们作用上有什么不同

A:一样的.代码就是这样，可以有很多写法，效果是一样的

第二种写法有一些优势，因为，如果要修改的话，只需要改 x的值，后面x却不会该。这样在代码方面，比较灵活。所以，你看有些程序会在开始时，定义很多变量，然后在程序的主体使用变量代替直接的值。

Q:如果真的改起来很方便呢？

A：如果只使用几次，硬写也无妨。

有一个习惯建议：就是不要写硬编码，比如5，而是可以设一个变量，然后给变量赋值，再使用变量。这样保持程序的灵活性。

Q：布尔表达式怎么写?有格式吗?

A：布尔表达式在 kpl 里面就是指不等式判断：比如 i>100 or count<100 这些的。有判断小球边界的例子，你可以看看如何用

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5390

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

为什么编程要用英文？

KPLer — Sat, 14 Jul 2007 17:02:00 +0800

儿子问我：为什么编程要用英文？能不能用中文？

我想，这个问题，也是很多人的问题。

这个问题，可能包括几个方面：

【1】软件的界面，是否可以是中文的？

【2】软件的帮助是否可以是中文的？

【3】写程序的代码是否可以是中文的？

前面两个问题，主要是使用环境和习惯上的问题，比如使用者对英文不熟悉，看着头皮发麻，基本属于心理上的担心。其实，很多软件英文单词都特别的简单，熟悉后就没有认知障碍。

英语作为一种现代社会的核心竞争力，对学生的能力来说，是不可以忽视的。全世界，有大量的知识和信息，都以英文的方式记载，如果你要在第一时间，得到第一手资料，那么，熟悉英文肯定是有很大的优势。

从我自己使用的软件经验来看，我常常发现：英文版的软件在性能和质量上，往往优于本地化的产品。全世界，只有很少的软件巨头，在其遍布世界的产品上，才推出各种语言的相应版本。

软件产品的本地化过程，不仅仅是其界面接口的简单转换，还有当地的使用习惯和文化禁忌需要考虑。并非完全是语言翻译的过程。

我想前面两个问题比较简单。

至于第三个问题，才是更多人要关心或提出质疑的问题：

是否可以用中文来编写程序代码？

对这个问题的回答，需要非常的谨慎。我看见网络上经常讨论这个问题，最后变成了是否爱国，是否要有核心竞争力的讨论了。

我的看法略微有些不同。我认为大家对编码的了解需要一些常识。

是的，程序代码，比如KPL或是c#,看起来是用英文写的，但是，你为什么不把英文只看做是一种记录程序的形式，而非要把它跟另外一种自然语言对立起来呢？

我们从小学习数学的时候，我们记录数字可以使用1234567，我们没有感到任何文化上的压力和被压迫的感觉。虽然我们的中文是这样写的：一二三四五六七。我们在计算的时候，用阿拉伯数字的次数，远远多于用中文的次数。

这说明两个问题：

【1】标准，在科学上是必要的。全世界都可以使用阿拉伯数字计数，因为这个是通用语言，而且方便。

同样，我们可以理解：因为编程的起源和标准，大多跟英文有关。所以选择英文作为编码的关键词和相关形式，也成了一种习惯或标准。

你认为：x=100 还是爱克斯=100 ，哪个更清楚简单呢？

【2】设计一个用中文编码的语言，是可行的。但是，并不能说一个中文编码的形式就更有竞争力。电脑编程，不是比谁的中文说的更好，也不是比谁更爱国。

电脑编程的语言，是一种工具。任何工具的价值，在于使用。工具总是作为一种解决人们生活或工作的解决方案的一种手段，才有其存在的价值和意义。

价值要跟目标匹配。

我觉得任何语言的选择，首先要匹配用户的价值，无论是中文编码还是英文编码，如果不能帮助用户完成任务的话，用户自然就不会选择它。

所以，从价值判断上，从理论上来说：编码可以是跟语言无关的。

但在现实中，要实现中文编码，在技术上面临的困难也相当的大。这主要跟中文的语言方式有关。

英文编码都是由格式和单词构成，但中文要区分单词，很难。（现在很多中文编程，虽然可以使用中文变量，但关键词还是要使用英文）

我举个例子来说： we love you,中文说：我们爱你。

英文的每个词之间是有空格的，中文是连着的。在分词上，两种语言的方式是不同的。

这是什么意思呢？

是这样的：电脑编码，其实只是一个简单的逻辑形式。但电脑运行时，其实并不是象我们理解的那样，可以理解我们编写的代码。

当我们编写完代码后，点击运行时，有一个叫做编译器的程序，开始把我们的结构化的代码，转化成一种可以理解的数学形式，其实，它才不管你写什么呢。只要是按照结构写的。它一定可以代码转换成电脑可以运行的低级代码。

在这样的转化中，分析源代码，就需要很好的分词技术。因为英文本身的特点，其分词很容易，而且跟其自然语言使用方式一致。但换成了中文，编程变得很怪异，而且代码转化变得难度很大。

好了，我们不再纠缠这样的细节。我们作为一个使用者来做一个判断，问自己几个问题：

我学习编程的目的何在？为了学习？还是为了利用工具？开发产品？使用的工具可以达到我的要求吗？如何才能选择好适合的工具？

我说说选择编程工具的两条建议：

【1】不同的用途选择合适的编程语言

不用说，如果要教育刚入门的孩子学编程，我会推荐KPL和visual basic。因为语言设计跟现代语言设计结合紧密，而且，已经被证明是用途广泛、可以顺利过渡的软件编程语言；

在真正的软件企业中，语言的选择是五花八门的。做企业管理软件的，可能选用的是:c#和java。

而互联网企业在脚本语言的使用上，又是别有洞天的。

对语言的选择，关键取决于你干什么。

任何成熟的编程语言都有其长处，也有不合适使用的地方，不要对工具产生迷信。

【2】效率是选择工具的重要依据

所谓的效率，是指是否在满足目标的前提下，程序编写的效率，程序本身运行的效率，还有就是是否使学习保值，个人学习投资的效率也是非常重要的。

如果没有成熟的产品，没有经历过市场检验过的产品。对于初学者，我觉得还是谨慎使用。

在全球化的时代里，要有全球化的眼光。我们要充分利用成熟的技术和产品，真正服务于我们的未来。

我自己的习惯是这样的：安装英文版软件，阅读英文的和中文的帮助手册，在编写代码的时候，编写中文注释。因为我发现，如果英文写不好的话，注释又变成了障碍，阻碍了团队间的交流。看来，我们明白了我们在干什么，需要什么，我们就会选择适合的表达形式：在需要中文的地方使用中文，在需要英文的地方使用英文，如此而已。

编程语言是连接人和机器的桥梁。所以，任何编程语言的设计，都要考虑两个方面：[1]方便机器理解；[2]方便人类使用。

喷嚏网：原创

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5277

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

如何用任意的图形来画线？

KPLer — Fri, 13 Jul 2007 13:15:00 +0800

这是网友提出的一个问题：画出一条直线或曲线，但这个直线或曲线，不是由平常的点构成，而是用五星、圆形或其他任意图形构成。

我写了一小段代码，给大家做一个演示。

我们先看看最后的效果。

这段代码画了三条线：

【1】第一条线，是用的最普通的方法；

【2】第二条线，沿着直线路径，画的是圆，看起来象项链一样；

【3】第三条线，是由一个蓝色的小球构成的，代码的基本结构跟第二条线的处理差不多。但是，我使用了KPL中精灵的一些方法：把任意图像设置成精灵，然后设置图形的大小，调用图像复制的方法。这样的话，我可以使用任何图形来沿着路径画画。是一个通用的做法：你可以把小球的图形换成五星或其他任何图形。

你能看明白下面的代码吗？如果有疑问的话，把你的问题发给我们：dapenti2006@gmail.com

附：

Program NewPicture

Structure Point
x As Int
y As Int
End Structure

Method Main()

SetDeviceCoordinates()

  //DrawLines
  Var point1 As Point
  Var point2 As Point

  point1.x=100
  point1.y=0

  point2.x=300
  point2.y=200

  DrawLines(point1,point2)

  //Drawcircles
  point1.x=100
  point1.y=100

  point2.x=300
  point2.y=400
  DrawCircles(point1,point2)

  //DrawSprites
  point1.x=100
  point1.y=200

  point2.x=300
  point2.y=500
  DrawSprites(point1,point2)
End Method

Method DrawLines(Start As Point,Pos As Point)
  DrawLine(Start.x,Start.y,Pos.x,Pos.y)
End Method

Method DrawCircles(Start As Point,Pos As Point)
  Var IncStep As Int=2

  Var x As Int
  Var y As Int

  x=start.x
  y=start.y

  Pen(False)
  While x<=Pos.x
   MoveTo(x,y)
   Circle(IncStep*2,False)

   x=x+4
   y=y+4
  End While

End Method

Method DrawSprites(Start As Point,Pos As Point)
  Var IncStep As Int=2

  Var x As Int
  Var y As Int

  x=start.x
  y=start.y

  Pen(False)

  LoadSprite("MySprite","blueball.png")
  ScaleSprite("MySprite",0.8)
  While x<=Pos.x
   MoveSpriteTo("MySprite",x,y)
   StampSprite("Mysprite")

   x=x+8
   y=y+8
  End While

End Method
End Program

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5256

喷嚏网图书推荐：卓越网当当网

more.asp?name=KPLer&id=661

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

一步一步学KPL[1]：初学者入门

KPLer — Mon, 09 Jul 2007 14:10:00 +0800

学电脑，最重要的是要动手实践。就如同人开口说话一样，你想想人是如何学会说话的呢：你是把语法学完后，把主、谓、宾都分析清楚了，才说话的吗？

显然不是！所以，你理解为什么中国人花了那么多年学习哑巴英语，是多么糟糕的方法了！

因为一开始就用分析的方法学习语言或语法，跟人的认知习惯是背道而驰的。

我们学习语言是从模仿具体的事物开始的，也是从最简单的使用开始的，所以，实践是最好的学习办法。

我们学习电脑编程也要用这个思路，才能入门。我们在网站上（www.dapenti.com）提供了大量的资料，是帮助大家当手册来使用的，但不是需要大家都死记硬背。

我们这个课程，就是帮助初学者梳理学习编程的路线。帮助大家了解编程是怎么样的一种思维和表达方式。当大家做了一定练习后，然后自己一下就会明白编程是怎么的一回事情了。而且，可以从此踏上自学的道路。

我们只是引路人，但修行在于你自己。

课程预备：

【1】如果你不知道KPL是什么东东，那么请首先阅读：

KPL: 不仅仅是儿童编程语言

为什么要学KPL？

more.asp?name=KPLer&id=3383

我特别推荐一篇关于美国信息技术教育白皮书内容的文章，供大家参考：

技术在K-12年级教育中的应用：未来展望

more.asp?name=KPLer&id=4612

【2】接下来，热心的家长们最关心的问题是：我的孩子可以学习吗？

我们认为孩子过早地开始学习KPL，不一定是好事情，这和孩子的爱好和前期准备有关。我们推荐的时间是从初中开始。

而家长是否懂电脑编程，我们认为倒不是一个太大的问题。家长可以指导孩子怎么使用网上的资料，并不一定要什么都会。

这部分我们推荐的阅读有：

孩子什么时候学编程比较合适？

more.asp?name=KPLer&id=5001

给8-10岁的孩子一点准备！

more.asp?name=kpler&id=1518

【3】如果决定学习KPL，你需要一台可以运行windows xp的电脑。

我们没有在其他的操作系统下，比如vista下安装过KPL。所以，建议你最好使用windows xp系统，当然，大多数家用电脑，都是预装的该系统。因此，你无须为此做其他的准备。

据称，KPL可以安装到windows 98上，这对于一些老的机器来说，算是一个好消息。

好了，我们在开始之前，就说那么多了。开始准备下载和安装KPL了。

下载和安装KPL

我们推荐的阅读：

下载并安装KPL 1.1

more.asp?name=KPLer&id=291

说明：首先下载程序，总共是两个。第一个是dotnetfx.exe,第二个是setup.exe。下载完成后，首先安装dotnetfx.exe(这个是支持KPL运行的环境软件),然后才是setup.exe(这个是KPL1.1)。

安装完成后，从“开始->所有程序->kids programming Language->kpl”,就可以运行KPL。

如果安装有问题，请先卸载已经安装的部分，然后重启电脑，重新按上述步骤安装即可。

我们在网站上还放置了一个完整的安装包，除了安装程序以外，还包括用户手册、操作培训、初级入门汉化程序文件和KPL开发环境的中文菜单等等。

吴文虎：别让“程序设计”成第二门“英语”[转载]

KPLer — Sun, 08 Jul 2007 11:40:00 +0800

[文章导读]

吴文虎教授从“信息技术教育”的本质讲起，阐述了计算机教育变革的必要性以及他所秉承的教育理念。

[正文]

　　吴文虎教授 1955年至1961年分别就读于清华大学电机工程系及自动控制系，现任清华大学计算机系教授、博士生导师，主要研究方向包括语音识别及语言理解、语音合成、语音信号数字处理等。他已连续十六年主讲研究生的学位课“语音信号数字处理”。从1990年至1997年，他担任人机语音通讯实验室的负责人。作为项目负责人或主要参加者，承担了多项国家级项目，并多次获奖。他曾于1991年至1999年担任中国计算机学会普及委员会主任。作为总教练和领队，他曾连续15年带领中国队参加国际信息学奥林匹克竞赛，中国队累计获金牌30块，银牌18块，铜牌13块。于1997年获“清华大学优秀教学成果特等奖”，1998年获“全国优秀教师一等奖”，1999年荣获“首都劳动奖章”，2001年获北京市高等教育教学优秀成果一等奖，2001年获“全国师德先进个人奖”，2002年获信息学奥林匹克国际委员会颁发的“特别贡献奖”，2003年获清华大学“教书育人奖”。他为本科生讲授的“程序设计基础”课于2003年被列为教育部精品课。2004年获中国计算机学会颁发的“杰出贡献奖”。

　　“中国青年软件振兴计划”系列实践活动之一——“软件产业理论与实践高校巡讲”开幕式在清华大学举行，全国高校计算机基础教育研究会副理事长、国际信息学奥林匹克中国队总教练吴文虎教授做了题为“信息技术教育与创造性人才培养”的精彩报告。吴文虎教授从“信息技术教育”的本质讲起，阐述了计算机教育变革的必要性以及他所秉承的教育理念。身为计算机教育界泰斗的吴文虎教授，在清华率先进行计算机教育方法的变革尝试，并取得了成功，他所倡导的软件人才培养理念得到了广大师生的认同。

　　不要让“程序设计”成为第二门“外语”

　　记者：您在清华大学讲授一门叫做“程序设计基础”的课，并且对传统的计算机基础教育实行了崭新的改革？

　　吴文虎教授：是的。为了响应清华让“年纪大的教授要上讲台”的号召，我就开了一门“程序设计基础”的大课，现在我成了清华大学里年纪最大的“大课教师”了。其实教这门课不是我的专业，只是多年来我在从事计算机普及教育的过程中，在训练“国际信息学奥林匹克中国队”如何进行“程序设计”的过程中，慢慢地找到一些感觉，积累了一些经验。我一直觉得我国计算机基础教育的思路不对，就跟我国英语教学的思路不对一样，太注重讲“语法语义”，等到真正开口讲话时却“不会说话”，等到真正要设计软件时却写不出源代码！于是我就主张强化实践，让学生更多地上机编程。我的想法得到了系主任的支持，于是我就开了这门课，尝试着进行一些改革。

　　清华大学的学生都是高分考进来的，但是他们在上大学之前接触过计算机的并不多，所以这门课对他们来讲还是非常难的，刚开始有的同学甚至急得直哭。我告诉他们只要按部就班地照我的要求做，就肯定能把这门课学好。因为中学生都能掌握的东西，大学生掌握不了是不可能的。一个学期后，这项改革就有很明显的成效，这群“从零开始”的学生，都可以写一些小程序了。作为一名老教师，我就是希望自己能够发挥余热，为清华大学做点贡献，为我国的计算机教育做点贡献。

　　吴文虎老师所教的“程序设计基础”课，开课第一年就破格被清华大学评为精品课，这在清华大学建校以来是绝无仅有的；第二年，该课程被北京市教委评为精品课；第三年，该课程被国家教育部评为精品课。

　　教育体制亟需改革

　　记者：您认为信息时代的学生应该具备哪些素质？

　　吴文虎教授：学生一定要德、智、体、美、劳全面发展，缺一不可。作为老师，我们对学生的教育理念应该是：知识固然很重要，但没有能力也不行，升华一步就是要有素养。总体说来就是要具备以下几种素养：一、科学素养。科学素养不强的民族就没有办法谈富国强民。二十一世纪是信息化的世纪，所以在科学素养里还要增添一项“信息能力”，即获取信息的能力，处理信息的能力，分辨有害信息和无害信息、有用信息和无用信息的能力；二、道德素养。我们需要引导学生在求学时期养成良好的道德和法制意识。试想，如果我们培养的学生缺乏这方面的素养，那么他越是有能力，对社会造成的危害可能就越大，就像现在对网络造成严重危害的黑客肯定都是计算机高手。我觉得每一位老师都要有责任感，要把培养学生健康、健全的人格放在一个很重要的位置上，要真正做到“教书育人”。

　　记者：众所周知，印度跟我们一样也是第三世界国家，但是他们现在软件外包做得非常好，比我国要先进三到四年。我国的软件产业也发展了这么多年，信息化教育也提倡了这么多年，可软件人才还是非常匮乏，这是不是意味着我们的教育存在缺陷呢？

　　吴文虎教授：我觉得我国的教育体制存在着很大的问题。如果我国教育体制上的问题不解决，那就会在一定程度上制约我们教育的进一步发展。我认为我国的软件青年并不比印度差，我们主要是在教育体制、人才培养机制上需要进一步完善。

　　我国的教育体制需要改革，但也并不是全盘否认我们的教育，我们的基础教育就做得非常好，这是我们需要发扬光大的地方。需要改革的是我国教育上的弱点，我感触最深的有以下几个方面：

　　第一，我们的学生不敢讲出自己的观点想法，不敢标新立异。我经常在课堂上跟学生们讲：“尽管我站在这儿讲课，尽管我可能比你大50岁，但在科学的意义上我和你们是平等的。我非常希望我讲错的时候你们能够帮我指出来，就算你说得不对也没有关系。只要你有勇气站起来发言就已经得了99分，发言的对与错也就是1分的问题！”

　　第二，我国从中学开始文理分科的制度是不对的，因为文理科的学习内容其实是相辅相成的。可能人们一般都会觉得计算机专业的学生应该最重视数学，数学当然很重要，但是我认为计算机专业的学生应该更重视语文。因为思维和语言是紧密联系的，如果语文学不好就必然导致编程过程当中的思维混乱，就很难写出大的程序，又谈何设计开发软件呢？我曾经就这个观点和中科院计算机所所长李国杰院士交流过，他非常赞同我的观点。据他了解，大多数研究理工方向的院士都非常重视提高自身的文学素养，这样一来才会在自己的研究领域内拥有更为广阔的视野。其实学文科的也很需要学习一些理工科的课程，需要具备一定的自然科学知识。众所周知，中国哲学发展一直以来非常受限制，就是因为我们的哲学家大都是“纯”哲学家，他们很少涉足自然科学领域，这必然会制约他们的发展。

　　第三，我国的信息技术基础教育有待加强。当今的世界已经进入了信息时代，信息网络、信息技术以及由此而产生的信息经济和信息文化已经对人类社会产生了重要的影响，也将对人类社会的发展进程起到根本的决定性作用，它影响到一个国家的国民素养，影响到一个国家的建设速度。邓小平同志在1984年就曾经说过“计算机普及要从娃娃做起”，可是时隔20年，我国对中小学计算机基础教育的重视还远远不够。如果没有信息技术，我们谈何面向现代化、面向世界、面向未来？如果我们不精通信息技术，就定将落后，圆明园的惨剧就有可能重演。

　　最后一点就是我们的教育观念需要改革。步入信息时代，传统教育体制需要改革，教育观念的变革无疑首当其冲！我们应该运用先进的现代信息技术，因材施教，启发学生对先进科技的向往，激发学生的主体意识和创新意识，培养学生的自学能力，锻炼学生的动手实践能力，改变教学过程中教师、学生、教材三者之间的关系。教学过程应该以学生为中心，教师的作用是导师的作用——指导、组织、引导学生学习，调动学生的积极性、主动性，从而激发他们的潜能。学生的潜能是无可限量的，这一点我有切身体会。

　　我的一个学生，现在在复旦大学读大二，他今年给我送来了一本他写的书——《国际大学生程序设计竞赛系列丛书——组合数学在程序设计当中的应用》。《组合数学》是大学三年级的课程，可这名学生在高中就会了，他18岁读高中的时候就已经参加了国际数学家大会，而且做了15分钟的英文报告。这是国际上级别最高的数学科学会议，他是参加会议最年轻的一个人！但是这么优秀的学生还没有入选信息学国家奥赛队，他当时在国家队选拔赛上获得了三等奖第一名，而国家队则只从一等奖和二等奖中选拔。其实像这样的学生数不胜数，只要老师在教学的过程中善于诱导、启发，学生的潜能真的是无可限量的！

　　做人·做事·求知·健体

　　记者：您作为我国资深的德高望重的计算机教育专家，请您给我们青少年学子们一些成长、成才的建议，好吗？

　　吴文虎教授：我想，对于青年人来讲，最重要的一件事就是要珍惜时间。光阴如流水，青年的优势就在于年轻，所以要爱惜自己的时间。还有就是要敢于标新立异，敢于展现自己。这就需要青年们多参加社会活动，在锻炼中赢取自信！就像现在共青团中央指导、中国青基会和青科协正在举办的“中国青年软件振兴计划”就非常好，它包括的活动非常全面到位，“阿拉神灯杯”中国青年实用软件设计大赛可以激发青年的创新能力；“阿拉神灯杯”中国青年实用软件知识竞赛可以巩固青年的基础知识；“阿拉神灯杯”中国青年实用软件创意征文又可以无形中促使学生重视语文的学习。青年们就可以在这样的舞台上展示自己的风采，赢取自信嘛！

　　我认为青年要全面发展，具备综合素质，要在成长的过程中学会怎样做人，怎样做事，怎样求知，怎样健体！

　　首先事业有成的人一定懂得如何做人，这是很朴素的道理。杨振宁先生、朱镕基总理等来清华演讲时就要求学子们学会做人，金庸小说里的那些武术大师也都先修德，再修内功，不修德的人不是成为武林祸害，就是走火入魔。

　　怎样做事是强调敬业。敬业要从年轻的时候开始打基础，对学生来讲敬业就是在上课的整个过程当中全身心投入，认认真真、踏踏实实地学习，要对得起自己的学费，对得起家长，对得起老师，最重要的是对得起自己！虽然学习是自己的事情，但是个人的事情跟国家的事情是统一的，所以敬业特别重要。

　　怎样求知，就需要具备一种精神，这种精神就是“终身学习，不断探索、追求完美”，就是要敢于“打破砂锅‘问’到底”、“知难而进”！同时还要谦虚，不能“老子天下第一”，而是要“三人行，必有我师”，与人合作时要懂得尊重别人。

　　怎样健体，这包括两方面的内容：一方面要强健身体，一方面要强健心理。身体健康很重要，“身体是革命的本钱”；心理健康更重要，只有具备了良好的心态才可以做到以上各点，才可以充满自信、迎难而上，拥有更为广阔的发展空间！

来源：http://www.lnedu.net/oblog31/user1/155/archives/2006/20061216233429.html

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5175

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

如何使用系统函数？

KPLer — Thu, 05 Jul 2007 14:14:00 +0800

　有网友给我们来邮件问：怎么画空心圆？

他写的代码中，有一句是这样的：

circle(80,true)

这个语句只能画出实心圆。

这看起来是个很简单的问题，但对初学者来说，是个大的障碍。

我们今天给大家说一个自己可以动手解决此类问题的方法。

先还是解释一些概念，然后说明，我们如何去找想要知道的信息。

什么是系统函数和方法？

对KPL来说，就是事先在语言中已经设计，并可以直接使用的函数或方法。言下之意：有些计算方法，KPL已经提供了，你不用自己再去实现它，比如：画圆，画矩形，正弦、余弦、随机..

大家问了：我怎么知道有哪些系统函数呢？

我们有提供给这样一个文档，可能你忘了：）

《KPL系统方法和函数》电子书在线阅读版

访问地址：more.asp?name=kpler&id=1973

我们来演示一下怎么用这个文档：

当我们在编写代码时，我们把鼠标移动到circle时，我们会看见一个提示：

System Method Circle(Size as Int,Filled as Bool)

这个提示包含了如下信息：

【1】System 是“系统”的意思，表示这个是由KPL自己提供的方法，这个方法有两个参数；

【2】然后我们到《KPL系统方法和函数》里去找：我们在“画笔方法”中找到该方法的解释；

【3】比较不幸的是：文档里好像没有说明参数的含义。但size的意思很明确，是“大小”的意思,我们估计是圆的直径，filled 是“是否填充”的意思。那么我们是否可以理解为：filled为true时，代表画实心圆，filled为false时，代表画空心圆；

【4】自己试试看？果然如此！

KPL的系统方法和函数，及其参数的含义，大多数都可以从其英文的字面意思上就可以理解。

如果你不熟悉英文，我们给你一个简单的查字典的方法，去www.google.cn,然后在搜索框中输入：

fy circle

意思就是：把circle翻译（fy）成中文。很简单不是？

通过上面的办法，你可以解决到很多类似不清楚的问题。

我们有个建议，你可以抽出点时间，把《KPL系统方法和函数》里面的分类及其函数方法，简单扫描一遍，有个大致的印象。这样做的好处是，下次你不用费劲心思去解决一个已经有答案的问题。

你或许有更多宝藏可以发现：原来播放声音是如此简单；画椭圆和画矩形都是现成的；屏幕的大小可以自由设置...

你对系统函数了解越多，你就能自如地使用它，做出不可思议的程序来。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5133

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

版权和转载申明

KPLer — Tue, 03 Jul 2007 13:51:00 +0800

近日，发现网上有论坛转载我们的KPL教程，但令人遗憾的是，这些网站缺乏对我们辛勤劳动最起码的尊重。传播本来是好事情，但不是你的，说成是你的，就是可耻的事情。而且，有些东西还以讹传讹，说什么coding4fun是什么儿童编程语言，一派胡言。

本站特此申明：

本网站KPL中文译文、文字和视频教程及其相关原创资料，均属本站所用。

网站授权所有个人学习者，可自由使用该网站资源。但不得从事用于商业目的活动。

教育行业可在自己的学校网站，IT论坛内引用本站内容，须经本站同意,，且须注明：

来源：敏捷培训大巴 www.dapenti.com

媒体合作垂询，联系方式：dapenti2006@gmail.com

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5017

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

孩子什么时候学编程比较合适？

KPLer — Mon, 02 Jul 2007 15:18:00 +0800

暑期来临，很多家长和长辈准备利用这个假期，让孩子学点KPL。

我来说说我的看法，供大家参考。

【1】孩子不宜学的太早

其实这个问题是：孩子什么时候开始学习编程，比较合适？

我个人认为，孩子学编程，并不是越早越好。

为什么这样说呢？

因为孩子在初中以前的这个阶段，想像能力占主导地位，形象思维比较强。而学习电脑编程，算是训练一种逻辑思维，需要一点抽象能力，需要一点数学知识作为基础。

现在很多小学，从二、三年级开始，让孩子接触到电脑，这是正确的，孩子们学习如何使用电脑，打打字，画会画，把电脑当工具使用。这没有太大问题。家长要控制的只是不要让孩子迷恋上网络，把电脑当成了娱乐工具。

四五六年级的孩子，有些基本的数学知识了。而且，按我们国家现在的方式，有些学奥数的孩子，可能还知道一些初中的数学知识。有条件的家庭，可以适当地开始接触编程方面的知识。

我也听说过，有孩子在五六年级就开始学数据库的，然后，10多岁的孩子就开始编写人力资源软件。这些新闻煽动得人心惶惶。大家都生怕孩子吃了大亏一样。

我告诉大家：这样的拔苗助长，没有任何好处。任何一个专业软件的开发，都需要综合的知识和专业的技能。编程只是其中的一小块。

所以，我的建议，学习KPL的最佳开始时间是：从初中开始。

【2】学习的方式和重点

电脑编程的方式，首先跟我们平时的方式有点不同：你必须要自己动手做，而不是光在头脑里面想，就能想出来的。

这正是学习编程迷人的地方：你可以自己动手，自己校正，得出心里想要的结果。

一般的学习，总是希望有个老师先教一下，然后才让孩子去做。但我个人的看法，刚好相反：

让孩子跟着教程看，自己动手做，不宜贪多，不懂就到KPL的qq群里来问，多做练习。开始的时候，就是从模仿程序开始。

家长也可以先学，但学完后，也只是指导，协助，讨论。刚开始的时候，可以给孩子演示过程。

这样的话，我们可以得到什么呢？

前所未有的自学能力。开始是很难，但一旦开始了，孩子的思维方式会有很大的提高。

不要把电脑编程，仅仅当成是学习一门技能，而是从整个过程获益：怎么思考的，逻辑顺序是如何的，是否还有其他的方法，怎么样跟已经学过的数学知识联系，怎么用画板替换示例中的图像等等。

理解编程的结构，熟悉编程的方式，认真阅读代码示例，然后练习，一定会有所收获。

通过编程技能，把学习过的东西串联起来，开拓逻辑思维的能力，这才是技术教育的价值所在。

【3】KPL能给大家带来什么

现在我们网站上的资料（www.dapenti.com）已经可以让大家用上3年的了。当然，这是我个人保守的看法。

我觉得，如果合理地安排自学的话，一个初中毕业学过KPL的孩子，在电脑编程的入门方面，跟现在的大学本科的学生相差无几。而且，还不需要特别的什么安排和专门的学习，只要能把网站上的代码看明白就行！

我们国家的教育是很让人不明白的：初中生都学高中的知识了，高中生都学大学的知识了，可到了大学里面使用电脑的智商却很低。

我们的教育浪费了大量的时间去面对考试，而对孩子的动手能力、逻辑思维和系统能力的培养，无动于衷，乏善可陈。

好在，我们可以给孩子一些长远的准备，来弥补这些不足。我们可以用放松的心态来准备这一切：1年不行，还有3年，3年不行，还可以延续，没有太大的压力，让孩子对自己有学习的把握，有自己控制的能力。这一切就已经足够了。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=5001

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

《KPL游戏示例代码讲解》电子书在线阅读版

KPLer — Sun, 01 Jul 2007 17:45:00 +0800

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4988

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

用设计的方式理解程序语言

KPLer — Tue, 26 Jun 2007 13:19:00 +0800

初学电脑编程的人，一般都不知道变量和循环什么的怎么用。这是很正常的事情。之所以这样，其实主要是因为你不知道程序语言是如何设计的，这样的设计有何意图。

刚开始学习的人，都会经历这个过程，没有什么好担心的。你可以轻易地越过这个障碍！

简单地说，一段程序主要是模拟一个过程，这个过程里面主要包含了逻辑和计算的部分。

（一）为什么要申明变量？

比如，我们从小学做的一道题：1+2=？

小时候，我们都是搬手指头，可电脑没有大脑，也没有手指，它只有电子大脑-内存：一个用来保存数据准备用来计算的地方。程序语言的设计者设计了这个把戏，把它命名为：变量。

你可以把变量理解为一个容器，不同的容器可以装不同的东西。程序里面把不同类型的变量称之为：数据类型。

我们来看看电脑是如何工作的：你要首先命名一个变量x，在命名的同时指导其数据类型，相当于告诉电脑只能装什么东西，电脑接到指令后，根据指示，分配存储的内存空间。

在KPL中，用下面这句话就代表了上面的整个过程：Var count As Int

意思是：电脑啊，我要分配一个空间，这个空间叫count，它用来装整数的，ok,准备好了吗？

这个语句告诉了我们什么呢：电脑不是天才，如果你不告诉它怎么做，他就是一个白痴。你也会明白，在程序语言的设计中，我们要帮助电脑，给他一点指挥和帮助才行。

接下来的事情，就是在分配的空间中装东西了：count=1。这个语句的意思是把整数1放在变量容器count里面。

那么，下面的语句是什么意思呢？

count=count+1

如果按我们平时的学的数学的观点，上面的等式是不成立的。但是在电脑里面，根据我们刚才说的容器的概念，它的意思也很清楚：

在原有容器的基础上，数量加1，如果原来的count是1，加1后，count的值就变成了2。

变量的声明，是所有程序准备计算和逻辑判断的开始，因为电脑最终只能理解数字，也只能理解已经数学化的过程。

（二）什么是逻辑和计算？

数学是很抽象的事情，比如：1+2=？可能代表不同的问题：

【1】1颗棒棒糖，加上2个棒棒糖，一共几个棒棒糖？

【2】买一送二，买一个大蛋糕，送你两片口香糖，你得到多少个礼物；

【3】你们家：两个大人，一个小孩，还是一个大人，两个孩子。一共多少人？

在上面的问题下，数学的结果是一样的，不关心吃了糖是不是坏牙齿，礼物是大是小，你们家人怎么构成的。

但是，你注意到没有，上面三个问题，最后都变成了一道数学题。电脑编程也是大致如此的：你要把需要知道或了解的结果，变成一个判断和计算的过程，模拟出来。

1967年，有两位美国科学家用数学的方法证明了：任何过程都只需要三种结构来描述，即顺序结构、条件分枝结构、循环结构。

这意味着，如果程序来模拟过程的话，也只需要三类语句来实现。

【顺序结构】

不需要特殊语句，程序本身就是顺序执行的

【条件/分支】

if/then/else/endif

【循环】

loop循环

while循环

for循环

事实上，到目前为止，所有的程序语言设计大多如此。

让我们来看一个例子：计算1+2+3+......+100=?

要求计算出：（1）总和；（2）分别算出奇数和偶数的和；

我们来看给出的一种解法。

  //申明变量
  Var count As Int //

  Var num As Int //保存总和
  Var num1 As Int //保存奇数和
  Var num2 As Int //保存偶数和

  //反复累加，重复做的事情就需要循环
  For count=1 To 100
   num=num+count //累加运算

   //条件判断，是奇数，还是偶数
   //如果除以2，余数为0，则是偶数
   If (count Mod 2=0) Then
    num2=num2+count
   Else
    //奇数和计算
    num1=num1+count
   End If
  Next

  //输出结果，否则看不到
  PrintLine(num)
  PrintLine(num1)
  PrintLine(num2)

上面这个简单的例子，包含了程序最基本的结构。

（三）用需要的方式来理解程序语言的设计

数组：用来存放相同数据类型的一个系列空间。相当于同一个单元的户型一样。

程序的设计者考虑到了这一点，通过自定义数据结构来打包访问。

Structure People
  name as string
  age as int
  address as string
end Structure

这样当我们申明一个people类型的变量时，就可以这样使用：

var curuser as People

curuser.name="kpler"
curuser.age=2
curuser.address="www.dapenti.com"

你看，这样是不是很简单？！

函数和方法：一小段代码，保证你可以重复使用。重复计算是电脑最拿手的了。尽量让电脑重复，而不是我们去做重复的事情，是电脑存在的一个重要理由。

方法就是执行一段代码。但代码不会返回一个结果，而函数会。

这是一个方法：
Method SayHello()
PrintLine ("Hello!中文")
End Method

这是一个带有参数的方法：

Method SaySomething(SomeThing As String)
PrintLine (Something)
End Method

这是一个函数：

function fundemo(num as int) as bool
  if (num mod 2=0) then
   return True
  else
   return false
  end if
end function

记住：函数要返回一个结果。

有人会问了，怎么才能使用函数和方法呢？

简单地说，任何过程首先都是线性的过程，象一条直线一样，但如果你发现在这个过程中，有些东西反复在做，或者做的差异只是改改数字或小的改动，那么，你可以把这个重复的过程提出来，放在一个函数或方法里面。

这样做的好处是：你通过改变传递参数的值就可以完成相同的工作，不必重复劳动；通过这个办法，你把很长的程序，变成了一个个的小豆腐块，这样的豆腐块有很多在其他的代码中也可以使用，这样，编程变成了一个一劳永逸的事情。

（四）高级概念

其实编程还有很多相对比较高级的概念。你想想看，我们在使用word或上网的时候，我们在用一个软件的时候，很少看到计算的部分。

因为真正的软件在与人的动作的交互过程中，提供了一个重要的部分：人机界面。简单地说，就是把计算和逻辑的部分隐藏起来，用一种友好的界面来给人打交道。

这部分的设计并不包含在基础的程序语言里面，而是包含在专业的开发工具提供的界面元素中。刚开始，大家知道这一点就可以了。

还有在电脑编程里面，有大量的错误处理的代码。因为人很容易犯错，我们的操作也可能导致电脑不能解释而崩溃。

总而言之，大家要明白一个概念：电脑编程语言是对过程的一种模仿，它是一种逻辑和技术的工具，也是和人交互的接口。所有的电脑编程元素的设计，都是从人的使用和理解出发，结合应用的需要而设计的。

这样看来:知识并非是一成不变的，如果我们需要它改变，它就可以改变。这也说明了为什么世界上有那么多的编程语言。好的编程语言，代表了设计者的着眼点和应用的倾向：拿KPL来说，它就是设计给初学者，麻雀虽小，五脏俱全。而在专门的小游戏上面，又独具匠心，给初学者屏蔽了大量的知识要求，而代之以核心的编程要素，让人很快上路。

如果你能从应用的角度去理解程序的语言，那么你总是能很快画出自己学习的地图，在电脑的世界里，你可以学到：没有什么不可以。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4857

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-8]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:51:00 +0800

（4）顺序显示灯亮的状态：

Method PlaySequence(Notes As Int)

// 显示从1到当前猜次的灯的状态

Var idx As Int

// 先关闭所有的灯

For idx = 1 To 4

DrawLight(idx, False)

// 显示灯亮顺序

For idx = 1 To Notes

// 灯先亮一下

Drawlight(LightList[idx], True)

RefreshScreen()

Delay(Timing)

// 再把灯关掉，造成闪烁的效果

Drawlight(LightList[idx], False)

RefreshScreen()

Delay(20)

End Method

Method PrintScore()

// 输出当前得分和最佳分数

Color(8)

MoveTo(10, 415)

Rectangle(120, 60, True)

MoveTo(300, 415)

Rectangle(120, 60, True)

PrintNumber(Best, 10, 405)

//以下处理，是为了显示上对位，小于10的数只有1位数，显示上可能错位。这是一个常见的处理细节

If Score < 10 Then

PrintNumber(Score, 350, 405)

Else

PrintNumber(Score, 310, 405)

End If

End Method

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4823

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-7]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:50:00 +0800

If NoteCount >= ArrayLength(LightList) Then

//整个顺序全部猜完

Alert("Congratulations! You have completed the entire sequence of " + ArrayLength(LightList) + " steps.", "Simon says:")

ExitInputLoop = True

ExitGameloop = True

Else

// 增加速度

If (LastNote Mod 2) = 0 Then

If Timing > 30 Then

Timing = Timing - 20

End If

ExitInputLoop = True

End If

Else

// 还没有猜完所有的数，需要继续

NoteCount = NoteCount + 1

End If

Else

// 按键不正确的话

PlaySound("SpatialShift.wav")

Delay(900)

ExitInputLoop = True

ExitGameloop = True

End If

End While

DrawLight(try, False)

End While

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4822

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-6]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:48:00 +0800

While ExitInputLoop = False

// 等待按键输入

try = 0

While try = 0

key = GetKey()

If key = "1" Then

try = 1

End If

If key = "2" Then

try = 2

End If

If key = "3" Then

try = 3

End If

If key = "4" Then

try = 4

End If

End While

//显示一下按键对应的灯亮

DrawLight(try, True)

// 比较灯亮顺序是否一致，即猜序

If try = LightList[NoteCount] Then

// 按键正确-保存得分

Score = NoteCount

If Score > Best Then

Best = Score

End If

PrintScore()

// 是否是猜的数跟当前顺序的数相同

If NoteCount = LastNote Then

// 是

// 播放声音

Delay(200)

// 表示完成

PlaySound("Tada.wav")

DrawLight(try, False)

Delay(900)

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4821

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-5]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:44:00 +0800

（3）游戏循环的部分：

// 程序主循环

While True

// 新游戏开始播放声音

PlaySound("Utopia Asterisk.WAV")

Delay(900)

// 随机产生一个亮灯的顺序

For idx = 1 To ArrayLength(LightList)

LightList[idx] = Random(1, 4)

// 游戏循环开始

Score = 0

Timing = 500

ExitGameLoop = False

LastNote = 2

While ExitGameLoop = False

// 猜下一个数，包括第一个数

PrintScore()

LastNote = LastNote + 1

PlaySequence(LastNote)

// 开始输入循环

ExitInputLoop = False

NoteCount = 1

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4820

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-4]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:43:00 +0800

（2）绘制灯亮的方法：

Method DrawLight(Index As Int, Bright As Bool)

// 画出灯亮, 或灯暗

Var X As Int = (Index - 1) Mod 2

Var Y As Int = (Index - 1) / 2

Pen(False)

// 确保先前的灯已经关掉了

If Previous > 0 Then

If Previous <> Index Then

DrawLight(Previous, False)

End If

// 设置灯的颜色（不同的颜色代表灯亮或灯暗）

If Bright Then

Color(LightOn[Index])

PlaySound(SoundList[Index])

Else

Color(LightOff[Index])

End If

// 绘制灯的区域

MoveTo( 20 + X * 200, 20 + Y * 200)

Rectangle(180, 180, True)

PrintNumber(Index, 80 + X * 200, 70 + Y * 200 )

Previous = Index

End Method

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4819

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-3]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:42:00 +0800

代码讲解：

（1）老办法，从Main看下去：

// 屏幕设置和初始化

SetScreenSize(420, 500)

Clear(8)

// 每个灯对应不同的声音

SoundList[1] = "Laser.wav"

SoundList[2] = "MenuBeep.wav"

SoundList[3] = "PlasmaCannon.wav"

SoundList[4] = "PowerUp.wav"

//设置灯亮和灯暗的颜色值

LightOn[1] = 114

LightOn[2] = 78

LightOn[3] = 42

LightOn[4] = 139

LightOff[1] = 81

LightOff[2] = 26

LightOff[3] = 91

LightOff[4] = 98

// 最好 / 积分牌

Pen(False)

Color(137)

SetFont("Tahoma", 12, True, False, False)

MoveTo(25, 475)

Print("Best")

MoveTo(345, 475)

Print("Score")

// 设置分数显示的字体

SetFont("Tahoma", 48, True, False, False)

// 绘制灯亮区域

DrawLight(1, False)

DrawLight(2, False)

DrawLight(3, False)

DrawLight(4, False)

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4818

喷嚏网图书推荐：卓越网当当网

用手机上喷嚏网：m.dapenti.com 每周精华尽在【喷嚏周刊】

KPL游戏示例讲解[18-2]: 猜顺序

KPLer — Sun, 24 Jun 2007 15:41:00 +0800

我们还是来看看该游戏前面注释中，整理出的编程思路，了解一下：

Draw Title screen 画出标题屏幕

Start Program Loop 程序循环开始

Pick light sequence 随机产生一个亮灯的顺序

Start Game loop 游戏循环开始

Increment LastNote

Play sequence 表演一下选择的灯亮顺序

Start Input loop 开始输入循环处理

Get key 等待键盘输入

Compare key to LightList 跟灯亮顺序进行比较

If Correct 如果顺序正确的话

Compare NoteCount to Score 计分

If NoteCount > Score 如果比分数大

save score 给计分赋值

Compare NoteCount to LastNote 判断猜数是否是最后一个

If Done 如果全部猜完

Turn light off 关闭灯亮

Increase Timing speed 增加速度

Exit Input loop 退出输入循环

If Not Done 如果还没有猜完

Increment NoteCount 增加计时，开始猜下一个

Continue Input loop 继续等待键盘输入

If Not Correct 如果猜测的顺序不正确

Exit Input Loop 退出输入等待

Exit Game loop 退出游戏循环

如果你没有理解上面的结构和顺序，不要紧，我们还是看看具体的代码就清楚了。

打喷嚏链接：http://www.dapenti.com/blog/more.asp?name=KPLer&id=4817

喷嚏网图书推荐：卓越网当当网