DefInt G
DefInt N
Dim x As Integer
Dim number As Integer
Dim m As Integer
Dim n As Integer
Dim round As Integer
Dim trows As Integer
Private Sub but_Click(Index As Integer)
Picture1.DrawWidth = 1
Picture1.PSet (0, 1000), Red
Picture1.DrawWidth = 2
Picture1.Line (0, 1000)-(13000, 1000)
End Sub
.TextMatrix(.Row, 7) = Str(Int(.TextMatrix(.Row, 7)) - Int(.TextMatrix(.Row, .Col)))
Private Sub step_Timer()
Randomize Timer
Do: number = Rnd * 600: Loop While number = 0 Or number = 600
End Sub
Private Sub trend_Timer()
round = round + 1
x = x + 100
Randomize Timer
Do: going = Rnd * 3: Loop While going = 0 Or going = 3
Picture1.DrawWidth = 1
If round = 1 Then n = 1000
If going = 1 Then
Picture1.Line (m, n)-(x, 1000 - number), vbRed
n = 1000 - number
Else
Picture1.Line (m, n)-(x, 1000 + number), vbRed
n = 1000 + number
End If
m = x
If m > 10000 Then
Call clean_Click
m = 0
x = 0
End If
End Sub