現在我曲線運行到頭以后，總是要等半天才能繼續運行下去，過一陣有時還會出現不止一條曲線，不知道怎么回事。還有我不知道怎么才能讓曲線按label1中資料運行。怎么弄？？求解答，求代碼……
Private Sub pic() ' 動態曲線
Dim f As Double
Picture1.Scale (480, 480)-(0, 0) '創建笛卡爾坐標系統的范圍
Picture2.Scale (480, 480)-(0, 0)
Picture3.Scale (480, 480)-(0, 0)
Picture4.Scale (480, 480)-(0, 0)
For f = 1 To 50
Picture1.Line (0, 60 * f)-(1000, 60 * f) 'picture1橫線 x軸
Picture2.Line (0, 60 * f)-(1000, 60 * f)
Picture3.Line (0, 60 * f)-(1000, 60 * f)
Picture4.Line (0, 60 * f)-(1000, 60 * f)
Next f
For f = 1 To 30
Picture1.Line (f * 60, 0)-(f * 60, 1000) 'picture豎線 y軸
Picture2.Line (f * 60, 0)-(f * 60, 1000)
Picture3.Line (f * 60, 0)-(f * 60, 1000)
Picture4.Line (f * 60, 0)-(f * 60, 1000)
Next f
End Sub
Private Sub Timer3_Timer()
Randomize '隨機
Static Flag As Integer
Static Flag1 As Integer
Static Count As Integer
Static count1 As Integer
a = Rnd * 300
num = a
b(Count) = num
If Count >= 30 Then
Count = 30
' Picture1.PaintPicture Picture1.Image, 0, 0
Picture1.PaintPicture Picture1.Image, 0, 0
Picture1.Cls
Picture2.PaintPicture Picture1.Image, 0, 0
Picture2.Cls
Picture3.PaintPicture Picture1.Image, 0, 0
Picture3.Cls
Picture4.PaintPicture Picture1.Image, 0, 0
Picture4.Cls
Picture1.ForeColor = &HE0E0E0 'vbGreen picture網格合縱豎縱線的顏色 picture運行到頭的網格+曲線顏色
Picture2.ForeColor = &HE0E0E0
Picture3.ForeColor = &HE0E0E0
Picture4.ForeColor = &HE0E0E0
For f = 1 To 100
Picture1.Line (0, 60 * f)-(2000, 60 * f)
Picture2.Line (0, 60 * f)-(2000, 60 * f)
Picture3.Line (0, 60 * f)-(2000, 60 * f)
Picture4.Line (0, 60 * f)-(2000, 60 * f)
Next f
For f = 1 To 30
Picture1.Line (f * 60, 0)-(f * 60, 2000)
Picture2.Line (f * 60, 0)-(f * 60, 2000)
Picture3.Line (f * 60, 0)-(f * 60, 2000)
Picture4.Line (f * 60, 0)-(f * 60, 2000)
Next f
a = Rnd * 480
b(30) = a
Flag = b(0)
For f = 0 To 29
b(f) = b(f + 1)
Next f
Picture1.Line (60, Flag)-((f + 1) * 60, b(0))
Picture2.Line (60, Flag)-((f + 1) * 60, b(0))
Picture3.Line (60, Flag)-((f + 1) * 60, b(0))
Picture4.Line (60, Flag)-((f + 1) * 60, b(0))
For f = 0 To 29
Picture1.ForeColor = vbGreen 'picture運行到頭后的曲線顏色
Picture2.ForeColor = vbGreen
Picture3.ForeColor = vbGreen
Picture4.ForeColor = vbGreen
Picture1.Line (f * 48, Flag)-((f + 1) * 48, b(f))
Picture2.Line (f * 48, Flag)-((f + 1) * 48, b(f))
Picture3.Line (f * 48, Flag)-((f + 1) * 48, b(f))
Picture4.Line (f * 48, Flag)-((f + 1) * 48, b(f))
Flag = b(f)
' Debug.Print Flag1
Next f
Exit Sub
End If
a = Rnd * 240
num = a
b(Count) = num
Picture1.ForeColor = vbGreen 'picture1界面開始時曲線顏色為綠色
Picture2.ForeColor = vbGreen
Picture3.ForeColor = vbGreen
Picture4.ForeColor = vbGreen
Picture1.Line (Count * 48, Flag)-((Count + 1) * 48, num)
Picture2.Line (Count * 48, Flag)-((Count + 1) * 48, num)
Picture3.Line (Count * 48, Flag)-((Count + 1) * 48, num)
Picture4.Line (Count * 48, Flag)-((Count + 1) * 48, num)
Flag = a
Count = Count + 1
'Picture1.CurrentX = Label1(4).Caption '設定輸出的X位置
'Picture1.CurrentY = 0 ' Text(0).Text '設定輸出的Y位置
'
'Picture2.CurrentX = Label1(5).Caption '設定輸出的X位置
'Picture2.CurrentY = 0 '設定輸出的Y位置
'
'Picture3.CurrentX = Label1(0).Caption
'
'Picture4.CurrentX = Label1(2).Caption
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/139675.html
標籤：網絡編程
上一篇：請幫忙提取文本框中部分資料！
下一篇：文本中所有漢字數字轉阿拉伯數字