Attribute VB_Name = "ModulePublic"
Option Explicit


 
Public Type TEntry
  CurrentRecNo As Long           '當前記錄號
  ns As Currency                 '當前記錄納秒表產生的記錄時刻,單位微秒
  KZDate As String
  FileName As String
  UnitNo As Integer
  ADdT As Currency               'AD轉換間隔,單位微秒
  SampleLength As Long          '采樣點數
  TimeScope(1 To 2) As Currency  '記錄時間范圍，單位：微秒。
                                 '1:為第一條之啟動時刻，2：為最后一條記錄啟動時刻的納秒時鐘加上該記錄的時間窗寬度。
                                 
    
  RecordNum As Long              '聲發射記錄總數
  DelayNo As Long                '通道顏色
  ZoomPara As Single
  TrigLevel As Integer            '連接于比本通道更低一級增益的信號通道編號（注意：是單元號）
                                 '等于零時表示無低增益通道被同時使用
  wavedata() As Long
                                 
End Type


Public East() As Long
Public North() As Long
Public Z() As Long
Public Direction As Integer
Public FileName As String
Public AE As TEntry
Public KZ As New ClassDPMEData
Public FileNum As Integer
Public Sub OpenFile()


 KZfrm.dkfiles.DialogTitle = "選擇數據文件"
  KZfrm.dkfiles.Filter = "ME File |*.*"
   KZfrm.dkfiles.ShowOpen
  
   FileName = KZfrm.dkfiles.FileName
   'Debug.Print dkfiles.FileName
End Sub