Attribute VB_Name = "CNetPara"

'節點數
Public Nodes(0 To 2) As Double
'傳遞函數
Public TransFunc(0 To 1) As String
'網絡訓練參數
Public TrainPara(0 To 7) As String
'訓練樣本組數
Public TrainSampleNum As Integer
'仿真數據組數
Public SimuSampleNum As Integer
'文件路徑
Public FilePath As String
'模型編號
Public ModelNo As Integer

'加載現有網絡模型
Public Function NetModel_Load() As Boolean
  NetModel_Load = True
  On Error GoTo Handle_Error
  For i = 0 To 1
    frmNetwork.combFunc(i) = TransFunc(i)
  Next
  
  For i = 0 To 2
    frmNetwork.txtNode(i) = Nodes(i)
  Next
  
  For i = 0 To 7
    frmNetwork.txtTrainPara(i) = TrainPara(i)
  Next
  
  frmNetwork.txtTrain(0) = InTrainFile
  frmNetwork.txtTrain(1) = OutTrainFile
  frmNetwork.txtTrain(2) = TrainSampleNum
  
  frmNetwork.txtSimu(0) = InSimuFile
  frmNetwork.txtSimu(1) = OutSimuFile
  
  Exit Function
Handle_Error:
  NetModel_Load = False
End Function


'顯示當前操作狀態
Public Function OperStatus_Show(info As String)
  'frmNetwork.lblStatus = info
  frmNetwork.statusShow.SimpleText = "當前操作：" + info
End Function
'網絡模型初始化
Public Function NetModel_Init()
  Nodes(0) = 7
  Nodes(1) = 28
  Nodes(2) = 1
  
  TrainPara(0) = "25"  '         顯示間隔次數 25"
  TrainPara(1) = "1000"  '       最大循環次數 1000"
  TrainPara(2) = "0.001"  '      目標誤差 0.02"
  TrainPara(3) = "0.001"   '     學習速率 0.001"
  TrainPara(4) = "0.001"  '      動量常數 0.001"
  TrainPara(5) = "10"     '      學習速率增加比率 10"
  TrainPara(6) = "0.1"  '       '學習速率減少比率 0.1"
  TrainPara(7) = "10000000000"  '最大誤差比率
  
  TransFunc(0) = "tansig"
  TransFunc(1) = "purelin"
End Function

Public Function File_Show(FName As String, FInfo As String)
  On Error GoTo Handle_Error
  frmNetwork.rtxtShowResult.Text = ""
  frmNetwork.rtxtShowResult.FileName = FName
  OperStatus_Show ("文件" + FName + "進入編輯狀態，修改后請注意保存！")
  Exit Function
Handle_Error:
  info = "無法打開" + FInfo + FName + "，請確認是否存在！"
  MsgBox (info)
End Function

'生成網絡模型文件
Public Function NetFile_Create(FileName As String)
  Dim fso As New FileSystemObject, fil As File, ts As TextStream
  fso.CreateTextFile BpnFileName
  Set fil = fso.GetFile(BpnFileName)
  Set ts = fil.OpenAsTextStream(ForWriting)

  ts.WriteLine ("[NetPara]")
  ts.WriteLine ("InputNum")
  ts.WriteLine ("MidNum")
  ts.WriteLine ("OutputNum")
  ts.WriteLine ("")
  ts.WriteLine ("[TrainPara]")
  ts.WriteLine ("df")
  ts.WriteLine ("Me")
  ts.WriteLine ("eg")
  ts.WriteLine ("lr")
  ts.WriteLine ("lrInc")
  ts.WriteLine ("lrIdec")
  ts.WriteLine ("momConst")
  ts.WriteLine ("errRatio")
  ts.WriteLine ("inputFunc")
  ts.WriteLine ("outputFunc")
  ts.WriteLine ("")
  ts.WriteLine ("[OtherPara]")
  ts.WriteLine ("FileDir")
  ts.WriteLine ("TrainSampleNum")
  ts.WriteLine ("SimuSampleNum")
  ts.Close
End Function
'保存新建的網絡模型數據
Public Function NetPara_Save()
  If WriteString("NetPara", "InputNum", frmNetwork.txtNode(0)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("NetPara", "MidNum", frmNetwork.txtNode(1)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("NetPara", "OutputNum", frmNetwork.txtNode(2)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("OtherPara", "TrainSampleNum", frmNetwork.txtTrain(2)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("OtherPara", "SimuSampleNum", frmNetwork.txtSimu(1)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "inputFunc", frmNetwork.combFunc(0)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "outputFunc", frmNetwork.combFunc(1)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "df", frmNetwork.txtTrainPara(0)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "me", frmNetwork.txtTrainPara(1)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "eg", frmNetwork.txtTrainPara(2)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "lr", frmNetwork.txtTrainPara(3)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "lrInc", frmNetwork.txtTrainPara(4)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "lrIdec", frmNetwork.txtTrainPara(5)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "momConst", frmNetwork.txtTrainPara(6)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
  If WriteString("TrainPara", "errRatio", frmNetwork.txtTrainPara(7)) <> True Then
    MsgBox (ErrorMsg)
    Exit Function
  End If
  
End Function