?? initpop.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3210
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3210
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 375
Left = 720
TabIndex = 1
Top = 1440
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "遺傳算法解機組組合"
Height = 855
Left = 1200
TabIndex = 0
Top = 480
Width = 2535
End
Begin VB.Menu tcct
Caption = "退出畫面"
End
Begin VB.Menu xssj
Caption = "顯示初始數(shù)據(jù)"
End
Begin VB.Menu wjwj
Caption = "在文件中顯示數(shù)據(jù)"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim p1(1 To 50) As PP
Call initpop
For i = 1 To 50
p1(i) = newpop(i)
newpop(i) = oldpop(i)
Next i
Dim oldmax As Double
Dim oldmaxpp As Integer
Call statistics(newpop())
For i = 1 To 50
newpop(i) = p1(i)
Next i
maxgen = 4000
gen = 0
Do While (gen < maxgen)
gen = gen + 1
oldmax = max
oldmaxpp = maxpp
Call generation
Call statistics(newpop())
If (max < oldmax) Then
For i = 0 To 23
For j = 1 To 8
newpop(maxpp).AA(i, j) = oldpop(oldmaxpp).AA(i, j)
Next j
Next i
newpop(maxpp).fitness = oldpop(oldmaxpp).fitness
Call statistics(newpop())
End If
Call report(gen)
For i = 1 To 50
p1(i) = oldpop(i)
oldpop(i) = newpop(i)
newpop(i) = p1(i)
Next i
Loop
Form1.Hide
End Sub
Private Sub Command2_Click()
Dim gg(0 To 23, 1 To 8) As Integer
Dim i As Integer
Dim j As Integer
Dim jg(0 To 23, 1 To 8) As Double
Dim jgfitness As Double
Open "E:\wyl\負荷.txt" For Input As #1
For i = 0 To 23
Input #1, fh(i)
Next i
Close #1
For i = 1 To 2
For j = 0 To 23
gg(j, i) = 1
Next j
Next i
For i = 0 To 2
gg(i, 3) = 1
Next i
For i = 5 To 7
gg(i, 3) = 1
Next i
gg(10, 3) = 1
For i = 14 To 15
gg(i, 3) = 1
Next i
For i = 20 To 23
gg(i, 3) = 1
Next i
gg(0, 4) = 1
For i = 2 To 5
gg(i, 4) = 1
Next i
For i = 8 To 9
gg(i, 4) = 1
Next i
gg(11, 4) = 1
gg(16, 4) = 1
For i = 18 To 20
gg(i, 4) = 1
Next i
gg(22, 4) = 1
For i = 0 To 3
gg(i, 5) = 1
Next i
gg(5, 5) = 1
For i = 8 To 10
gg(i, 5) = 1
Next i
gg(13, 5) = 1
For i = 19 To 22
gg(i, 5) = 1
Next i
gg(0, 6) = 1
gg(4, 6) = 1
For i = 6 To 8
gg(i, 6) = 1
Next i
gg(10, 6) = 1
gg(13, 6) = 1
gg(15, 6) = 1
gg(17, 6) = 1
For i = 20 To 22
gg(i, 6) = 1
Next i
gg(1, 7) = 1
gg(3, 7) = 1
gg(5, 7) = 1
gg(6, 7) = 1
gg(7, 7) = 1
gg(9, 7) = 1
gg(11, 7) = 1
gg(14, 7) = 1
gg(16, 7) = 1
gg(18, 7) = 1
gg(20, 7) = 1
Call Pallocate(gg(), jg())
jgfitness = objfun(gg(), jg())
Open "E:\wyl\臨時文件2.txt" For Output As #1
For i = 0 To 23
For j = 1 To 8
Print #1, jg(i, j);
Next j
Print #1,
Next i
Print #1, jgfitness
Close #1
End Sub
Private Sub tcct_Click()
Unload Me
End Sub
Private Sub wjwj_Click()
Call initpop
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -