Now I curve run to an end, always have to wait for half a day to continue running, sometimes a little there will be more than a curve, don't know what's going on, and I don't know how to make curve according to the data in label1 run, how?? To answer, for the code...
Private Sub PIC () 'dynamic curve
Dim As Double f
Picture1. Scale (480, 480) - (0, 0) 'create a cartesian coordinate system the scope of the
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 horizontal axis 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 vertical bar 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 'random
The Static Flag As Integer
The Static Flag1 As Integer
The Static Count As Integer
The Static count1 As Integer
A=Rnd * 300
Num=a
B=num (Count)
If the Count & gt; 30 Then=
The 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=& amp; HE0E0E0 'vbGreen picture color picture of grid union vertical ordinate grid + curve color run in the
Picture2. ForeColor=& amp; HE0E0E0
Picture3. ForeColor=& amp; HE0E0E0
Picture4. ForeColor=& amp; 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)=
Flag=b (0)
For f=0 To 29
B=b (f) (f + 1)
Next f
Picture1. Line (60, Flag) - (+ 1) (f * 60, b (0))
Picture2. Line (60, Flag) - (+ 1) (f * 60, b (0))
Picture3. Line (60, Flag) - (+ 1) (f * 60, b (0))
Picture4. Line (60, Flag) - (+ 1) (f * 60, b (0))
For f=0 To 29
Picture1. ForeColor picture=vbGreen 'run to an end after the curve of the color
Picture2. ForeColor=vbGreen
Picture3. ForeColor=vbGreen
Picture4. ForeColor=vbGreen
Picture1. Line (48 f * and Flag) - (48, (f + 1) * b (f))
Picture2. Line (48 f * and Flag) - (48, (f + 1) * b (f))
Picture3. Line (48 f * and Flag) - (48, (f + 1) * b (f))
Picture4. Line (48 f * and Flag) - (48, (f + 1) * b (f))
Flag=b (f)
'the Debug. Print Flag1
Next f
The Exit Sub
End the If
A=Rnd * 240
Num=a
B=num (Count)
Picture1. ForeColor=vbGreen 'Picture1 interface at the beginning of the curve color for the green
Picture2. ForeColor=vbGreen
Picture3. ForeColor=vbGreen
Picture4. ForeColor=vbGreen
Picture1. Line (48, Count * Flag) - (48 (Count + 1) *, num)
Picture2. Line (48, Count * Flag) - (48 (Count + 1) *, num)
Picture3. Line (48, Count * Flag) - (48 (Count + 1) *, num)
Picture4. Line (48, Count * Flag) - (48 (Count + 1) *, num)
Flag=a
The Count=Count + 1
'Picture1. CurrentX=Label1 (4). The Caption' output setting position X
Text 'Picture1. CurrentY=0' (zero). The Text 'setting position of the output Y
'
'Picture2. CurrentX=Label1 (5). The Caption' output setting position X
'Picture2. CurrentY=0' setting output Y position
'
'Picture3. CurrentX=Label1 (0). The Caption
'
'Picture4. CurrentX=Label1 (2). The Caption
End Sub
