, Visual C#


         


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)