, Visual C#


- 10


myArrayVB(0, 0) = N_first_line

myArrayVB(0, 1) = N_last_line

' myArrayVB(200, 1).

i = -1

For k = N_first_line To N_last_line

i = i + 2

x1 = myArrayVB(i, 0)

y1 = myArrayVB(i, 1)

x2 = myArrayVB(i + 1, 0)

y2 = myArrayVB(i + 1, 1)

g.DrawLine(pen, x1, y1, x2, y2)

Next

' myArrayVB(200, 1) .

' sw StreamWriter

' D:\MyDocs\MyTest3D_Graphics.txt.

If N_Graphics = 1 Then

Dim sw As StreamWriter = _

New StreamWriter("D:\MyDocs\MyTest3D_Graphics.txt")

' myArrayVB(i, j)

' WriteLine:

For i = 0 To N_x

For j = 0 To N_y

sw.WriteLine(myArrayVB(i, j))

Next

Next

sw.Close()

End If

M2:

' DrawSolid

' N_Graphics = 1,

' 2- 2- - M_End:

If N_Graphics = 1 Then GoTo M_End

 

' .

' 2- myArrayVB_2(i, j):

Dim N_x_2 As Integer = 200

Dim N_y_2 As Integer = 1

' myArrayVB_2(i, j) Single,

' i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:

Dim myArrayVB_2(N_x_2, N_y_2) As Single

' myArrayVB_2:

Dim N_1_myArrayVB_2 As Integer

' myArrayVB_2(i, j)

' - :

i = -1 ' .

For k = first_line To last_line

x1 = Lines(k).fr_tr_points(1)

y1 = Lines(k).fr_tr_points(2)