Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 5 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
3)Thực hiện phép tính cộng (Add)
IPO Chart ButtonAdd Click
Nhập Click the button.
Quá trình Cộng những số được nhập vào. Hiện kết quả trong
labelAnswer
Nhập dữ liệu thử 2 và 7
Chờ đầu ra 9
Đầu ra thực tế 9
Bằng chứng
BEFORE CLICK
AFTER CLICK
Hành động cần Không.
{ Ví dụ Cộng 2 số với nhau
N.Vụ Sử dụng - * div để trừ, nhần và chia lấy dư.
Điều gì sẽ xảy ra khi bạn div bằng 0? }
unit Unit1;
interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
ButtonAdd: TButton;
LabelAnswer: TLabel;
procedure ButtonAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ButtonAddClick(Sender: TObject);
begin
{ intToStr để chuyển số nguyên thành chuỗi text }
{ strToInt để chuyển chuỗi text thành số
nguyên }
labelAnswer.Caption := intToStr(strToInt(edit1.text) +
strToInt(edit2.text));
end;
end.
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 6 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
4) Ví dụ về Running Total
IPO Chart ButtonAdd Click
Nhập Click vào button.
Quá trình thực hiện Thêm số được nhập vào giá trị của runningTotal (giá
trị đầu là 0).
Dữ liệu nhập thử 1.1
Chờ đầu ra 1.1
Đầu ra thực tế 1.10000000000036
Bằng chứng
BEFORE CLICK
AFTER CLICK
Hành động cần làm Làm tròn một số lỗi nhỏ.
Không cần làm gì trong ví dụ này.
{ Ví dụ Thêm các số được nhập vào và hiển thị running total.
Ghi chú làm tròn các lỗi!
N.Vụ 1 Đếm các số khi chúng được nhập vào.
Hiện thị kết quả đếm.
N.Vụ 2 Tiến triển trung bình của những số được nhập vào.
Hiển thị kết quả trung bình. }
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TFormMain = class(TForm)
EditInput: TEdit;
ButtonAdd: TButton;
LabelRunningTotal: TLabel;
LabelAnswer: TLabel;
procedure FormCreate(Sender: TObject);
procedure ButtonAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
runningTotal : Real; { Số thực là số dạng 123.456 }
end;
var
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 7 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
FormMain: TFormMain;
implementation
{$R *.DFM}
{ Thủ tục này hoạt động khi chương trình được khởi động.
Nó khởi tạo biến runningTotal tới 0. }
procedure TFormMain.FormCreate(Sender: TObject);
begin
runningTotal := 0;
end;
{ Thủ tục xử lý khi nhấn nút. }
procedure TFormMain.ButtonAddClick(Sender: TObject);
begin
{ strToFloat conterts một chuổi text tới dấu phẩy động của số thực }
{ floatToStr conterts một dấu phẩy động của số thực tới 1 chuỗi text }
runningTotal := runningTotal + strToFloat(editInput.Text);
labelAnswer.caption := floatToStr(runningTotal);
editInput.setFocus; { Làm editInput sẵn sàng cho số
tiếp theo. }
editInput.selectAll; { Tất cả dữ liệu editInput đã được bôi đen.}
end;
end.
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 8 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
5) Ví dụ về Picture (Hình ảnh)
IPO ButtonPaint Click
Input Click vào ButtonPaint
Input Test Data Không
Process Sử dụng Canvas.Pen.Color, Canvas.MoveTo và Canvas.LineTo để
vẽ tam giác màu đen.
Expected Outpot Hình tam giác màu đen cần được vẽ.
Actual Output Hình tam giác được vẽ.
Evidence
Action Needed Không
IPO ButtonRed Click
Input Click vào ButtonRed
Input Test Data không
Process Sử dụng Canvas.Pen.Color, Canvas.MoveTo và Canvas.LineTo để
vẽ tam giác màu đỏ.
Expected Outpot Red triangle should be drawn.
Actual Output Red triangle is drawn.
Evidence
Action Needed Không
{
EXAMPLE Vẽ đồ họa đơn giản.
TASK Vẽ hình vuông màu vàng và xanh lục. Sử dụng Delphi help
Kiếm đối tượng TCanvas. Xem phương pháp
làm. Và có lẽ bạn sẽ vẽ được hình tròn, textOut,
cung và nhiều nữa.
}
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 9 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
ButtonPaint: TButton;
ButtonRed: TButton;
procedure ButtonPaintClick(Sender: TObject);
procedure ButtonRedClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ButtonPaintClick(Sender: TObject);
begin
paintBox1.Canvas.Pen.Color := clBlack;
paintBox1.Canvas.MoveTo(50, 10);
paintBox1.Canvas.LineTo(100, 100);
paintBox1.Canvas.LineTo(5, 100);
paintBox1.Canvas.LineTo(50, 10);
end;
procedure TForm1.ButtonRedClick(Sender: TObject);
begin
paintBox1.Canvas.Pen.Color := clRed;
paintBox1.Canvas.MoveTo(50, 10);
paintBox1.Canvas.LineTo(100, 100);
paintBox1.Canvas.LineTo(5, 100);
paintBox1.Canvas.LineTo(50, 10);
end;
end.
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 10 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
6)
Ví dụ về cách sử dụng lệnh IF
{ Ví dụ Quyết định sử dụng lệnh IF.
Nút nhấn sẽ làm form thành màu đỏ.
Không quyết định gì nữa.
Nút thứ hai làm form thành màu xanh lục
nếu màu của form lúc đó là màu đỏ.
Nút thứ ba.
Nếu form màu đỏ, làm nó thành màu xanh lục.
Nếu form màu xanh lục, làm nó thành màu vàng.
Nếu form màu vàng, làm nó thành màu đỏ.
Không trả lời tới mọi màu khác.
N.Vụ Thêm nút thứ tư. Làm nó thay đổi các
màu trên bất cứ lúc nào bạn thích.
Bạn nên tìm xem có những màu nào có
sãn bằng các làm theo cách sau đây:
Help | Topic Search
Đánh màu vào TColor
Bấm Enter 2 lần.
Click vào TColor
Click vào Color Property
}
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ Làm form thành màu đỏ. Quyết định N làm cái này. }
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 11 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.color := clRed;
end;
{ Nếu form màu đỏ, làm nó thành xanh lục. Không làm khác nữa. }
procedure TForm1.Button2Click(Sender: TObject);
begin
if Form1.color = clRed then
begin
Form1.color := clGreen
end
end;
{ Nếu form màu đỏ, làm nó thành màu xanh lục.
Nếu form màu xanh lục, làm nó thành màu vàng.
Nếu form màu vang, làm nó thành màu đỏ.
Ko làm nữa nếu form đã đổi đủ màu. }
procedure TForm1.Button3Click(Sender: TObject);
begin
if Form1.color = clRed then
begin
Form1.color := clGreen
end
else if Form1.color = clGreen then
begin
Form1.color := clYellow
end
else if Form1.color = clYellow then
begin
Form1.color := clRed
end
end;
end.
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 12 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
7)
Ví dụ sử dụng Animation (Ảnh động)
{ Ví dụ Chương trình này sử dụng 2 control và
timers. Sử dụng windows paintbrush để vẽ
2 hình. Một hoàn đảo hoang
và 1 tấm lợp.
Thiết bị hẹn giờ sẽ chỉ định thời gian
để tấm lợp di chuyển là 3 giây.
mặt người đàn ông biến đổi
trong từng giây.
N.Vụ Thiết lập hoạt cảnh cho mình.
Nên tìm hiểu cách dùng Timer để
hiển thị ảnh. }
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs,
Messages, Classes, Graphics,
Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Image2: TImage;
Image1: Timage;
Timer2: TTimer;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ image2 được di chuyển theo chỉ định của timer1. }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image2.Left := image2.Left + 2;
if image2.Left > 169 then { Đóng chương trình trình khi ảnh }
begin { tới phía phải màn hình. }
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 13 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
close
end
end;
{ Làm cho man nhấy mắt trong mỗi biến đổi của timer2. }
procedure TForm1.Timer2Timer(Sender: TObject);
begin
{ Thay đổi màu mắt của man. }
if image1.canvas.brush.color = clGray then
begin
image1.canvas.brush.color := clWhite
end
else
begin
image1.canvas.brush.color := clGray
end;
{ Vẽ một elip nhỏ. Đó là con mắt. }
image1.canvas.ellipse(85, 74, 89, 78)
end;
{ Đóng chương trình nếu nút nhấn được bấm. }
procedure TForm1.Button1Click(Sender: TObject);
begin
close
end;
end.
Những ví dụ về lập trình bằng Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to
2/21/04
Le Khac Nhu Website : http://www.lkn.b4.to Page 14 2/21/2004
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
8) Ví dụ sử dụng For Loop (Vòng lặp FOR)
{ EXAMPLE Sự lặp lại, sử dụng 1 For Loop, được
trình diễn ở đây. Vẽ văn bản
lên một canvas cũng được biểu diễn.
Một biến gọi là Counter được sử dụng.
Đó là một biến Integer (số nguyên).
TASK ONE (Beginners)
Làm sự lặp lại đó trong bất cứ
Chương trình nào mà bạn muốn làm.
TASK TWO (Advanced)
Hiển thị 'Hello' thành một hình tròn
Trong form. Sử
dụng hàm SIN và COS.
}
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs,
Messages, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var Counter : Integer;
begin
For Counter := 1 To 10 Do
Begin
Form1.Canvas.TextOut(Counter * 10, Counter * 10, 'Hello');
End
end;
end.
Không có nhận xét nào:
Đăng nhận xét