unit m1211;
//
interface
//
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,mmsystem,Vcl.ExtCtrls;
//
type
TForm1=class(TForm)
Button1:TButton;
Label1:TLabel;
Timer1:TTimer;
procedure Button1Click(Sender:TObject);
procedure Timer1Timer(Sender:TObject);
end;
//
var
Form1:TForm1;
//
implementation
{$R .dfm}
//
procedure TForm1.Button1Click(Sender:TObject);
//
const
d1=262;
r2=294;
m3=330;
f4=349;
s5=392;
l6=440;
c7=494;
t=800;
//
begin
//
Windows.Beep(l6,t);
Windows.Beep(m3,t);
Windows.Beep(m3,t);
Windows.Beep(m3,t);
Windows.Beep(m3,t2);
//
Windows.Beep(d1,t);
Windows.Beep(r2,t);
Windows.Beep(d1,t);
Windows.Beep(c7,t);
Windows.Beep(l6,t2);
//
Windows.Beep(l6,t);
Windows.Beep(l6,t);
Windows.Beep(l6,t);
Windows.Beep(l6,t);
Windows.Beep(l6,t2);
//
Windows.Beep(m3,t);
Windows.Beep(s5,t);
Windows.Beep(s5,t);
Windows.Beep(f4,t);
Windows.Beep(m3,t2);
//
Windows.Beep(m3,t);
Windows.Beep(l6,t);
Windows.Beep(l6,t);
Windows.Beep(s5,t);
Windows.Beep(m3,t2);
//
Windows.Beep(d1,t);
Windows.Beep(r2,t);
Windows.Beep(d1,t);
Windows.Beep(c7,t);
Windows.Beep(l6,t);
//
Windows.Beep(m3,t);
Windows.Beep(d1,t);
Windows.Beep(d1,t);
Windows.Beep(c7,t);
Windows.Beep(l6,t2);
//
Windows.Beep(r2,t);
Windows.Beep(d1,t);
Windows.Beep(c7,t);
Windows.Beep(s5,t);
Windows.Beep(l6,t2);
//
end;
//
procedure TForm1.Timer1Timer(Sender:TObject);
//
begin
//
label1.Caption:=timetostr(now);
//
if copy(label1.Caption,1,8)='16:35:00’then
//
button1.Click;
//
end;
//
end.
08-11
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交