Реализовать траекорию движения фрезы по контуру детали - VB

Формулировка задачи:

в курсовом нужно реализовать траекорию движения фрезы по контуру детали т.е. нужно чтобы из начала координат выходила линния и проходила по точкам как лучше реализовать?

Решение задачи: «Реализовать траекорию движения фрезы по контуру детали»

textual
                            Листинг программы 
                        

                            Private Declare Function GetTickCount Lib "Kernel32" () As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Dim stopMe As Boolean
Dim neg1 As Long
Private Sub Command1_Click()
Dim x, y As Integer
For i = 1 To 7770
x = 50
y = 300
SetPixel Picture2.hDC, x + i, y / i, 0
Next i
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
 SetPixel Picture2.hDC, x, y, 222
End Sub
                        