?? 趨勢面分析f1.frm

?? <VB數理統計實用算法>書中的算法源程序
?? FRM
字號:
VERSION 5.00
Begin VB.Form frmFileName 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "趨勢面"
   ClientHeight    =   6375
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   ScaleHeight     =   6375
   ScaleWidth      =   5670
   StartUpPosition =   3  '窗口缺省
   Begin VB.OptionButton Option3 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "預測"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   20
      Top             =   5880
      Width           =   975
   End
   Begin VB.OptionButton Option2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "平滑"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   19
      Top             =   5520
      Width           =   855
   End
   Begin VB.OptionButton Option1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "網格"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   18
      Top             =   5160
      Value           =   -1  'True
      Width           =   975
   End
   Begin VB.TextBox txtCol 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   3000
      TabIndex        =   17
      Top             =   5760
      Width           =   735
   End
   Begin VB.TextBox txtRow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   3000
      TabIndex        =   16
      Top             =   5280
      Width           =   735
   End
   Begin VB.TextBox txtErr 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   375
      Left            =   120
      TabIndex        =   13
      Top             =   4680
      Width           =   5415
   End
   Begin VB.TextBox txtResult 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   375
      Left            =   120
      TabIndex        =   11
      Top             =   3840
      Width           =   5415
   End
   Begin VB.TextBox txtFile 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   3000
      Width           =   5415
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出"
      Height          =   375
      Left            =   4800
      TabIndex        =   7
      ToolTipText     =   "結束程序運行"
      Top             =   5520
      Width           =   615
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Height          =   375
      Left            =   3960
      TabIndex        =   6
      ToolTipText     =   "選擇好文件并給出行數和列數后單擊"
      Top             =   5520
      Width           =   615
   End
   Begin VB.FileListBox File1 
      Appearance      =   0  'Flat
      Height          =   1470
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   2655
   End
   Begin VB.DirListBox Dir1 
      Appearance      =   0  'Flat
      Height          =   2190
      Left            =   3000
      TabIndex        =   1
      Top             =   360
      Width           =   2415
   End
   Begin VB.DriveListBox Drive1 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   2655
   End
   Begin VB.Label Label8 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "網格的列數："
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1800
      TabIndex        =   15
      Top             =   5760
      Width           =   1215
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "網格的行數："
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1800
      TabIndex        =   14
      Top             =   5280
      Width           =   1215
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "保存網格殘差的文件全名"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1320
      TabIndex        =   12
      Top             =   4440
      Width           =   2895
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "保存網格結果的文件全名"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1320
      TabIndex        =   10
      Top             =   3600
      Width           =   3015
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "原始數據的文件全名"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1320
      TabIndex        =   8
      Top             =   2760
      Width           =   3015
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "選擇數據文件"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   840
      Width           =   2535
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "選擇目錄"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   3000
      TabIndex        =   4
      Top             =   120
      Width           =   2415
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "選擇驅動器"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   2655
   End
End
Attribute VB_Name = "frmFileName"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'趨勢面分析的文件窗體
Option Explicit
Dim intI As Integer, intJ As Integer
Dim intFileNumber As Integer            '文件號
Dim strData As String                   '臨時保存數據

Private Sub Form_Load()
    Label5.Caption = "保存網格結果的文件全名"
    Label6.Caption = "保存網格殘差的文件全名"
    File1.Pattern = "*.dat"             '只顯示數據文件
    Key = 1
End Sub

'選擇目錄
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

'選擇驅動器
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

'確定數據文件
Private Sub File1_Click()
    txtFile.Text = Dir1.Path & "\" & File1.FileName          '原始數據文件
    If Option1 Then
        txtResult.Text = Dir1.Path & "\" & "網值_" & File1.FileName  '網格化
        txtErr.Text = Dir1.Path & "\" & "網差_" & File1.FileName     '殘差
    End If
    If Option2 Then
        txtResult.Text = Dir1.Path & "\" & "平值_" & File1.FileName  '平滑
        txtErr.Text = Dir1.Path & "\" & "平差_" & File1.FileName     '殘差
    End If
End Sub

'確定，給出文件名和行數、列數后單擊
Private Sub cmdOK_Click()
    blnOpt = False
    If Option1 Then
        M = Val(txtRow): N = Val(txtCol)
        blnOpt = True
    End If
    strFileName = txtFile.Text          '文件名
    intFileNumber = FreeFile            '取得空閑的文件號碼
    Open strFileName For Input As intFileNumber
    Input #intFileNumber, strData       '讀列數
    intCol = Val(strData)               '取得列數
    If intCol >= 2 Then
        For intI = 2 To intCol          '空轉，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
    Input #intFileNumber, strData       '讀數據行數
    intRow = Val(strData)               '取得數據行數
    If intRow <> 3 Then
        MsgBox "數據行數不等于3，不符合要求，退出檢查數據"
        Exit Sub
    End If
    If intCol >= 2 Then
        For intI = 2 To intCol          '空轉，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
'重新定義數據數組
    ReDim p(1 To intRow, 1 To intCol)       '原始數據
    ReDim X(1 To intCol), Y(1 To intCol), Z(1 To intCol)
    ReDim T(1 To intCol), D(1 To intCol)    '平滑處理后的趨勢值和殘差值
    Input #intFileNumber, strData           '讀總行數
    intRowAll = Val(strData)                '取得總行數
    If intCol >= 2 Then
        For intI = 2 To intCol              '空轉，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
    blnTitle = False: blnRowLabel = False: blnColLabel = False
'優先考慮圖題
    If intRowAll > intRow + 3 Then blnTitle = True      '有圖題
'其次考慮行標
    If intRowAll > 2 * intRow + 3 Then
        blnRowLabel = True                              '有行標
        ReDim strRowLabel(1 To intRow)                  '重新定義行標數組
    End If
'最后考慮列標
    If intRowAll > 2 * intRow + 4 Then
        blnColLabel = True                              '有列標
        ReDim strColLabel(1 To intCol)                  '重新定義列標數組
    End If
    If blnTitle Then
        Input #intFileNumber, strData                   '讀圖形標題
        strLabelName = strData                          '保存圖題
        If intCol >= 2 Then
            For intI = 2 To intCol                      '空轉，讀*****號
                Input #intFileNumber, strData
            Next intI
        End If
    End If
    If blnRowLabel Then
        For intI = 1 To intRow
            Input #intFileNumber, strData               '讀行標題
            If intCol >= 2 Then
                For intJ = 2 To intCol                  '空轉，讀*****號
                    Input #intFileNumber, strData
                Next intJ
            End If
        Next intI
    End If
    If blnColLabel Then
        For intI = 1 To intCol                          '讀列標題
            Input #intFileNumber, strData
        Next intI
    End If
    For intI = 1 To intRow
        For intJ = 1 To intCol
            Input #intFileNumber, strData               '讀數據
            p(intI, intJ) = Val(strData)
        Next intJ
    Next intI
    Close
    For intJ = 1 To intCol
        X(intJ) = p(1, intJ)
        Y(intJ) = p(2, intJ)
        Z(intJ) = p(3, intJ)
    Next intJ
    strRes_Name = txtResult.Text                        '保存滑動平均結果文件名
    strErr_Name = txtErr.Text                           '保存殘差文件名
    If Option1 Then
        M = Val(txtRow.Text): N = Val(txtCol.Text)      '網格的行數和網格的列數
    End If
    If Option3 Then
        X0 = Val(txtRow.Text): Y0 = Val(txtCol.Text)    '預測點坐標
    End If
    Unload Me
    frmCalculate.Visible = True                         '顯示計算窗體
End Sub

'退出
Private Sub cmdExit_Click()
    Unload Me
    End
End Sub

'選擇網格
Private Sub Option1_Click()
    Label5.Caption = "保存網格結果的文件全名"
    Label6.Caption = "保存網格殘差的文件全名"
    txtResult.Text = Dir1.Path & "\" & "網值_" & File1.FileName    '網格化
    txtErr.Text = Dir1.Path & "\" & "網差_" & File1.FileName       '殘差
    Label5.Visible = True: Label6.Visible = True
    txtResult.Visible = True: txtErr.Visible = True
    Label7.Visible = True: Label7.Caption = "網格的行數："
    Label8.Visible = True: Label8.Caption = "網格的列數："
    txtRow.Visible = True: txtCol.Visible = True
    Key = 1
End Sub

'選擇平滑
Private Sub Option2_Click()
    Label5.Caption = "保存平滑結果的文件全名"
    Label6.Caption = "保存平滑殘差的文件全名"
    txtResult.Text = Dir1.Path & "\" & "平值_" & File1.FileName    '平滑
    txtErr.Text = Dir1.Path & "\" & "平差_" & File1.FileName       '殘差
    Label5.Visible = True: Label6.Visible = True
    txtResult.Visible = True: txtErr.Visible = True
    Label7.Visible = False: Label8.Visible = False
    txtRow.Visible = False: txtCol.Visible = False
    Key = 2
End Sub

'選擇預測
Private Sub Option3_Click()
    Label5.Visible = False: Label6.Visible = False
    txtResult.Visible = False: txtErr.Visible = False
    Label7.Caption = "鍵入X值：": Label7.Visible = True
    Label8.Caption = "鍵入Y值：": Label8.Visible = True
    txtRow.Visible = True: txtCol.Visible = True
    Key = 3
End Sub
?? 文件大小 11653 K
?? 上傳用戶 zhou28
?? 所屬分類數學計算
??? 相關標簽

#算法 #lt #VB #gt
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 趨勢面分析f1.frm

?? 快捷鍵說明
