unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Image1->Picture->LoadFromFile((GetCurrentDir()+"//image//0.jpg"));
        Image2->Picture->LoadFromFile((GetCurrentDir()+"//image//0.jpg"));
        Image3->Picture->LoadFromFile((GetCurrentDir()+"//image//dot.jpg"));
        Image4->Picture->LoadFromFile((GetCurrentDir()+"//image//0.jpg"));
        Image5->Picture->LoadFromFile((GetCurrentDir()+"//image//0.jpg"));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(Button1->Caption=="开始")
        {
                Button1->Caption="暂停";
                Timer1->Enabled=true;
                Timer2->Enabled=true;
        }
        else
        {
                Button1->Caption="开始";
                Timer1->Enabled=false;
                Timer2->Enabled=false;
                Image3->Visible=true;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Timer1->Enabled=false;
        Timer2->Enabled=false;
        Image3->Visible=true;
        ten_minute=0;
        one_minute=0;
        ten_second=0;
        one_second=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        one_second++;
        if(one_second==10)
        {
                ten_second++;
                one_second=0;
        }
        if(ten_second==6)
        {
                one_minute++;
                ten_second=0;
        }
        if(one_minute==10)
        {
                ten_minute++;
                one_minute=0;
        }
        if(ten_minute==6)
        {
                ten_minute=0;
                one_minute=0;
                ten_second=0;
                one_second=0;
        }
        Image1->Picture->LoadFromFile(GetCurrentDir()+"//image//"+ten_minute+".jpg");
        Image2->Picture->LoadFromFile(GetCurrentDir()+"//image//"+one_minute+".jpg");
        Image4->Picture->LoadFromFile(GetCurrentDir()+"//image//"+ten_second+".jpg");
        Image5->Picture->LoadFromFile(GetCurrentDir()+"//image//"+one_second+".jpg");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
        if(Image3->Visible)
                Image3->Visible=false;
        else
                Image3->Visible=true;
}
//---------------------------------------------------------------------------