frmbp.frm

使用VB编写的神经网络BP算法程序

For i = 0 To NN - 1 '调入水平表格中的各个文本框
  For j = 1 To II '调入垂直表格中的各个文本框
    Load Text1(i * II + j)
    Text1(i * II + j).Visible = True
    Text1(i * II + j).Left = Text1(0).Width * (j - 1)
    Text1(i * II + j).Top = Text1(0).Height * i
    Text1(i * II + j).Text = ""
  Next j
Next i
End Sub




Private Sub VScroll1_Change() '垂直滚动条
Picture2.Top = 0 - VScroll1.Value
End Sub

Private Sub Pic3Redraw() '视窗图片重绘子程序
'设置表格载体图片控件的属性
Picture4.Width = KK * Text2(0).Width + 50
Picture4.Height = NN * Text2(0).Height + 50
'判断滚动条出现的不同情况
If Picture3.Width < Picture4.Width + Picture4.Left * 2 _
   And Picture3.Height < Picture4.Height + Picture4.Top * 2 Then
'水平、垂直滚动条都出现
   HScroll2.Left = 0
   HScroll2.Top = Picture3.Height - HScroll2.Height
   HScroll2.Width = Picture3.Width
   HScroll2.Max = Picture4.Width + 2 * Picture4.Left - Picture3.Width
   HScroll2.Min = 0
   
   VScroll2.Top = 0
   VScroll2.Left = Picture3.Width - VScroll2.Width
   VScroll2.Height = Picture3.Height - HScroll2.Height
   VScroll2.Max = Picture4.Height + 2 * Picture4.Top - Picture3.Height
   VScroll2.Min = 0
   HScroll2.Visible = True
   VScroll2.Visible = True
ElseIf Picture3.Width < Picture4.Width + Picture4.Left * 2 Then
      '只出现水平滚动条
      HScroll2.Left = 0
      HScroll2.Top = Picture3.Height - HScroll2.Height
      HScroll2.Width = Picture3.Width
      HScroll2.Max = Picture4.Width + 2 * Picture4.Left - Picture3.Width
      HScroll2.Min = 0
      HScroll2.Visible = True
      VScroll2.Visible = False
   ElseIf Picture3.Height < Picture4.Height + Picture4.Top * 2 Then
         '只出现垂直滚动条
         VScroll2.Top = 0
         VScroll2.Left = Picture3.Width - VScroll2.Width
         VScroll2.Height = Picture3.Height
         VScroll2.Max = Picture4.Height + 2 * Picture4.Top - Picture3.Height
         VScroll2.Min = 0
         HScroll2.Visible = False
         VScroll2.Visible = True
      Else
        HScroll2.Visible = False
        VScroll2.Visible = False
End If
HScroll2.SmallChange = 20
HScroll2.LargeChange = (HScroll2.Max - HScroll2.Min) / 10
HScroll2.Value = 0
VScroll2.SmallChange = 20
VScroll2.LargeChange = (VScroll2.Max - VScroll2.Min) / 10
VScroll2.Value = 0
End Sub

Private Sub HScroll2_Change()  '水平滚动条变化
Picture4.Left = 0 - HScroll2.Value
End Sub

Private Sub Text2Load() '调入文本框控件
Dim i, j As Integer
For i = 0 To NN - 1 '调入水平表格中的各个文本框
  For j = 1 To KK '调入垂直表格中的各个文本框
    Load Text2(i * KK + j)
    Text2(i * KK + j).Visible = True
    Text2(i * KK + j).Left = Text2(0).Width * (j - 1)
    Text2(i * KK + j).Top = Text2(0).Height * i
    Text2(i * KK + j).Text = ""
  Next j
Next i
End Sub

Private Sub VScroll2_Change() '垂直滚动条
Picture4.Top = 0 - VScroll2.Value
End Sub

Private Sub Pic5Redraw() '视窗图片重绘子程序
'设置表格载体图片控件的属性
Picture6.Width = KK * Text3(0).Width + 50
Picture6.Height = NN * Text3(0).Height + 50
'判断滚动条出现的不同情况
If Picture5.Width < Picture6.Width + Picture6.Left * 2 _
   And Picture5.Height < Picture6.Height + Picture6.Top * 2 Then
'水平、垂直滚动条都出现
   HScroll3.Left = 0
   HScroll3.Top = Picture5.Height - HScroll3.Height
   HScroll3.Width = Picture5.Width
   HScroll3.Max = Picture6.Width + 2 * Picture6.Left - Picture5.Width
   HScroll3.Min = 0
   
   VScroll3.Top = 0
   VScroll3.Left = Picture5.Width - VScroll3.Width
   VScroll3.Height = Picture5.Height - HScroll3.Height
   VScroll3.Max = Picture6.Height + 2 * Picture6.Top - Picture5.Height
   VScroll3.Min = 0
   HScroll3.Visible = True
   VScroll3.Visible = True
ElseIf Picture5.Width < Picture6.Width + Picture6.Left * 2 Then
      '只出现水平滚动条
      HScroll3.Left = 0
      HScroll3.Top = Picture5.Height - HScroll3.Height
      HScroll3.Width = Picture5.Width
      HScroll3.Max = Picture6.Width + 2 * Picture6.Left - Picture5.Width
      HScroll3.Min = 0
      HScroll3.Visible = True
      VScroll3.Visible = False
   ElseIf Picture5.Height < Picture6.Height + Picture6.Top * 2 Then
         '只出现垂直滚动条
         VScroll3.Top = 0
         VScroll3.Left = Picture5.Width - VScroll3.Width
         VScroll3.Height = Picture5.Height
         VScroll3.Max = Picture6.Height + 2 * Picture6.Top - Picture5.Height
         VScroll3.Min = 0
         HScroll3.Visible = False
         VScroll3.Visible = True
      Else
        HScroll3.Visible = False
        VScroll3.Visible = False
End If
HScroll3.SmallChange = 20
HScroll3.LargeChange = (HScroll3.Max - HScroll3.Min) / 10
HScroll3.Value = 0
VScroll3.SmallChange = 20
VScroll3.LargeChange = (VScroll3.Max - VScroll3.Min) / 10
VScroll3.Value = 0
End Sub

Private Sub hscroll3_Change()  '水平滚动条变化
Picture6.Left = 0 - HScroll3.Value
End Sub

Private Sub text3Load() '调入文本框控件
Dim i, j As Integer
For i = 0 To NN - 1 '调入水平表格中的各个文本框
  For j = 1 To KK '调入垂直表格中的各个文本框
    Load Text3(i * KK + j)
    Text3(i * KK + j).Visible = True
    Text3(i * KK + j).Left = Text3(0).Width * (j - 1)
    Text3(i * KK + j).Top = Text3(0).Height * i
    Text3(i * KK + j).Text = ""
  Next j
Next i
End Sub

Private Sub vscroll3_Change() '垂直滚动条
Picture6.Top = 0 - VScroll3.Value
End Sub

Private Sub Pic7Redraw() '视窗图片重绘子程序
'设置表格载体图片控件的属性
Picture8.Width = JJ * Text4(0).Width + 50
Picture8.Height = KK * Text4(0).Height + 50
'判断滚动条出现的不同情况
If Picture7.Width < Picture8.Width + Picture8.Left * 2 _
   And Picture7.Height < Picture8.Height + Picture8.Top * 2 Then
'水平、垂直滚动条都出现
   HScroll4.Left = 0
   HScroll4.Top = Picture7.Height - HScroll4.Height
   HScroll4.Width = Picture7.Width
   HScroll4.Max = Picture8.Width + 2 * Picture8.Left - Picture7.Width
   HScroll4.Min = 0
   
   VScroll4.Top = 0
   VScroll4.Left = Picture7.Width - VScroll4.Width
   VScroll4.Height = Picture7.Height - HScroll4.Height
   VScroll4.Max = Picture8.Height + 2 * Picture8.Top - Picture7.Height
   VScroll4.Min = 0
   HScroll4.Visible = True
   VScroll4.Visible = True
