, Visual C#


         


End Sub
PictureBox, Class Name PictureBox1, Method Name Paint. Form1.vb ( PictureBox1_Paint), .
38.2. PictureBox1_Paint .
Private Sub PictureBox1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) _
Handles PictureBox1.Paint
' PictureBox1.
' :
Dim M_1 As Single = 29
Dim M_2 As Single = 31
e.Graphics.ScaleTransform( _
PictureBox1.Size.Width / M_1, _
-PictureBox1.Size.Height / M_2, _
MatrixOrder.Append)
Dim M_3 As Single = 2
Dim M_4 As Single = 2
e.Graphics.TranslateTransform( _
PictureBox1.Size.Width / M_3, _
PictureBox1.Size.Height / M_4, _
MatrixOrder.Append)
' M_1, M_2, M_3, M_4 ,
' x,y,z.
' (transformation matrix):
Dim tr As myClassMatrix3D = CalculateTransformation()
' :
For x As Integer = 0 To x_max
For y As Integer = 0 To y_max
Points(x, y).Transformation(tr)
Next
Next
' myArrayVB(i, j):
Dim i, j As Integer
' myArrayVB(i, j):
Dim N_x As Integer = 2000
Dim N_y As Integer = 1
' myArrayVB(i, j) Single,
' i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:
Dim myArrayVB(N_x, N_y) As Single
', ,
' , xz, yz, :
Dim N_1_myArrayVB, N_2_myArrayVB, _