营销10章 图形图像处理.pptVIP

重庆医科大学计算机教研室 书山有路勤为径，学海无涯苦作舟 图形图像处理 第11章　图形图像处理 贺向前 主要内容 计算机坐标系统 常用作图方法 作图相关属性 作图的相关函数 计算机坐标系统 显示器坐标系统 计算机坐标系统 窗口等容器的坐标系统 计算机坐标系统 坐标系统的度量单位 object.ScaleMode = value Value 描述 0 指出 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性中的一个或多个被设置为自定义的值 1 （缺省值）缇（每英寸为 1440 缇；每厘米为 567 个缇）。(Twip) 2 磅（每英寸为 72 个磅）。(Point) 3 像素（分辨率的最小单位）。(Pixel) 4 字符 (Character) 5 英寸。(Inch) 6 毫米。(Millimeter) 7 厘米。(Centimeter) 计算机坐标系统 自定义度量单位 Object.ScaleWidth=w 把对象的宽度定义为有w个刻度单位 Object.ScaleHight=h 把对象的高度定义为有h个刻度单位 Object.ScaleLeft=X 当X0，对象的坐标系统的横坐标向左平移X个度量单位 当X0，对象的坐标系统的横坐标向右平移X个度量单位 Object.ScaleTop=Y 当Y0，对象的坐标系统的纵坐标向上平移Y个度量单位 当Y0，对象的坐标系统的纵坐标向下平移Y个度量单位 计算机坐标系统 自定义度量单位 Object.Scale(x1,y1)-(x2,y2) (x1,y1)：新坐标系下对象左上角的坐标 (x2,y2)：新坐标系下对象右下角的坐标 计算机坐标系统 例 把窗体的坐标系统的长宽分别定义为100个单位，坐标原点移动到窗体的中央 Private Sub Form_Load() Me.AutoRedraw = True Me.ScaleWidth = 100 Me.ScaleHeight = 100 Me.ScaleLeft = -50 Me.ScaleTop = -50 Me.Line (-50, 0)-(50, 0) Me.Line (0, -50)-(0, 50) End Sub 计算机坐标系统 把窗体的坐标系统的长宽分别定义为100个单位，坐标原点移动到窗体的中央 Private Sub Form_Load() Me.AutoRedraw = True Me.Scale(-50,-50)-(50,50) Me.Line (-50, 0)-(50, 0) Me.Line (0, -50)-(0, 50) End Sub 计算机坐标系统 如何把上例中的纵坐标的方向设置为向上?并标出如图所示的原点和X、Y 常用作图方法 画线Line方法 Object.Line(x1,y1)-(x2,y2),Color 画矩形Line方法 Object.Line(x1,y1)-(x2,y2),Color,BF 如果没有使用参数F，则填充模式和填充颜色分别由Object的FillStyle和FillColor决定，否则画一个实心的矩形，边框线颜色和填充颜色均由Color决定； 例 画出5条长度相同平行的线段 Option Explicit Private Sub Form_Click() Dim i% For i = 1 To 5 Line (500, 500 * i + 100)-(2500, 500 * i + 100) Next i End Sub 例 画出5个同心矩形 Option Explicit Private Sub Form_Click() Dim i%, x1%, y1%, x2%, y2% Me.Scale (-50, 50)-(50, -50) Me.Line (-50, 0)-(50, 0) Me.Line (0, 50)-(0, -50) For i = 1 To 5 x1 = -50 + 5 * i y1 = 50 - 5 * i x2 = 50 - 5 * i y2 = -50 + 5 * i Me.Line (x1, y1)-(x2, y2), , B Next i End Sub 例：画出如图所示图形 Private Sub Form_Click() Dim i%, j%, t#, N%, r#, xi#, yi#, xj#, yj# Const pi# = 3.14159265358979