怎样在VB里画正弦波、三角波、锯齿波、方波等。

正弦波的例子，添加一个picturebox 一个command

Option Explicit

Private Const PI = 314159 '圆周率

Private Const Gap = 30 '格线宽、高度

Private Const DivWidth = 10 '宽度10等分

Private Const DivHeight = 8 '高度8等分

Private Const RangeH = Gap DivHeight 'Picture高度

Private Const RangeW = Gap DivWidth 'Pictrue宽度

Dim plot_amp, plot_freq As Single '描绘在方块的电压、频率大小

Private Sub Form_Load() '表单载入

Picture1ScaleWidth = RangeW '方块宽度

Picture1ScaleHeight = RangeH '方块高度

plot_amp = 10 '描绘在方块的电压、频率大小

plot_freq = 5 '要多大随你改

End Sub

Private Sub Command1_Click()

Dim i, x_old, y_old, x_new, y_new As Single

x_old = 0 '起始点座标

y_old = RangeH / 2

i = 0

Do

x_new = i '终点座标

y_new = Sin(2 PI plot_freq i / RangeW) plot_amp + RangeH / 2

'画直线

Picture1Line (x_old, y_old)-(x_new, y_new), RGB(255, 0, 0)

x_old = x_new '将终点座标变成下一次的起始点座标

y_old = y_new

i = i + 1

Loop While i < RangeW

End Sub

Mwave(i

),

LpPoint1)

将坐标移到（i，Mwave（i））点，并返回先前的点LpPoint1

LineTo(Picture1hdc,

i,

Mwave(i+1))

以上面的坐标点位基础，画线到（i，Mwave（i+1））点

所以上面两个方法一般成对出现

至于画波形，用循环方式遍历数组即可（比如i为数组下标）

（从i=0开始）

画 Sin 函数图像，可调整振幅、相位、周期，请看我的 QQ 空间：

>

第一：VB只是一种编程语言，能编写出什么样的程序取决于程序员，你不能因为自己写不出来就质疑VB的能力。很多大型程序都是有VB写出来的。

第二：你的问题在>

以上就是关于怎样在VB里画正弦波、三角波、锯齿波、方波等。全部的内容，包括:怎样在VB里画正弦波、三角波、锯齿波、方波等。、在VB中利用坐标系画波形图、请问该如何在vb6.0中实现动态sin波形显示等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！