欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

歡迎來(lái)到入門教程網(wǎng)!

Delphi

當(dāng)前位置:主頁(yè) > 軟件編程 > Delphi >

Delphi實(shí)現(xiàn)碰撞球體完整實(shí)例代碼

來(lái)源:本站原創(chuàng)|時(shí)間:2020-01-10|欄目:Delphi|點(diǎn)擊: 次

本文以實(shí)例描述了用Delphi實(shí)現(xiàn)撞擊球效果的方法,類似彈球效果。點(diǎn)擊“開始”按鈕,窗體中的一個(gè)綠色小球?qū)⒉粩嗟刈笥易矒暨\(yùn)動(dòng),并且其大小不停地變化。點(diǎn)擊“停止”按鈕,小球停止運(yùn)動(dòng)。用鼠標(biāo)拖動(dòng)右下方的調(diào)節(jié)控件,可以調(diào)整小球運(yùn)動(dòng)的速度。

這里我們主要是使用Timer 控件、Panel 控件、TrackBar 控件、SpinEdit 控件、Shape控件和Button 控件來(lái)實(shí)現(xiàn)。重點(diǎn)是Delphi 的Timer 控件。在運(yùn)行程序時(shí),該控件不可見,也不能直接對(duì)它進(jìn)行操作。Timer 控件每隔一定時(shí)間就會(huì)自動(dòng)觸發(fā)OnTimer()事件。本例就是利用它來(lái)觸發(fā)小球運(yùn)動(dòng)事件的。

設(shè)計(jì)思路:該程序要解決的主要問題是如何控制小球運(yùn)動(dòng)以及運(yùn)動(dòng)過程中,小球的速度和大小。利用Timer 控件的OnTimer()事件來(lái)控制小球的運(yùn)動(dòng);利用TrackBar 控件和SpinEdit控件來(lái)調(diào)節(jié)小球運(yùn)動(dòng)的速度。小球是由Shape 控件生成的。

一.新建工程:

(1)啟動(dòng)Delphi 6.0 程序。選擇“文件”菜單下的“新建”命令,從彈出的子菜單中選擇Application 選項(xiàng),則出現(xiàn)新建工程的Form1 窗口。
(2)選擇“文件”菜單下的“工程另存為”命令,彈出Save Unit1 As 對(duì)話框。在“保存在”列表框中選擇需要存放該窗口文件所在的目錄名;在“文件名”編輯框中填寫文件名,這里填寫“Unit1”,點(diǎn)擊“保存”按鈕,保存上面的選項(xiàng)。
(3)執(zhí)行上一步后,將彈出“工程另存為”對(duì)話框。在“保存在”列表框中選擇需要存放該工程的目錄名,最好和第(2)步選取相同的目錄;在“文件名”編輯框中填寫保存處理該工程的源代碼的文件名,這里填寫“Project1”,點(diǎn)擊“保存”按鈕,保存上面的選項(xiàng)。

二.部分參數(shù)設(shè)置:

(1)激活Unit1 窗口,在“屬性”面板中設(shè)置該窗體的Caption 屬性為“運(yùn)動(dòng)的球體”,Color 屬性設(shè)置為“clMoneyGreen”。
(2)選擇“標(biāo)準(zhǔn)”頁(yè)上的Panel 選項(xiàng),在窗體中添加Panel 控件,調(diào)整其合適的大小和位置,在“屬性”面板中設(shè)置該控件的Name 屬性為“Panel1”,BevelInner 為“bvLowered”,BevelOuter 為“blNone”,BorderStyle 設(shè)置為“bsSingle”,Color 屬性設(shè)置為“clSkyBlue”。
(3)選擇“系統(tǒng)”頁(yè)上的Timer 選項(xiàng),在窗體中添加一個(gè)Timer 控件,在Object Inspecter面板中設(shè)置其Interval 屬性為1,Name 屬性為“Timer1”。
(4)選擇“附加”頁(yè)上的Shape 選項(xiàng),在窗體中Panel1 上添加一個(gè)Shape 控件,在“屬性”面板中設(shè)置其Show Hint 屬性為“True”,Hint 屬性為“運(yùn)動(dòng)球體”,設(shè)置其Brush.Color 屬性為ClLime,設(shè)置其Shape 屬性為“slCircle”。
(5)選擇“標(biāo)準(zhǔn)”頁(yè)上的Button 選項(xiàng),在窗體中添加三個(gè)Button 控件,調(diào)整其合適的大小和位置。在“屬性”面板中設(shè)置其Caption 屬性分別為“開始”、“停止”和“退出”。
(6)選擇Win 32 頁(yè)上的TrackBar 選項(xiàng),在窗體中添加TrackBar 控件,調(diào)整其合適的大小和位置。在“屬性”面板上設(shè)置其合適的屬性。
(7)選擇Samples 上的SpinEdit 選項(xiàng),在窗體中添加SpinEdit 控件,調(diào)整其合適的大小和位置。在“屬性”面板上設(shè)置其合適的屬性。

