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

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中文企业版下调试通过。
Pivotal聘用eBay前副总裁,继续发力云计算市场 智能手机的功能越来越复杂,可惜用户不买账 一周消息树:Windows 9要来了,会有哪些改变? 简单几步解决IE11无法显示此页的问题 研发周报:Java 8最终发布日期敲定,即使有bug也要发布 一周云热点:Google打造云中Hadoop便捷版,强势对抗AWS 追溯Unite大会设计理念 感受Unity进化史 移动周报:仰望大神,不如退而探索! 腾讯发布QQ浏览器微信版 支持拖拽分享、消息提醒等功能(图) 乐视TV:LetvUI连续31周迭代36个版本 190个乐迷需求实现119个 云服务商评估体系建立,首批10家企业通过可信云服务认证 《找你妹2》开发者云中游再声明:热酷涉嫌严重违约发布侵权竞品 柴可:大姨吗的轻应用抉择 盘点2013年IT界25个最古怪的面试题 云计算再掀创业热潮,19家企业入驻微软创投 IBM斥资12亿美元,全球大规模扩建数据中心 “Careerfocus之夜”2014年新春客户答谢晚宴在京举办 Google蚕食了维基百科的访问量? 微软Surface Pro 2 的成功之道 精简代码,为网站减负的十大建议 应用宝逆袭上位 将重构腾讯移动应用分发体系 eBay基础设施的成功经验,我们该如何复制? 自定义富媒体广告:NativeX SDK 5.0发布! WunderBar:零硬件开发基础也能接入物联网! 深入解析:分布式系统的事务处理经典问题及模型 从世纪互联、华云数据和金石易服的发展服路径观察IDC产业发展 SA:2014移动运营商、终端和应用十大关键趋势 使用modern.IE来设计更现代化的网页 全国顶级域名根服务器21日下午疑遭黑客攻击 影响巨大 苹果下一代iPhone的十大预测 《近匠》第07期,专访《恶魔塔防》团队,看俄国复杂深奥的游戏文化 请介绍接收端CRC校验传输内容是否正确的方法,资料或代码。谢谢! 各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁会做软件狗?有钱赚了!!! 为什么我用QuickRep作的报表只能显示一条记录,而且columnHeaderBand上内容也显示不出来 请问在税务局开发数据库的同行么?? 大家好各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁做过软件狗,马上来拿钱!!! 江苏省的成绩什么时候可以出来啊,我是徐州的 shockwaveflash没有hwnd,怎么办? chechy(chechy) 你在吗? 一个关于用excel做的日报的问题 谁会做软件狗,马上来拿钱!!! 给你下跪了,给你磕头了,给你鞠躬了。很简单的问题。谢谢 那位大哥能告诉我在VC中我要创建类的话应该做哪些工作步骤(要详细的,呵呵) 紧急求救,asp连接mysql问题 在使用twebbrowser的时候,怎样制止网页的自动刷新和跳转? vc编译器错了怎么办???突然死机,然后就不好好干了!!谢谢 ?如何将二进制的 值写如注册表? Delphi紧急求助! 我想问的是,返回的 ResultSet 中的某个字段(int 型),如何放到一个 int[]数组里去。因为 ResultSet 不知道怎样取 size,我又不想用 vector, ResultSet的getArray()方法也是莫名其妙。 c盘格式化后,怎样找到linux系统? 有意思 过来研究一下!!!!insert 的!!!!难道 25 不是 long integer 吗 我的程序debug版,一直调试好好的,我rebuid all 一下就出错了,错误如下:怎么回事? 位图问题? 怎样使用自定义的光标??? 我想找Hopen SDK的开发包。 为什么我的iis总是报500内部服务器错误。我先装的framework,后来升级了ie5.5,最后在w2kprofessional上装了iis,手动添加了aspx解析:指向aspnet_isapi.dll,为什么还报错? 那里有关于用组件上传图片并且显示上传图片的介绍 NT 上已安装好mysql服务器,WIN98 client连接不上,求救 程序员梦难圆,请大家给我这个非计算机专业的兄弟出出主意。 小弟是delphi初学者,师兄师姐们给我介绍一下object pascal自带的函数好么? 你知道如何禁止后退按钮吗? 请各位高高手!解决启动时ctrl+alt+del可结束任务的问题。 哪位大侠指点一下ActiveSkin怎么用的? 引用ado后,打包程序为什么如此之大 为什么我的iis总是报500内部服务器错误。我先装的framework,后来升级了ie5.5,最后在w2kprofessional上装了iis,手动添加了aspx解析:指向aspnet_isapi.dll,为什么还报错?? 散源代码(1)- 货郎担问题(TSP)分枝限界算法 (急)哪位大侠有关于power designer的书,中文的,谢谢 ■■在线等待,找到立刻送分,决不失言。CSDN兄弟在帮忙,PB7安装盘不能安装POWERJ,是吗?在那里可以找到POWERJ安装盘?■■ 哪个虚拟光驱的软件在XP下可以用,虚拟光驱和光驱魔术师都不行呀 有谁知道那里有可以放ASP代码网页的免费空间 请问在VC中如何使静态框中的字体变色? 若想在BDE-Administrator中使用*.mdb,必须将*.mdb注册到文件DSN或者系统DSN中吗? 请教,如何在其他的应用程序的title上(最小化按钮旁边)添加按钮? 为什么我的iis在运行.aspx(asp.net)文件总是报500内部服务器错误。我先装的framework,后来升级了ie5.5,最后在w2kprofessional上装了iis,手动添加了aspx解析:指向aspnet_isapi.dll ::SetDlgItemText(hDlg,IDC_EDIT1,(LPCTSTR)lby);???????? DatagramSocket和DatagramPacket??? delphi的ftp,pop3,http控件是否支持进行多线程连接? 大型调查 急急急!!!上海地区有没有12月份的java培训? 显示桌面有快捷键吗 应该有的 是什么 呀 金属丝利用了金属的什么物理性质 刚买的房子,为冬季装修成什么样的取暖方式犯了愁,发热电缆、电热膜、碳晶地暖哪个好?家住河南,刚刚买了房子,准备开始装修,由于小区没有集中供暖,装修前考虑冬季取暖就成了大问题.比 测量标准大气压的工具有哪些 古代计算时间方式除了生物钟,书钟和太阳种以外,还有什么计算时间方式吗?我有急用, 电焊于气保焊区别是什么拜托了各位 水地暖高度,发热电缆高度,电热膜高度分别是多少 电焊怎样区分焊水焊渣 《己亥杂诗》全诗 电焊技术:怎样立焊?电焊技术.怎样立焊 电焊的焊角怎么计算 这段材料的意蕴是什么?一只章鱼的体重可以达到70磅.但是,如此庞大的家伙,身体却非常柔软,柔软到几乎可以将自己塞进任何一个想去的地方.章鱼没有脊椎,这使它可以穿过一个银币大小的洞. 电焊立焊怎么焊啊 电焊的焊接,怎么焊才可以焊得又平又好看呢?我焊的是219的管 求帮我解释一下这段公务员中资料分析的意思.1估算法(选项大小差距大且复杂,可粗略估值)这个我可以理解.2直除(选项首位不同,或首两位不同时)3插值法(如果选项首位都是3,与1/3比,首 45钢表示什么材料 你知道怎么样能焊出又平又宽的焊缝么就跟电焊条一样 这段材料给我们的启示是什么 45是什么材料 有机食品什么意思啊 电采暖-用发热电缆好还是电热膜好? 材料牌号45是什么 古诗《己亥杂诗》的作者是谁 发热电缆和电热膜哪个比较好 S20C是什么材料?可以用45#代替吗? 有机食品是什么意思? 计量器具的A、B、C如何分类?如何确定计量器具是一次性检定的? 45#圆棒是什么材料 描写四季的诗要整首古诗 《已亥杂诗》意思,有诗九州生气恃风雷,万马齐喑究可哀.我劝天公重抖擞,不拘一格降人才. 己亥杂诗是谁的诗作者和诗全要 打品是什么意思 求已亥杂诗全诗 测量工具的种类 犬的“品相”是什么意思 有机食品什么意思 怎么用电焊焊立缝 品武是什么意思 ? 碳晶地暖的优缺点?碳晶地暖的系统组成?碳晶地暖价格?碳晶地暖品牌? 电焊立焊的手法是怎么焊 化工品的几类危品是什么意思 碳纤维地暖和碳晶地暖到底有什么区别?哪个好?好在哪里? windows xp下ttf和ttc有什么不同 吉他里的品数是什么意思 什么是下行焊,垂直气电焊? TTC雾森是什么? 光焊丝进行焊时,对焊缝质量会有什么影响 已亥杂诗 全诗 六年级下册的己亥杂诗表达了作者怎样的思想感情?表达作者愿望的诗句是哪句?表达了什么愿望? 由不锈钢焊条和结构钢焊条组合焊的焊缝结构特点 材料意思是什么 己亥杂诗中哪一句抒发了作者渴求天降人才、报效祖国的心愿? .以下自然现象中,包含两种或两种以上物理现象的是() A 弯折金属丝,金属丝发热 B 夏天午后,暴风骤雨伴1.以下自然现象中,包含两种或两种以上物理现象的是()A 弯折金属丝,金属丝发热 B 这是什么材料的?里面写着18K是什么意思? 已亥杂诗》中表达作者愿望的诗句是哪句?表达了什么愿望? 电经过金属丝发热电经过金属丝会使金属丝发热,地球上有人知道为什么吗? 炭晶地暖好 还是电热膜好 有什么区别 《己亥杂诗》中表达作者愿望的诗句是哪句?表达了什么愿望? 一从中间弯曲成直角的金属丝一从中间弯曲成直角的金属丝,一端悬挂,总长为L.则金属丝静止时,一直角边和竖直方向夹角为多少? 碳晶地暖与电热膜地暖的优劣比较多谢各位,请问他们对人的身体的影响是否有差别,以及其他方面! 《已亥杂诗》中表达作者愿望的诗句是那句?表达了什么愿望?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn