module1.bas

来自「用vb编写的工程控制程序」· BAS 代码 · 共 44 行

Attribute VB_Name = "Module1"
Type LARGE_INTEGER
    Lowpart As Long
    Highpart As Long
End Type

Public Declare Function QueryPerformanceCounter Lib "kernel32" _
        (lpPerformanceCount As LARGE_INTEGER) As Long    '高精度
Public Declare Function QueryPerformanceFrequency Lib "kernel32" _
        (lpFrequency As LARGE_INTEGER) As Long   '高精度
Public lagTick1 As LARGE_INTEGER
Public lagTick2 As LARGE_INTEGER

Public Function m() As Single
Dim y1, y2, y3, yp As Single
Open acpci.FileName For Input As #1
    Do While Not EOF(1)
        Line Input #1, y1
        If (y1 - y2) * (y3 - y2) < 0 Then
            yp = y2
            m = (yp - acpci.Sr) / acpci.Sr
            Exit Do
        End If
        y3 = y2
        y2 = y1
    Loop
Close #1
   
End Function

Public Function n() As Single
   Dim y1, y2 As Single
Open acpci.FileName For Input As #1
  maxlin = LOF(1)
    For lin = maxlin To (maxlin - 4) Step -1
    Seek #1, lin - 1
    Line Input #1, y1
    y2 = y2 + y1
    Next lin
  Close #1
  n = Sr - y2 / 5
End Function