📄 map_form.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form map_form
Caption = "Mineral Resource Potential Mapping"
ClientHeight = 4500
ClientLeft = 45
ClientTop = 330
ClientWidth = 6855
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4500
ScaleWidth = 6855
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 0
_ExtentX = 688
_ExtentY = 688
_Version = 393216
End
Begin VB.CommandButton ETM
Caption = "ETM"
BeginProperty Font
Name = "Times New Roman"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5400
TabIndex = 16
Top = 1920
Width = 972
End
Begin VB.CommandButton CFM
Caption = "CFM"
BeginProperty Font
Name = "Times New Roman"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5400
TabIndex = 15
Top = 1200
Width = 972
End
Begin VB.CommandButton WEM
Caption = "WEM"
BeginProperty Font
Name = "Times New Roman"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5400
TabIndex = 14
Top = 480
Width = 972
End
Begin VB.CommandButton exit
Caption = "EXIT"
BeginProperty Font
Name = "Times New Roman"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5400
TabIndex = 11
Top = 2640
Width = 972
End
Begin VB.Frame Frame1
Caption = "The Parameters Inputed"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1212
Left = 480
TabIndex = 4
Top = 360
Width = 4452
Begin VB.TextBox Text1
Height = 285
Left = 3000
TabIndex = 8
Text = "2"
Top = 360
Width = 972
End
Begin VB.TextBox Text2
Height = 285
Left = 3000
TabIndex = 7
Text = "20"
Top = 720
Width = 972
End
Begin VB.VScrollBar VScroll1
Height = 255
Left = 3960
Max = 26
Min = -2
TabIndex = 6
Top = 360
Value = 26
Width = 375
End
Begin VB.VScrollBar VScroll2
Height = 255
Left = 3960
Max = 110
Min = -20
TabIndex = 5
Top = 720
Value = 110
Width = 375
End
Begin VB.Label Label1
Caption = "The Number of Map Patterns"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 120
TabIndex = 10
Top = 360
Width = 2772
End
Begin VB.Label Label2
Caption = "The Number of Scanning Lines"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 120
TabIndex = 9
Top = 720
Width = 2772
End
End
Begin VB.CommandButton Command1
Caption = "..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 3
Top = 2040
Width = 372
End
Begin VB.TextBox Text3
Height = 375
Left = 480
TabIndex = 2
Top = 2040
Width = 4092
End
Begin VB.TextBox Text4
Height = 375
Left = 480
TabIndex = 1
Top = 2760
Width = 4092
End
Begin VB.CommandButton Command2
Caption = "..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 0
Top = 2760
Width = 372
End
Begin VB.Label Label5
Caption = $"map_form.frx":0000
Height = 735
Left = 480
TabIndex = 17
Top = 3480
Width = 5895
End
Begin VB.Label Label3
Caption = "The Input Text File Formatted in ASCII"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 480
TabIndex = 13
Top = 1800
Width = 4212
End
Begin VB.Label Label4
Caption = "The Output File formatted in MapInfo Interchange"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 480
TabIndex = 12
Top = 2520
Width = 4452
End
End
Attribute VB_Name = "map_form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub InputDep(deposit_co, deposit_num, number, xmin, ymin, xmax, ymax)
Dim dd As String, ee As String, cc As String, dd1 As String
Dim ii As Integer, jj As Integer, ll As Integer, i As Integer
Dim lll As Integer, lll1 As Integer, lll2 As Integer, lll3 As Integer, lll4 As Integer, lll5 As Integer, lll6 As Integer
Dim aa As Double, bb As Double
'Input the data from the *.mid file(including the deposit data)
Do
Line Input #number, dd
dd1 = Left(dd, 8)
If dd1 = "CoordSys" Then
lll = Len(dd)
For i = 1 To lll
If Mid(dd, i, 1) = "(" Then
lll1 = i
ElseIf Mid(dd, i, 1) = "," Then
lll2 = i
ElseIf Mid(dd, i, 1) = ")" Then
lll3 = i
Exit For
End If
Next i
xmin = Val(Mid(dd, lll1 + 1, lll2 - lll1 - 1))
ymin = Val(Mid(dd, lll2 + 1, lll3 - lll2 - 1))
For i = lll3 + 1 To lll
If Mid(dd, i, 1) = "(" Then
lll4 = i
ElseIf Mid(dd, i, 1) = "," Then
lll5 = i
ElseIf Mid(dd, i, 1) = ")" Then
lll6 = i
Exit For
End If
Next i
xmax = Val(Mid(dd, lll4 + 1, lll5 - lll4 - 1))
ymax = Val(Mid(dd, lll5 + 1, lll6 - lll5 - 1))
End If
If dd = "Data" Then GoTo 10
Loop
10 Line Input #number, dd
ii = 0
20 If EOF(number) = False Then
ii = ii + 1
Line Input #number, cc
ll = Len(cc)
For i = 7 To ll
ee = Mid(cc, i, 1)
If ee = " " Then
jj = i
Exit For
End If
Next i
deposit_co(ii, 1) = Val(Mid(cc, 7, jj - 6))
deposit_co(ii, 2) = Val(Mid(cc, jj + 1, ll - jj))
Line Input #number, ee
GoTo 20
Else
deposit_num = ii
End If
End Sub
Private Sub InputEvi(evidence_co, point_num, region_num, number)
Dim dd As String, ee As String, cc As String
Dim ii As Integer, jj As Integer, j As Integer, ll3 As Integer, ll As Integer, ll1 As Integer, ll2 As Integer, i As Integer
Dim aa As Double, bb As Double
region_num = 0
'Input the data from the *.mid file(including the evidence data)
Do
Line Input #number, dd
If dd = "Data" Then GoTo 10
Loop
10 Line Input #number, dd
ii = 0
jj = 0
20 If EOF(number) = False Then
Line Input #number, cc
ll1 = Len(cc)
For i = 7 To ll1
If Mid(cc, i, 1) <> " " Then
ll2 = i
Exit For
End If
Next i
ll3 = Val(Mid(cc, ll2, ll1 - ll2 + 1))
For j = 1 To ll3
Input #number, ll
point_num(ii + j) = ll
For i = 1 To ll
Input #number, evidence_co(jj + i, 1)
Input #number, evidence_co(jj + i, 2)
Next i
jj = jj + ll
Next j
ii = ii + ll3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -