实例一桌面设置程序.doc

实例四 乒乓球【程序说明】学习工作之余，玩玩乒乓球也不失为一种锻炼大脑的好方法。但是，这里要实现的是一个电脑游戏，而不是真实的游戏，但是可以根据你个人的水平设置不同的级别。游戏开始后，乒乓球从右边发过来，你控制左端的球拍，将球接过去为赢，如果对方接球过来而你没有接住的话，就重新从右端发球。本例的程序运行结果如图4-1所示。图4-1 和电脑打乒乓球【编程思路】在前面的几个实例中已经知道一个较为完整的游戏开发是一个比较系统的开发工作。在游戏设计的过程中，设计思想应该走在代码设计之前。没有一个优秀的游戏思想，代码设计再出色也不会有好的游戏产生。本例实现的乒乓球游戏可以分为下面五个部分来实现：1、游戏的开始和退出控制游戏开始时的发球和退出时的释放资源。2、球拍和界面的更换主要是设置双方球拍、球桌、拦网和乒乓球的颜色。3、电脑对手的设计电脑根据乒乓球移动的位置调整自身的位置，以便能接住打过来的乒乓球。4、玩家对球拍的控制主要是通过、和四个键来实现对球拍的控制，以便接住电脑打过来的乒乓球。5、球速的设置玩家根据自身的水平对乒乓球运移速度进行设置。一个比较完整的游戏开发，其代码一般是比较复杂的。而且程序设计时最好能遵循模块化的思想，一个特定的模块完成的就是一个特定的游戏功能。【编程步骤】.1选择File|New|Application，新建一个应用程序。2添加控件和界面布局。向Form上添加1个RadioButton（乒乓球）、Shape（拦网）、MainMenu和TtrackBar，2个ColorDialog和Label，3个Panel（球拍和球桌）以及6个Timer等控件。3、控件属性设置。主要是设置RadioButton的Color和Panel1的Color一致（球和球桌，这样的设置可以使效果更加逼真一点），TrackBar1的position为4（一个中级水平的难度），然后参照图4-2设计主菜单。最后，本例在设计期间的控件属性和界面如图4-3所示。图4-2 主菜单设计图4-3 控件和窗口布局4编写代码。在编写具体的代码之前，要定义一些必要的全局变量。var Form1: TForm1; vleft,vdown,vup,right:boolean; /检测小球的运移 vasakult,paremalt:boolean; /检测电脑的速度 bspeed:integer; /显示小球的速度 patspeed:real; /球拍的速度 pat:boolean; /检测球拍 moveup,movedown:boolean; /向上，向下移动 comspeed:real; /电脑的球拍 ballspeed:integer; /小球的原始速度 implementation下面按照这个游戏的五个部分分别编写代码来实现。（1）游戏的开始和退出。procedure TForm1.NewGame1Click(Sender: TObject);begin /游戏的开始 patspeed:=0; pat:=false; ball.left:=panel2.left; ball.top:=panel2.top+panel2.height div 2; Timer3.enabled:=true; computer.enabled:=true;end;procedure TForm1.Eit1Click(Sender: TObject);begin /游戏的退出。关闭所有时钟，然后退出程序 Timer1.Enabled:=False; Timer2.Enabled:=False; Timer3.Enabled:=False; Timer4.Enabled:=False; Timer5.Enabled:=False; computer.Enabled:=False; Application.Terminate; end;（2）球拍和界面的更换procedure TForm1.N2Click(Sender: TObject);beginIf ColorDialog1.Execute Then /更换球台背景 Begin ball.Color:=ColorDialog1.Color; Panel1.Color:=ColorDialog1.Color; end;end;procedure TForm1.N3Click(Sender: TObject);beginIf ColorDialog2.Execute Then /更换球拍颜色 Begin Panel2.Color:=ColorDialog2.Color; Panel3.Color:=ColorDialog2.Color; Shape1.Brush.Color:=ColorDialog2.Color; end;end;（3）电脑对手的设计和玩家对球拍的控制procedure TFputerTimer(Sender: TObject);begin panel1是球桌，panel2是电脑的球拍，panel3是你的球拍if ball.leftpanel1.width thenbegin /超过右下端点 Timer2.enabled:=false; Timer5.enabled:=false; Timer4.enabled:=False; Timer3.enabled:=false; computer.enabled:=false; Timer1.enabled:=true;end;/根据球的方向来调整玩家的球拍位置if vleft=true thenbeginif panel3.left2 then panel3.left:=panel3.left-2;end;if vdown=true thenbegin if panel3.top+panel3.height2 then panel3.top:=panel3.top-4; end;/电脑对手的智能调整if ball.leftshape1.left then begin if panel2.top+panel2.height div 2ball.top then begin if panel2.top+panel2.heightball.top) then begin if panel2.top4 then panel2.top:=panel2.top-4; end;end; bspeed:=4; bspeed:=bspeed+Trunc(patspeed); bspeed:=bspeed *10;end;（4）球速的设置procedure TForm1.TrackBar1Change(Sender: TObject);begin ballspeed:=trackbar1.Position; /乒乓球的运动速度end;此外，本例用到的6个Timer控件都有各自的作用，computer的作用上面已经介绍了。其余5个Timer的作用是：Timer1主管发球，Timer2Timer5主管对乒乓球的左上移、右下移、右下移和左上移四个方向的控制。下面给出一个乒乓球右下移的操作代码，其余几个操作代码类似。procedure TForm1.Timer2Timer(Sender: TObject);begin /乒乓球右下移ball.left:=ball.left-ballspeed-trunc(patspeed);ball.top:=ball.top+ballspeed+trunc(patspeed);if patspeed0 then patspeed:=patspeed-0.1;if patspeedpanel3.left+panel3.width then begin if ball.top+ball.heightpanel1.height-ball.height then begin Timer2.enabled:=False; Timer5.enabled:=false; Timer4.enabled:=false; Timer3.enabled:=true; end; end;if (ball.leftpanel3.left)and(ball.toppanel3.top) then begin if(movedown=false)and(moveup=false) then begin Timer5.enabled:=true; Timer2.enabled:=false; Timer3.enabled:=False; Timer4.enabled:=false; end; if moveup=true then begin Timer5.enabled:=false; Timer2.enabled:=false; Timer3.enabled:=False; Timer4.enabled:=true; end; if movedown=true then begin Timer5.enabled:=true; Timer2.enabled:=false; Timer3.enabled:=False; Timer4.enabled:=false; end; end;end;5本例还涉及到其他的一些代码，但是由于篇幅的限制，这里不便全部列出来。书中附带的光盘里面包含有全部的源代码。完成所