VB做电子报时钟(5)

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

下图为画出的椭圆形：

3、Pset方法

Pset方法用于画点,其语法格式如下:

格式: [对象 . ] Pset [ Step ] ( x , y ) [ ,颜色 ]

说明:

(1)参数(x,y)为所画点的坐标

(2)关键字Step表示采用当前作图位置的相对值

(3)采用背景颜色可清除某个位置上的点,利用Pset方法可画出任意的曲线

下面我们来看一个例子.我们用Pset方法在窗体上面绘制阿基米德螺线.下面是代码和运行结果:

Private Sub Form _ Activate ( )

Dim x As Single Dim y As Single Dim z As Single

Scale(-20,20)-(20,-20)

Line(0,17)-(0,-17) Line(18,0)-(-18,0) For z=0 To 15 Step 0.01 y=z*Sin(z) x=z*Cos(z) PSet(x,y) Next z

End Sub

运行结果如下: 7

到现在为止,应该说我们关于编程方面的知识已经足够了.但应该怎样画出一个钟表的准确位置呢?也就是说我们怎样在窗体中确定每一个刻度呢?

肯定得用到三角函数了.让我们一起简单的回顾以下,在高中时所学的三角函数的知识吧.

4、三角函数