out.frm

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

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

Private Sub Option9_Click()
If Option9.Value = True Then
Text6.Text = 200
Text7.Text = 200
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 = 200: zuoy = 200
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 Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy
Close #1
Dim currx, curry, xx, yy
currx = X
curry = Y
xx = Int(((currx - 2500) / zuox) + 0.5)
yy = Int((((curry - 2500) * -1) / zuoy) + 0.5)
Label31.Caption = "鼠标坐标：(" & Format$(Int(((currx - 2500) / zuox) + 0.5), "#") & "," & Format$(Int((((curry - 2500) * -1) / zuoy) + 0.5), "#") & ")"
If xx = 0 Then Label31.Caption = "鼠标坐标：(0" & "," & Format$(Int((((curry - 2500) * -1) / zuoy) + 0.5), "#") & ")"
If yy = 0 Then Label31.Caption = "鼠标坐标：(" & Format$(Int(((currx - 2500) / zuox) + 0.5), "#") & "," & "0)"
If xx = 0 And yy = 0 Then Label31.Caption = "鼠标坐标：(0,0)"
If currx >= 4950 Or curry >= 4950 Or currx <= 50 Or curry <= 50 Then Label31.Caption = ""


End Sub

Private Sub Picture3_Click()
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
CommonDialog1.Action = 3
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
beijing = CommonDialog1.Color
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
Picture3.Line (0, 0)-(300, 300), beijing, BF
End Sub

Private Sub Picture4_Click()
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
CommonDialog1.Action = 3
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
zuo = CommonDialog1.Color
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
Picture4.Line (0, 0)-(300, 300), zuo, BF
End Sub

Private Sub Picture5_Click()
Dim X, zuox, zuoy, jingdu, beijing, zuotx, cuxi
CommonDialog1.Action = 3
Open "c:\hs.ini" For Input As #1
Input #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
tx = CommonDialog1.Color
Open "c:\hs.ini" For Output As #1
Write #1, zuox, zuoy, jingdu, beijing, zuo, tx, cuxi
Close #1
Picture5.Line (0, 0)-(300, 300), tx, BF
End Sub

Private Sub print_Click()
MsgBox ("此版本不提供此功能！")
End Sub

Private Sub save_Click()
On Error GoTo myerror
CommonDialog1.Filter = "BMP|*.bmp"
CommonDialog1.Flags = &H2

CommonDialog1.DefaultExt = "bmp"
CommonDialog1.Action = 2
If CommonDialog1.CancelError = False Then
SavePicture Picture1.Image, CommonDialog1.FileName
End If
Exit Sub
myerror:
End Sub

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

End Sub

Private Sub Text6_Change()
If Text6.Text = "" Then Text6.Text = 100
If Text7.Text = "" Then Text7.Text = 100
If IsNumeric(Text6.Text) And IsNumeric(Text7.Text) Then
If 1 = 1 Then
Option11.Value = True
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
If a < 1 Then a = 1: Text6.Text = 1
If b < 1 Then b = 1: Text7.Text = 1
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 If
Else
Text6.Text = 1
End If
End Sub

Private Sub Text7_Change()
If Text6.Text = "" Then Text6.Text = 100
If Text7.Text = "" Then Text7.Text = 100
If IsNumeric(Text6.Text) And IsNumeric(Text7.Text) Then
If 1 = 1 Then
Option11.Value = True
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
If a < 1 Then a = 1: Text6.Text = 1
If b < 1 Then b = 1: Text7.Text = 1
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 If
Else
Text7.Text = 1
End If
End Sub

Private Sub Timer1_Timer()
Label33.Caption = Now
End Sub