28-任意一元函数曲线的绘制任务书.docVIP

河北联合大学 《软件设计基础-VB》课程设计任务书 学院 班级 设计人 成绩 一、题目：一元数学函数图示器（参考设计如下图） 二、目的与要求：1.目的：培养学生综合利用语言进行程序设计的能力，主要是培养学生。2.基本要求：。 。③能够对图形进行缩放，并可以在显示区直接选取显示范围(窗口放大)，可以对图形进行平移观察，平移的步长可以设置，当显示范围改变后，标尺刻度和网格密度应该能自动调整，以适应新的显示范围。如右图所示。 ④支持鼠标点击图形上任意一点，显示出该处的x值和对应的函数值，可以用一个消息框来显示此信息(见右图)。 ⑤程序界面美观，。、设计方法和基本原理： 问题描述：。问题的解决方案：? ③显示分辩率的实现。所谓的分辩率就是用多少条直线来逼近所画的曲线，越大画的越精确，越小画的越快，本程序建议限定在100-1000之间。 ④绘制曲线的实现。 这也是本程序要实现的核心功能，主要包括的内容有： ★ Picturebox控件中坐标系的初始化。然后利用Picturebox控件的Scale方法进行设置。图形区的坐标范围要有初始值，可以在form_load事件中设置各参数的初值。 ★ 绘制坐标轴及刻度网格线，并标上刻度值。 坐标刻度（又称为网格）的显示可以采用每隔一定的间距画一条线来实现，刻度的文字标注同时进行，注意调整写字的位置，让字能写在刻度的居中位置，可以用类似下面的方法，其中TextWidth和TextHeight是求出给定文字在给定对象上的文字宽度和高度，只有得到此值才能将字写在准确位置。 For i = .l To .r Step st s = Trim(Str(i)) ‘将要写的文字转换成字串并去掉空格 P0.CurrentX = i - P0.TextWidth(s) / 2 ‘居中对齐方式 P0.CurrentY = .t ‘写在显示区的顶部 P0.Print s; Next i ★ 函数曲线主要是利用画直线的方法进行绘制，最左侧的点算出后，用Pset方法做出标记，以后每算出一个新的函数值，用Line-（x,y） (说明：.l,.r是显示区间的左边和右边的x值，.res为显示分辨率,fx求函数值) Picture1.PSet (.l, fx(fun1, .l)) ‘绘出初始点 For i = .l To .r Step (.r - .l) / .res ‘共.res段直线构成曲线 Picture1.Line -(i, fx(fun1, i)) ‘画出一小段 Next I ⑤参数设置的实现 为了使变量公用，在模块中用Public词句声明变量及自定义类型,这样在设置窗口的form_Load事件中就可以直接取得参数值了。 Private Sub Form_Load() With Para txtL = .l: txtPS = .ps * 100 txtCW = .cw: txtAW = .aw BkColor.BackColor = .bc: AxisColor.BackColor = .ac GridColor.BackColor = .gc: Fun1Color.BackColor = .cc1 End With End Sub 参数设置支持确定和取消，如果确定，将会重新按新的设置来显示，否则，保持原显示不变，代码类下： Private Sub cmdSettings_Click() DispSettings.Show vbModal If Para.ok Then DispFun End Sub 参数设置的文本框处理较为简单，对于颜色的处理可以采用这样的方法(VB中的颜色可以存放在Long类型的变量中)，下面示例了网格颜色的设置方法，其它雷同，其中的CD1是一个公共对话框控件(Common Dialog Control) CD1.Color = GridColor.BackColor CD1.ShowColor Gri`Color.BackCklor = CD1.Color 四、问题描述：Scale方法，清除用Cls，作图用Line –(x,y)，写字用Print（这些都是图片对象现成的可用方法，改笔宽用DrawWidth属性，色彩用ForeColmr和BackColor，至于窗口放大（可以接受图片的MouseDown和Mous