三.代碼分析:

(1)為了實(shí)現(xiàn)小球來(lái)回移動(dòng)的功能,需要設(shè)置一個(gè)全局變量,即整數(shù)I,I 的初始值為1。當(dāng)I=1 時(shí),小球向左移動(dòng),撞到面板的左壁時(shí),I 值變?yōu)?,此時(shí)小球向右運(yùn)動(dòng),撞到面板右壁時(shí),I 值又變?yōu)?。這樣通過I 值的變化,就實(shí)現(xiàn)了小球的來(lái)回運(yùn)動(dòng)。這部分代碼在OnTimer 事件中:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.interval:=trackbar1.position; //設(shè)置Timer 控件的觸發(fā)時(shí)間間隔
if i=1 then //小球向左運(yùn)動(dòng)
begin
if shape1.left>0 then
begin
shape1.left:=shape1.left-10; //使小球的位置發(fā)生變化
shape1.Width:=(shape1.Width+1)mod 70; //使小球所在矩形寬度發(fā)生變化
shape1.Height:=(shape1.Height+1)mod 70; //使小球所在矩形高度發(fā)生變化
end
else
i:=2; //小球向右運(yùn)動(dòng)
end;
if i=2 then
begin
if shape1.left<(panel1.Width-shape1.Width-5) then
begin
shape1.left:=shape1.left+10 ; //使小球的位置發(fā)生變化
shape1.Width:=(shape1.Width+1)mod 70;//使小球所在矩形寬度發(fā)生變化
shape1.Height:=(shape1.Height+1)mod 70;//使小球所在矩形高度發(fā)生變化
end
else
i:=1;
end;
end;

(2)“開始”和“停止”按鈕控制小球是否運(yùn)動(dòng),其實(shí)就是控制Timer 是否工作:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.interval:=trackbar1.position; //設(shè)置Timer 控件的觸發(fā)時(shí)間間隔
Timer1.Enabled:=true; //小球開始運(yùn)動(dòng)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False; //小球停止運(yùn)動(dòng)
end;

(3)TrackBar 和SpinEdit 兩個(gè)控件控制小球運(yùn)動(dòng)的速度,相應(yīng)代碼如下:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
trackbar1.position:=spinEdit1.Value; //改變運(yùn)動(dòng)速度
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
spinEdit1.value:=trackbar1.Position; //將Trackbar 值的變化通知SpinEdit 控件
end;

四.Delphi彈球的完整代碼如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Spin;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
TrackBar1: TTrackBar;
Timer1: TTimer;
Shape1: TShape;
SpinEdit1: TSpinEdit;
Button3: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.interval:=trackbar1.position; //設(shè)置Timer 控件的觸發(fā)時(shí)間間隔
if i=1 then //小球向左運(yùn)動(dòng)
begin
if shape1.left>0 then
begin
shape1.left:=shape1.left-10; //使小球的位置發(fā)生變化
shape1.Width:=(shape1.Width+1)mod 70;//使小球所在矩形寬度發(fā)生變化
shape1.Height:=(shape1.Height+1)mod 70;//使小球所在矩形高度發(fā)生變化
end
else
i:=2; //小球向右運(yùn)動(dòng)
end;
if i=2 then
begin
if shape1.left<(panel1.Width-shape1.Width-5) then
begin
shape1.left:=shape1.left+10 ; //使小球的位置發(fā)生變化
shape1.Width:=(shape1.Width+1)mod 70; //使小球所在矩形寬度發(fā)生變化
shape1.Height:=(shape1.Height+1)mod 70;//使小球所在矩形高度發(fā)生變化
end
else
i:=1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.interval:=trackbar1.position; //設(shè)置Timer 控件的觸發(fā)時(shí)間間隔
Timer1.Enabled:=true; //小球開始運(yùn)動(dòng)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False; //小球停止運(yùn)動(dòng)
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
trackbar1.position:=spinEdit1.Value; //改變運(yùn)動(dòng)速度
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
spinEdit1.value:=trackbar1.Position; //將Trackbar 值的變化通知SpinEdit 控件
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close; //退出
end;
initialization
i:=1;
end.

上一篇:Delphi實(shí)現(xiàn)限定軟件使用時(shí)間的方法

欄    目:Delphi

下一篇:Delphi使用OpenGL2d繪圖之畫圖片Bmp的方法

本文標(biāo)題:Delphi實(shí)現(xiàn)碰撞球體完整實(shí)例代碼

本文地址:http://mengdiqiu.com.cn/a1/Delphi/8639.html

網(wǎng)頁(yè)制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語(yǔ)言數(shù)據(jù)庫(kù)服務(wù)器

如果侵犯了您的權(quán)利,請(qǐng)與我們聯(lián)系,我們將在24小時(shí)內(nèi)進(jìn)行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有