, Visual C#


- 3


N_3_myArrayVB As Integer

' myArrayVB(i, j)

' ,

' xz:

Dim x1, y1, x2, y2 As Single

i = -2 ' .

For x As Integer = 0 To x_max

With Points(x, 0)

x2 = .trans_coord(0)

y2 = .trans_coord(1)

End With

For y As Integer = 1 To y_max

x1 = x2 : y1 = y2

With Points(x, y)

x2 = .trans_coord(0)

y2 = .trans_coord(1)

End With

' :

'e.Graphics.DrawLine(myPen, x1, y1, x2, y2)

' :

i = i + 2

myArrayVB(i, 0) = x1

myArrayVB(i, 1) = y1

myArrayVB(i + 1, 0) = x2

myArrayVB(i + 1, 1) = y2

N_1_myArrayVB = i + 1 ' .

Next

Next

' myArrayVB(i, j)

' ,

' yz:

i = N_1_myArrayVB - 1

For y As Integer = 0 To y_max

With Points(0, y)

x2 = .trans_coord(0)

y2 = .trans_coord(1)

End With

For x As Integer = 1 To x_max

x1 = x2 : y1 = y2

With Points(x, y)

x2 = .trans_coord(0)

y2 = .trans_coord(1)

End With

' :

'e.Graphics.DrawLine(myPen, x1, y1, x2, y2)

' :

i = i + 2

myArrayVB(i, 0) = x1

myArrayVB(i, 1) = y1

myArrayVB(i + 1, 0) = x2

myArrayVB(i + 1, 1) = y2




- -  - -  - -