用Visual Basic设计函数与坐标点绘图程序

第１９卷第３期　２０ｏ２年８月　河　北　省　科　学　院　学　报　

Ｊｏｕｒｎａｌ　ｏｆ　ｔｈｅ　Ｈｅｂｅｉ　Ａｃａｄｅｍｙ　ｏｆ　Ｓｃｉｅｎｃｅｓ　Ｖｏ１．１９　Ｎｏ．３　

Ａｕｇ．２００２　

文章编号：１００１—９３８３（２００２）０３—０１６３—０３　用Ｖｉｓｕａｌ　Ｂａｓｉｃ设计函数与坐标点绘图程序　臧建民，贾书堂，宋　煜，张肃丽　（河北省科学院激光研究所石家庄０５００８１）　｛　【摘　要】　针对实际工作中遇到的问题，用Ｖｉｓｕａｌ　Ｂａｓｉｃ语言编写一个程序软件，能有效地提高工　作效率，并给出了一个实例。　【关键词】Ｖｉｓｕａｌ　Ｂａｓｉｃ，绘图　【中圈分类号】ＴＰ３１７．４　【文献标识码】Ａ　

Ｕｓｅ　ｖｉｓｕａｌ　ｂａｓｉｃ　ｔｏ　ｄｅｓｉｇｎ　ａ　ｄｒａｗｉｎｇ　ｐｒｏｇｒａｍｍ　ｏｆ　ｆｕｎｔｉｏｎ　ａｎｄ　ｃｏｏｒｄｉｎａｔｅｓ　ＺＡＮＧ　Ｊｉａｎ—ｒｎｉｎ，ＪＩＡ　Ｓｈｕ—ｔａｎｇ，ＳＯＮＧ　Ｙｕ，ＺＨＡＮＧ　Ｓｕ—ｌｉ　（Ｉｎｓｔｉｔｕｔｅ　ｏｆ　Ｌａｓｅｒ，Ｈｅｂｅｌ　Ａｃａｄｅｍｙ　ｏｆ　Ｓｃｉｅｎｃｅｓ，Ｓｈｉｊｉａｚｈｕａｎｇ　０５００８１，Ｃｈｉｎａ）　Ａｂｓｔｒａｃｔ　Ｉｎ　ｏｒｄｅｒ　ｔＯ　ｓｏｌｖｅ　ｔｈｅ　ｐｒｏｂｌｅｍ　ｉｎ　ｐｒａｃｔｉｃｅ　ａｎｄ　ｒａｉｓｅ　ｗｏｒｋ　ｅｆｆｉｃｉｅｎｃｙ，ａ　ｓｏｆｔｗａｒｅ　ｉｓ　ｐｒｏｇｒａｍｍｅｄ　ｕｓｉｎｇ　ｖｉｓｕａｌ　ｂａｓｉｃ．Ａ　ｓａｍｐｌｅ　ｉｓ　ｄｉｓｃｕｓｓｅｄ　ｉｎ　ｐａｐｅｒ　Ｋｅｙｗｏｒｄｓ　Ｖｉｓｕａｌ　Ｂａｓｉｃ；Ｄｒａｗｉｎｇ　

在写论文和整理实验记录等工作中，有很多数据需要以坐标图的方式来表示。不论是Ｗｉｎｄｏｗｓ附件中　的画图软件，还是Ｅｘｃｅｌ和ＡｕｔｏＣＡＤ等软件，用来绘制论文和实验报告中的坐标图多感到很不方便，为此。笔　者用ＶＢ５．０编写了一个函数与坐标点绘图的程序软件，经过使用证明。基本上能满足写论文和整理实验记录　等工作中制作坐标图的需要。　１　功能介绍　使用Ｖｉｓｕａｌ　Ｂａｓｉｃ的ＣｏｍｍａｎｄＢｕｔ—　ｔｏｌｌ、ＣｏｍｍｏｎＤｉａｌｏｇ、Ｆｒａｍｅ　Ｌａｂｅｌ、ＭＳ．　ＦｌｅｘＧｒｉｄ，ＯｐｔｉｏｎＢｏｘ、ＰｉｃｔｕｒｅＢｏｘ、Ｓｃｒｉｐｔ—　Ｃｏｎｔｒｏｌ、ＴｅｘｔＢｏｘ、Ｔｉｍｅｒ等控件设计的函　数与坐标点绘图程序界面如图１。　根据论文和实验记录制作坐标图的　实际需要，函数与坐标点绘图程序软件　具有以下功能：　（１）坐标轴、刻度自动生成功能；（２）　象限选择功能；（３）比例调整功能；（４）函　数和坐标点绘图功能；（５）线型、线宽、颜　色选择功能；（６）标注文字输入功能；（７）　鼠标做图和重复绘图功能；（８）选定、剪　切、复制、粘贴功能；（９）＊．ｂｍｐ文件的打　开、保存功能；（１Ｏ）坐标图的１：１打印功　

收稿日期：２００１—１２—２５　

”　荫　嘲秘薯鬻．虢　……　：　‰６　∞：　砬　５ｏ　一＋

