《VisualBasic程序设计教程第四版龚沛增》完整课件.ppt

《VisualBasic程序设计教程第四版龚沛增》完整课件.ppt

  1. 1、本文档共326页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 9.3.3 Pset方法 作用:Pset方法用于画点。 格式:[对象.] Pset [Step](x,y) [,颜色] 说明:(1)参数(x,y)为所画点的坐标; (2)Step表示采用当前位置的相对值; (3)采用背景色画点时可以清除点。 例9.8用Pset方法绘制方程组y1=-5x2+2x+3和y2=x+1的曲线,并求解方程。 分析:采用较小的步长,就可使离散的点连接成曲线。 求解方程实质是找曲线的交点坐标,由于作图时存在误差,故判断时不能用y1=y2,而要使用Abs(y1-y2)误差获得对应的x值。 9.3.4 Point方法 作用:Point方法返回指定点的RGB颜色。 格式:[对象.] Point (x,y) 说明:(x,y)指定点的坐标。如果(x,y)点位于对象之外,Point方法将返回True。 例9.9用Point方法获取一个区域的信息并使用Pset方法进行仿真。 分析:窗体与图形框的坐标系设置值相同,但窗体的实际宽度和高度比图形框大,故仿真输出时放大了原来的字符。 9.3.5 Line(画线工具) 作用:Line控件用来画线。 属性:BorderWidth、BorderStyle、BorderColor。 说明:运行时可通过x1、y1、x2、y2四个属性设置两个端点的位置。 例如:用Line控件制作数码数字。 9.3.6 Shape(形状) 作用:Shape控件根据Shape属性不同用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。 属性:FillStyle属性指定控件的填充图案,FillColor属性指定控件填充图案的颜色。 例如: 用Shape控件绘制奥林匹克五环旗。 9.4 综合应用 例9.10利用绘图方法及绘图属性,根据给定的数据 绘制直方图、饼图等统计图形。 设计思路: ①采用动态数组存放数据; ②直方图可用带参数BF的Line语句来绘制; ③饼图绘制用Circle语句,绘图时需要计算出每个绘图数据在圆内占的百分比,定出该数据对应扇形的起始角和终止角; ④折线图可用Line语句实现; ⑤散点图用Pset语句绘制。 例9.11 设计程序模拟行星运动。 设计思路: ①在时钟的Timer1_Time事件内有规律地改变对象的形状、尺寸或位置,就可形成动画效果。 ②太阳和行星运动轨道用Circle语句完成。 ③行星在轨道上的方程: x= rx*cos(alfa),y= ry*sin(alfa) ④窗体的DrawMode属性设置为Xor或Invert ,在相同位置上重复绘置相同图形,可起到擦除的作用。 例9.12 通过改变图形形状演示一个陀螺在图形框内转动。 例9.13 演示地球图标的转动,在转动时同时使地球图标在窗体内移动,并变化地球图标的尺寸。 (用PictureClip控件来存放一组图片) 本章小节 在VB内绘制图形过程 先定义图形载体的坐标系 设置绘图属性(线宽,线型、色彩等) 指定画笔的起终点位置 调用绘图方法绘制图形 坐标系定义 Scale 绘图属性 CurrentX、CurrentY, DrawWidth、DrawStyle, FillStyle 、FillColor 绘图方法 Line、Circle、Pset 、Point * * * * * * * * * * * * * * * * * * * * * * * * * Click、DblClick事件: 例如,单击输出文件名。 Sub File1_Click( ) MsgBox File1.FileName End Sub 例如,双击执行可执行程序: Sub File1_DblClick( ) RetVal = Shell(File1.Path+”\”+File1.FileName, 1) 执行程序 End Sub 例8.0示例程序文件管理系统。当用户在文件列表框中单击文件名时输出该文件名;双击某可执行文件时,可以运行该程序。 8.2 文件概述 文件:存储在外部介质上数据的集合,文件按名进行存取。 8.2.1文件分类 1.按文件内容分类 程序文件:包括源程序和可执行程序。

文档评论(0)

seunk + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档