ElseIf Picture7.Width < Picture8.Width + Picture8.Left * 2 Then
      '只出现水平滚动条
      HScroll4.Left = 0
      HScroll4.Top = Picture7.Height - HScroll4.Height
      HScroll4.Width = Picture7.Width
      HScroll4.Max = Picture8.Width + 2 * Picture8.Left - Picture7.Width
      HScroll4.Min = 0
      HScroll4.Visible = True
      VScroll4.Visible = False
   ElseIf Picture7.Height < Picture8.Height + Picture8.Top * 2 Then
         '只出现垂直滚动条
         VScroll4.Top = 0
         VScroll4.Left = Picture7.Width - VScroll4.Width
         VScroll4.Height = Picture7.Height
         VScroll4.Max = Picture8.Height + 2 * Picture8.Top - Picture7.Height
         VScroll4.Min = 0
         HScroll4.Visible = False
         VScroll4.Visible = True
      Else
        HScroll4.Visible = False
        VScroll4.Visible = False
End If
HScroll4.SmallChange = 20
HScroll4.LargeChange = (HScroll4.Max - HScroll4.Min) / 10
HScroll4.Value = 0
VScroll4.SmallChange = 20
VScroll4.LargeChange = (VScroll4.Max - VScroll4.Min) / 10
VScroll4.Value = 0
End Sub

Private Sub hscroll4_Change()  '水平滚动条变化
Picture8.Left = 0 - HScroll4.Value
End Sub

Private Sub text4Load() '调入文本框控件
Dim i, j As Integer
For i = 0 To KK - 1 '调入水平表格中的各个文本框
  For j = 1 To JJ '调入垂直表格中的各个文本框
    Load Text4(i * JJ + j)
    Text4(i * JJ + j).Visible = True
    Text4(i * JJ + j).Left = Text4(0).Width * (j - 1)
    Text4(i * JJ + j).Top = Text4(0).Height * i
    Text4(i * JJ + j).Text = ""
  Next j
Next i
End Sub

Private Sub vscroll4_Change() '垂直滚动条
Picture8.Top = 0 - VScroll4.Value
End Sub

Private Sub Pic9Redraw() '视窗图片重绘子程序
'设置表格载体图片控件的属性
Picture10.Width = II * Text5(0).Width + 50
Picture10.Height = JJ * Text5(0).Height + 50
'判断滚动条出现的不同情况
If Picture9.Width < Picture10.Width + Picture10.Left * 2 _
   And Picture9.Height < Picture10.Height + Picture10.Top * 2 Then
'水平、垂直滚动条都出现
   HScroll5.Left = 0
   HScroll5.Top = Picture9.Height - HScroll5.Height
   HScroll5.Width = Picture9.Width
   HScroll5.Max = Picture10.Width + 2 * Picture10.Left - Picture9.Width
   HScroll5.Min = 0
   
   VScroll5.Top = 0
   VScroll5.Left = Picture9.Width - VScroll5.Width
   VScroll5.Height = Picture9.Height - HScroll5.Height
   VScroll5.Max = Picture10.Height + 2 * Picture10.Top - Picture9.Height
   VScroll5.Min = 0
   HScroll5.Visible = True
   VScroll5.Visible = True
ElseIf Picture9.Width < Picture10.Width + Picture10.Left * 2 Then
      '只出现水平滚动条
      HScroll5.Left = 0
      HScroll5.Top = Picture9.Height - HScroll5.Height
      HScroll5.Width = Picture9.Width
      HScroll5.Max = Picture10.Width + 2 * Picture10.Left - Picture9.Width
      HScroll5.Min = 0
      HScroll5.Visible = True
      VScroll5.Visible = False
   ElseIf Picture9.Height < Picture10.Height + Picture10.Top * 2 Then
         '只出现垂直滚动条
         VScroll5.Top = 0
         VScroll5.Left = Picture9.Width - VScroll5.Width
         VScroll5.Height = Picture9.Height
         VScroll5.Max = Picture10.Height + 2 * Picture10.Top - Picture9.Height
         VScroll5.Min = 0
         HScroll5.Visible = False
         VScroll5.Visible = True
      Else
        HScroll5.Visible = False
        VScroll5.Visible = False
