原码.txt

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

Private Sub Form_Load()
Dim ltime
Open "c:\hs.ini" For Output As #1
Write #1, 300, 300, 0.001, 16777215, 0, 0, 10
Close #1
main.Show
main.Refresh
ltime = Timer
While Timer - ltime < 1
Wend
Load out
out.Show
main.Hide
Unload main
End Sub

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()
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
120 End Sub

Private Sub Command11_Click()
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
End Sub

Private Sub Command12_Click()
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
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
Next X
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
End Sub

Private Sub Command2_Click()
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 Text1.Text = "" Then Text1.Text = 0
If Text2.Text = "" Then Text2.Text = 0
a = Text1.Text
b = Text2.Text
If IsNumeric(a) And IsNumeric(b) Then
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
Y = a * X + b
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
Y = a * X + b
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
Else
MsgBox ("输入错误！")
End If
End Sub

Private Sub Command3_Click()
Dim a, b, c, 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 Text3.Text = "" Then Text3.Text = 0
If Text4.Text = "" Then Text4.Text = 0
If Text5.Text = "" Then Text5.Text = 0
a = Text3.Text
b = Text4.Text
c = Text5.Text
If Option19 = True Then
If a < 0 Then
Text8.Text = (4 * a * c - b * b) / 4 * a
Text9.Text = "-∞"
End If
If a > 0 Then
Text8.Text = "+∞"
Text9.Text = (4 * a * c - b * b) / (4 * a)
End If
If a = 0 And b <> 0 Then
Text8.Text = "+∞"
Text9.Text = "-∞"
End If
Else
If a > 0 Then
Text8.Text = "+∞"
Text9.Text = c
End If
If a < 0 Then
Text9.Text = "+∞"
Text8.Text = c
End If
End If
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 Option19.Value = True Then Y = a * X * X + b * X + c
If Option20.Value = True Then Y = a * (X + b) ^ 2 + 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 Option19.Value = True Then Y = a * X * X + b * X + c
If Option20.Value = True Then Y = a * (X + b) ^ 2 + 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
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
Next X
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF
End Sub

Private Sub Command4_Click()
Clipboard.clear
Clipboard.SetData Picture1.Image, vbCFBitmap
MsgBox "图像已发送到剪贴板，请用其他程序调用！"
End Sub

Private Sub Command5_Click()
MsgBox ("此版本限制此功能！！")
End Sub

Private Sub Command6_Click()
MsgBox ("此版本限制此功能！！")

End Sub

Private Sub Command7_Click()
MsgBox ("此版本限制此功能！！")

End Sub

Private Sub Command8_Click()
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 Text10.Text = "" Then Text10.Text = 0
a = Text10.Text
For X = -2500 / zuox To 2500 / zuox Step jingdu
If X = 0 Then GoTo 10
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
Y = a / X
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
Picture1.Circle (xx, yy), cuxi, tx
10 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 X = 0 Then GoTo 20
Y = a / X
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
20 Next X
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF

End Sub

Private Sub Command9_Click()
Text8.Text = "+∞"
Text9.Text = "0"

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 Text11.Text = "" Then Text11.Text = 0
a = Text11.Text
If (a <= 0) Or (a = 1) Then
    MsgBox ("真数大于0且不等于1")
    GoTo 30
End If
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