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

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中文企业版下调试通过。
CDN前景光明,SDN发展的驱动力源于对产业的颠覆 Android、WP双系统若要发展 难题不断 即将于下周召开的微软Build 2014六个愿望清单 【独家专访】腾讯陈磊:你不知道腾讯对开源有多爱 地下数据交易网站Rescator被黑,疑似Target报复 Spark独门秘籍:打造结构一体化、功能多元化的高效数据流水线 【走进支付宝】重磅嘉宾!历届“走进企业”回顾 【OSTC讲师专访】腾讯TDW项目:开源的分布式数据仓库 ID爆发的物联网时代,我们该如何管理手中的数百个账户 取代Google Maps?苹果大幅优化Apple Maps用户体验 中交兴路系统架构师杨晓明:Hadoop+Storm+ HBase…,打造交通行业创新型服务 雨果&#183;巴拉的第二春:我与小米的那些事儿 为什么Android Wear能统领智能手表领域? LinkedIn缘何抛弃Ruby,转投NodeJS怀抱 【OSTC讲师专访】九秒社团李明:开源对游戏产业的渗透与帮助 IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 是我的usb口的问题吗?? 怪事 急 路径绝对正确,为什么服务器只能下载rar 不能下载EXE 文件 已知,f(x)=arctanx,其二导f''(x)=(-2x)/(1+x*x)^2,f''(0)=0,试: 一个有趣的问题,请大家看一个小程序,来者有分。 这个写者优先是不是有问题????麻烦看一下,小弟实在看不出错在哪里 请问有没有办法得到[系统托盘]上其它程序的所显示的Icon?? 已知,十六进制(34.6)16=(28.75)10(十进制) 高手推荐几个Palm开发的网站?最好有源代码! 请教一个问题 触发器(加密)内容可以查看吗 怪,文件路径绝对正确,EXE文件不能下载,其它格式正常。 在编写的用户控件中公开所引用控件的事件怎么实现啊 这是我的usb口的问题吗? 考程序员前想先考全国三级,请问三级种哪个科目考C编程?何时报名? 调用DLL时候出现Bad Dll calling convention错误,为什么?代码如下 如何建立一个小数据库? 我想问下,网络技术到底是指什么??? 为什么会出现这个问题呢??急救??? 在不同操作系统出现不能正常运行的问题,和默认字体语系乱码问题 C# 静态类成员 新手请求各位前辈帮助 如何查询我连接到哪个数据库? 哭着请求帮助。。。。。页面显示问题!!在线等着 网络技术到底是指什么???? 我想在<<三国九>>里输入正确的中文,有法子么? 能帮我改改么? 紧急求助,请高手支招 请问在JTABLE中如何将某几行设置成可以被选择的,其他几行设置成不能被选中的? 请问怎样修改SDI框架的标题及去掉最大化按钮??? 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 北方冬天紫檀手串要包浆晚上需要放在袋子里吗 一个长方形的长是10cm,宽是8cm,高是3cm,把它切成两个完全一样的小长方体.它的表面积最多增加多少?最少增加多少? 食堂有一堆煤烧去一部分后还剩三分之1,还剩9分之2吨.这堆煤原有多少吨? 小肠黏膜细胞内合成的脂蛋白主要是低密度脂蛋白 对还是错的 建一个高2米宽10米长24米的彩钢房需多少钱?直筒子的 食堂有一堆煤,烧了几天后,余下的5/8,和其余5 /2吨的.这堆煤多少吨? 任何三角形,都能折叠成一个长方形,剪几个三角形试一试,折折看,你知道这是为什么吗? 声速是由传递声音的物质决定的这句话对吗? 一根质量为0.4kg长为0.20m的直导线,水平放在一个倾角为30度的光滑斜面上,一均匀磁场方向垂直于斜面向...一根质量为0.4kg长为0.20m的直导线,水平放在一个倾角为30度的光滑斜面上,一均匀磁场方 不管是一个什么形状的三角形,都能折叠成一个长方形,剪几个三角形试一试,折1 设P为等边△ABC内一点,PA=3,PB=4,PC=5,则∠APB的度数为( ) 什么是生冷的东西 如图,三角形abc中,ab=8,ac=6,bc=9,如果动点d以每秒2个单位长的速度,从点b出发沿边ba向点a运动,直线de平行bc,交ac于e,.记x秒时de的长度为y,写出y关于x的函数关系式,并画出它的图像 在三角形ABC中,AB=AC=6,P是BC上任意一点,求PC*PB+PA*PA的值(提示:利用勾股定理)不要用三角函数,就用勾股定理! 12.如图9所示,某工地工人用固定在水平工作台上的卷扬机(其内部有电动机提供动力)提升水中的物体,其提升速度始终为1.5m/s.物体未露出水面前,被匀速提升时,卷扬机对绳子的拉力为F1,卷 紫檀手串多久出包浆 细胞呼吸中的[H] 怎么读 如图所示,某工地用固定在水平工作台上的卷扬机(其内部由电动机提供动力)提升水中的物体,其输出功率始终为1500w,物体未露出水面前,以1.5m/s的速度被匀速提升,卷扬机对绳子的拉力为F1,卷 {甲乙丙共有1580元,甲乙钱数比是2;3,乙丙钱数比是5;4,甲乙丙各有多少元}{甲乙丙共有1850元,甲乙钱数比是2;3,乙丙钱数比是5;4,甲乙丙各有多少元} 在音标里I(I两旁有中括号)怎么读?在一组音标里I在前面拼什么?在后面拼什么?在中间呢 如图所示,劲度系数为k=10N/m的弹簧下面挂着质量分别为m1=0.5kg和m2=0.3kg的两个物体……如图所示,劲度系数为k=10N/m的弹簧下面挂着质量分别为m1=0.5kg和m2=0.3kg的两个物体,开始时它们都处 续电器如果弹簧烂了还能正常工作吗? breathe怎么读 已知a为实数,f(x)=(x平方-4)*(x-a),若f'(-1)=0,求f(x)在中括号-4到4上的最大值和最小值 三角形的五个心在那?(请截图) 如图所示,在水平向右运动的小车上,有一倾角为α=53°的光滑斜面,质量为m=2kg的小球被平行于斜面的细绳系住并静止在斜面上,当小车加速度发生变化时,为使球相对于车仍保持静止,则:(1)小 不用计算圆的周长公式,有什么办法能求圆的周长 三角形的四个心是什么 如题,因为我要家教所以想知道进度. 圆的周长的公式时我们用什么方法? 三角形的五个心三角形有五个“心”,这个大家都知道.那这五个“心”有什么定理啊,或者应用之类的东西么?我还没有学过,接触到这些便想了解.五个心是什么这个我知道,我只是不知道在做 牛顿的“微粒说”和爱因斯坦的 “光子说”的区别 圆的周长除了用公式还有什么方法 如图所示在竖直平面内固定着半径为R的光滑的1/4圆弧槽,它的末端水平,上端离地面高H,一个小球从上端无初速度下滑.求(1)小球做平抛运动的时间(2)小球做平抛运动的水平射程S 牛顿的微粒说和爱因斯坦的光子说本质相同么 指导圆的周长的公式时我们用什么方法 德国阳光电池有一个参数是C10 1.80VpC 20℃ 为什么说爱因斯坦的"光子"与牛顿的"微粒"是不同的? 有助于回答者给出准确的答案重100N的球用水平绳拉住处于静止状态 光滑斜面倾角为37度,求绳对球的拉力和球对斜面的压力 怎么证明磁铁已经消磁了?如果用高斯计测量的话,数据在那个范围才表示磁铁已经消磁了 忌食生冷食物是什么意思 用滑轮组将200kg的物体匀速提升12m用时1min,如图所示不计绳重及摩擦,绳自由端的拉力为550N.求:(1),绳自由端拉力移动的速度是多大?(2),动滑轮重多大?这是图片 W如何画三笔变成九个三角形? 讨论函数f(x)={-x-1,x>0;-x+1,x 一重W的匀质圆球,用软绳及光滑斜面支持,如图,已知角α及β,求绳子所受拉力及斜面上所受压力的大小 均值不等式为什么要证明等号成立今天刚学,做题时不会了.均值不等式里证明等号成立有什么用?最好再介绍一下均值不等式求最值的大致步骤. 一个长方体长24cm,把它锯成每段是8cm的小段后,表面积增加了16平方厘米,求原来这个长方体的体积. My brother likes music that he can dance 均值不等式ab异号如果ab为异号,那么均值不等式怎么用?如果ab异号,那么均值不等式的公式是什么? 消防水带规格10-65-20,10,65, he likes music that;s () ( energy)适当形式 均值不等式,求:(a+b+c)/3≥_______,当且仅当_____时取等号? 有衬里消防水带的有多长,口径有多少厘米? 导线的绝缘皮是否有耐腐蚀功能 低密度脂蛋白进入细胞的方式是 函数y=1/(x+3) 的间断点是? 第二题怎么做,答案加解释 由图为什么可以知道携带胆固醇的低密度脂蛋白进入细胞的方式是胞吞和胞吐? 为什么曲线运动所受合外力有可能是恒力有没有例子说一下 谢谢了 如图,12N重的小球放在倾角为30°的光滑斜面上,且处于平衡状态.此拉绳恰为水平方向.则绳受到的拉力为多少,斜面受到的压力为多少? 外交部:妥善解决朝鲜半岛核问题须均衡埃及临时政府法律草案规定严厉打击民众国际社会讨论在南极建立迄今规模最大海利比亚总理绑架策划人称:总理根本不敢美媒曝美无人机行动得到巴默许 巴政府世界泰拳王与中国功夫王广东见面会上大美国11岁男孩持枪入校遭拘捕 面临谋也门男子因15岁女儿与未婚夫通电话将外交部:妥善解决朝鲜半岛核问题须均衡美国职棒大赛 球员为赢对手纷纷留长胡嘉兴秀洲消防工地“找茬”揪患80余处嘉兴秀洲:消防电影大篷车走村串乡宣防美拒评是否曾监听默克尔手机 新自贸协美国职棒大赛 球员为赢对手纷纷留长胡崔永元赴美调查转基因食品 随机调查答朝鲜将送还6名被扣押韩国公民马凯在法国《回声报》发表署名文章土库曼斯坦总统出新书讲述父亲的故事也门男子因15岁女儿与未婚夫通电话将嘉兴南湖:消企携手共筑安全“防火墙”杭州消防马路中间铺气垫解救跳“桥”男莱斯特城必胜灯笼裤塞维利亚分胜负 塞尔塔交出三分鹿角欲掀翻小牛攀岩世界杯厦门站腾冲半马收兵攀岩世界杯钟齐鑫夺冠2016杭州马拉松开跑 跑过最美风景美国人说丨华裔新力量三部曲:愤怒、不恒大斯诺克中锦赛收杆3局均是关键时刻掉链子太远的世界如此鹰眼国安独自舔伤 无处话凄凉亚特兰大“脱胎换骨”美国大选:拉票最后周末 特朗普遇安全山东今后三天空气质量普遍以良-轻度污(图)海南的空气小卫士:有一种职业叫江苏清退3000户金融资产超标低保家济南:“骡帮”来了,英雄山上的沙土都特朗普之妻:若成第一夫人将净化网络用韩涉嫌贪污前青瓦台高官到案 对“干政
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