vb绘图.pptVIP

第九章 绘 图 计算机教研室 (main contents) 9.1 绘图的基本概念 9.2 基本的图形方法 ——画点（Pset）、画线（Line）、画圆（Circle） 9.3 鼠标绘图 9.1 绘图的基本概念 绘图的载体 9.1.2 工作区(以窗体为例) 9.1.3 坐标系统 1.屏幕坐标系 Screen.Width = 12000 (twip) Screen.Height = 9600 (twip) Me.Height = Screen.Height \ 2 Me.Width = Screen.Width \ 2 Me.Left = (Screen.Width - Me.Width) \ 2 Me.Top = (Screen.Height - Me.Height) \ 2 1.颜色常量 Hff 00 00 , vbRed 2.RGB函数 RGB ( R, G, B) R 代表红色 G 代表绿色 B 代表兰色 R, G, B 均为0-255之间的整数 RGB(255, 0, 0) 产生红色 3.QBColor函数 QBColor(Num) Num取值为0 --15, 书P235表9-3 5、 填充 1.填充颜色 FillColor 2.填充属性 FillStyle FillStyle取值见P242表9-6 9.2基本绘图方法 9.2.1 Pset方法 9.2.2 Line方法 9.2.3 Circle方法 9.2.4 Point方法 作用：是在窗体、图片框等对象上绘制一个点。 语法格式为： [对象名.]PSet [Step] (x, y) [,颜色] 说明： ⑴ 对象指明画点的场所，缺省对象为当前窗体。 ⑵ Step关键字可选，表示相对坐标。 ⑶ 参数(x, y)为所画点的坐标。 ⑷ color为该点指定的 RGB 颜色。如果省略，则 使用当前的 ForeColor 属性值。 回忆在第六章如何用*画正弦图？ 回忆在第六章如何用*画正弦图？ Sub Form_Click() Dim iheight as Integer iheight=Form1. height / 2-50 For i= 0 To Form1.Width CurrentX=I CurrentY= iheight- iheight* sin( i*3.14/180*0.1) Print “*” Next i End Sub 画阿基米德螺旋线 阿基米德螺旋线方程： x=θ*cos(θ) θ为度数，作为参数要变为弧度 y=θ*sin(θ) Dim i As Integer Const Degree = 3.14159 / 180 x0 = Me.ScaleWidth \ 2 y0 = Me.ScaleHeight \ 2 For i = 0 To 1080 x = i * Cos(i * Degree) y = i * Sin(i * Degree) PSet (x + x0, y + y0) Next i 画线说明： Step表示相对坐标关系 缺省Step 表示绝对坐标 Line方法1 下列代码画出的图形是? Private Sub Form_Click() Dim iHeight as Integer iHeight=Form1.ScaleHeight PSet(0, iHeight/2) For i=1 To 10 Line -Step (300, 0 ) Line -Step ( 0, -300 ) Line -Step ( 300, 0 ) Line -Step ( 0, 300 ) Next i End Sub Line方法2 下列代码画出的图形是? Private Sub Form_Click() Dim CenterX as Integer, Center