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
到现在为止,应该说我们关于编程方面的知识已经足够了.但应该怎样画出一个钟表的准确位置呢?也就是说我们怎样在窗体中确定每一个刻度呢?
肯定得用到三角函数了.让我们一起简单的回顾以下,在高中时所学的三角函数的知识吧.
|
|
