out.frm

函数绘图程序 VB 编写 可以绘制初高中 函数图像 支持颜色

         Left            =   360
         TabIndex        =   6
         Top             =   960
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   360
         TabIndex        =   5
         Top             =   600
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "b="
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   960
         Width           =   375
      End
      Begin VB.Label Label2 
         Caption         =   "a="
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   375
      End
      Begin VB.Label Label1 
         Caption         =   "y=ax+b"
         Height          =   375
         Left            =   120
         TabIndex        =   4
         Top             =   255
         Width           =   1695
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "清 除"
      Height          =   375
      Left            =   4320
      TabIndex        =   2
      Top             =   5160
      Width           =   855
   End
   Begin VB.PictureBox Picture2 
      Height          =   135
      Left            =   240
      ScaleHeight     =   135
      ScaleMode       =   0  'User
      ScaleWidth      =   1000
      TabIndex        =   1
      Top             =   5325
      Width           =   1000
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   5000
      Left            =   240
      ScaleHeight     =   5030.395
      ScaleMode       =   0  'User
      ScaleWidth      =   5030.395
      TabIndex        =   0
      Top             =   75
      Width           =   5000
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   3
      X1              =   -15
      X2              =   5549
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   4
      X1              =   -30
      X2              =   5519
      Y1              =   15
      Y2              =   15
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   2
      X1              =   30
      X2              =   5594
      Y1              =   -15
      Y2              =   -15
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   0
      X2              =   5549
      Y1              =   -15
      Y2              =   -15
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00C0C0C0&
      Index           =   1
      X1              =   5340
      X2              =   5355
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Label Label33 
      Height          =   255
      Left            =   840
      TabIndex        =   108
      Top             =   7680
      Width           =   2535
   End
   Begin VB.Label Label35 
      Caption         =   "进度条："
      Height          =   255
      Left            =   255
      TabIndex        =   110
      Top             =   5100
      Width           =   735
   End
   Begin VB.Label Label34 
      Caption         =   "时间："
      Height          =   255
      Left            =   240
      TabIndex        =   109
      Top             =   7680
      Width           =   615
   End
   Begin VB.Label Label32 
      Caption         =   "Made by BOYFLY"
      Height          =   255
      Left            =   3840
      TabIndex        =   107
      Top             =   7680
      Width           =   1455
   End
   Begin VB.Label Label31 
      BackStyle       =   0  'Transparent
      Height          =   495
      Left            =   1320
      TabIndex        =   106
      Top             =   5280
      Width           =   1095
   End
   Begin VB.Label Label8 
      Height          =   255
      Left            =   240
      TabIndex        =   19
      Top             =   5640
      Width           =   1215
   End
   Begin VB.Menu name 
      Caption         =   "文件(&F)"
      Begin VB.Menu open 
         Caption         =   "打开图像文件(&O)..."
      End
      Begin VB.Menu save 
         Caption         =   "图片另存为(&S)..."
      End
      Begin VB.Menu sent 
         Caption         =   "图片发送到剪贴板(&T)"
      End
      Begin VB.Menu print 
         Caption         =   "打印图像..."
      End
      Begin VB.Menu fen 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu option 
      Caption         =   "操作(&O)"
      Begin VB.Menu clear 
         Caption         =   "清除(&C)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu about 
         Caption         =   "关于(&A)..."
      End
   End
End
Attribute VB_Name = "out"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub about_Click()
Load frmAbout
frmAbout.Show
End Sub

Private Sub clear_Click()
ans = MsgBox("此操作将清除您所有作的图像，而且不能恢复，继续吗？", 4)
If ans = 6 Then
Text8.Text = ""
Text9.Text = ""
Dim X, zuox, zuoy, jingdu, beijing, zuo
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo
Close #1
Picture1.AutoRedraw = True
Picture1.Line (0, 0)-(5000, 5000), beijing, BF
Picture1.Line (0, 2500)-(5000, 2500), zuo
Picture1.Line (2500, 0)-(2500, 5000), zuo
Picture1.Line (5000, 2500)-(4900, 2400), zuo
Picture1.Line (5000, 2500)-(4900, 2610), zuo
Picture1.Line (2500, 0)-(2400, 100), zuo
Picture1.Line (2500, 0)-(2620, 100), zuo
For X = 2500 To 5000 Step zuox
Picture1.Line (X, 2470)-(X, 2500), zuo
Next X
For X = 2500 To 0 Step -1 * zuox
Picture1.Line (X, 2470)-(X, 2500), zuo
Next X
For X = 2500 To 5000 Step zuoy
Picture1.Line (2500, X)-(2550, X), zuo
Next X
For X = 2500 To 0 Step -1 * zuoy
Picture1.Line (2500, X)-(2550, X), zuo
Next X
Picture1.AutoRedraw = False
End If
End Sub

Private Sub color_Click()
Load color1
color1.Show
End Sub

