VB做电子报时钟(7)

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

'所以,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

下图为运行结果：

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