End If
HScroll5.SmallChange = 20
HScroll5.LargeChange = (HScroll5.Max - HScroll5.Min) / 10
HScroll5.Value = 0
VScroll5.SmallChange = 20
VScroll5.LargeChange = (VScroll5.Max - VScroll5.Min) / 10
VScroll5.Value = 0
End Sub

Private Sub hscroll5_Change()  '水平滚动条变化
Picture10.Left = 0 - HScroll5.Value
End Sub

Private Sub text5Load() '调入文本框控件
Dim i, j As Integer
For i = 0 To JJ - 1 '调入水平表格中的各个文本框
  For j = 1 To II '调入垂直表格中的各个文本框
    Load Text5(i * II + j)
    Text5(i * II + j).Visible = True
    Text5(i * II + j).Left = Text5(0).Width * (j - 1)
    Text5(i * II + j).Top = Text5(0).Height * i
    Text5(i * II + j).Text = ""
  Next j
Next i
End Sub

Private Sub vscroll5_Change() '垂直滚动条
Picture10.Top = 0 - VScroll5.Value
End Sub

Private Sub Pic11Redraw() '视窗图片重绘子程序
'设置表格载体图片控件的属性
Picture12.Width = 1 * Text1(0).Width + 50
Picture12.Height = JJ * Text1(0).Height + 50
'判断滚动条出现的不同情况
If Picture11.Width < Picture12.Width + Picture12.Left * 2 _
   And Picture11.Height < Picture12.Height + Picture12.Top * 2 Then
'水平、垂直滚动条都出现
   HScroll6.Left = 0
   HScroll6.Top = Picture11.Height - HScroll6.Height
   HScroll6.Width = Picture11.Width
   HScroll6.Max = Picture12.Width + 2 * Picture12.Left - Picture11.Width
   HScroll6.Min = 0
   
   VScroll6.Top = 0
   VScroll6.Left = Picture11.Width - VScroll6.Width
   VScroll6.Height = Picture11.Height - HScroll6.Height
   VScroll6.Max = Picture12.Height + 2 * Picture12.Top - Picture11.Height
   VScroll6.Min = 0
   HScroll6.Visible = True
   VScroll6.Visible = True
ElseIf Picture11.Width < Picture12.Width + Picture12.Left * 2 Then
      '只出现水平滚动条
      HScroll6.Left = 0
      HScroll6.Top = Picture11.Height - HScroll6.Height
      HScroll6.Width = Picture11.Width
      HScroll6.Max = Picture12.Width + 2 * Picture12.Left - Picture11.Width
      HScroll6.Min = 0
      HScroll6.Visible = True
      VScroll6.Visible = False
   ElseIf Picture11.Height < Picture12.Height + Picture12.Top * 2 Then
         '只出现垂直滚动条
         VScroll6.Top = 0
         VScroll6.Left = Picture11.Width - VScroll6.Width
         VScroll6.Height = Picture11.Height
         VScroll6.Max = Picture12.Height + 2 * Picture12.Top - Picture11.Height
         VScroll6.Min = 0
         HScroll6.Visible = False
         VScroll6.Visible = True
      Else
        HScroll6.Visible = False
        VScroll6.Visible = False
End If
HScroll6.SmallChange = 20
HScroll6.LargeChange = (HScroll6.Max - HScroll6.Min) / 10
HScroll6.Value = 0
VScroll6.SmallChange = 20
VScroll6.LargeChange = (VScroll6.Max - VScroll6.Min) / 10
VScroll6.Value = 0
End Sub

