基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

Option Explicit On
Imports System.Math
Imports System.Drawing
Imports System.Drawing.Drawing2D


Public Class Form1


    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

        Dim gr As Graphics = PictureBox1.CreateGraphics
        Dim p As New Pen(Brushes.Red, 2)
        'Dim p1 As New Pen(Brushes.Blue, 2)

        '(240,210)为原点，右为X，上为Y（红色）
        gr.TranslateTransform(240, 210)
        gr.ScaleTransform(1, -1)  '1：1变换X，Y轴

        p.EndCap = LineCap.ArrowAnchor
        gr.DrawLine(p, New Point(-200, 0), New Point(0, 0))
        gr.DrawLine(p, New Point(0, -200), New Point(0, 0))
        gr.DrawLine(p, New Point(0, 0), New Point(200, 0))
        gr.DrawLine(p, New Point(0, 0), New Point(0, 200))
        gr.DrawString("X轴", Me.Font, Brushes.Red, New Point(200, 0))
        gr.DrawString("Y轴", Me.Font, Brushes.Red, New Point(0, 200)) '未作处理，目的是看清坐标是怎么变换

        ''在上面的基础上旋转坐标轴（蓝色）
        'gr.RotateTransform(-30)

        'gr.DrawLine(p1, New Point(0, 0), New Point(200, 0))
        'gr.DrawLine(p1, New Point(0, 0), New Point(0, 200))
        'gr.DrawString("X'轴", Me.Font, Brushes.Blue, New Point(200, 0))
        'gr.DrawString("Y'轴", Me.Font, Brushes.Blue, New Point(0, 200))

        'gr.DrawArc(p1, New Rectangle(-75, -75, 150, 150), 120, -30) '注意矩形的位置落区
        'gr.DrawRectangle(p1, New Rectangle(30, 30, 80, 100)) '在最后生效的坐标轴内画矩形

        '放大或缩小效果
        gr.ScaleTransform(6, 1) 'X轴方向扩大6倍
        'gr.DrawRectangle(p1, New Rectangle(10, 10, 30, 50))
        Dim X As Single
        Dim Y As Single
        Dim g As Graphics = PictureBox1.CreateGraphics

        For Z = -10 To 10 Step 1
            X = Z   1
            g.DrawLine(Pens.Blue, X, Y, X   2, Y)
            'Y = -Tan(Z / 175) * 10   205
            Y = 100




            Select Case X
                Case X >= -7 To X <= -5
                    Y = 6
                    Y = 2

                Case X >= 1 To X <= 2
                    Y = -2 * X   6
                Case X >= 2 To X <= 3
                    Y = 2 * X - 2
                Case X >= 4 To X <= 6
                    Y = 3
                    Y = (X - 5) * (X - 5)   4
                Case X >= 4 To X <= 5
                    Y = -(X - 5) * (X - 5)   2
                Case X >= -4 To X <= -3
                    Y = -2 * X - 8
                Case X >= -4 To X <= -2
                    Y = 2 * X   4
                Case X >= 2 To X <= 4
                    Y = 2 * (X - 3) * (X - 3) - 2

                    Select Case Y
                        Case Y >= 2 To Y <= 6
                            X = -3
                        Case Y >= 2 To Y <= 6
                            X = -6
                        Case Y >= -2 To Y <= 0
                            X = 4

                    End Select

            End Select


        Next

    End Sub
End Class