使用VB绘制sin函数曲线

最新推荐文章于 2022-04-04 13:32:33 发布

liyanqin1952

最新推荐文章于 2022-04-04 13:32:33 发布

阅读量7.7k

点赞数

分类专栏： VB程序文章标签： VB源程序 VB绘制函数图像绘制sin曲线

本文链接：https://blog.csdn.net/liyanqin1952/article/details/77540023

版权

VB程序专栏收录该内容

1 篇文章 0 订阅

订阅专栏

最近在准备CSDN学院的课程，还没有通过审核，这里先把绘制函数图像的例题跟大家分享下。

使用VB可以很方便地绘制函数图像。

原理很简单：

绘制过程是不断地绘制函数各个点的过程。

将函数的每一个点计算出来，然后绘制在容器内即可。

如果在x轴之间的点选择的举例特别近，就能够绘制足够精密的点。

因为点足够精密，也就实现了动态效果。

最后的效果如下：

上述图像是动态出现的。

具体的代码如下：

Private Sub Command1_Click()
    '版权：liyanqin1952@126.com
    'Picture作为容器  Picture1.Pset
    '坐标方法  scale (x1,y1)-(x2,y2)
    'For循环步长   for i=1 to 10 step 0.0001
   
    'Picture1.Line (100, 100)-(3000, 3000)
    Picture1.Scale (-10, 1)-(10, -1)
    'Picture1.Line (-10, 1)-(10, -1)
    Picture1.Line (-10, 0)-(10, 0), vbBlue
    Picture1.Line (0, -1)-(0, 1), vbBlue
    For i = -10 To 10 Step 0.0001
        x = i
        y = Sin(x)
        Picture1.PSet (x, y), vbRed
    Next    
End Sub