倒數計時應用定製化開發

凝望遠處的天鵝發表於2020-12-28

先說個傷心的事情，深圳某9年碼農2周前失業了。在家待業，面試也懶得參加，坐吃山空。

 

 

 

有鑑於此，突然想起讀書那會參加了一些競賽活動，每個參賽選手需要在給定的時間內做一篇全英文演講。

倒數計時30秒的時候開始有聲音提醒，時間到了之後，會彈出一個演講結束圖片。

總結一下需求：

1，倒數計時開始按鈕，和退出應用按鈕，以及對應滑鼠特效

2，倒數計時用兩種方式顯示：#MM:SS， #倒數計時秒數

3，倒數計時結束後，彈出結束圖片和對應提示聲音

4，倒數計時引數，圖片可以在配置檔案自定義

5，全屏顯示，窗體可拖動

 

大家懂的，依然是面向百度程式設計，Pascal和Delphi還是在9年前讀書那會玩過，現在已經沒啥印象了。

最開始用Lazarus擼了一個版本，發現不規則圖片顯示效果不太行，遂用Delphi重新擼了一個版本。

圖片和按鈕都是自己用photoshop繪製，畫的不太好，大夥將就看看，也可以在配置檔案修改對應圖片。

專案程式碼結構

setting為配置檔案

配置檔案

 

 

 

 

 

動畫效果如下

老規矩，祭出介面程式碼，Delphi不太熟，程式碼寫的比較亂，勿噴。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
  jpeg,pngimage, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    imgstop: TImage;
    imgstart: TImage;
    imgclose: TImage;
    lbl: TLabel;
    lbl2: TLabel;
    timercountdown: TTimer;
    timertimeout: TTimer;
    lbltime: TLabel;
    timertime: TTimer;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure imgcloseClick(Sender: TObject);
    procedure imgstartClick(Sender: TObject);
    procedure timercountdownTimer(Sender: TObject);
    procedure timertimeoutTimer(Sender: TObject);
    procedure imgcloseMouseEnter(Sender: TObject);
    procedure imgcloseMouseLeave(Sender: TObject);
    procedure imgstartMouseLeave(Sender: TObject);
    procedure imgstartMouseEnter(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure timertimeTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitImages;
    procedure MakeFullScreen;
    function ConvertIntToTimeParts(const value: Integer):string;
    procedure ResizeControls;
  end;

var
  Form1: TForm1;
  picstop, picstart, picstartover, picclose,piccloseover: TPngImage;
  countdown, timeout: integer;
  config: tstrings;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //
  config:=tstringlist.Create;
  config.LoadFromFile('setting');
  //
  countdown := StrToInt(config.Values['countdown']) ;
  timeout:= StrToInt(config.Values['due_timeout'])  ;
  //
  MakeFullScreen;
  ResizeControls;
  initimages;
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
  self.MakeFullScreen;
  self.ResizeControls;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  releasecapture;
  postmessage(handle, WM_SYSCOMMAND, SC_MOVE+1,0);
end;

procedure TForm1.imgcloseClick(Sender: TObject);
begin
  self.Close;
end;

procedure TForm1.imgcloseMouseEnter(Sender: TObject);
begin
  imgclose.Picture.Assign(piccloseover);
end;

procedure TForm1.imgcloseMouseLeave(Sender: TObject);
begin
  imgclose.Picture.Assign(picclose);
end;

procedure TForm1.imgstartClick(Sender: TObject);
begin
  countdown := StrToInt(config.Values['countdown']) ;
  timeout:= StrToInt(config.Values['due_timeout'])  ;
  //
  self.timercountdown.Enabled:= not self.timercountdown.Enabled;
  self.timertimeout.Enabled:=false;
  lbl.Caption:=inttostr(countdown);
  lbl2.Caption:= ConvertIntToTimeParts(countdown);
  lbl.Font.Color:=clBlack;
end;

procedure TForm1.imgstartMouseEnter(Sender: TObject);
begin
  imgstart.Picture.Assign(picstartover);
end;

procedure TForm1.imgstartMouseLeave(Sender: TObject);
begin
  imgstart.Picture.Assign(picstart);
end;

procedure TForm1.InitImages;
var
  bmp: TBitmap;
  jpg: TJpegImage;
  datadir:string;
begin
  datadir:=config.Values['data_dir'];
  // init stop
  picstop:=TPngImage.Create;
  picstop.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_stop']]));
  imgstop.Stretch:=true;
  imgstop.Visible:=false;
  imgstop.Transparent:=true;
  imgstop.Picture.Assign(picstop);
  imgstop.Left:=(self.Width-imgstop.width) div 2;
  imgstop.Top:=(self.Height-imgstop.height) div 2;
  imgstop.BringToFront;
  // init start
  picstart:=TPngImage.Create;
  picstart.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_start']]));
  picstartover:=TPngImage.Create;
  picstartover.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_start_over']]));
  imgstart.Stretch:=true;
  imgstart.Picture.Assign(picstart);
  imgstart.Left:=self.Width-imgstart.Width-10;
  imgstart.Top:=imgclose.Top+imgclose.Height+60;
  // init close
  picclose:=TPngImage.Create;
  picclose.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_close']]));
  piccloseover:=TPngImage.Create;
  piccloseover.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_close_over']]));
  imgclose.Stretch:=true;
  imgclose.Picture.Assign(picclose);
  imgclose.Left:=imgstart.Left;
  imgclose.top:=50;
  // init bg
  jpg:=TJpegImage.Create;
  jpg.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_main']]));
  bmp:=TBitmap.Create;
  bmp.Assign(jpg);
  self.Brush.Bitmap := bmp;
  jpg.Free;
  // init labels
  lbl.Caption:=inttostr(countdown);
  lbl2.Caption:= ConvertIntToTimeParts(countdown);


end;

function TForm1.ConvertIntToTimeParts(const value: Integer):string;
var
  min, sec: string;
begin
  min := inttostr(value div 60);
  sec := inttostr(value mod 60);
  Result := stringofchar('0',2-length(min)) + min + ':'
         + stringofchar('0',2-length(sec)) + sec;
end;

procedure TForm1.MakeFullScreen;
begin
  //覆蓋工作列
  Self.BorderStyle := bsNone;
  Self.Left := 0;
  Self.Top := 0;
  Self.Width := Screen.Width;
  Self.Height := Screen.Height;
end;

procedure TForm1.ResizeControls;
begin
  lbl.Caption:=inttostr(countdown);
  lbl2.Caption:= ConvertIntToTimeParts(countdown);
  //
  lbl.Left:=(Self.Width-lbl.Width) div 2;
  lbl.Top:=(Self.Height-lbl.Height) div 2;
  {}
  lbl2.Left:=(Self.Width-lbl2.Width) div 2;
  lbl2.Top:=(Self.Height-2*lbl.Height-lbl2.Height) div 2;
  //
  lbltime.Caption:=FormatDateTime('yyyy-mm-dd HH:MM:SS', now);
  lbltime.Left:=self.Width-lbltime.Width-10;
  lbltime.Top:=1;
end;

procedure TForm1.timercountdownTimer(Sender: TObject);
begin
  countdown := countdown-1;
  lbl.Caption:= inttostr(countdown);
  lbl2.Caption:= ConvertIntToTimeParts(countdown);
  //
  if countdown<=0 then
    begin
      self.timercountdown.Enabled:=False;
      self.timertimeout.Enabled:=true;
      imgStop.visible:=true;
    end
  else if (countdown=30) or (countdown<=10) then
    begin
      lbl.Font.Color:=clRed;
      MessageBeep(MB_OK);
    end
end;

procedure TForm1.timertimeoutTimer(Sender: TObject);
begin
  timeout := timeout-1;
  if timeout<=0 then
    begin
      self.timertimeout.Enabled:=false;
      imgstop.visible:=false;
    end;
end;

procedure TForm1.timertimeTimer(Sender: TObject);
begin
  self.lbltime.Caption:=FormatDateTime('yyyy-mm-dd HH:MM:SS', now);
end;

end.

 

相關文章