使用VB绘制sin函数曲线

来源：互联网发布：linux查看光纤卡流量编辑：程序博客网时间：2024/05/18 15:56

最近在准备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

阅读全文

0 0