Private Sub Command1_Click()
ans = MsgBox("此操作将清除您所有作的图像，而且不能恢复，继续吗？", 4)
If ans = 6 Then
Text8.Text = ""
Text9.Text = ""
Dim X, zuox, zuoy, jingdu, beijing, zuo
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo
Close #1
Picture1.AutoRedraw = True
Picture1.Line (0, 0)-(5000, 5000), beijing, BF
Picture1.Line (0, 2500)-(5000, 2500), zuo
Picture1.Line (2500, 0)-(2500, 5000), zuo
Picture1.Line (5000, 2500)-(4900, 2400), zuo
Picture1.Line (5000, 2500)-(4900, 2610), zuo
Picture1.Line (2500, 0)-(2400, 100), zuo
Picture1.Line (2500, 0)-(2620, 100), zuo
For X = 2500 To 5000 Step zuox
Picture1.Line (X, 2470)-(X, 2500), zuo
Next X
For X = 2500 To 0 Step -1 * zuox
Picture1.Line (X, 2470)-(X, 2500), zuo
Next X
For X = 2500 To 5000 Step zuoy
Picture1.Line (2500, X)-(2550, X), zuo
Next X
For X = 2500 To 0 Step -1 * zuoy
Picture1.Line (2500, X)-(2550, X), zuo
Next X
Picture1.AutoRedraw = False
End If
End Sub

Private Sub Command10_Click()
On Error GoTo myerror
Text8.Text = "+∞"
Text9.Text = "-∞"

Dim a, b, X, Y, jingdu, zuox, zuoy, finish, tx, cuxi
Picture1.AutoRedraw = False
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, temp, temp, tx, cuxi
Close #1
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
If Text12.Text = "" Then Text12.Text = 0
a = Text12.Text
If (a <= 0) Or (a = 1) Then
    MsgBox ("a大于0且不等于1")
    GoTo 120
End If
For X = 0.01 To 2500 / zuox Step jingdu
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
If Log(a) = 0 Then GoTo 70
Y = Log(X) / Log(a)
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
70 Next X
Picture1.AutoRedraw = True
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
For X = 0.01 To 2500 / zuox Step jingdu
If Log(a) = 0 Then GoTo 80
Y = Log(X) / Log(a)
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
80 Next X
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
Exit Sub
myerror:
MsgBox ("错误")

120 End Sub

Private Sub Command11_Click()
On Error GoTo myerror
Dim a, b, c, d, X, Y, jingdu, zuox, zuoy, finish, tx, cuxi
Picture1.AutoRedraw = False
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, temp, temp, tx, cuxi
Close #1
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
If Text13.Text = "" Then Text13.Text = 0
If Text14.Text = "" Then Text14.Text = 0
If Text15.Text = "" Then Text15.Text = 0
If Text16.Text = "" Then Text16.Text = 0

a = Text13.Text
b = Text14.Text
c = Text15.Text
d = Text16.Text
Text8.Text = a + d
Text9.Text = a * -1 + d

For X = -2500 / zuox To 2500 / zuox Step jingdu
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
If Option16.Value = True Then Y = a * Sin(b * X + c) + d
If Option17.Value = True Then Y = a * Cos(b * X + c) + d
If Option18.Value = True Then Y = a * Tan(b * X + c) + d

xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
Next X
Picture1.AutoRedraw = True
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
For X = -2500 / zuox To 2500 / zuox Step jingdu
If Option16.Value = True Then Y = a * Sin(b * X + c) + d
If Option17.Value = True Then Y = a * Cos(b * X + c) + d
If Option18.Value = True Then Y = a * Tan(b * X + c) + d
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
Next X
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
Exit Sub
myerror:
MsgBox ("错误")

End Sub

Private Sub Command12_Click()
On Error GoTo myerror
Text8.Text = ""
Text9.Text = ""

Dim a, b, c, d, X, Y, jingdu, zuox, zuoy, finish, tx, cuxi
Picture1.AutoRedraw = False
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, temp, temp, tx, cuxi
Close #1
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
If Text17.Text = "" Then Text17.Text = 0
If Text18.Text = "" Then Text18.Text = 0
If Text19.Text = "" Then Text19.Text = 0
If Text20.Text = "" Then Text20.Text = 0

a = Text17.Text
b = Text18.Text
c = Text19.Text
d = Text20.Text
For X = -2500 / zuox To 2500 / zuox Step jingdu
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
If Option21.Value = True Then Y = Abs(a * X + b) + Abs(c * X + d)
If Option23.Value = True Then Y = a * Abs(X) + b
If Option22.Value = True Then Y = Abs(a * X * X + b * X + c)
If Option24.Value = True Then Y = a * X * X + b * Abs(X) + c
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
Next X
Picture1.AutoRedraw = True
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
For X = -2500 / zuox To 2500 / zuox Step jingdu
If Option21.Value = True Then Y = Abs(a * X + b) + Abs(c * X + d)
If Option23.Value = True Then Y = a * Abs(X) + b
If Option22.Value = True Then Y = Abs(a * X * X + b * X + c)
If Option24.Value = True Then Y = a * X * X + b * Abs(X) + c
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000