?? mand1.frm
字號:
VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H00FF0000&
BorderStyle = 0 'None
Caption = "曼德布羅集"
ClientHeight = 6795
ClientLeft = 45
ClientTop = 330
ClientWidth = 9510
FillColor = &H00FFFF00&
ForeColor = &H00C00000&
Icon = "mand1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 453
ScaleMode = 3 'Pixel
ScaleWidth = 634
ShowInTaskbar = 0 'False
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4560
Top = 3120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.ComboBox Combo1
Height = 315
Left = 8280
TabIndex = 15
Top = 2160
Width = 975
End
Begin VB.TextBox Text3
Height = 264
Left = 360
TabIndex = 14
Text = "Text3"
Top = 6360
Visible = 0 'False
Width = 3732
End
Begin VB.CommandButton cmdreg
Caption = "RE&GISTER"
Enabled = 0 'False
Height = 492
Left = 8280
TabIndex = 13
Top = 1080
Visible = 0 'False
Width = 972
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 1000
Left = 4440
Top = 6240
End
Begin MCI.MMControl MMControl1
Height = 495
Left = 4920
TabIndex = 12
Top = 6240
Visible = 0 'False
Width = 2895
_ExtentX = 6244
_ExtentY = 873
_Version = 393216
DeviceType = ""
FileName = ""
End
Begin VB.Timer Timer1
Interval = 234
Left = 8280
Top = 6360
End
Begin VB.CommandButton rstcmd
Caption = "&RESET"
Height = 372
Left = 8280
TabIndex = 10
Top = 5760
Width = 972
End
Begin VB.TextBox Text2
Height = 270
Left = 8280
TabIndex = 8
Text = "Text2"
Top = 720
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Left = 8280
TabIndex = 7
Text = "Text1"
Top = 360
Width = 975
End
Begin VB.TextBox tx0
Height = 285
Left = 8280
TabIndex = 6
Text = "-2.5"
Top = 2760
Width = 975
End
Begin VB.TextBox Ty0
Height = 285
Left = 8280
TabIndex = 5
Text = "-2"
Top = 3120
Width = 975
End
Begin VB.TextBox Twide
Height = 285
Left = 8280
TabIndex = 4
Text = "4"
Top = 3480
Width = 975
End
Begin VB.CommandButton cmdend
Caption = "&CLOSE"
Height = 495
Left = 8280
TabIndex = 3
Top = 5160
Width = 975
End
Begin VB.CommandButton cmdsave
Caption = "SA&VE"
Height = 495
Left = 8280
TabIndex = 2
Top = 4560
Width = 975
End
Begin VB.CommandButton cmdstart
Caption = "&START"
Height = 495
Left = 8280
TabIndex = 1
Top = 3960
Width = 975
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
Height = 6000
Left = 0
ScaleHeight = 396
ScaleMode = 3 'Pixel
ScaleWidth = 508
TabIndex = 0
Top = 0
Width = 7680
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "曼德布羅集"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0FF&
Height = 240
Left = 0
TabIndex = 11
Top = 0
Width = 1200
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
Height = 372
Left = 2400
Top = 1320
Width = 492
End
End
Begin VB.Image ico
Height = 495
Left = 8280
Top = 1080
Width = 975
End
Begin VB.Image Img
Height = 480
Index = 4
Left = 4320
Top = 3360
Visible = 0 'False
Width = 480
End
Begin VB.Image Img
Height = 480
Index = 3
Left = 4320
Top = 3360
Visible = 0 'False
Width = 480
End
Begin VB.Image Img
Height = 480
Index = 2
Left = 4320
Top = 3360
Visible = 0 'False
Width = 480
End
Begin VB.Image Img
Height = 480
Index = 1
Left = 4320
Top = 3360
Visible = 0 'False
Width = 480
End
Begin VB.Image Img
Height = 480
Index = 0
Left = 4320
Top = 3360
Visible = 0 'False
Width = 480
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FF0000&
Caption = " 左下角 坐標及寬度 "
ForeColor = &H00FFFFFF&
Height = 495
Left = 8280
MousePointer = 1 'Arrow
TabIndex = 9
Top = 1680
Width = 975
End
Begin VB.Menu fd
Caption = "放大"
Visible = 0 'False
Begin VB.Menu zoom
Caption = "放大"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim finish As Boolean
Dim x01 As Double, y01 As Double
Dim x02 As Double, y02 As Double, wide2 As Double
Dim x0 As Double, y0 As Double, wide As Double
Private Sub cmdend_Click()
MMControl1.Command = "close"
End
End Sub
Private Sub cmdreg_Click()
Dim ps As String
ps = InputBox("輸入注冊碼:", "注冊")
SaveSetting "MAND1", "曼德布羅集", "password", ps
End Sub
Private Sub cmdsave_Click()
Static num As Integer
num = num + 1
CommonDialog1.DefaultExt = "bmp"
CommonDialog1.FileName = "mand1-" & num
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
SavePicture Picture1.Image, CommonDialog1.FileName
End If
End Sub
Private Sub cmdstart_Click()
Dim red As Integer, green As Integer, blue As Integer, times As Integer
Dim ix As Integer, iy As Integer
Dim X As Double, Y As Double, t As Double, zx As Double, zy As Double
Dim xs As Double, ys As Double
Dim inset As Boolean
x0 = x02
y0 = y02
wide = wide2
tx0.Text = x0
Ty0.Text = y0
Twide.Text = wide
Timer2.Enabled = False
cmdstart.Enabled = False
cmdend.Enabled = False
cmdsave.Enabled = False
Text3.Visible = False
finish = False
For ix = 0 To 499
For iy = 0 To 499
X = ix * wide / 500# + x0
Y = iy * wide / 500# + y0
zx = X
zy = Y
inset = True
times = 0
Do While inset And times < 1000
xs = zx * zx
ys = zy * zy
zy = 2 * zx * zy + Y
zx = xs - ys + X
If xs + ys > 4 Then inset = False
times = times + 1
Loop
If Not inset Then
red = (times * 5 + 59) Mod 255
blue = (times * 2 + 73) Mod 255
green = (times * 3 + 17) Mod 255
Picture1.PSet (ix, 500 - iy), RGB(red, green, blue)
Else
Picture1.PSet (ix, 500 - iy), RGB(0, 0, 0)
End If
Next iy
DoEvents
Next ix
cmdstart.Enabled = True
cmdend.Enabled = True
cmdsave.Enabled = True
finish = True
End Sub
Private Sub Form_Click()
MsgBox "請按<START>鍵!", vbExclamation + vbSystemModal
End Sub
Private Sub Form_Load()
Dim ps As String, fn As String, fn1 As String
MMControl1.Notify = False
MMControl1.wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "sequencer"
fn = App.Path
fn1 = Right$(fn, 1)
If fn1 = "\" Then fn = fn & "mand1.mid" Else fn = fn & "\mand1.mid"
Text3.Text = fn
MMControl1.FileName = fn
MMControl1.Command = "open"
MMControl1.Command = "play"
MsgBox "==歡迎光臨==", vbInformation + vbSystemModal, "曼德布羅集..."
'Do
'x02 = Val(InputBox("左下角 X 坐標", "輸入", "-2.5"))
'Loop While x02 = 0
'Do
'y02 = Val(InputBox("左下角 Y 坐標", "輸入", "-2"))
'Loop While y02 = 0
'Do
'wide2 = Val(InputBox("寬度", "輸入", "4"))
'Loop While wide2 = 0
x02 = tx0.Text
y02 = Ty0.Text
wide2 = Twide.Text
ps = GetSetting("MAND1", "曼德布羅集", "password")
If ps <> "1234567" Then
MsgBox "非法拷貝,請注冊!", vbCritical + vbSystemModal, "你是盜版者"
cmdreg.Enabled = True
cmdreg.Visible = True
ico.Visible = False
cmdsave.Visible = False
End If
Picture1.DrawMode = 13
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
Picture1.Left = 5
Picture1.Top = 5
Shape1.Width = 25
Shape1.Height = 25
Picture1.Width = 500
Picture1.Height = 500
cmdstart.Default = True
MsgBox "下面的過程需要幾分鐘時間,請耐心等待！", vbQuestion, "準備好了嗎?"
Timer2.Enabled = True
End Sub
Private Sub Picture1_mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If finish = True Then
x02 = x01
y02 = y01
wide2 = wide / 20#
tx0.Text = x02
Ty0.Text = y02
Twide.Text = wide2
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Move X, Y - 25
X = X - 250
Y = 250 - Y
x01 = X * wide / 500# + 0.5 * wide + x0
y01 = Y * wide / 500# + 0.5 * wide + y0
Text1.Text = x01
Text2.Text = y01
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 And finish Then PopupMenu fd
End Sub
Private Sub rstcmd_Click()
Form_Load
cmdstart_Click
End Sub
Private Sub Timer1_Timer()
Static Imagen As Integer
If Label2.FontSize > 25 Then Label2.FontSize = 10
Label2.FontSize = Label2.FontSize + 1
If Imagen = 5 Then Imagen = 0
ico.Picture = Img(Imagen).Picture
Imagen = Imagen + 1
End Sub
Private Sub Timer2_Timer()
Static wait As Integer
wait = wait + 1
If wait = 10 Then
MsgBox "請按<START>鍵!", vbExclamation
Timer2.Enabled = False
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -