VB画连续正弦波峰

来源：百度知道 编辑：UC知道 时间：2024/06/30 13:51:27
用VB画出连续的正弦波峰， 要求有代码，最好有标准，怎么改变正弦的波峰值和正弦波峰的频率，如果能用，再加分。先谢谢了

form中加两个控件，text1和text2，只要text1和text2中填入数字，就会画出图形，修改数字就会修改图形。“连续的正弦波峰”是不是就是把正弦曲线中x轴下的那部分反到上边去？如果不是我再改

Private Function sinline()
On Error Resume Next
Cls
'画横坐标
Line (-Width / 2, 0)-(Width / 2, 0), vbRed
For i = -7200 To 7200 Step 720
Line (i, 0)-(i, -0.5), vbRed
Print i & "°"
Next
'画纵坐标
Line (0, Height / 800)-(0, -Height / 800), vbRed
For i = -7 To 7
Line (0, i)-(100, i), vbRed
Print i
Next
'画abs（sin）曲线
For i = -Width / 2 To Width / 2
PSet (i, Abs(Text2 * Sin((i / Text1) / 180 * 3.14))) '函数从这里改，格式（x，y）
Next
End Function

Private Sub Form_Resize()
Form1.AutoRedraw = True
Scale (-Width / 2, Height / 800)-(Width / 2, -Height / 800)
Call sinline
End Sub

Private Sub Text1_Change() '步长是text1个180°
Call sinline
End Sub

Private Sub Text2_Change() '峰值是text2
Call sinline
End Sub