Geum.ru

Часы-будильник-таймер-секундомер

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

utethen{}.MediaPlayer1.FileName:=form3.OpenDialog1.FileName;;.MediaPlayer1.Enabled:=false;.Edit1.Text:=0;.Edit2.Text:=0;.Edit3.Text:=1;;">TForm3.Timer1Timer(Sender: TObject);:=time;(timeTiam,h,m,s,ms);:=h*60*60+m*60+s;:=TotalTaim-Sreal;:=taimer mod (60*60);:=taimer div (60*60);:=m1 mod (60);:=m1 div (60);taimer=0 then form3.Edit3.Text:=inttostr(s1);((h1=0) and (s1=0) and (m1=0)) then.MediaPlayer1.Enabled:=true;.MediaPlayer1.open;.MediaPlayer1.Play;;;TForm3.FormCreate(Sender: TObject);OpenDialog1.Execute then {если диалог состоялся}.MediaPlayer1.FileName := form3.OpenDialog1.FileName;;.MediaPlayer1.Enabled:=false;.Edit1.Text:=0;.Edit2.Text:=0;.Edit3.Text:=1;;

.

Unit4;

 

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, MPlayer, ExtCtrls, XPMan, ComCtrls;

= class(TForm): TXPManifest;: TTimer;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Timer1Timer(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm4;, bm, bs:word;, m1, s1, ms1: word;,sectime1:TDateTime;, min, sec, msec: word;

//bm,bh,bs:word;: TDateTime;: TTime;,TaimMin,TaimSec:word;, TotalTaim:longint;: boolean;

Unit3;

{$R *.dfm}TForm4.Button1Click(Sender: TObject);:=true;:=strtoint(form4.Edit1.Text);:=strtoint(form4.Edit2.Text);:=strtoint(form4.Edit3.Text);;

TForm4.Button2Click(Sender: TObject);:=false;.Edit1.Text:=0;.Edit2.Text:=0;.Edit3.Text:=0;.MediaPlayer1.stop;;

TForm4.Button3Click(Sender: TObject);.close;;

TForm4.Timer1Timer(Sender: TObject);:= Time;(Now,hour,min,sec,msec);(signal=true)and ((hour=bh)and(min=bm)and(sec=bs)) then.MediaPlayer1.Enabled:=true;.MediaPlayer1.Open;.MediaPlayer1.Play;

;;

.

Unit5;

 

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;

= class(TForm): TButton;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm5;

 

Unit1;

 

{$R *.dfm}

 

TForm5.Button1Click(Sender: TObject);.Align:=alleft;.Image1.Picture.LoadFromFile(1.bmp);.Label1.Font.Color:=clblue;;

TForm5.Button2Click(Sender: TObject);.Align:=alright;.Image1.Picture.LoadFromFile(2.bmp);.Label1.Font.Color:=clred;;

TForm5.Button3Click(Sender: TObject);.Align:=albottom;.Image1.Picture.LoadFromFile(3.bmp);.Label1.Font.Color:=clgreen;

end;.

Вывод

 

В ходе выполнения курсовой работы была разработана программа Часы - будильник - таймер - секундомер, которая предназначена для вывода времени в цифровой форме. Реализация программы удовлетворяет условию технического задания и имеет дружественный пользователю интерфейс.

программирование delphi часовой

Список использованных источников

 

1. Кучеренко, В. П. Тонкости программирования на Delphi [Текст]: Учебное пособие / В. П. Кучеренко. - М.: Познавательная книга плюс, 2000. - 192 с.: ил. - 4100 экз. - ISBN 5-8321-0066-2 (в пер.).

. Архангельский, А. Я. Приемы программирования в Delphi [Текст]: Учебное пособие / А.Я. Архангельский. - М.: ООО Бином-Пресс, 2004. - 848 с.: ил.

. Вирт Н. Алгоритмы + структуры = программы. [Текст]: М.: Мир, 1985.

. Касьянов В.Н. Графы в программировании: обработка, визуализация и применение. / В.А. Евстигнеев - СПб.: БХВ-Петербург, 2003. - 1104 с.