请问该如何在vb6.0中实现动态sin波形显示

来源：百度知道 编辑：UC知道 时间：2024/06/22 22:59:21
毕业设计着急啊！！忘各位高手帮帮手，不胜感激！
我的意思是直接出现sin波形的，然后看上去会左右闪动的那种状态！
最好能直接给出程序代码！！ 还有就是可以改变它的参数！！着急的很啊，谢谢好心人了！才申请的号 分不多，各位见谅！！

画 Sin 函数图像，可调整振幅、相位、周期，请看我的 QQ 空间：
http://user.qzone.qq.com/32063270/blog/1242309760

补充：
'能产生霓虹灯效果的代码
'在窗体上添加控件 Command2、Timer1
'在窗体上添加控件 Shape1，并在属性窗口设置 Shape1：Name=Sha ， Index=0
'将以下代码添加到窗体代码中
Private Sub Command2_Click()
Dim I As Long

Sha(0).Shape = 3
Sha(0).FillStyle = 0: Sha(0).FillColor = 255
For I = Sha.Count - 1 To 1 Step -1
Unload Sha(I)
Next
For I = 1 To 10
Load Sha(I): Sha(I).Visible = True
Next

Timer1.Interval = 20
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static n As Single
Dim X As Single, Y As Single, W As Single, S As Single

W = 0.1

n = n + ctP / 30
If n > ctP * 2 Then n = 0

For I = 0 To Sha.