vb程序设计CAI第9章节图形操作幻灯片.pptVIP

9.4.3 Circle方法 1.用Circle方法画圆 格式:［对象名.］Circle［Step］(x,y),半径［,颜色］ 功能:在窗体或图片框上画圆。 说明:Step后面的数字表示相对于当前坐标的位移量。 例如: Circle(2000,1000),500 Picture1.Circle(1000,400),500,QBColor(12) Circle Setp(200,300),800 第三行相对坐标的位移量,如果当前的坐标为(100,100),则圆心的坐标为(100+200,100+300),即(300,400)。以此为圆心,以800为半径,画一个圆。 2.用Circle方法画椭圆 格式:［对象名.］Circle［Step］(x,y),半径,［颜色］,,,纵横比 功能:在窗体或图片框上画椭圆。 说明:纵横比是椭圆两个轴长之比。 例如: Circle(2000,1000),500,,,,2 Picture1.Circle(1000,400),500,QBColor(12),,,0.5 3.用Circle方法画圆弧及扇形 格式:［对象名.］Circle［Step］(x,y),半径［,颜色］［,起始角］［,终止角］ 功能:在窗体或图片框上画圆弧及扇形。 说明: (1)起始角与终止角:为所画圆或椭圆的起始角度与终止角度,单位为弧度,取值为-2π～2π，缺省时,起始角为0,终止角为2π。弧度增大方向是逆时针方向。 (2)起始角、终止角均为正时,则只画圆弧;如果两者之一为负值时,不仅画圆弧,而且还会从圆心到负值的点画一条直线。 例如: CONST PI=3.14159 Circle(800,500),500,PI/3,5*PI/4 ’画一段圆弧 Circle(800,500),500,-PI/3,-5*PI/4 ’画一个扇形 9.5 画图应用 【例9.9】在图片框中用PSet方法随机地产生若干个彩色的点。窗体上有三个命令按钮:“画点”、“清除”和“退出”。 【例9.10】在窗体中随机地产生若干个彩色的点，并随机画出若干圆。 【例9.11】用FillStyle属性为矩形填充不同的图案。 【例9.12】用Circle方法随机画出16个不同大小和颜色的椭圆。 【例9.13】用Circle方法画圆弧和椭圆弧。 【例9.14】用Circle方法画太极图和画圆。 【例9.15】用Line方法画随机射线。 9.5 画图应用 利用随机函数Rnd产生的值在(0，0.5)与(0.5，1)之间的分布是相等的。根据坐标系由随机函数产生X坐标与Y坐标分布在第一象限，为了得到其他3个象限的坐标点，可根据Rnd0.5取相反值。然后用Line(0，0)-(X，Y)画线。 【例9.16】用PSet方法画阿基米德螺线。 【例9.17】用Circle方法画由圆环构成的艺术图案。 构造图案的算法为：将一个半径为r的圆周等分为n份，以这n个等分点为圆心，以半径r1画n个圆。圆的半径r为窗体高度的四分之一，圆心在窗体的中心，在圆周上等份40份。第二个圆半径r1为第一个圆的半径r的80%，结果如图9.17所示。 当r1=r*0.7，DrawWidth=2时，等分圆周20分，如图9.18所示，当r1=r*0.6，DrawWidth=3时，等分圆周10分，如图9.19所示。 第9章 图形操作 VB提供图形控件主要有：PictureBox、Image、Line、Shape。VB提供的图形方法有PSet、Line、Circle等。 9.1 图形操作基础 9.1.1 标准坐标系统 1.ScaleMode属性 每个容器都有一个坐标系，构成一个坐标系需要有三个要素：坐标原点、坐标度量单位、坐标轴的长度方向。坐标度量单位由容器对象的ScaleMode属性决定，ScaleMode属性设置如表9.1所示。 表9.1 ScaleMode属性设置 属性值 单 位 说 明 0 用户定义 User 1 缇 Twip缺省值 2 磅 Point 3 像素 Pixed 4 字符 Charecter缺省为高12磅，宽20磅 5 英寸 Inch 6 毫米 Millimeter 7 厘米 Centimeter 2.ScaleMode属性值的换算 (1)标准坐标系使用的长度单位：在标准坐标系统中使用的长度单位可以是缇、磅、像素、字符、英寸、毫米和厘米。 ScaleMode属性缺省时是以缇(Twip)为单