原码.txt

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

Y = a ^ X
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
If xx < 0 Or xx > 5000 Or yy < 0 Or yy > 5000 Then GoTo 50
Picture1.Circle (xx, yy), cuxi, tx
50 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
xx = Int(X * zuox) + 2500
yy = Int(Y * zuoy * -1) + 2500
If xx < 0 Or xx > 5000 Or yy < 0 Or yy > 5000 Then GoTo 60

Picture1.Circle (xx, yy), cuxi, tx
finish = ((X + (2500 / zuox)) / (5000 / zuox)) * 1000
Picture2.Line (0, 0)-(finish, 135), RGB(0, 0, 255), BF
60 Next X
Picture2.Line (0, 0)-(1000, 135), RGB(212, 208, 200), BF

30 End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
Me.Show
Dim X, zuox, zuoy, jingdu, beijingr, beijingg, beijingb, zuor, zuog, zuob, cuxi
Option2.Value = True
Option8.Value = True
Option13.Value = True
Option16.Value = True
Option19.Value = True
Option21.Value = True

Open "c:\hs.ini" For Output As #1
Write #1, 300, 300, 0.001, 16777215, 0, 0, 10
Close #1
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cx
Close #1
Picture3.Line (0, 0)-(300, 300), beijing, BF
Picture4.Line (0, 0)-(300, 300), zuo, BF
Picture5.Line (0, 0)-(300, 300), tx, BF


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 Sub

Private Sub open_Click()
CommonDialog1.Filter = "BMP|*.bmp"
CommonDialog1.Flags = &H1000
CommonDialog1.Action = 1
If CommonDialog1.CancelError = False Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
cuxi = 1
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If
End Sub

Private Sub Option10_Click()
If Option10.Value = True Then
Text6.Text = 100
Text7.Text = 100
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
zuox = 100: zuoy = 100
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
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 Option11_Click()

If Option11.Value = True Then

Dim a, b, X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
If Text6.Text = "" Then Text6.Text = 1
If Text7.Text = "" Then Text7.Text = 1
a = Text6.Text
b = Text7.Text
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
zuox = a: zuoy = b
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
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 Option12_Click()
MsgBox ("您选择了精确绘图，绘图速度会很慢，请耐心等待！！")
If Option12.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
jingdu = 0.0001
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option13_Click()
If Option13.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
jingdu = 0.001
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option14_Click()
If Option14.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
jingdu = 0.01
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option15_Click()
If Option15.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
jingdu = 0.1
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
cuxi = 10
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
cuxi = 20
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option4_Click()
If Option4.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
cuxi = 30
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option5_Click()
If Option5.Value = True Then
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
cuxi = 50
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
End If

End Sub

Private Sub Option6_Click()
If Option6.Value = True Then
Text6.Text = 600
Text7.Text = 600
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
zuox = 600: zuoy = 600
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
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 Option7_Click()
If Option7.Value = True Then
Text6.Text = 400
Text7.Text = 400
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
zuox = 400: zuoy = 400
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
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 Option8_Click()
If Option8.Value = True Then
Text6.Text = 300
Text7.Text = 300
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
zuox = 300: zuoy = 300
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
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