资源描述：
《circle方法应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、circle方法应用任务：1.绘制圆，椭圆和扇形2.绘制太极图余金光教学重点：1.circle方法的属性2.circle方法的应用教学难点：circle方法的属性教学方法:讲授法、讨论法、演示法任务1描述：在本任务中演示的是通过circle方法在窗体上绘制圆、椭圆和扇形。圆椭圆扇形Circle方法参数：在本任务中，通过调用circle方法在图像框中绘制出圆，椭圆和扇形。Circle方法用于在对象上画圆、椭圆或弧。Circle方法的语法格式为：Object.Circle[step](x,y),radius,[color,start,end,a
2、spect]其中object是一个可选参数，用于指定执行circle方法的对象，如果省略该参数，则以当前具有焦点的窗体作为执行对象。Step是一个可选项，用此项可将圆、椭圆或弧的中心指定为相对坐标，参考点的坐标即为当前对象的currentX和currentY属性值。（x，y）和radius都是必选参数，它们的值为单精度浮点数。（x，y）用于指定圆、椭圆或弧的中心坐标。Radius用于指定圆、椭圆或弧的半径。圆心坐标和半径所用的度量单位由对象的scalemode属性决定，默认值为1，此时的度量单位是缇（twip）Color是一个可选参数，其值
3、是一个长整型数，用于指定圆周的RGB颜色，可以用visualbasic预定义的符号常量来设置color参数，也可以用RGB函数或QBcolor函数指定颜色。如果省略color参数，则使用窗体的forecolor属性值。Start，end和aspect也都是可选参数，它们的值为单精度浮点数。Start和end以弧度为单位，取值范围为-2∏~2∏。当弧、部分圆活椭圆画完以后，这两个参数指定弧的起点和终点的位置。起点的默认值为0，指点的默认值为2∏。Aspect参数用于指定圆的纵横尺寸比，其默认值为1.0（标准圆），当参数不等于1时，将画出椭圆。
4、aspect=纵半径横半径>1竖椭圆<1横椭圆Object.Circle[step](x,y),radius,[color,start,end,aspect]横轴纵轴（x，y）横半径纵半径设计步骤：1.在visualbasic集成开发环境中创建一个exe工程。2.将窗体form1的caption属性设置为“绘制圆、椭圆和扇形”。3.在窗体form1上添加以下空间。图像框空间picture1，将其backcolor属性设置为白色。4个命令按钮控件，其caption属性分别设为“画圆”、“画椭圆”、“画扇形”和“退出”。4.在窗体form1的代
5、码窗口中编写以下事件过程。Privatesubcommand1_click()Picture1.cls‘清空图像框Picture1.drawwidth=2‘设置绘线宽度Picture1.circle(1567,1567),1000,qbcolor(12)‘绘制标准圆EndsubPrivatesubcommand2_click()Picture1.clsPicture1.drawwidth=2Picture1.circle(1567,1567),1000,qbcolor(12),,,0.5‘绘制横向椭圆EndsubPrivatesubcomm
6、and3_click()Picture1.clsConstpi=3.1415926Picture1.drawwidth=2Picture1.circle(1567,1567),1000,qbcolor(12),-pi/4,-7*pi/4‘绘制扇形EndsbuPrivatesubcommand4_()Unloadme‘退出系统Endsub单击command1按钮，在图像框内显示半径为1000的标准圆。单击command2按钮，在图像框内显示横向半径为1000，纵向半径为500的椭圆。单击command3按钮，在图像框内显示横向半径为1000的
7、扇形。任务2描述：在本任务中演示的是通过circle方法在窗体上绘制几个太极图。太极图任务分析：通过设置circle方法的参数设置，综合圆弧，圆绘制出几个太极图。设计步骤：1.在visualbasic集成开发环境中新建一个exe工程。2.将窗体form1的caption属性设置为“绘制太极图”3.将form1的backcolor属性设置为白色。4.在窗体form1的代码窗口中编写以下事件过程。Constpi=3.1415926Subfgh(x,y,r)DrawWidth=2Circle(x,y),r,QBColor(12)‘绘制标准圆Cir
8、cle(x,y-r/2),r/2,QBColor(12),pi/2,3*pi/2‘绘制上半圆弧Circle(x,y+r/2),r/2,QBColor(12),3*pi/2,pi/
