VB怎么画连续正弦波时每一个正弦波的波峰不同,求VB代码现在的这个是波峰相同 ,要求波峰不同 有高有低就像这样
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/23 00:40:52
VB怎么画连续正弦波时每一个正弦波的波峰不同,求VB代码现在的这个是波峰相同 ,要求波峰不同 有高有低就像这样
VB怎么画连续正弦波时每一个正弦波的波峰不同,求VB代码
现在的这个是波峰相同 ,要求波峰不同 有高有低
就像这样
VB怎么画连续正弦波时每一个正弦波的波峰不同,求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