第7章绘图方法-2012052514090165.ppt
《第7章绘图方法-2012052514090165.ppt》由会员分享,可在线阅读,更多相关《第7章绘图方法-2012052514090165.ppt(27页珍藏版)》请在三一文库上搜索。
1、第7章 绘图方法,2019/3/12,本章内容,7.1 坐标系统 7.1.1 坐标刻度 7.1.2 自定义坐标系 7.2 绘图属性 7.2.1当前坐标 7.2.2使用颜色 7.3绘图方法 7.3.1画点方法Pset 7.3.2画线、矩形方法Line 7.3.3画圆、圆弧和椭圆方法Circle 7.4绘图应用实例,2019/3/12,7.1 坐标系统,在Visual Basic中,容器都有一个自己默认的坐标系,坐标系中的坐标原点在容器里的左上角,X轴向右为正、Y轴向下为正,如图7-1所示窗体容器的默认坐标系。,2019/3/12,7.1.1坐标刻度,在Visual Basic中,容器的默认坐标系
2、其缺省的坐标刻度是Twip(缇)。我们在程序设计中,也可以使用其它的刻度单位如:磅和毫米等等。这些可通过设置容器的ScaleMode属性进行选择改变坐标系统的刻度单位。其ScaleMode的属性值如表7-1所示。,2019/3/12,7.1.2自定义坐标系,1自定义坐标系的Scale方法 格式:容器名.Scale (x1,y1)-(x2,y2) 功能:定义容器(缺省容器名指窗体)左上角的坐标为(x1,y1),右下角的坐标值为(x2,y2)。 例如:用下列语句是在图片框控件中设置自己的坐标系,且图片框左上角的坐标为(-2,1),右下角的坐标是(2,-1),则原点在图片框中心。 Picture1.
3、Scale (-2 * 3.14, 1)-(2 * 3.14, -1) 使用无参数的Scale方法(如“容器名.Scale”),则可以使该容器的坐标还原为系统默认的坐标系。,2019/3/12,2使用属性自定义坐标系 除了用Scale方法自定义坐标系外,也可以使用如下四个容器类对象的属性来定义坐标系,效果一样。 ScaleLeft:容器左上角的横坐标,缺省值为0。 ScaleTop:容器左上角的纵坐标,缺省值为0。 ScaleWidth:容器自身的宽度值。 ScaleHeight:容器自身的高度值。 若容器左上角的坐标为(x1,y1),右下角的坐标值为(x2,y2),则: 容器名.ScaleL
4、eft=x1 容器名.ScaleTop=y1 容器名.ScaleWidth=x2-x1 容器名.ScaleHeight=y2-y1 故上述例子也可这样来自定义坐标系: Picture1.ScaleLeft = -2 * 3.14 Picture1.ScaleTop = 1 Picture1.ScaleWidth = 4 * 3.14 Picture1.ScaleHeight = -2,7.1.2自定义坐标系,2019/3/12,7.2.1当前坐标,当前坐标是指在坐标系中的当前位置。在容器的某一特定位置要输出一结果时,就要用到当前坐标。与当前坐标有关的两个属性: CurrentX属性:当前点在容
5、器内的横坐标(数值类型)。 CurrentY属性:当前点在容器内的纵坐标(数值类型)。 在设置CurrentX、CurrentY属性后,所设值就是下一个输出方法的当前位置。 如执行下列程序,则在图片框的中心输出“0”。 Private Sub Picture1_Click() Picture1.Scale (-2 * 3.14, 1)-(2 * 3.14, -1) Picture1.CurrentX = 0 Picture1.CurrentY = 0 Picture1.Print “0“ End Sub 在使用Cls方法后,CurrentX、CurrentY属性值为0。,2019/3/12,7
6、.2.2使用颜色,在使用图形方法绘图时要使用不同的颜色,Visual Basic中使用的颜色用一个长整型数(通常用16进制)表示,如&HFFFF00&。其数值由3部分组成:右边的两位(16进制数,下同)代表红色的值,中间的两位代表绿色的值,左边的两位代表蓝色的值。 每个值都可以取0到255之间的数值,因此共有256的立方种不同的颜色取值。 一是在设计阶段,可以通过在对象的属性窗口中选择需要设置的颜色属性,用打开的“调色板”对话框进行颜色设置。 二是程序运行运行阶段,可以使用颜色函数、使用系统预定义好的颜色常量、直接赋值或使用通用对话框中的“颜色”对话框来选取颜色。,2019/3/12,7.2.
7、2使用颜色,1颜色函数 Visual Basic提供了两个专门处理颜色的函数:RGB和QBColor。 (1)RGB函数 格式:RGB(Red,Green,Blue) 例如:语句Form1.BackColor = RGB(255,255,0),用来将窗体Form1的背景色设置为黄色。 (2) QBColor(参数) 2颜色常量 颜色常量是在Visual Basic系统内部预定义好的常量,程序设计时可以不需要声明就可以直接使用。如:Form1.BackColor = vbYellow 3直接赋值 如果知道具体的颜色值,也可以直接给颜色属性赋值。 例如:语句Form1.BackColor=&HFF
8、FF00&,将窗体的背景色设置为黄色。,2019/3/12,7.2.3线宽和线型,7.2.3线宽和线型 1线宽 DrawWidth属性:用以设置点的大小或线的宽度。以像素为单位,最小值为1。 2线型 DrawStyle属性:设置所画线的形状。 7.2.4填充 在绘图中,如果图形是封闭的,就可以进行填充,与填充有关的两个属性。 1填充图案 FillStyle属性:设置填充的图案样式,可取值07之间。 2填充颜色 FillColor属性:设置填充的颜色。,2019/3/12,7.3.1画点方法Pset,Pset方法用于在对象的指定位置用某一颜色画点。 格式:容器名.Pset step(x,y),颜
9、色 其中:(x,y)为画点的坐标。step表示用当前画点位置的相对值。颜色为画点的颜色值,缺省为用容器对象的前景色(ForeColor)画点。该方法所画点的大小,取决于容器对象的DrawWidth属性值。 【例7-1】单击窗体,用Pset方法画出-2,2上的正弦曲线和余弦曲线。 分析: (1)由于正弦曲线和余弦曲线的取值都在-1和1之间,且要求画出-2,2区间上的,因此可以先用Scale方法定义坐标系,使窗体对象的左上角坐标为-2,1,而右下角的坐标为2,-1,然后再用Pset方法画出该坐标系。 (2)单击窗体时,根据x从-2,2的不断取值,用y=sin(x)和y=cos(x)求出y,然后在(
10、x,y)点用Pset画出即可(用循环实现)。,2019/3/12,依据以上分析,可得程序代码如下: Const pi = 3.1416 Private Sub Form_click() Dim x As Single For x = -2 * pi To 2 * pi Step 0.01 Form1.PSet (x, Sin(x), vbBlue Form1.PSet (x, Cos(x), vbRed Next x End Sub Private Sub Form_Load() Dim x As Single, y As Single Form1.Scale (-2 * pi, 1)-(2
11、* pi, -1) For x = -2 * pi To 2 * pi Step 0.01 Form1.PSet (x, 0) : Next x For y = -1 To 1 Step 0.001 Form1.PSet (0, y) :Next y Form1.CurrentX = 0.1:Form1.CurrentY = -0.01:Print “0“ End Sub,【例7-1】用Pset方法画出正弦曲线和余弦曲线,2019/3/12,【例7-2】图像复制,【例7-2】将图片框Picture1中图像复制到图片框Picture2,要求保持色彩、纵横比例不变。,分析: (1)当程序运行时,图
12、片框Picture1中已加载图像,且“复制”按钮能用,“结束”按钮不能用。其运行界面如图7-3所示。 (2)当单击“复制”按钮后,Picture1中的图像按要求保持色彩、纵横比例不变后复制到Picture2,同时“复制”按钮不能用,“结束”按钮可用;单击“结束”退出程序。,2019/3/12,依据以上分析,可得程序代码如下: Private Sub Command1_Click() Dim i As Integer, j As Integer, x As Integer, y As Integer Dim c As Long For i = 1 To Picture1.ScaleWidth F
13、or j = 1 To Picture1.ScaleHeight c = Picture1.Point(i, j) x = Picture2.ScaleWidth * i / Picture1.ScaleWidth y = Picture2.ScaleHeight * j / Picture1.ScaleHeight Picture2.PSet (x, y), c Next j Next i Command1.Enabled = False :Command2.Enabled = True End Sub Private Sub Command2_Click() End End Sub,【例7
14、-2】图像复制,2019/3/12,7.3.2画线、矩形方法Line,Line方法用于在指定对象上画直线和矩形。 格式:容器名.Line step(x1,y1)-step(x2,y2),颜色,BF 其中:容器可以是窗体、图片框等,缺省为窗体。(x1,y1)为直线的起点坐标或矩形的左上角坐标,(x2,y2)为直线的终点坐标或矩形的右下角坐标。B为画矩形。F为填充的矩形,F必须和B一起使用。 如例7-1中的画坐标系是用画点来完成的,现已经有了Line来画线,则可改为简单的如下代码: Private Sub Form_Load() Form1.Scale (-2 * pi, 1)-(2 * pi,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 绘图 方法 2012052514090165
链接地址:https://www.31doc.com/p-2257755.html