| drawWorm
procedure |
|
|
|
|
|
|
|
|
|
|
|
|
| Private Sub
segment(x As Integer, y As Integer) |
|||||||||||
| Circle (x, y), 100, vbGreen |
|||||||||||
| End Sub |
|||||||||||
| Private Sub
drawWorm(x1() As Integer, y1() As Integer) |
|||||||||||
| Dim iterate As
Integer |
|||||||||||
| Cls |
|||||||||||
| iterate = 0 |
|||||||||||
| Do While iterate < 10 |
|||||||||||
| Call segment(x1(iterate),
y1(iterate)) |
|||||||||||
| iterate = iterate + 1 |
|||||||||||
| Loop |
|||||||||||
| Line (x1(9), y1(9))-(x1(9) + 100,
y1(9) - 200), vbGreen |
|||||||||||
| End Sub |
|||||||||||