槲蚪　垃　蝣‘：：：　‘ｏ　

ｌＵ　一滞　＇　

一：　ｉ：ｉ：！ｌｌ　Ｙ：　ｌ　＝＝！ｌ　妻｝　一５０　．∞　－２ｏ　＿Ｉ口／　

：：　：　：ｉ　ｘ　５／ＯＵＵ　ｉ！ｉ：ｉ！ｉ｛　ｆ　一　篓～一…　。　’　＝：翔　／一　、　“　Ｉ＇　：１　／　：：—　—一￡！　。　：：　：　－　：－：　：　：－　

麓：强嚣零　鹾　：　Ｉ＝　．ｊｔ　．　．．－ｔ‘±　：　：．　ｔ±±ｌ越：ｌ　．．　：：　：　．　

．　淄＿ｌ＿＿　ｌ　囊　

※瓤　轻　※　※０　｝　ｊ懈＊　圈１　函数与坐标点绘圈程序界面　

维普资讯 http://www.cqvip.com １６４　河北省科学院学报　２００２年第１９卷　能。　２软件结构及设计技术　本软件主要由参数选择和录入、图形生成、图形编辑和打印等部分组成。　２．１参数选择和录入的设计原理及程序实现　这一部分的主要功能是完成用户对做图参数的选择和录入。选择和录入时，要求用户对做图对象、象限、　线型、颜色、线宽选择并输入做图比例、做图范围、做图函数、坐标点坐标等参数。选择和录入界面如图１和图　２所示。其中用户对做图对象、象限、线型、颜色、线宽选择是用Ｆｒａｍｅ、Ｌａｂｅｌ、ＯｐｔｉｏｎＢｏｘ、控件实现的，做图比　例、做图范围、做图函数、坐标点坐标等参数的输入是用Ｆｒａｍｅ、Ｌａｂｅｌ、ＭＳＦｌｅｘＧｒｉｄ、ＳｅｒｉｐｔＣｏｎｔｒｏｌ、ＴｅｘｔＢｏｘ实现　的。　函数做图过程的代码如下：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄｌ～Ｃｌｉｃｋ（）‘画图　按钮单击后执行的代码　

‘假如输入选择为函数输入．坐标系选　择为四象限　ｌｆ　Ｏｐｔｉｏｎ２．Ｖａｌｕｅ＝Ｔｒｕｅ　Ａｎｄ　Ｏｐｔｉｏｎ５．　Ｖａｌｕｅ＝Ｔｒｕｅ　Ｔｈｅｎ　Ｃａｌｌ　ｚｕｏｂｉａｏ４‘调用　轴和刻度做　图子程序　０　ＩＩ　ｄｒａｗ　‘谚用函毁做图子程序　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｓｕｂ　Ｓｕｂ　ｄｒａｗ２（Ｊ‘函数做图子程序　Ｄｉｍ　，　，创建变量　图２线型选择界面　

Ｄｉｍ　＾３　Ｄｏｕｂｌｅ。Ｙ　Ａｓ　Ｄｏｕｂｌｅ　Ｘ１＝ＣＬｎｇ（Ｔｅｘｔ２．Ｔｅｘｔ）　Ｘ２＝ＣＬｎｇ（Ｔｅｘｔ３．Ｔｅｘｔ）　Ｓｅｔ　Ｓｃ＝ＣｒｅａｔｅＯｂｊｅｃｔ（”ＳｃｒｉｐｔＣｏｎｔｒｏｌ”）　Ｓｃ．Ｌａｎｇｕａｇｅ＝’’ＶＢ，￣ｒｉｐｔ’’　Ｓｅｔ　ｍ＝Ｓｃ．Ｍｏｄｕｌｅｓ．Ａｄｄ（”Ｍｏｄｕｌｅｌ”）’添加模块。　Ｃａｌｌ　ｘｉａｎｘｉｎｇｘｕａｎｚｅ‘调用线形选择子程序　Ｃａｌｌ　ｙａｎｓｅｅｈｕｌｉ‘调用颜色选择子程序　ＣａＩＩ　ｘｉａｎｋｕａｎｘｕａｎｚｅ‘调用线宽选择子程序　Ｘ＝Ｘ１　ｔ＝Ｘ１　ｍ．ＡｄｄＣｏｄｅ”Ｐｒｉｖａｔｅ　Ｘ…向模块添加代码。　ｍ，ＡｄｄＣｏｄｅ”Ｘ＝”＆Ｘ１　ｍ，ＥｘｅｃｕｔｅＳｔａｔｅｍｅｎｔ（”Ｘ＝”＆Ｘ）　……‘做图范围为一象限和一、二象限时的函数做图代码　Ｉｆ　Ｏｐｔｉｏｎ５．Ｖａｌｕｅ＝Ｔｒｕｅ　Ｔｈｅｎ‘做图范围为四个象限时时函数做图代码　Ｆｏｒ　Ｘ＝Ｘ１　Ｔｏ　Ｘ２　ｔ＝ｔ＋１　ｍ，ＥｘｅｃｕｔｅＳｔａｔｅｍｅｎｔ（”Ｘ＝”＆Ｘ）　Ｘ＝ｍ．Ｅｖａｌ（Ｘ）　

