?? 曲面_網格f1.frm
字號:
VERSION 5.00
Begin VB.Form frmFileName
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "曲面_網格"
ClientHeight = 5190
ClientLeft = 60
ClientTop = 345
ClientWidth = 5670
LinkTopic = "Form1"
ScaleHeight = 5190
ScaleWidth = 5670
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox txtY
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Left = 3840
TabIndex = 22
Top = 4800
Width = 735
End
Begin VB.TextBox txtX
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Left = 3120
TabIndex = 21
Top = 4800
Width = 735
End
Begin VB.OptionButton Option2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "插值"
ForeColor = &H80000008&
Height = 375
Left = 120
TabIndex = 17
Top = 4680
Width = 855
End
Begin VB.OptionButton Option1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "網格化"
ForeColor = &H80000008&
Height = 375
Left = 120
TabIndex = 16
Top = 4320
Value = -1 'True
Width = 975
End
Begin VB.TextBox txtCol
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Left = 2160
TabIndex = 15
Top = 4800
Width = 735
End
Begin VB.TextBox txtRow
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Left = 2160
TabIndex = 14
Top = 4440
Width = 735
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 = 4920
TabIndex = 7
ToolTipText = "結束程序運行"
Top = 4680
Width = 615
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 375
Left = 4920
TabIndex = 6
ToolTipText = "選擇好文件并給出行數和列數后單擊"
Top = 4320
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 Label11
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Y"
ForeColor = &H80000008&
Height = 255
Left = 3840
TabIndex = 20
Top = 4560
Width = 735
End
Begin VB.Label Label10
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "X"
ForeColor = &H80000008&
Height = 255
Left = 3120
TabIndex = 19
Top = 4560
Width = 735
End
Begin VB.Label Label9
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "插值點坐標"
ForeColor = &H80000008&
Height = 255
Left = 3120
TabIndex = 18
Top = 4320
Width = 1455
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "網格的列數："
ForeColor = &H80000008&
Height = 255
Left = 960
TabIndex = 13
Top = 4800
Width = 1215
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "網格的行數："
ForeColor = &H80000008&
Height = 255
Left = 960
TabIndex = 12
Top = 4440
Width = 1215
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 = "保存網格化結果的文件全名"
Label9.Visible = False: Label10.Visible = False
Label11.Visible = False
txtX.Visible = False: txtY.Visible = False
File1.Pattern = "*.dat" '只顯示數據文件
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 & "\" & "W_" & File1.FileName '網格化數據文件
End Sub
'確定，給出文件名和行數、列數后單擊
Private Sub cmdOK_Click()
If Option1 Then
M = Val(txtRow.Text): N = Val(txtCol.Text) '網格化時取得行數和列數
Else
A = Val(txtX.Text): B = Val(txtY.Text) '插值時取得插值點坐標
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 '保存網格化數據的文件名
frmCalculate.Visible = True '顯示計算窗體
End Sub
Private Sub Opt()
If Option1 Then
'選擇網格化
Label5.Visible = True: txtResult.Visible = True
Label7.Visible = True: txtRow.Visible = True '需要行數
Label8.Visible = True: txtCol.Visible = True '需要列數
Label9.Visible = False: Label10.Visible = False
Label11.Visible = False
txtX.Visible = False: txtY.Visible = False '無需插值點
Else
'選擇插值
Label5.Visible = False: Label7.Visible = False
Label8.Visible = False: txtResult.Visible = False
Label9.Visible = True: Label10.Visible = True
Label11.Visible = True
txtX.Visible = True: txtY.Visible = True '需要插值點
txtRow.Visible = False: txtCol.Visible = False '無需行數和列數
End If
End Sub
'單擊網格化按鈕事件
Private Sub Option1_Click()
Opt
End Sub
'單擊插值按鈕事件
Private Sub Option2_Click()
Opt
End Sub
'退出
Private Sub cmdExit_Click()
Unload Me
End
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -