说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB设计动画时钟

HTML文档下载 WORD文档下载 PDF文档下载
VB设计动画时钟
程序名:Sec-Time.vbp
程序类别:完整的VB程序
功能:显示一个动画时钟,该时针随着每一秒而动态变化。

程序说明
1.如何画时钟表盘上的所有直线元素?
用Load命令建立原始Line控制的14个拷贝(因为表盘有12个点和时、分、秒共15个Line),该控制数组每一个实例的端点坐标属性设置为每条线在时钟表盘上的适当位置,这些拷贝中大多数只放置一次,而3个Line控制每秒钟更新一次,产生时钟指针移动的感觉。
注意:在应用程序代码中并没有直接擦除任何一条线。当我们改变每一个Line控制的端点时,每一根针
在移动时擦除和重画的所有技术工作都由VB来处理。
2.如何修改时针的形状?
通过调整代码中的属性设置,可以改变时钟的形状。例如:通过改变每一个Line控制的Borderwidth属性设置,可以建立更细或更粗的线。
3. 计时器的Interval(间距)属性设置
计时器的Interval属性设置为100,即为1/10秒。
程序的编写与执行
(1)新建工程
先新建一个工程(工程类型为标准EXE),然后用“工具箱”中的工具加入一个Timer1(计时器)和line1(直线),其index(指针)分别设置为空和0。然后双击Form1窗体,输入源代码。
(2)程序源代码
Option Explicit
DefDbl A-Z
Private Sub Form_Load()
timer1.Interval=100
Width=4000
Height=4000
Left=Screen.Width\2-2000
Top=(Screen.Height-Height)\2
End Sub
Private Sub Form_Resize()
Dim I, Angle
Static flag As Boolean
If flag=False Then
flag=True
For I=O to 14
'画出表盘12个点和时、分、秒共15个LINE
If I>0 Then Load Line1(I)
Line1(I).Visible=True
Line1(I).BorderWidth = 5
Line1(I).BorderColor = RGB(0, 128,0) '设置LINE的精细和颜色
Next I
End If
For I = 0 To 14
Scale (-1, 1)-(1, -1)
Angle = I * 2 * Atn(1) / 3
Line1(I).X1 = 0.9 * Cos(Angle)
Line1(I).Y1 = 0.9 * Sin(Angle)
Line1(I).X2 = Cos(Angle)
Line1(I).Y2 = Sin(Angle)
Next I
End Sub
Private Sub timer1_Timer()
Const HH = 0
Const MH = 13
Const SH = 14
Dim Angle
Static LS
If Second(Now) = LS Then Exit Sub
LS = Second(Now)
Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) /60)) '设置时针
Line1(HH).X1 = 0
Line1(HH).Y1 = 0
Line1(HH).X2 = 0.3 * Cos(Angle)
Line1(HH).Y2 = 0.3 * Sin(Angle)
Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) '设置分针
Line1(MH).X1 = 0
Line1(MH).Y1 = 0
Line1(MH).X2 = 0.7 * Cos(Angle)
Line1(MH).Y2 = 0.7 * Sin(Angle)
Angle = 0.5236 * (75 Second(Now)) '设置秒针
Line1(SH).X1 = 0
Line1(SH).Y1 = 0
Line1(SH).X2 = 0.8 * Cos(Angle)
Line1(SH).Y2 = 0.8 * Sin(Angle)
form1.Caption = Str(Now()) '窗口显示精确的日期和数字化的时间
End Sub
(3)程序的编译和执行
点击VB“运行”菜单中的“启动”或“全面编译”命令,即可对程序编译并运行!
注:上述程序在中文Windows98和VB5.0中文企业版下调试通过。
用于响应式设计的9个CSS技巧 微软Surface Pro正式登陆中国市场 售价6588元起 岳雷:Windows Server 2012虚拟化性能提升巨大 陈健:Windows Server 2012让企业轻松管理IT 智能手机:革命已经波及到阴间 兄贵草泥马:重口味单机移动游戏为什么能火? 最炫HTML5框架Famo.us 将免费面向开发者 MySQL到NoSQL:数据的重思和查询方式的转换 程序员心髓:移动应用API设计10大技巧 Netflix公布个性化和推荐系统架构,3种类型作业通实时 从SendCloud到搜狐云 扎克伯格的败笔?Facebook Home可能无家可归 走进eico design,仰视设计师 乔布斯顾问承认苹果的命名糟透了 罗永浩:一百万年薪!招聘软件研发总监 开源的:helios移动应用后端服务框架 IE11将支持WebGL 或将OpenGL映射到DirectX 基于云端的3D渲染和协作平台Lagoa:仅需一个浏览器 大数据提速,IBM 推面向Hadoop的PureData大数据机 游戏开发者的盛宴:2013 CocoaChina春季开发者大会强势启动 开放还是关闭API?CIO做决策前应考虑的六个建议 Python 2.7.4发布,更快的IO模块 如何拒绝沦为服务的商品,并收回对数据的绝对掌控 最阴险的代码?尽在“邪恶”的Underhanded C Facebook Home出阴招:Social皮,Android心 国内最火的五款HTML5前端开发框架 TIOBE 2013年4月编程语言排行榜:Objective-C四年来排名首次下滑 MeeGo复活!Sailfish OS智能手机 SDK发布 10亿美金!传闻谷歌要收购WhatsApp 从打造国内最大的OpenStack公有云开始 展望HBase的未来 borland c++ 与 delphi 之区别(一) 启动同一个应用程序时如何激活已经运行的 如何同时触发两个事件?加急!在线等 请问如何实现全文检索? 手机短信问题 简单installshield问题,大侠给看看,急,在线等!! 新手问题 写cpu模拟器请教。 怎么处理已拼好的SQL中的非法单引号? 想学ASP要在电脑要安装哪些软件? 请问如何实现全文检索? 关于托盘编程!急!为什么我的程序隐常不了!!! 如何约束?再线。。。 急了几天了,大家进来看看! gcc 自写连接池连接的释放问题?(请高手指点!) 怎么在lotusScript中取到所有用户的名字? 我用jb创建一个web application的project,请问如何添加WEB-INF中的class 【醒目】多页报表问题!达人入!!!【醒目】 用php如何获得登陆者的ip地址?50分 纯java驱动连数据库,单是jsp能调用,但做成javabean就不能了!麻烦各位大哥帮忙 公司严重拖欠薪金,请问到劳动局追讨工资是否可行[up有分] 一个人,35岁与30岁有什么差别? myjdbc.jar 虽然别人谈过很多了,还是想再请教怎样学习vc 2003成都美女节 求助!有关文件(2) 关于刷新问题(定位)的,急用!! 试贴 下载问题,我发现一个奇怪的问题。中文名的文件的下载。。。 ADOQUERY无法更新数据集 帮我看看,怎么编译不通过 各位板主:折腾了我三天的问题还未解决。 delphi qreport byte& 是什么类型? IBM DDYS-TO9170M SCSI 硬盘,如何看它的CACHE,写者10000转的,不知道是不是? IBM DDYS-TO9170M SCSI 硬盘,如何看它的CACHE,写者10000转的,不知道是不是? 急!我在传输参数到SQL的过程中,服务器提示“AAA”需要参数但没有参数,请各位高手给个意见!在线等! 弹出窗口的问题--在线 串口工作有误了,MSComm32控件的问题?? 想知道有必要先学C 再C++ 再Visual C 吗? gqxs (小龙)请进,看到你去年的一个关于注册的帖子,我也出了像你一样的问题,请大家都来看看。 DBDateTime控件在哪里可以找到? 那为能够帮我解释一下SQLBindCol函数,特别是参数。 如何操作recordset,使其能够手动付值!即用 window nt和window 2000 server能不能象windows professional那样设成重启后自动登录。 关于语音视频聊天室 高手进入 来者得分 通过GUID枚举设备的问题请教! 代码不懂请指教 如何用javascript控制表单提交? (急急-在线等)一个复选框的问题 如何让服务器知道前来访问的客户机物理内存大小? 青藏草原拉面怎么样 一······就······造句\(^o^)/~想不起来了呵呵 企业所得税申报表 营业收入 营业成本申报系统里 :营业收入”包括主营业务收入和其它业务收入;“营业成本”包括主营业务成本和其它业务成本;“营业成本”不包括期间费用.那利润总 直线x+y=1与圆X2+Y2-2ay=0(a>0)没有公共点,则a的取值范围是 我在酒店的鱼池里看见一只跟青蛙的模样一样,就是比平常的青蛙大得多,请问那是什么东西 直线X+Y=1于圆x^2+y^2-2ay=0(a大于0)没有公共点,则a的取值范围是? 直线x+y=1与圆x^2+y^2-2ay=0(a>0)没有公共点,则a的取值范围是.直线x+y=1与圆x^2+y^2-2ay=0(a>0)没有公共点,则a的取值范围是. 若直线x+y=1与圆x^2+y^2-2ay=0(a>0)没有公共点,则a的取值范围是什么 《不败》 陈四益 的译文 英语翻译翻译成现代文 鸣人的妈妈的详细介绍 消息人士称叙化武生产设备销毁工作如期法国将实施冬季禁逐令 拖欠房租者也可以色列军方在约旦河西岸射杀一巴勒斯坦法国一名抢劫犯曾为iPod及8欧元抢韩媒:中国学生“弃日择韩” 赴韩留学伊朗或取消向巴基斯坦供应天然气巨额合委内瑞拉总统称查韦斯音容出现在委地铁美国最新隐身驱逐舰下水 明年秋季开始巴西里约热内卢社会游民多 5000余德专家:欧元区最大问题在于违反不援助中央第二巡视组巡视新华社工作动员会召时尚又智能 99元“小T”让你今夏秒资产配置荒:要尽快接受3-4%的投资《绯闻女孩》Queen B怀孕啦!范氏途说:努力寻找属于自己的“风口”国庆不平静,人民币惊天大屠杀自制腌咸蛋环球网:微媒体联盟总经理刘敏华新媒体【图解】为什么说东北经济全面告急苹果有过计划推电视产品 但已经放弃了移动医疗商业模式初探习大大脸书7张图,看懂访美成果英雄联盟之开挂直播系统十印仙王成为孙悟空艾洛尼尔的死徒圣骑生在冥界火影之朝佚千名无尽武力火影之神级通缉犯双身妖圣变身绝美校花英雄联盟之无敌升级天适樱花悠乐园旅游酌江风景区旅游本溪湖旅游鞍山古城址旅游罗汉圣地旅游玉佛山旅游冰壶洞旅游朝真洞旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