维普资讯 http://www.cqvip.com 第３期　臧建民等：用Ｖｉｓｕａｌ　Ｂａｓｉｃ设计函数与坐标点绘图程序　１６５　Ｙ＝ｍ．Ｅｖａｌ（Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ））　‘根据做图区域大小设置做图的起点　Ｉｆ　Ｘ＞一５５＊ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）Ａｎｄ　Ｘ＜５５＊ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）Ａｎｄ　Ｙ＞一５０＊ＣＳｎｇ（Ｔｅｘｔ５．　Ｔｅｘｔ）一Ａｎｄ　Ｙ＜５０＊ＣＳｎｇ（Ｔｅｘｔ５．Ｔｅｘｔ）Ｔｈｅｎ　Ｐｉｃｔｔｔｒｅ１．ＰＳｅｔ（（６０＋Ｘ／ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）），（５５一Ｙ／ＣＳｎｇ（Ｔｅｘｔ５．Ｔｅｘｔ））），ＲＧＢ（ｒｅｄ，一ｇｒｅｅｎ，　ｂｌｕｅ）　Ｏ＆ａｗ３　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　Ｅｎｄ　Ｉｆ　

＆ａｗ３：　Ｆｏｒ　Ｘ＝ｔ　Ｔｏ　Ｘ２　ｍ．ＥｘｅｃｕｔｅＳｔａｔｅｍｅｎｔ（”ｘ＝”＆Ｘ）　Ｘ＝ｍ．Ｅｖａｌ（Ｘ）　Ｙ＝ｍ．Ｅｖａｌ（Ｔｒｉｍ（Ｔｅｘｔ１．Ｔｅｘｔ））　’在做图区域内绘制函数图形　Ｉｆ　Ｘ＞一５５＊ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）Ａｎｄ　Ｘ＜５５＊ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）Ａｎｄ　Ｙ＞一５０＊ＣＳｎｇ（Ｔｅｘｔ５．　Ｔｅｘｔ）一Ａｎｄ　Ｙ＜５Ｏ＊ＣＳｎｇ（Ｔｅｘｔ５．Ｔｅｘｔ）Ｔｈｅｎ　Ｐｉｃｔｔｔｒｅ１．Ｌｉｎｅ一（（６Ｏ＋ｘ／ＣＳｎｇ（Ｔｅｘｔ４．Ｔｅｘｔ）），（５５一Ｙ／ＣＳｎｇ（Ｔｅｘｔ５．Ｔｅｘｔ））），ＲＧＢ（ｒｅｄ，一　ｇｒｅｅｎ，ｂｌｕｅ）　Ｅｌｓｅ：Ｅｘｉｔ　Ｓｕｂ　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　Ｅｎｄ　Ｓｕｂ　２．２图形生成、图形编辑和打印　本部分用于图形的自动绘制、图形编辑和打印。在用户进行完绘图参数选择和录入后，利用Ｖｉｓｕａｌ　Ｂａｓｉｃ　的ＰｉｃｔｕｒｅＢｏｘ的Ｌｉｎｅ、Ｐｓｅｔ、Ｐｒｉｎｔ方法进行绘图。用户可利用图形编辑菜单中提供的选定、剪切功能和鼠标绘　图、文字输入按钮对绘制的图形进行修改和编辑，直到满意便可将绘制的图形用打印机１：１打印输出。　将图形１：１打印输出是绘图软件的一个重要功能，在本程序中，笔者没有编写专门的图形打印代码，而是　使用ＣｏｍｍｏｍＤｉａｌｏｇ、Ｔｉｍｅｒ和一个Ｆｏｒｍ直接调用了Ｆｏｒｍ的Ｐ６＿ｎｔＦｏｒｍ方法，代码如下：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ７一Ｃｌｉｃｋ（）　‘打印按钮单击后执行的代码　Ｌ０ａｄ　Ｆｏｒｍ３　Ｃｌｉｐｂｏａｒｄ．Ｃｌｅａｒ　Ｃｌｉｐｂｏａｒｄ．ＳｅｔＤａｔａ　Ｐｉｃｔｕｒｅ１．Ｉｍａｇｅ，ｖｂＣＦＢｉｔｍａｐ　Ｆｏｒｍ３．Ｐｉｃｔｕｒｅ＝Ｃｌｉｐｂｏａｒｄ．ＧｅｔＤａｔａ　Ｅｎｄ　Ｓｕｂ　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ—Ｌｏａｄ（）　‘窗体加栽后执行的代码　Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１　Ｅｎｄ　Ｓｕｂ　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ１一Ｔｉｍｅｒ（）　‘Ｔｉｍｅｒ时问到后执行的代码　ＣｏｍｍｏｎＤｉａｌｏｇ１．Ａｃｔｉｏｎ　５　（下转第１６９页）　

维普资讯 http://www.cqvip.com