عداد بالدالفي

يوسف الضادي

  • Hero Member
  • *****
    • مشاركة: 5333
    • مشاهدة الملف الشخصي
    • http://www.sou9dz.com
    • البريد الالكتروني
في: آب 04, 2009, 08:46:41 صباحاً
باسم الله الرحمن الرحيم



   
الأدوات المستعملة
 
نحتاج 3 edit و 2 button و 1 timer
ترتب كما في الصورة التالية



سورس البرنامج


واضح لا يحتاج لشرح
   

unit Unit1
;
 interface
 
uses
  Windows
MessagesSysUtilsVariantsClassesGraphicsControlsForms,
  
DialogsStdCtrlsExtCtrls;
 
type
  TForm1 
= class(TForm)
    
Timer1TTimer;
    
Edit1TEdit;
    
Edit2TEdit;
    
Edit3TEdit;
    
Button1TButton;
    
Button2TButton;
    
procedure Timer1Timer(SenderTObject);
    
procedure Button1Click(SenderTObject);
    
procedure Button2Click(SenderTObject);
  private
    { Private 
declarations }
      
s:string;
  public
    { Public 
declarations }
     
t:integer;
     
test:boolean;
  
end;
 var
  
Form1TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(SenderTObject);
begin
if test true then
 begin
  t
:=t+1;
  
str(t mod 100,s);
  
edit1.Text:=s;
  
str((t div 100)mod 60,s);
  
edit2.Text:=s;
  
str(t div 6000,s);
  
edit3.Text:=s;
 
end;
end;
 
procedure TForm1.Button1Click(SenderTObject);
begin
if button1.Caption 'ÅÈÏÃ' then
 begin
 test
:=true;
 
button1.Caption := 'ÊæÞÝ' ;
 
end
 
else
  
begin
  test 
:= false;
  
button1.Caption := 'ÅÈÏÃ' ;
  
end
end
;
 
procedure TForm1.Button2Click(SenderTObject);
begin
t
:=0;
test:=true;
button1.Caption := 'ÊæÞÝ' ;
end;
 
end.


mrkarimos08

  • Hero Member
  • *****
    • مشاركة: 1826
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: آب 23, 2009, 03:43:22 مسائاً
بارك الله فيك على المجهود