用vb绘制三角波 锯齿波

用Visual Basic (VB) 绘制三角波和锯齿波可以使用画布控件 (Canvas Control) 和VB中的绘图功能实现。以下是一个简单的示例：

首先，创建一个新的窗体，在窗体上添加一个画布控件，并命名为Canvas。

在窗体的代码区域中，找到Form_Load事件，并添加以下代码：

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim g As Graphics = Canvas.CreateGraphics()

' 绘制三角波
Dim triangleWavePoints As New List(Of Point)
Dim amplitude As Integer = 100 ' 波峰高度
Dim frequency As Integer = 10 ' 周期数
Dim stepSize As Integer = Canvas.Width / frequency

For i As Integer = 0 To Canvas.Width - 1 Step stepSize
triangleWavePoints.Add(New Point(i, amplitude))
triangleWavePoints.Add(New Point(i + stepSize \ 2, -amplitude))
Next

g.DrawLines(Pens.Black, triangleWavePoints.ToArray())

' 绘制锯齿波
Dim sawtoothWavePoints As New List(Of Point)

' 控制锯齿波高度
Dim sawtoothAmplitude As Integer = 50

For i As Integer = 0 To Canvas.Width - 1 Step stepSize
sawtoothWavePoints.Add(New Point(i, -sawtoothAmplitude))
sawtoothWavePoints.Add(New Point(i + stepSize, sawtoothAmplitude))
Next

g.DrawLines(Pens.Black, sawtoothWavePoints.ToArray())

g.Dispose()
End Sub

上述代码在窗体加载时会创建一个新的画布控件的Graphics对象 g，并使用DrawLines方法绘制三角波和锯齿波。

在绘制三角波时，使用一个Point列表来保存要绘制的线的起点和终点，通过循环控制线的起始位置和间隔来实现波的形状。

在绘制锯齿波时，使用另一个Point列表来保存锯齿波的线的起点和终点，同样通过循环控制线的起始位置和间隔，并根据需要设置锯齿波的高度。

最后，释放Graphics对象 g 的资源。

运行程序，即可在画布控件上看到绘制的三角波和锯齿波。可以根据需要调整波的振幅、频率等参数。