QQ 电脑入门游戏操作系统图形处理办公软件媒体动画精文荟萃工具软件网络编程程序开发网络技术认证考试网站建设文章专栏

当前位置：清风网络 → 程序开发 → VB → VB设计有语音报时和报警功能的闹钟


	精品推荐


特别推荐

·用diskid.dll和disk32.dll获得硬盘序列号

·VB6中使用Winsock穿越各种代理的实现

·在VFP、VB应用程序中激活鼠标功能


热点TOP10

·VB+Access设计图书管理系统

·VB表格控件总览与例程分析

·VB程序编写一个记事本

·在VB中使用IE的 WebBrowser控件改进界面设计

VB设计有语音报时和报警功能的闹钟

日期：2007年7月21日作者：查看:[大字体中字体小字体]

　　‘ 因为三角函数中的角度的增长方向,和计算机中相反,所以要用1减去cos值
　　PSet(x,y)
　Next i
End Sub

Private Sub Form _ Activate ( )
　Huacos ‘调用huacos 过程
End Sub
　　下图为运行结果：

VB设计有语音报时和报警功能的闹钟

　　余弦和它相似，代码如下：

Private Sub huasin ( ) ‘自定义了一个名为huasin的过程

　Dim x As Double
　Dim y As Double

　For i = 0 To Form1 . ScaleWidth ‘设定周期为Form1 . ScaleWidth
　　x = i
　　y = (1–Sin(i/Form1.ScaleWidth*2*3.1415926)) * Form1.ScaleHeight / 2
　　‘ 因为三角函数中的角度的增长方向,和计算机中相反,所以要用1减去sin值
　　PSet (x, y)

　Next i
End Sub

Private Sub Form _ Activate ( )
　huasin ‘调用huasin过程
End Sub
　　下图为运行结果：

VB设计有语音报时和报警功能的闹钟

　　有了这些基础,画出一个正圆也就没问题了。请看下面的代码。

Private Sub huayuan( )
　Dim x As Double
　Dim y As Double

　For i = 0 To 360
　　x=(1–Sin(i/360*2*3.1415926))*(Form1.ScaleHeight/2–100)+100
　　y=(1–Cos(i/360*2*3.1415926))*(Form1.ScaleHeight/2–100)+100
　　Pset(x,y)
　Next i
End Sub

Private Sub Form _ Activate( )
　huayuan
End Sub
　　上面的代码不难,好好思考一下吧.下面是运行结果：

VB设计有语音报时和报警功能的闹钟

　　上面的例子里，我们使用360个点组成了一个密集度挺高的圆形，可是既然vb中已给我们提供了现成的画圆形的函数，为什么不用呢？但通过上面的例子，我们应该想到，如果我们将360个点，变成60个点，那不就正好是一个钟表的刻度吗？！这样的话我们只需要改动两个地方，一个是点的个数，另一个是点与点之间的弧度，应该为360度的60分之一，也就是每60度画一个点。代码如下：

Private Sub huabiaopan ( )
　Dim x As Double
　Dim y As Double

　For i = 0 To 60
　　x=( 1 – Sin(i/60*2*3.1415926))*(Form1.ScaleHeight/2–100)+100
　　y=( 1 – Cos(i/60*2*3.1415926))*(Form1.ScaleHeight/2–100)+100
　　PSet(x,y)
　Next i

End Sub

Private Sub Form _ Activate ( )
　huabiaopan
End Sub
　　下面是运行结果： (为了看得清楚些,我将颜色设为了红色,大家可以随喜好自行修改,方法当然是在Pset函数中了)

VB设计有语音报时和报警功能的闹钟

　　看来我们距离成功越来越近了。对于钟表里的三个针来说，每一时刻都会指向其中一个刻度，所以我们只要在其中添加代码，让它实现从圆心到所指刻度画直线就可以实现钟表里的三个针了。

　　下面是关于其中一个针的走动，代码如下：

Private Function huamiao ( a As Integer )

　'用同背景相同的颜色，在前一次的位置上，从新画直线，抹除前一次画的线

　x =(1–Sin((a+1)/60*2*3.1415926))*(Form1.ScaleHeight/2–200)+200
　y =(1–Cos((a+1)/60*2*3.1415926))*(Form1.ScaleHeight/2–200)+200

　Line(Form1.ScaleHeight/2,Form1.ScaleHeight/2)-(x,y),QBColor ( 7 )

　'然后开始画後一秒的线

　x =(1–Sin(a/60 * 2 * 3.1415926 ) ) * (Form1.ScaleHeight/2–200)+200

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] 下一页

上一篇:VB数据库编程经验两则

下一篇:如何在 VB 中播放声音文件

·QQ截图功能另类妙用

·提高效率:屏蔽WinXP中不需用到的功能

·即时语音提示 & 校对软件InsTalk注册码及注册机上

·认识QQ新版新功能：QQ等级加速

·对性功能利或害的食物

·保护系统用语音警示功能检测攻击来源

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot