modulepublic.bas

持续时间震级计算vb源码。利用地震波持续时间同地震震级的相关性来反映震源强度

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