DelPhi7教程之菜鸟先飞版--帮你打通任督二脉(第1式).asp.rar

--------------------------------------------------------------------------------- 黑鹰基地教程 黑鹰基地www.3800cc.com 专业的黑客安全技术培训基地 多抽出一分钟时间学习.让你的生命更加精彩. --------------------------------------------------------------------------------- DelPhi7教程之菜鸟先飞版 -----帮你打通任督二脉 （第1式） 大家好,很多人对程序设计,都认为是遥不可及、深不可测的,只知道很多黑客软件,游戏外挂,等计算 机程序都是用这个写成,想学,但又不知道如何下手,今天我带大家一起来学习DelPhi,高手就别来了.此教程 只限于菜鸟学习,还请高手多多指教,我也是个菜鸟,和很多人一样.只希望和大家一起共同进步, 好吧,废话就别说了,我们现在开始. 我们这里所用到的是Delphi 7 现在已经有新的版本了,基于习惯这里还是用这个,它是Borland公司 推出的一款可以在WINdows环境下运行的面向对象的编程软件,它的特性主要表现在.NET支持,对建模的支 持,新的第三方组件与工具,新的XP主题,编辑器......这里就不一一说了,慢慢的就会知道它的好处. 关于如何安装Delphi 这里也就不介绍了.相信大家有能力搞定的,如果没有软件的朋友可以去网上 搜索,很多的.也可以买一张.. 大家可以自己先认识一下Delphi的集成开发环境,了解在集成开发环境中主窗口,菜单栏,组件栏,对 象树状列表,对象编辑器,窗体设计器,代码编辑器,工程管理器的功能,我们会在例子中讲到. 这里我就不详细讲了。老机子 卡得很。。。还在下载东西。网又慢。55555555。不多说了。免得耽搁时间 下面进入今天的主题.. Delphi 创建WINdows应用程序一般步骤: 1.需求分析和总统设计 2.代码开发与程序调试 3.投入运行与程序理解 (希望大家能明白我讲的意思 ^-^ ) 关键是代码的开发,其他也不能忽视 代码开发和程序调试指的就是: 1.程序窗体的设计 2.程序代码的设计 3.编译和调试程序 下面我们一起动手来开发一个小程序,功能很简单,主要让大家了解程序设计的过程,细节问题以后慢慢讲 结合上面的步骤1先需求分析和总统设计,我们这个程序是用于计算成绩,输入各科成绩,点击[计算]后得到 各科成绩的总分和平均分. 下面开始我们代码开发与程序调试之旅: (看我操作) 启动Delphi。我已经启动好了。。。 1.创建一个新的工程 一般运行Delphi后程序会自动创建一个新的工程,如没有可以手动,也可以通过[工具] | [环境选项]来 设置. 2.程序窗体设计 ⑴放置组件:这里我们用到6个编辑框组件,6个标签框组件,1个按钮组件. 可以点一下放一个,也可以按住[Shift]键,选中组件,然后在新建的工程中单击,单击一次为一个.创建完 后只要单击组件面板中左边的箭头图标便可取消选择,用同样的方法把需要的组件创建完 ⑵排列组件:单击鼠标右键选择 [Position] | [对齐] 来调整,主要是为了见面的美观。可以根据网格来。 完成后。。 ⑶锁定组件:选择菜单栏 [编辑] | [锁住控键] ⑷设置窗体和组件的属性: Form1 Caption 成绩计算器 Button1 Caption 计 算 label1 Caption 语 文 Edit1 text (设置为空) label2 Caption 数 学 Edit2 text (设置为空) label3 Caption 外 语 Edit3 text (设置为空) label4 Caption 其 他 Edit4 text (设置为空) label5 Caption 总 分 Edit5 text (设置为空) label6 Caption 平均分 Edit6 text (设置为空) 调整好后。便可以。。编写代码了。。。 3.编写程序代码 ⑴定义事件处理过程:选择Button1([计算])按钮,在对象查看器中选择Events 页 选中OnClick事件右边的 编辑栏,则自动填入Button1Click,同时代码编辑器被激活,会自动生成OnClick事件的过程代码框架.可以 在这个框架中添加代码 ⑵添加代码:先定位事件处理过程.双击Button1([计算])按钮便可找到位置..在添加事件处理代码, 代码如下: procedure TForm1.Button1Click(Sender: TObject); var s1m,acer:double; //定义名称 begin s1m:=strtofloat(Edit1.text)+strtofloat(Edit2.text) +strtofloat(Edit3.text)+strtofloat(Edit4.text); //s1m为 总分 所以这里用加法 acer:=s1m/4; //acer为 平均分 所以这为除法 Edit5.Text :=floattostr(s1m); Edit6.text :=floattostr(acer); // 显示 end; 我这里就直接复制上去的，大家最好是打上去。习惯一下。。有好处的。我是为了节约时间 4.编译和运行程序 可以按[F9] 也可以。。点这个，他是编译和运行一起的。。也可以。。。 这样..属于自己的一个程序就开发完成了...测试一下。。OK。。。 好卡啊。。。。出错了。。。。在试一下。。运行好了。。算算。。OK。。GOOD。。 接下来我们介绍Delphi中的文件结构 下面是刚才开发的程序中的窗体对应的单元文件代码 unit Unit1; //单元头 unit标志下面的代码是一个单元,后面跟单元文件,扩展名为.pas interface //标志单元接口部分开始,单元接口部分定义变量,类型,过程等,可以被其他 单元或程序的其他部分访问. uses //单元列表部分 uses语句告诉程序最终的执行代码中需要哪个函数和过程 会自动把一些必须的单元包括进去 如下面这些 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type // 这部分用来定义用户自己的类型,此处定义一个TForm派生出的TForm1类 它包括了一个按钮,6个标签和6个编辑框,一个处理按钮单击时间的工程 TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var //这部分用来定义变量和对象变量,也可以用来定义其他implementation 部分的变量,工程,函数等. Form1: TForm1; implementation //这部分定义所有在interface部分说明过的函数,过程等. {$R *.dfm} //该语句把单元连接到窗体.dfm文件.删除的话会发生编译错误 procedure TForm1.Button1Click(Sender: TObject); var s1m,acer:double; begin //执行部分 s1m:=strtofloat(Edit1.text)+strtofloat(Edit2.text) +strtofloat(Edit3.text)+strtofloat(Edit4.text); acer:=s1m/4; Edit5.Text :=floattostr(s1m); Edit6.text :=floattostr(acer); end; end. //用一个"." 来标志程序的结束 这些很关键,大家下来慢慢看...今天到这里就结束了。希望大家希望。。 功力提升一层.(@_@)~~~~~~~~~~~HOHO。。。 下1式我们介绍Object Pascal语言 By ︶殘酷De喜劇 QQ 5941998 论坛ID 游戏而已 E-Mail ncliang@163.com