Question

请问如何用VB画波形图

如题，请问，如何用VB画方波，
最好能提供一个例子的源代码 可以给我一个完整的例子吗？

Answer 1

设定波形的周期,幅值,波数,用数学的公式就可以画图形了
等下给个例子

Dim T As Single, A As Single, n As Integer
T = Val(Text1) '周期
A = Val(Text2) '幅值
n = Val(Text3) '波数

Picture1.Cls
Picture1.Scale (-0.1 * T * n, 1.1 * A)-(1.1 * (T * n), -1.1 * A)
Picture1.Line (-0.1 * T * n, 0)-(1.1 * T * n, 0)
Picture1.Line (0, 1.1 * A)-(0, -1.1 * A)

For i = 0 To Val(Text3) - 1
Picture1.Line (i * T, 0)-(i * T, A)
Picture1.Line -(T / 2 + i * T, A)
Picture1.Line -(T / 2 + i * T, -A)
Picture1.Line -(T + i * T, -A)
Picture1.Line -(T + i * T, 0)
Next