作业帮怎样在VB里画正弦波、三角波、锯齿波、方波等.怎样在VB里生成正弦波、三角波、锯齿波、方波等典型波形.要求能自动各波形的参数.如周期、幅值等等.
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 15:47:13
怎样在VB里画正弦波、三角波、锯齿波、方波等.怎样在VB里生成正弦波、三角波、锯齿波、方波等典型波形.要求能自动各波形的参数.如周期、幅值等等.
怎样在VB里画正弦波、三角波、锯齿波、方波等.
怎样在VB里生成正弦波、三角波、锯齿波、方波等典型波形.要求能自动各波形的参数.如周期、幅值等等.
怎样在VB里画正弦波、三角波、锯齿波、方波等.怎样在VB里生成正弦波、三角波、锯齿波、方波等典型波形.要求能自动各波形的参数.如周期、幅值等等.
正弦波的例子,添加一个picturebox 一个command
Option Explicit
Private Const PI = 3.14159 '圆周率
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() '表单载入
Picture1.ScaleWidth = RangeW '图片方块宽度
Picture1.ScaleHeight = 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
'画直线
Picture1.Line (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