, Visual C#


- 2


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, _