用VB实现画三角函数曲线

应用研究　用ＶＢ实现画三角函数曲线　杨忠　（淄博职业学院山东淄博２５５０１４）　摘要：Ｖｉｓｕａｌ　Ｂａｓｉｃ６．０中可以使用直线、形状等控件直接绘图，但有时我们需要在程序运行时绘图，此时应该使用绘图方法绘图。文章将使用绘　图方法绘制三角函数曲线。　关键词：Ｖｉｓｕａｌ　Ｂａｓｉｃ绘图三角函数曲线　中图分类号：ＴＰ３１１　文献标识码：Ａ　文章编号：１００７－９４１６（２０１３）０５—０１４５—０２　Ｄｒａｗ　ｔｈｅ　ｔｒｉｇｏｎｏｍｅｔｒｉｃ　ｆｕｎｃｔｉｏｎ　ｃｕｒｖｅ　ｗｉｔｈ　ＶＢ　Ｙａｎｇ　Ｚｈｏｎｇ　（Ｚｉｂｏ　Ｖｏｃａｔｉｏｎａｌ　Ｉｎｓｔｉｔｕｔｅ　Ｓｈａｎｄｏｎｇ　Ｚｉｂｏ　２５５０１４）　Ａｂｓｔｒａｃｔ：Ｖｉｓｕａｌ　Ｂａｓｉｃ６．０　ｃａｎ　ｕｓｅ　ｔｈｅ　ｌｉｎｅ，ｓｈａｐｅ　ｃｏｎｔｒｏｌ　ｄｉｒｅｃｄｙ　ｄｒａｗｉｎｇ，ｂｕｔ　ｓｏｍｅｔｉｍｅｓ　ｗｅ　ｎｅｅｄ　ｔｏ　ｄｒａｗｉｎｇ　ｗｈｅｎ　ｔｈｅ　ｐｒｏｇｒａｍ　ｒｕｎｓ，ｔｈｉｓ　ｔｉｍｅ　ｓｈｏｕｌｄ　ｕｓｅ　ｔｈｅ　ｍｅｔｈｏｄ　ｏｆｄｒａｗｉｎｇ　ｄｒａｗｉｎｇ．Ｔｈｉｓ　ａｒｔｉｃｌｅ　ｗｉｌｌ　ｕｓｅ　ｔｈｅ　ｄｒａｗｉｎｇ　ｍｅｔｈｏｄ　ｏｆｔｉｇｏｎｏｍｅｔｒｒｉｃ　ｆｕｎｃｔｉｏｎ　ｃｕｒｖｅ　ｍａｐｐｉｎｇ．　Ｋｅｙ　Ｗｏｒｄｓ：Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｄｒａｗｉｎｇ　ｔｒｉｇｏｎｏｍｅｔｒｉｃ　ｆｕｎｃｔｉｏｎ　ｃｕｒｖｅ　Ｖｉｓｕａｌ　Ｂａｓｉｃ５．０中可以使用直线、形状等控件直接绘图，具有　２程序设计　占用系统资源少、运行速度快、设计阶段可预览图形效果、代码量少　利用ＶＢ６０￣Ｏ建一个标准可执行文件，在工程中窗体中按照表　等优点，适合于静态图形设计。但对于动态图形的产生，使用控件绘　１信息添加各种组件并设置其属性。　图有一定的局限性，而绘图方法则为我们提供了便利。　利用菜单编辑器，添加一个弹出式菜单，按照表２所示添加并设　１正弦函数、余弦函数　Ｙ＝ｓｉｎｘ（ｘ∈Ｒ，Ｙ∈【－１，１】）称为正弦函数，Ｙ＝ＣＯＳＸ（Ｘ∈Ｒ，ｙ∈　［一ｌ，ｌ】）称为余弦函数，ｙ＝ｔａｎｘ（ｘｌｘ≠（丌／２）＋ｋ　７ｒ，ｋ∈Ｚ）称为正切　函数。ｙ＝ｓｉｎ　ｘ（ｘ∈Ｒ）的图像叫做正弦（余弦）曲线（图１），Ｙ＝ＣＯＳＸ（Ｘ　∈Ｒ）的图像叫做余弦曲线（图２），ｙ＝ｔａｎｘ（ｘｌｘ≠（７ｒ／２）＋ｋ　，ｋ∈Ｚ）　的图像叫做正切曲线（图３）。在科学研究中，三角函数曲线有较多的　用处。在Ｖｂ６０中，有对应三角函数，但无法直接绘制曲线，文章将使　用绘图方法绘制正弦曲线、余弦曲线和正切曲线。　，　置各菜单项。　根据以上参数，界面设计如图４所示。　ｌ　，　嘲ｘ　ｘ∈Ｒ　…７　…　…　●　‘”＿…　≯　……　………”　？　．　Ｉ＝　。　…．　．．　曼…　　．。　．１　圈１正弦曲线　，　图４程序界面　３程序实现　∈Ｒ　】　．）卢ｃｏｓ　…　…。　…■‘　…一…　…　．　…．　．．　…：…　…　芒　…。　．　．，　１　图２余弦曲线　ｙ　一？　？‘　？’　，　｛　ｆ　萼　ｘ　荨　Ｏ　．编写Ｆｏｒｍ＿ｐａｉｎ函数，画出坐标轴系统，该函数核心代码如下　所示。　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｐａｉｎｔ（）　’设定Ｐｉｃｔｕｒｅｌ相关参数　Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（ｏｌｄｘ，．Ｔｏｐ）一（ｏｌｄｘ，．ＳｃａｌｅＨｅｉｇｈｔ），　ＲＧＢ（２５５，０，０）’画Ｙ坐标轴　Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（０，ｏｌｄｙ）一（．ＳｃａｌｅＷｉｄｔｈ，ｏｌｄｙ），ＲＧＢ　………………（２５５，０，０）’画ｘ坐标轴　。设定Ｐｉｃｔｕｒｅｌ控件ＣｕｒｒｅｎｔＸ和ＣｕｒｒｅｎｔＹ　………………值　Ｐｉｃｔｕｒｅ１．Ｐｒｉｎｔ　０　画原点　Ｆｏｒ　ｘｔ＝一Ｉｎｔ（ｏｌｄｘ）Ｔｏ　Ｉｎｔ（ｏｌｄｘ）Ｓｔｅｐ　０．５　Ｉｆ　ｘｔ＜＞０　Ｔｈｅｎ　图３正切曲线　作者简介：杨忠（１９７１一），男，淄博职业学院教师，主要从事软件开发、数据库应用研究。　⑩　应用研究　表１界面设置资源列表　资源类型　标签　Ｌ．ａｂｅｌｌ　Ｌａｂｅｌ　Ｌａｂｅｌ２　Ｌａｂｅｌ３　Ｐｉｃｔｕｒｅｂｏｘ　Ｐｏｐｍｅｎｕ　Ｐｉｃｔｕｒｅ１　ｍｅｎＵ　备注　标识正弦曲线　标识余弦曲线　标识正切曲线　函数曲线容器　弹出式菜单，选择函数　表２弹出式菜单项列表　名称　Ｍｅｎｕ　……Ｎａｍｅ　Ｐｏｐｍｅｎｕ　索引　Ｓｉｎ（ｘ）　Ｃｏｓ（ｘ）　Ｔａｎ（ｘ）　Ｈｓ　Ｈｓ　Ｈｓ　Ｈｓ　０　ｌ　２　３　…………全显　……清除　ｓｔ＝ｘｔ｝ｌ０　ｐｌ　ＨＳ　Ｆｏｒｍ＿Ｐａｉｎｔ　４　Ｐｉｃｔｕｒｅ１．ＣｕｒｒｅｎｔＸ＝ｏｌｄｘ＋ｓｔ一３　Ｐｉｃｔｕｒｅ１．ＣｕｒｒｅｎｔＹ＝ｏｌｄｙ＋０．５　ｓｅｌ＝Ｉｎｄｅｘ　Ｅｎｄ　Ｓｕｂ　‘画ｘ轴刻度　Ｐｉｃｔｕｒｅ１．Ｐｒｉｎｔ　ｘｔ＆’　”　编译工程，运行程序，结果显示如图４所示　右键单击窗体，　Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（ｏｌｄｘ＋ｓｔ，ｏｌｄｙ—１）一（ｏｌｄｘ＋ｓｔ，　选择某项，如“全显”，画出正弦、余弦和正切曲线，程序运行结果如　图５所示。　ｏｌｄｙ），ＲＧＢ（２５５，０，０）　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　ｘｔ　………………４结语　’按照画Ｘ轴方法，更改参数，画出Ｙ轴刻度　在以上程序基础之上，可以推广画出Ｙ＝Ａｓｉｎ（【ｔ）ｘ＋由）、　ｙ＝Ａｃｏｓ（∞ｘ＋　）或者ｙ＝ｔａｎ（∞ｘ＋　）等类型三角函数图像。　Ｅｎｄ　Ｓｕｂ　编写菜单单击函数，实现画各种曲线功能，代码如下。　Ｐｒｉｖａｔｅ　Ｓｕｂ　ｈｓ＿Ｃｌｉｃｋ（Ｉｎｄｅｘ　Ａｓ　Ｉｎｔｅｇｅｒ）　ｏｌｄｘ＝Ｐｉｃｔｕｒｅ１．ＳｃａｌｅＷｉｄｔｈ／２　ｏｌｄｙ＝Ｐｉｃｔｕｒｅ１．ＳｃａｌｅＨｅｉｇｈｔ／２　Ｆｏｒｍ＿Ｐａｉｎｔ　０　一　Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｉｎｄｅｘ‘根据选择显示相应函数曲线　Ｃａｓｅ　０　Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝”Ｓｉｎ（ｘ）曲线”　Ｆｏｒ　ｔ＝－ｏｌｄｘ　Ｔｏ　ｏｌｄｘ　Ｓｔｅｐ　０．Ｏ１　ｘｔ＝１０　ｔ　一，　￣／／　－２　戈、、＼／／　　、　蜮～　誊。ｓ　麓鳗　・　ｙｔ＝１０｝Ｓｉｎ（ｔ）　Ｐｉｃｔｕｒｅ１．ＰＳｅｔ（ｘｔ＋ｏｌｄｘ，ｏｌｄｙ—ｙｔ），　ＲＧＢ（Ｏ，１２７，１２７）　Ｎｅｘｔ　ｔ　Ｃａｓｅ　１　３　；　４　图５三角函数曲线　参考文献　Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ＝”Ｃｏｓ（ｘ）曲线　’代码同Ｃａｓｅ　０　………………ｙｔ＝１０　Ｃｏｓ（ｔ１　………………’代码同Ｃａｓｅ　０　［１］白雪．用ＶＢ编写函数曲线．电脑编程技巧与维护［Ｊ］．２００９（２２）．　［２］常晓兵．三角函数的图像和性质．数学通讯［Ｊ］．２００７（２２）．　［３］蒋靖．ＶＢ图形一例通．电脑开发与应用［Ｊ］．２００６（０１）．　［４］朱春香．ＶＢ的图形控件在程序设计中的应用［Ｊ］．２０１　１（３４）．　Ｃａｓｅ　２　………………’代码为Ｃａｓｅ　０和Ｃａｓｅ　１代码　Ｃａｓｅ　３　Ｐｉｃｔｕｒｅ１．Ｃｌｓ