如何在vb6.0中顯示動態正弦波形？

畫壹個正弦函數的圖像，可以調節幅度，相位，周期。請看我的QQ空間:

/32063270/blog/1242309760

補充:

可以產生霓虹效果的代碼

在窗體上添加控件Command2和Timer1。

在窗體上添加控件Shape1，在屬性窗口中設置shape 1:name = sha，Index=0。

將以下代碼添加到表單代碼中。

私有子命令2_Click()

暗淡我壹樣長

Sha(0)。形狀= 3

Sha(0)。FillStyle = 0: Sha(0)。FillColor = 255

因為I = Sha。計數- 1到1步進-1

卸載Sha(I)

然後

對於I = 1至10

加載Sha(I): Sha(I)。可見=真

然後

定時器1。間隔= 20

定時器1。啟用=真

末端接頭

私有子定時器1_Timer()

靜態n為單個

Dim X表示單身，Y表示單身，W表示單身，S表示單身

W = 0.1

n = n +綜合可供訂貨量/ 30

如果n & gtctP * 2然後n = 0

對於I = 0到Sha。計數- 1

S = n + I * ctP * 2 / Sha。數數

如果S & gtctP * 2那麽S = S - ctP * 2

調用GetXY(S，X，Y)

沙(我)。移動X - W，Y + W，W * 2，W * 2

然後

末端接頭

上一篇:清朝末年，中國是最大的城市。

下一篇:請問原油在什麽時間段波動大？