一个画钟程序,终于做完了,作个记号

procedure TForm1.Timer1Timer(Sender: TObject);

var
i:integer;
MyNow : TDateTime;

Hour, Min, Sec, mSec : Word;

vh, vm, vs : Real;

begin

edit1.Text:=timetostr(NOW);
Self.Refresh;

MyNow := Now;

DecodeTime(MyNow,Hour,Min,Sec,mSec);

//每小时弧度值=0.52333 0.52333/60 就是每分钟弧度值
vh := (HOUR/12.0*2*Pi)+Min*0.008722; //整点小时弧度值+每分钟弧度值
//上面是计算时针的数据

vm := Min/60.0*2*Pi; //计算分针弧度值

vs := Sec/60.0*2*Pi; //计算秒针弧度值

with Canvas do

begin

Pen.Width:=5;                  //画时针
    Pen.Color := clbackground;
    MoveTo(235,115);
    LineTo(235+Round(40*Sin(vh)),115-Round(40*Cos(vh)));

Pen.Width:=3;                  //画分针
    Pen.Color := clGreen;
    MoveTo(235,115);
    LineTo(235+Round(50*Sin(vm)),115-Round(50*Cos(vm)));

Pen.Width:=1;                     //画秒针
    Pen.Color := clRed;
    MoveTo(235,115);
    lineto(235+round(65*sin(vs)),115-round(65*cos(vs)));

end;
// 画一个圆
    with   Canvas   do
    begin
        brush.Style:=bsClear;
        pen.color:=clbackground;
        pen.Width:=3;
        Ellipse(160,40,310,190);
        end;
//    画一个圆

PlaySound(Pchar(ExtractFilePath(Application.exename)+'\sound.wav'),0,SND_SYNC); //播放当前目录下的钟走音频
end;

一个画钟程序,终于做完了,作个记号相关推荐

笑傲江湖之精忠报国，终于做完了
笑傲江湖之精忠报国,终于做完了前言做这个的都是看老九学堂的吧,零零散散做了一个月
时隔两周，我给阎王设计的地府CRM终于做完了
七月十五中元节阎王托梦要我帮忙设计一套地府CRM管理系统做不出来当时就得留在下面我一听这必须得做出来呀于是两周后系统设计完成了-- 本文为PMCAFF用户 Axure大师于社区发布首先 ...
利用python写时钟程序_如何用python编写一个番茄钟程序
今天,我们尝试用python来编写一个简单的PC端番茄钟,需要实现的功能如下:启动时"滴"一声并询问:"休息时间结束!是否开始一个新的番茄钟?" 如果用户点击& ...
php编写一个简单计算器程序,PHP做一个简单的计算器
本文为大家讲解通过分支循环知识及PHP的表单处理一个简单的计算器首先看下效果通过网页显示计算器样式在网页样式中可以看出,有两个输入框Num1.Num2和一个下拉框Type 还有一个提交按钮在输 ...
java性能瓶颈分析_Java性能优化技巧整理，做一个深度的程序员
原标题:Java性能优化技巧整理,做一个深度的程序员在我们身边是一大批的程序员,层次不一,但是放眼观,我们很容易就可以看到那些是业务型程序员,那些是有层次的程序员.注重细节,注重性能,做一个有深度的 ...
【微信小程序控制硬件⑦ 进阶篇】动起来做一个微信小程序Mqtt协议控制智能硬件的框架，为心里全栈工程师梦想浇水。
文章目录一.前言: 二.涉及的技术点: 三.框架的运行原理: 四.框架代码流程: 4.1 主线程: 4.2 获取设备列表显示设备,以及订阅在线的设备: 4.3 点击某设备如何实现携带此设备信息到控制 ...
圣诞节快到了，用Python给好友做一个圣诞树小程序吧【保姆式教程】
圣诞节快到了,用Python给好友做一个圣诞树小程序吧[保姆式教程] 马上圣诞节了,一个人的圣诞节可能会有些孤独,我来教你怎么用代码写一棵超级治愈的圣诞树. 话不多说,下面来看具体怎么实现吧! 文章目 ...
用python编写一个点餐程序_急急急！求大神帮忙做个Python在线点餐小软件
匿名用户 1级 2014-10-26 回答 User={} List=open("USER.txt","r") for _list in List: _List ...
一个Java画图板程序的设计
本文讲述一个画图板应用程序的设计,屏幕抓图如下.这篇文章带有三个附件,其中两个jar文件都是j2sdk1.4.2_08编译打包,包含源代码,可执行,如下表: 附件名称及链接详情 jDraw_basi ...

一个画钟程序,终于做完了,作个记号

一个画钟程序,终于做完了,作个记号相关推荐

最新文章

热门文章