Question

VB.NET中绘制一条sin波形的曲线，求解

我用的是 VS2008 ，打算在 picturebox控件中绘制一条 sin波形曲线，纵轴是峰值，横轴是时间，我在网上搜了很多的例子也都试了试，但都不理想，而且程序也看的不是很多，麻烦大侠贴出来源程序，小弟拜谢了！

Answer 1

是这样的波段吗？用DrawCurve方法

追问

嗯，这样的就好，我的VB.NET刚学不久，您能把程序贴出来吗 需要哪些控件 简单的说明一下！

嗯，这样的就好，我的VB.NET刚学不久，您能把程序贴出来吗 需要哪些控件 简单的说明一下！

追答

Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint‘picturebox控件一个
Dim Points(50) As Point
For i = 0 To 50
Points(i) = New Point(i * 15, Math.Sin(i) * 15)‘同步放大十五倍，i自己改你的时间
Points(i).Offset(0, 150)’向下平移
Next
e.Graphics.DrawCurve(Pens.Red, Points)
end sub

追问

那如果我想把这个sin的曲线清除掉，做了一个 button的按钮，当我click这个按钮的时候，后面的 程序改怎么写 ，大侠能给我说说嘛

追答

PictureBox1.CreateGraphics.DrawCurve
其他不变
Dim Points(50) As Point
这句定义之前，加一句： PictureBox1.Refresh()，要删除paint中语句

追问

没看懂啊，大神
你能把完整的代码贴上来吗

追答

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PictureBox1.Refresh()
Dim Points(50) As Point
For i = 0 To 50
Points(i) = New Point(i * 15, Math.Sin(i) * 15)‘同步放大十五倍，i自己改你的时间
Points(i).Offset(0, 150)’向下平移
Next
PictureBox1.CreateGraphics.DrawCurve(Pens.Red, Points)
end sub
删除之前的 Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint‘过程。如果有