怎样在VB里画正弦波、三角波、锯齿波、方波等.怎样在VB里生成正弦波、三角波、锯齿波、方波等典型波形.要求能自动各波形的参数.如周期、幅值等等.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 19:42:38
![怎样在VB里画正弦波、三角波、锯齿波、方波等.怎样在VB里生成正弦波、三角波、锯齿波、方波等典型波形.要求能自动各波形的参数.如周期、幅值等等.](/uploads/image/z/5587606-46-6.jpg?t=%E6%80%8E%E6%A0%B7%E5%9C%A8VB%E9%87%8C%E7%94%BB%E6%AD%A3%E5%BC%A6%E6%B3%A2%E3%80%81%E4%B8%89%E8%A7%92%E6%B3%A2%E3%80%81%E9%94%AF%E9%BD%BF%E6%B3%A2%E3%80%81%E6%96%B9%E6%B3%A2%E7%AD%89.%E6%80%8E%E6%A0%B7%E5%9C%A8VB%E9%87%8C%E7%94%9F%E6%88%90%E6%AD%A3%E5%BC%A6%E6%B3%A2%E3%80%81%E4%B8%89%E8%A7%92%E6%B3%A2%E3%80%81%E9%94%AF%E9%BD%BF%E6%B3%A2%E3%80%81%E6%96%B9%E6%B3%A2%E7%AD%89%E5%85%B8%E5%9E%8B%E6%B3%A2%E5%BD%A2.%E8%A6%81%E6%B1%82%E8%83%BD%E8%87%AA%E5%8A%A8%E5%90%84%E6%B3%A2%E5%BD%A2%E7%9A%84%E5%8F%82%E6%95%B0.%E5%A6%82%E5%91%A8%E6%9C%9F%E3%80%81%E5%B9%85%E5%80%BC%E7%AD%89%E7%AD%89.)
怎样在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