VB(5.1)绘制正弦曲线
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
说明： ⑴ 对象指明画点的场所，缺省对象为当前窗体。 ⑵ Step关键字可选，表示相对坐标。
⑶ 参数(x, y)为所画点的坐标。
第5章目录
⑷ color为该点指定的 RGB 颜色。如果省略，则 使用 当前 的 ForeColor 属性值。 绝对坐标：(CurrentX,CurrentY)
12／9
汝南县职业教育中心
任务1 绘制正弦曲线
3、 PSet和Line语句 （2） Line方法
作用：是在窗体、图片框等对象上绘制直线和矩形。
语法格式： [<对象名>]. Line [Step](X1, Y1)-[Step](X2, Y2),<颜色> [，B] [F]
B表示画矩形框，F 表示填充
1、画线 格式Line [Step](X1, Y1)-[Step](X2, Y2),<颜色> 起点(X1, Y1) 终点(X2, Y2)
Visual Basic 6.0程序设计
第5章 多媒体程序设计
————任务1 绘制正弦曲线
汝南县职业教育中心
任务1 绘制正弦曲线
【知识点】 窗体坐标系(Scale) 使用颜色(QBColor和RGB) PSet和Line语句
第5章目录
2／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系：
谢谢
汝南县职业教育中心
第5章目录
3／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系：
第5章目录
4／9
汝南县职业教育中心
任务1 绘制正弦ห้องสมุดไป่ตู้线
1、窗体坐标系： VB的坐标系统分为
默认规格(Default Scale)；
标准规格(Standard Scale)； 自定义(Custom Scale)
坐标系三要素：原点、度量单位 、坐标轴的方向；
第5章目录
5／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 默认规格坐标系 在默认规格坐标中，对象的左上 角坐标为（0，0），当沿着水平向右 移动和沿垂直轴向下移动时，坐标值 增加。对象的Top和Left属性指定了 该对象左上角的距原点在垂直方向和 水平方向的偏移量。
第5章目录
6／9
11／9
End Sub
汝南县职业教育中心
任务1 绘制正弦曲线
3、 PSet和Line语句 （1） PSet方法
作用：是在窗体、图片框等对象上绘制一个点。
语法格式为： [<对象名>].PSet [Step] (x, y) [,<颜色>]
例：Picture1.PSet (X, Sin(X) * 5), QBColor(12)
1、窗体坐标系： 自定义规格坐标 默认规格和标准规格坐标系都以对象左上角（0，0）为原点，坐 标值沿水平方向向右增加，沿垂直方向向下增加并且量度单位都 是规范的。VB允许用户定义自己的坐标系统，包括原点位置、轴 线方向和轴线“刻度”。 自定义规格坐标系统：
1）采用Scale方法来设置坐标 [对象].Scale[(x1,y1)-(x2,y2)] [对象].Scale[(xLeft,yTop)-(xRight,yBottom)]
ScaleWidth，ScaleHeight指对象的内部尺寸，不包括边框厚度以及 菜单或标题等高度
10／9
汝南县职业教育中心
任务1 绘制正弦曲线
2、 使用颜色 QBColor函数和RGB函数
(1) QBColor函数
QBColor(颜色码） 例：Picture1.ForeColor = QBColor(0)
第7章目录
如果省去起点,表明从当前点到终点的一条线
参数B表示画矩形 ，此时若有参数F，表示用线条的颜色填充矩形 ，
若无参数，则矩形用当前的fillcolor和fillstyle
13／9
汝南县职业教育中心
任务1 绘制正弦曲线
3、 PSet和Line语句 （2） Line方法 Step表示相对坐标关系 缺省Step 表示绝对坐标 Line [Step] (X1, Y1) -
第7章目录
Form1.ScaleLeft = -14 Form1.ScaleTop = 14 Form1.ScaleWidth = 28 Form1.ScaleHeight = -28 ScaleTop、ScaleLeft的值用于指定对象左上角坐标，缺省值为0， 坐标原点在对象的左上角， 当改变ScaleLeft、ScaleTop的值后，坐标系的X轴或Y轴按此值平 移形成新的坐标原点。 对象右下角坐标为 （ScaleLeft+ScaleWidth，ScaleTop+ ScaleHeight）
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 标准规格坐标系 ScaleMode属性指定坐标的度量单位 例：Picture1.ScaleMode=0 Picture1.ScaleMode=3
第5章目录
注：vbUser和vbPixels不能用于打印机
7／9
汝南县职业教育中心
任务1 绘制正弦曲线
第7章目录
(x1,y1)为左上角坐标
(x2,y2)为右下角坐标
例：Picture1.Scale(-10,10) – (10,-10)
注：Scale方法不带参数时，则取消用户自定义的坐标系，而采用默认的坐标系。 picture1.scale
8／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 自定义规格坐标
Form1.Scale (-10, 10 )-( 10，-10)
（-10，10）
第7章目录
9／9
（10，-10） 汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 自定义规格坐标
2）通过对象的ScaleTop、ScaleLeft、ScaleWidth 、ScaleHeight 四 项属性来实现
[Step](X2, Y2)
相对前一点
相对(x1,y1)
Line(1000, 800)-(2000,800) Line –step(1000,0) (0,0)
第5章目录
(1000,800)(2000,800)(3000,800)
14／9
汝南县职业教育中心
Visual Basic 6.0程序设计本节内容结束
颜色码取值为0-15 （书P118表5-2 ），每个颜色码代表一种颜色。
( 2) RGB 函数 通过红、绿、蓝三原色混合产生 RGB（红，绿，蓝）—— R, G, B 均为0-255之间的整数
例：Private Sub setcolor()
第5章目录
lblsample.ForeColor = RGB(hsbcolor(0).Value, hsbcolor(1).Value, hsbcolor(2).Value)
⑶ 参数(x, y)为所画点的坐标。
第5章目录
⑷ color为该点指定的 RGB 颜色。如果省略，则 使用 当前 的 ForeColor 属性值。 绝对坐标：(CurrentX,CurrentY)
12／9
汝南县职业教育中心
任务1 绘制正弦曲线
3、 PSet和Line语句 （2） Line方法
作用：是在窗体、图片框等对象上绘制直线和矩形。
语法格式： [<对象名>]. Line [Step](X1, Y1)-[Step](X2, Y2),<颜色> [，B] [F]
B表示画矩形框，F 表示填充
1、画线 格式Line [Step](X1, Y1)-[Step](X2, Y2),<颜色> 起点(X1, Y1) 终点(X2, Y2)
Visual Basic 6.0程序设计
第5章 多媒体程序设计
————任务1 绘制正弦曲线
汝南县职业教育中心
任务1 绘制正弦曲线
【知识点】 窗体坐标系(Scale) 使用颜色(QBColor和RGB) PSet和Line语句
第5章目录
2／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系：
谢谢
汝南县职业教育中心
第5章目录
3／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系：
第5章目录
4／9
汝南县职业教育中心
任务1 绘制正弦ห้องสมุดไป่ตู้线
1、窗体坐标系： VB的坐标系统分为
默认规格(Default Scale)；
标准规格(Standard Scale)； 自定义(Custom Scale)
坐标系三要素：原点、度量单位 、坐标轴的方向；
第5章目录
5／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 默认规格坐标系 在默认规格坐标中，对象的左上 角坐标为（0，0），当沿着水平向右 移动和沿垂直轴向下移动时，坐标值 增加。对象的Top和Left属性指定了 该对象左上角的距原点在垂直方向和 水平方向的偏移量。
第5章目录
6／9
11／9
End Sub
汝南县职业教育中心
任务1 绘制正弦曲线
3、 PSet和Line语句 （1） PSet方法
作用：是在窗体、图片框等对象上绘制一个点。
语法格式为： [<对象名>].PSet [Step] (x, y) [,<颜色>]
例：Picture1.PSet (X, Sin(X) * 5), QBColor(12)
1、窗体坐标系： 自定义规格坐标 默认规格和标准规格坐标系都以对象左上角（0，0）为原点，坐 标值沿水平方向向右增加，沿垂直方向向下增加并且量度单位都 是规范的。VB允许用户定义自己的坐标系统，包括原点位置、轴 线方向和轴线“刻度”。 自定义规格坐标系统：
1）采用Scale方法来设置坐标 [对象].Scale[(x1,y1)-(x2,y2)] [对象].Scale[(xLeft,yTop)-(xRight,yBottom)]
ScaleWidth，ScaleHeight指对象的内部尺寸，不包括边框厚度以及 菜单或标题等高度
10／9
汝南县职业教育中心
任务1 绘制正弦曲线
2、 使用颜色 QBColor函数和RGB函数
(1) QBColor函数
QBColor(颜色码） 例：Picture1.ForeColor = QBColor(0)
第7章目录
如果省去起点,表明从当前点到终点的一条线
参数B表示画矩形 ，此时若有参数F，表示用线条的颜色填充矩形 ，
若无参数，则矩形用当前的fillcolor和fillstyle
13／9
汝南县职业教育中心
任务1 绘制正弦曲线
3、 PSet和Line语句 （2） Line方法 Step表示相对坐标关系 缺省Step 表示绝对坐标 Line [Step] (X1, Y1) -
第7章目录
Form1.ScaleLeft = -14 Form1.ScaleTop = 14 Form1.ScaleWidth = 28 Form1.ScaleHeight = -28 ScaleTop、ScaleLeft的值用于指定对象左上角坐标，缺省值为0， 坐标原点在对象的左上角， 当改变ScaleLeft、ScaleTop的值后，坐标系的X轴或Y轴按此值平 移形成新的坐标原点。 对象右下角坐标为 （ScaleLeft+ScaleWidth，ScaleTop+ ScaleHeight）
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 标准规格坐标系 ScaleMode属性指定坐标的度量单位 例：Picture1.ScaleMode=0 Picture1.ScaleMode=3
第5章目录
注：vbUser和vbPixels不能用于打印机
7／9
汝南县职业教育中心
任务1 绘制正弦曲线
第7章目录
(x1,y1)为左上角坐标
(x2,y2)为右下角坐标
例：Picture1.Scale(-10,10) – (10,-10)
注：Scale方法不带参数时，则取消用户自定义的坐标系，而采用默认的坐标系。 picture1.scale
8／9
汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 自定义规格坐标
Form1.Scale (-10, 10 )-( 10，-10)
（-10，10）
第7章目录
9／9
（10，-10） 汝南县职业教育中心
任务1 绘制正弦曲线
1、窗体坐标系： 自定义规格坐标
2）通过对象的ScaleTop、ScaleLeft、ScaleWidth 、ScaleHeight 四 项属性来实现
[Step](X2, Y2)
相对前一点
相对(x1,y1)
Line(1000, 800)-(2000,800) Line –step(1000,0) (0,0)
第5章目录
(1000,800)(2000,800)(3000,800)
14／9
汝南县职业教育中心
Visual Basic 6.0程序设计本节内容结束
颜色码取值为0-15 （书P118表5-2 ），每个颜色码代表一种颜色。
( 2) RGB 函数 通过红、绿、蓝三原色混合产生 RGB（红，绿，蓝）—— R, G, B 均为0-255之间的整数
例：Private Sub setcolor()
第5章目录
lblsample.ForeColor = RGB(hsbcolor(0).Value, hsbcolor(1).Value, hsbcolor(2).Value)