VB做电子报时钟(7)

时间:2025-04-05

模拟电子钟 带语音报时功能

'所以,i/form1.scalewidth*2*3.1415926既是o*2pi 到1* 2pi '所以,cos(i/form1.scalewidth*2*3.1415926),就从1到-1,在变到1 '所以,1-cos(i/form1.scalewidth*2*3.1415926),就从0到2,在变到0 '所以y 就从0到form1.scaleheight,在变到0 '即可画出cos曲线

'=======================

Private Sub huacos ( ) ‘自定义了一个名为huacos的过程 Dim x As Double Dim y As Double

For i = 0 To Form1.ScaleWidth ‘设定周期为Form1 . ScaleWidth

x = i

y = (1–Cos(i/ Form1.ScaleWidth * 2 * 3.1415926 ) ) * Form1.ScaleHeight/2 ‘ 因为三角函数中的角度的增长方向,和计算机中相反,所以要用1减去cos值 PSet(x,y) Next i End Sub

Private Sub Form _ Activate ( ) Huacos ‘调用huacos 过程 End Sub

下图为运行结果:

余弦和它相似,代码如下:

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做电子报时钟(7).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219