form1.vb

这是一本用Visual Studio.NET进行多媒体编程的读物

        Text2.Text = "A2= " & VB6.Format(Y, "0.00000")
        Text3.Text = "R1= " & VB6.Format(R, "0.00000")

        g.Clear(Color.LightGray)

        '全部增加一倍
        d1x = -40
        d1y = -40
        d1z = 40
        d2x = -40
        d2y = 40
        d2z = 40
        d3x = 40
        d3y = 40
        d3z = 40
        d4x = 40
        d4y = -40
        d4z = 40
        d5x = -80
        d5y = -80
        d5z = -80
        d6x = -80
        d6y = 80
        d6z = -80
        d7x = 80
        d7y = 80
        d7z = -80
        d8x = 80
        d8y = -80
        d8z = -80

        XROT = (d1x * System.Math.Cos(Angle1)) - (d1y * System.Math.Sin(Angle1))
        YROT = (d1x * System.Math.Sin(Angle1)) + (d1y * System.Math.Cos(Angle1))
        ZROT = d1z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p1x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p1y = YROT1
        p1z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))

        XROT = (d2x * System.Math.Cos(Angle1)) - (d2y * System.Math.Sin(Angle1))
        YROT = (d2x * System.Math.Sin(Angle1)) + (d2y * System.Math.Cos(Angle1))
        ZROT = d2z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p2x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p2y = YROT1
        p2z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))
        XROT = (d3x * System.Math.Cos(Angle1)) - (d3y * System.Math.Sin(Angle1))
        YROT = (d3x * System.Math.Sin(Angle1)) + (d3y * System.Math.Cos(Angle1))
        ZROT = d3z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p3x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p3y = YROT1
        p3z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))

        XROT = (d4x * System.Math.Cos(Angle1)) - (d4y * System.Math.Sin(Angle1))
        YROT = (d4x * System.Math.Sin(Angle1)) + (d4y * System.Math.Cos(Angle1))
        ZROT = d4z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p4x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p4y = YROT1
        p4z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))
        XROT = (d5x * System.Math.Cos(Angle1)) - (d5y * System.Math.Sin(Angle1))
        YROT = (d5x * System.Math.Sin(Angle1)) + (d5y * System.Math.Cos(Angle1))
        ZROT = d5z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p5x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p5y = YROT1
        p5z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))

        XROT = (d6x * System.Math.Cos(Angle1)) - (d6y * System.Math.Sin(Angle1))
        YROT = (d6x * System.Math.Sin(Angle1)) + (d6y * System.Math.Cos(Angle1))
        ZROT = d6z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p6x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p6y = YROT1
        p6z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))
        XROT = (d7x * System.Math.Cos(Angle1)) - (d7y * System.Math.Sin(Angle1))
        YROT = (d7x * System.Math.Sin(Angle1)) + (d7y * System.Math.Cos(Angle1))
        ZROT = d7z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p7x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p7y = YROT1
        p7z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))
        XROT = (d8x * System.Math.Cos(Angle1)) - (d8y * System.Math.Sin(Angle1))
        YROT = (d8x * System.Math.Sin(Angle1)) + (d8y * System.Math.Cos(Angle1))
        ZROT = d8z
        XROT1 = XROT
        YROT1 = (YROT * System.Math.Cos(Angle2)) - (ZROT * System.Math.Sin(Angle2))
        ZROT1 = (YROT * System.Math.Sin(Angle2)) + (ZROT * System.Math.Cos(Angle2))
        p8x = (XROT1 * System.Math.Cos(Angle3)) - (ZROT1 * System.Math.Sin(Angle3))
        p8y = YROT1
        p8z = (XROT1 * System.Math.Sin(Angle3)) + (ZROT1 * System.Math.Cos(Angle3))

        p8z = 200 + p8z
        p8y = 200 + p8y
        p8x = 200 + p8x
        p7z = 200 + p7z
        p7y = 200 + p7y
        p7x = 200 + p7x
        p6z = 200 + p6z
        p6y = 200 + p6y
        p6x = 200 + p6x
        p5z = 200 + p5z
        p5y = 200 + p5y
        p5x = 200 + p5x
        p4z = 200 + p4z
        p4y = 200 + p4y
        p4x = 200 + p4x
        p3z = 200 + p3z
        p3y = 200 + p3y
        p3x = 200 + p3x
        p2z = 200 + p2z
        p2y = 200 + p2y
        p2x = 200 + p2x
        p1z = 200 + p1z
        p1y = 200 + p1y
        p1x = 200 + p1x

        myColor = Color.FromArgb(255, 0, 0)
        myPen.Color = myColor
        g.DrawLine(myPen, p1x, p1y, p2x, p2y)
        g.DrawLine(myPen, p2x, p2y, p3x, p3y)
        g.DrawLine(myPen, p3x, p3y, p4x, p4y)
        g.DrawLine(myPen, p4x, p4y, p1x, p1y)

        myColor = Color.FromArgb(0, 0, 255)
        myPen.Color = myColor
        g.DrawLine(myPen, p5x, p5y, p6x, p6y)
        g.DrawLine(myPen, p6x, p6y, p7x, p7y)
        g.DrawLine(myPen, p7x, p7y, p8x, p8y)
        g.DrawLine(myPen, p8x, p8y, p5x, p5y)

        myColor = Color.FromArgb(0, 255, 0)
        myPen.Color = myColor
        g.DrawLine(myPen, p1x, p1y, p5x, p5y)
        g.DrawLine(myPen, p2x, p2y, p6x, p6y)
        g.DrawLine(myPen, p3x, p3y, p7x, p7y)
        g.DrawLine(myPen, p4x, p4y, p8x, p8y)

        myColor = Color.FromArgb(255, 0, 0)
        myPen.Color = myColor
        g.DrawLine(myPen, p1x, p1y, 200, 200)
        g.DrawLine(myPen, p2x, p2y, 200, 200)
        g.DrawLine(myPen, p3x, p3y, 200, 200)
        g.DrawLine(myPen, p4x, p4y, 200, 200)

        myColor = Color.FromArgb(0, 0, 255)
        myPen.Color = myColor
        g.DrawLine(myPen, p5x, p5y, 200, 200)
        g.DrawLine(myPen, p6x, p6y, 200, 200)
        g.DrawLine(myPen, p7x, p7y, 200, 200)
        g.DrawLine(myPen, p8x, p8y, 200, 200)

        myColor = Color.Black
        myPen.Color = myColor
        g.DrawLine(myPen, 200, 200, X + 200, Y + 200)
        System.Windows.Forms.Application.DoEvents()

    End Sub

    Private Function DTOR(ByRef X As Object) As Object
        DTOR = X * (3.1415 / 180)
    End Function

   
    Private Sub HScroll1_Change(ByVal newScrollValue As Integer)
        DrawPart()
    End Sub

    Private Sub HScroll1_Scroll_Renamed(ByVal newScrollValue As Integer)
        DrawPart()
    End Sub

    Private Sub HScroll2_Change(ByVal newScrollValue As Integer)
        DrawPart()
    End Sub

    Private Sub HScroll2_Scroll_Renamed(ByVal newScrollValue As Integer)
        DrawPart()
    End Sub


    Private Sub Pic1_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseMove
        Dim Button As Short = eventArgs.Button \ &H100000
        Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
        Dim X As Single = VB6.FromPixelsUserX(eventArgs.X, -90, 180, 409)
        Dim Y As Single = VB6.FromPixelsUserY(eventArgs.Y, -90, 180, 409)
        If Button = 1 Then
            If X > 90 Then X = 90
            If X < -90 Then X = -90
            If Y > 90 Then Y = 90
            If Y < -90 Then Y = -90
            HScroll1.Value = X
            VScroll1.Value = Y
        End If
        If Button = 2 Then
            If X > 90 Then X = 90
            If X < -90 Then X = -90
            HScroll2.Value = X
        End If
    End Sub

    Private Sub VScroll1_Change(ByVal newScrollValue As Integer)
        DrawPart()
    End Sub

    Private Sub VScroll1_Scroll_Renamed(ByVal newScrollValue As Integer)
        DrawPart()
    End Sub
    Private Sub HScroll1_Scroll(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) Handles HScroll1.Scroll
        Select Case eventArgs.Type
            Case System.Windows.Forms.ScrollEventType.ThumbTrack
                HScroll1_Scroll_Renamed(eventArgs.NewValue)
            Case System.Windows.Forms.ScrollEventType.EndScroll
                HScroll1_Change(eventArgs.NewValue)
        End Select
    End Sub
    Private Sub HScroll2_Scroll(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) Handles HScroll2.Scroll
        Select Case eventArgs.Type
            Case System.Windows.Forms.ScrollEventType.ThumbTrack
                HScroll2_Scroll_Renamed(eventArgs.NewValue)
            Case System.Windows.Forms.ScrollEventType.EndScroll
                HScroll2_Change(eventArgs.NewValue)
        End Select
    End Sub
    Private Sub VScroll1_Scroll(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) Handles VScroll1.Scroll
        Select Case eventArgs.Type
            Case System.Windows.Forms.ScrollEventType.ThumbTrack
                VScroll1_Scroll_Renamed(eventArgs.NewValue)
            Case System.Windows.Forms.ScrollEventType.EndScroll
                VScroll1_Change(eventArgs.NewValue)
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        g = Pic1.CreateGraphics
    End Sub
End Class