📄 mainform.frm
字号:
VERSION 5.00
Begin VB.Form MainForm
BackColor = &H80000013&
Caption = "应用BP算法确定专业"
ClientHeight = 4845
ClientLeft = 60
ClientTop = 750
ClientWidth = 6675
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "MainForm.frx":0000
ScaleHeight = 4845
ScaleWidth = 6675
StartUpPosition = 2 '屏幕中心
Begin VB.Menu menu1
Caption = "训练BP网络"
Begin VB.Menu menu11
Caption = "文科"
Begin VB.Menu menu111
Caption = "导入文科训练集"
End
Begin VB.Menu menu112
Caption = "训练网络"
End
End
Begin VB.Menu menu12
Caption = "理科"
Begin VB.Menu menu121
Caption = "导入理科训练集"
End
Begin VB.Menu menu122
Caption = "训练网络"
End
End
End
Begin VB.Menu menu2
Caption = "运行网络"
End
Begin VB.Menu menu3
Caption = "帮助"
End
Begin VB.Menu menu4
Caption = "退出"
End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.menu112.Enabled = False
Me.menu122.Enabled = False
Me.menu1.Enabled = True
Me.menu2.Enabled = False
End Sub
Private Sub menu111_Click() '导入文科训练集
flag = False
Cls
tempin(1, 0) = 150: tempin(1, 1) = 85: tempin(1, 2) = 72: tempin(1, 3) = 69: tempin(1, 4) = 170
tempin(2, 0) = 150: tempin(2, 1) = 110: tempin(2, 2) = 103: tempin(2, 3) = 92: tempin(2, 4) = 243
tempin(3, 0) = 150: tempin(3, 1) = 99: tempin(3, 2) = 101: tempin(3, 3) = 113: tempin(3, 4) = 215
tempin(4, 0) = 150: tempin(4, 1) = 99: tempin(4, 2) = 120: tempin(4, 3) = 105: tempin(4, 4) = 201
tempin(5, 0) = 150: tempin(5, 1) = 100: tempin(5, 2) = 115: tempin(5, 3) = 120: tempin(5, 4) = 195
tempin(6, 0) = 150: tempin(6, 1) = 121: tempin(6, 2) = 105: tempin(6, 3) = 125: tempin(6, 4) = 220
tempin(7, 0) = 150: tempin(7, 1) = 113: tempin(7, 2) = 100: tempin(7, 3) = 119: tempin(7, 4) = 202
tempin(8, 0) = 150: tempin(8, 1) = 107: tempin(8, 2) = 98: tempin(8, 3) = 129: tempin(8, 4) = 240
tempin(9, 0) = 150: tempin(9, 1) = 135: tempin(9, 2) = 87: tempin(9, 3) = 90: tempin(9, 4) = 248
tempin(10, 0) = 150: tempin(10, 1) = 112: tempin(10, 2) = 103: tempin(10, 3) = 85: tempin(10, 4) = 232
tempin(11, 0) = 150: tempin(11, 1) = 105: tempin(11, 2) = 132: tempin(11, 3) = 104: tempin(11, 4) = 217
tempin(12, 0) = 150: tempin(12, 1) = 100: tempin(12, 2) = 120: tempin(12, 3) = 113: tempin(12, 4) = 235
tempin(13, 0) = 150: tempin(13, 1) = 107: tempin(13, 2) = 105: tempin(13, 3) = 120: tempin(13, 4) = 195
tempin(14, 0) = 150: tempin(14, 1) = 114: tempin(14, 2) = 108: tempin(14, 3) = 100: tempin(14, 4) = 210
tempin(15, 0) = 150: tempin(15, 1) = 119: tempin(15, 2) = 103: tempin(15, 3) = 125: tempin(15, 4) = 252
tempin(16, 0) = 150: tempin(16, 1) = 125: tempin(16, 2) = 116: tempin(16, 3) = 137: tempin(16, 4) = 259
tempd(1, 0) = 0: tempd(1, 1) = 0: tempd(1, 2) = 0: tempd(1, 3) = 0
tempd(2, 0) = 0: tempd(2, 1) = 0: tempd(2, 2) = 0: tempd(2, 3) = 1
tempd(3, 0) = 0: tempd(3, 1) = 0: tempd(3, 2) = 1: tempd(3, 3) = 0
tempd(4, 0) = 0: tempd(4, 1) = 0: tempd(4, 2) = 1: tempd(4, 3) = 1
tempd(5, 0) = 0: tempd(5, 1) = 1: tempd(5, 2) = 0: tempd(5, 3) = 0
tempd(6, 0) = 0: tempd(6, 1) = 1: tempd(6, 2) = 0: tempd(6, 3) = 1
tempd(7, 0) = 0: tempd(7, 1) = 1: tempd(7, 2) = 1: tempd(7, 3) = 0
tempd(8, 0) = 0: tempd(8, 1) = 1: tempd(8, 2) = 1: tempd(8, 3) = 1
tempd(9, 0) = 1: tempd(9, 1) = 0: tempd(9, 2) = 0: tempd(9, 3) = 0
tempd(10, 0) = 1: tempd(10, 1) = 0: tempd(10, 2) = 0: tempd(10, 3) = 1
tempd(11, 0) = 1: tempd(11, 1) = 0: tempd(11, 2) = 1: tempd(11, 3) = 0
tempd(12, 0) = 1: tempd(12, 1) = 0: tempd(12, 2) = 1: tempd(12, 3) = 1
tempd(13, 0) = 1: tempd(13, 1) = 1: tempd(13, 2) = 0: tempd(13, 3) = 0
tempd(14, 0) = 1: tempd(14, 1) = 1: tempd(14, 2) = 0: tempd(14, 3) = 1
tempd(15, 0) = 1: tempd(15, 1) = 1: tempd(15, 2) = 1: tempd(15, 3) = 0
tempd(16, 0) = 1: tempd(16, 1) = 1: tempd(16, 2) = 1: tempd(16, 3) = 1
Print Tab(20); "文科训练集已导入系统！"
Me.menu112.Enabled = True
End Sub
Private Sub menu112_Click() '训练文科集
flag = False
Cls
Print Tab(20); "正在训练网络，请稍候..."
Me.MousePointer = 11
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim num As Integer
Call GetZero
Call Randdata
net_e = 1#
Do While net_e > Delta
For i = 1 To M
For j = 0 To N
inin(j) = tempin(i, j)
Next j
For k = 0 To N - 1
d(k) = tempd(i, k)
Next k
Call Train
Next i
num = num + 1
If num >= Iternum Then
Exit Do
End If
Loop
Me.MousePointer = 0
Cls
Print Tab(20); "网络训练完毕，请使用"
MainForm.menu2.Enabled = True
End Sub
Private Sub menu121_Click() '导入理科训练集
flag = True
Cls
tempin(1, 0) = 150: tempin(1, 1) = 87: tempin(1, 2) = 79: tempin(1, 3) = 90: tempin(1, 4) = 109
tempin(2, 0) = 150: tempin(2, 1) = 90: tempin(2, 2) = 115: tempin(2, 3) = 99: tempin(2, 4) = 252
tempin(3, 0) = 150: tempin(3, 1) = 97: tempin(3, 2) = 90: tempin(3, 3) = 110: tempin(3, 4) = 230
tempin(4, 0) = 150: tempin(4, 1) = 101: tempin(4, 2) = 104: tempin(4, 3) = 117: tempin(4, 4) = 210
tempin(5, 0) = 150: tempin(5, 1) = 100: tempin(5, 2) = 110: tempin(5, 3) = 120: tempin(5, 4) = 232
tempin(6, 0) = 150: tempin(6, 1) = 100: tempin(6, 2) = 107: tempin(6, 3) = 120: tempin(6, 4) = 244
tempin(7, 0) = 150: tempin(7, 1) = 108: tempin(7, 2) = 100: tempin(7, 3) = 108: tempin(7, 4) = 233
tempin(8, 0) = 150: tempin(8, 1) = 120: tempin(8, 2) = 109: tempin(8, 3) = 115: tempin(8, 4) = 248
tempin(9, 0) = 150: tempin(9, 1) = 99: tempin(9, 2) = 101: tempin(9, 3) = 125: tempin(9, 4) = 237
tempin(10, 0) = 150: tempin(10, 1) = 85: tempin(10, 2) = 119: tempin(10, 3) = 114: tempin(10, 4) = 229
tempin(11, 0) = 150: tempin(11, 1) = 101: tempin(11, 2) = 100: tempin(11, 3) = 120: tempin(11, 4) = 240
tempin(12, 0) = 150: tempin(12, 1) = 93: tempin(12, 2) = 107: tempin(12, 3) = 135: tempin(12, 4) = 224
tempin(13, 0) = 150: tempin(13, 1) = 109: tempin(13, 2) = 104: tempin(13, 3) = 119: tempin(13, 4) = 247
tempin(14, 0) = 150: tempin(14, 1) = 100: tempin(14, 2) = 119: tempin(14, 3) = 120: tempin(14, 4) = 256
tempin(15, 0) = 150: tempin(15, 1) = 98: tempin(15, 2) = 121: tempin(15, 3) = 118: tempin(15, 4) = 249
tempin(16, 0) = 150: tempin(16, 1) = 115: tempin(16, 2) = 123: tempin(16, 3) = 122: tempin(16, 4) = 260
tempd(1, 0) = 0: tempd(1, 1) = 0: tempd(1, 2) = 0: tempd(1, 3) = 0
tempd(2, 0) = 0: tempd(2, 1) = 0: tempd(2, 2) = 0: tempd(2, 3) = 1
tempd(3, 0) = 0: tempd(3, 1) = 0: tempd(3, 2) = 1: tempd(3, 3) = 0
tempd(4, 0) = 0: tempd(4, 1) = 0: tempd(4, 2) = 1: tempd(4, 3) = 1
tempd(5, 0) = 0: tempd(5, 1) = 1: tempd(5, 2) = 0: tempd(5, 3) = 0
tempd(6, 0) = 0: tempd(6, 1) = 1: tempd(6, 2) = 0: tempd(6, 3) = 1
tempd(7, 0) = 0: tempd(7, 1) = 1: tempd(7, 2) = 1: tempd(7, 3) = 0
tempd(8, 0) = 0: tempd(8, 1) = 1: tempd(8, 2) = 1: tempd(8, 3) = 1
tempd(9, 0) = 1: tempd(9, 1) = 0: tempd(9, 2) = 0: tempd(9, 3) = 0
tempd(10, 0) = 1: tempd(10, 1) = 0: tempd(10, 2) = 0: tempd(10, 3) = 1
tempd(11, 0) = 1: tempd(11, 1) = 0: tempd(11, 2) = 1: tempd(11, 3) = 0
tempd(12, 0) = 1: tempd(12, 1) = 0: tempd(12, 2) = 1: tempd(12, 3) = 1
tempd(13, 0) = 1: tempd(13, 1) = 1: tempd(13, 2) = 0: tempd(13, 3) = 0
tempd(14, 0) = 1: tempd(14, 1) = 1: tempd(14, 2) = 0: tempd(14, 3) = 1
tempd(15, 0) = 1: tempd(15, 1) = 1: tempd(15, 2) = 1: tempd(15, 3) = 0
tempd(16, 0) = 1: tempd(16, 1) = 1: tempd(16, 2) = 1: tempd(16, 3) = 1
Print Tab(20); "理科训练集已导入系统！"
Me.menu122.Enabled = True
End Sub
Private Sub menu122_Click() '训练理科集
flag = True
Cls
Print Tab(20); "正在训练网络，请稍候..."
Me.MousePointer = 11
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim num As Integer
Call GetZero
Call Randdata
net_e = 1#
Do While net_e > Delta
For i = 1 To M
For j = 0 To N
inin(j) = tempin(i, j)
Next j
For k = 0 To N - 1
d(k) = tempd(i, k)
Next k
Call Train
Next i
num = num + 1
If num >= Iternum Then
Exit Do
End If
Loop
Me.MousePointer = 0
Cls
Print Tab(20); "网络训练完毕，请使用"
MainForm.menu2.Enabled = True
End Sub
Private Sub menu2_Click()
Cls
RunForm.Show 1
End Sub
Private Sub menu3_Click()
Cls
HelpForm.Show 1
End Sub
Private Sub menu4_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -