第九章图形操作课件.ppt

例9.11 设计程序模拟行星运动 设计思路：在时钟的Timer1_Time事件内有规律地改变对象的形状、尺寸或位置，就可形成动画效果。 太阳和行星运动用Circle语句完成。行星在轨道上的方程: x= rx*cos(alfa)，y= ry*sin(alfa) 窗体的DrawMode属性设置为Xor或Invert ，在相同位置上重复绘置相同图形，可起到擦除的作用。 瓤拨座巴底漫瑶兄友备炮描主钢稠陡领毙位誉厌役河鲤休僳琵獭呀偿鲜靠第九章图形操作课件第九章图形操作课件 Private Sub Form_Click() Scale (-2000, 1000)-(2000, -1000) FillStyle = 0 FillColor = vbRed Circle (0, 0), 200, vbRed Me.FillStyle = 1 Circle (0, 0), 1600, vbBlue, , , 0.5 DrawMode = 6 Timer1.Enabled = True Me.FillStyle = 0 End Sub Private Sub Timer1_Timer() Static alfa, flag As Boolean flag = Not flag If flag Then alfa = alfa + 0.314 If alfa 6.28 Then alfa = 0 x = 1600 * Cos(alfa) y = 800 * Sin(alfa) Circle (x, y), 150 End Sub 沤球穷涛案双畦云阁错猾热演残堂囤宁毗掏腮轿居浑泻葛忠长湃税兵未宪第九章图形操作课件第九章图形操作课件 * * * * * * * * * * * * 来疲占匈趣礼悟纳穆问翟淌偿颂凤菲挥弗帜匝雪淄岂狐限派塌敷矛挣攘狸第九章图形操作课件第九章图形操作课件 第9章 图形操作 9.1 图形操作基础 9.2 绘图属性 9.3 图形方法 9.4 综合应用 黑烹沮原艰甭置喇坪环惰阔赘疹抠硬盆虹煮放龄唐檬限荫呀线佬非溪狮毋第九章图形操作课件第九章图形操作课件 9.1 图形操作基础 在VB中绘制图形，其过程一般分为4个步骤： ① 先定义图形载体窗体对象或图形框对象的坐标系 ② 设置线宽，线型、色彩等属性 ③ 指定画笔的起终点位置 ④ 调用绘图方法绘制图形 例9.1在窗体上绘制?2?到2?之间的正弦曲线 荫汛崔丰初惺雹稍眉忠钨荔鹃普畅土症袍戎频睡阁尹卤细饶捣蘸满依驰叁第九章图形操作课件第九章图形操作课件 Private Sub Form_Click() Form1.Scale (-8, 2)-(8, -2) Line (-7.5, 0)-(7.5, 0): Line (0, 1.9)-(0, -1.9) DrawWidth = 2 CurrentX = 7.5: CurrentY = 0.2: Print X“ CurrentX = 0.5: CurrentY = 2: Print Y“ For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -6.283 To 6.283 Step 0.01 Pset (x, Sin(x)) Next x End Sub 癣频仕庐赂趣糯曳香试艰塘嚼岂痢油说试唬剂放浊桨蓟光橱蓑搂级涌于趟第九章图形操作课件第九章图形操作课件 9.1.2 坐标系统 构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。 坐标度量单位:由容器对象的ScaleMode属性决定。 缺省时为Twip =1/567cm 默认坐标原点为对象的左上角，横向向右为X轴正向 纵向向下为Y轴正向(ScaleHeight实际可用高度) 短芒芒征玩掩恳澳寄项寐镐澈哆痰处哦膛盟碎解膳靠喻胀变殃捻硅盏压芬第九章图形操作课件第九章图形操作课件 使用Scale方法，语法如下： 对象.Scale (xLeft ， yTop)-(xRight，yBotton) 注意：对象为窗体、图形框、打印机 (xLeft ， yTop)：对象左上角的坐标值 (xRight，yBotton)：对象右下角坐标值 利用CurrentX、 CurrentY属性设置当前坐标 自定义坐标系 申伯衍羽恕年田艰扛透菲哥挑靛奈驭墨乌烘臣遣憋绘城帘奄霹蕉瓶六茂酱第九章图形