Private Sub HScroll6_Change()  '水平滚动条变化
Picture12.Left = 0 - HScroll6.Value
End Sub


Private Sub text9Load() '调入文本框控件
Dim i, j As Integer
For i = 0 To JJ - 1 '调入水平表格中的各个文本框
  For j = 1 To 1 '调入垂直表格中的各个文本框
    Load Text9(i * 1 + j)
    Text9(i * 1 + j).Visible = True
    Text9(i * 1 + j).Left = Text9(0).Width * (j - 1)
    Text9(i * 1 + j).Top = Text9(0).Height * i
    Text9(i * 1 + j).Text = ""
  Next j
Next i
End Sub



Private Sub VScroll6_Change() '垂直滚动条
Picture12.Top = 0 - VScroll6.Value
End Sub

Private Sub Pic13Redraw() '视窗图片重绘子程序
'设置表格载体图片控件的属性
Picture14.Width = JJ * Text1(0).Width + 50
Picture14.Height = 1 * Text1(0).Height + 50
'判断滚动条出现的不同情况
If Picture13.Width < Picture14.Width + Picture14.Left * 2 _
   And Picture13.Height < Picture14.Height + Picture14.Top * 2 Then
'水平、垂直滚动条都出现
   HScroll7.Left = 0
   HScroll7.Top = Picture13.Height - HScroll7.Height
   HScroll7.Width = Picture13.Width
   HScroll7.Max = Picture14.Width + 2 * Picture14.Left - Picture13.Width
   HScroll7.Min = 0
   
   VScroll7.Top = 0
   VScroll7.Left = Picture13.Width - VScroll7.Width
   VScroll7.Height = Picture13.Height - HScroll7.Height
   VScroll7.Max = Picture14.Height + 2 * Picture14.Top - Picture13.Height
   VScroll7.Min = 0
   HScroll7.Visible = True
   VScroll7.Visible = True
ElseIf Picture13.Width < Picture14.Width + Picture14.Left * 2 Then
      '只出现水平滚动条
      HScroll7.Left = 0
      HScroll7.Top = Picture13.Height - HScroll7.Height
      HScroll7.Width = Picture13.Width
      HScroll7.Max = Picture14.Width + 2 * Picture14.Left - Picture13.Width
      HScroll7.Min = 0
      HScroll7.Visible = True
      VScroll7.Visible = False
   ElseIf Picture13.Height < Picture14.Height + Picture14.Top * 2 Then
         '只出现垂直滚动条
         VScroll7.Top = 0
         VScroll7.Left = Picture13.Width - VScroll7.Width
         VScroll7.Height = Picture13.Height
         VScroll7.Max = Picture14.Height + 2 * Picture14.Top - Picture13.Height
         VScroll7.Min = 0
         HScroll7.Visible = False
         VScroll7.Visible = True
      Else
        HScroll7.Visible = False
        VScroll7.Visible = False
End If
HScroll7.SmallChange = 20
HScroll7.LargeChange = (HScroll7.Max - HScroll7.Min) / 10
HScroll7.Value = 0
VScroll7.SmallChange = 20
VScroll7.LargeChange = (VScroll7.Max - VScroll7.Min) / 10
VScroll7.Value = 0
End Sub

Private Sub HScroll7_Change()  '水平滚动条变化
Picture14.Left = 0 - HScroll7.Value
End Sub

Private Sub Text10Load() '调入文本框控件
Dim i, j As Integer
For i = 0 To 1 - 1 '调入水平表格中的各个文本框
  For j = 1 To KK '调入垂直表格中的各个文本框
    Load Text10(i * 1 + j)
    Text10(i * 1 + j).Visible = True
    Text10(i * 1 + j).Left = Text10(0).Width * (j - 1)
    Text10(i * 1 + j).Top = Text10(0).Height * i
    Text10(i * 1 + j).Text = ""
  Next j
Next i
End Sub


Private Sub vscroll7_Change() '垂直滚动条
Picture14.Top = 0 - VScroll7.Value
End Sub