66332A VB6 .enter命令需要太长时间

将Fetch Array数据分配给数组变量时，enter命令会花费大量时间。
我从缓冲区中提取1000个读数，并且需要9秒来分配值。当我读取4,000个读数时需要19秒。我必须以1毫秒的间隔获取60秒的数据并将其保存到文件中。
缓冲区只能容纳4096个读数，所以我必须创建一个循环并继续重新读取缓冲区，但每次循环之间丢失19秒就会让我感到害怕。
显式的选项私人小组cmdError_Click（）Agt3494A1.Connect Me.txtAddress.Text InstrumentError Agt3494A1End SubPrivate子cmdGetPulse_Click（）昏暗strDatFileName作为字符串昏暗strBackSlash作为字符串昏暗intDatFileNbr作为整数昏暗strDatName作为字符串昏暗intDeptNbr作为整数昏暗currentArray（999）为双'
0到4095是4096点Dim Data（）As Variant Dim i As Long Dim cnt As Long Dim d As Long Dim iter As Integer Dim starttime As String strBackSlash = IIf（Right $（App.Path，1）=“”，
“”，“”）strDatFileName = App.Path＆amp;
strBackSlash＆amp;
“POWERUP.dat” intDatFileNbr = FreeFile CNT = 1 d = 0 ITER = 0 cmdGetPulse.Enabled =假Agt3494A1.Connect Me.txtAddress.Text如果isconnected（Agt3494A1）= FALSE然后退出子“如果我们想打开用于输出的文件
已经存在，删除它......如果DIR $（strDatFileName）“”然后杀死strDatFileName结束如果打开strDatFileName对于追加作为#intDatFileNbr setupDCSource Agt3494A1随着Agt3494A1。输出“输出On”。输出“伏” 4.2“将输出设置为4.2伏
由于某种原因，这是在模块中设置然后重置在这里？
.timeOut = 50000'将timout设置为50秒。输出“init：名称ACQ”。输出“Fetch：Array：curr？”
。进入currentArray使用ReDim数据（UBound函数（currentArray）+ 1）对于i = 1到UBound函数（currentArray）+ 1个数据（d）= currentArray（I - 1）写#intDatFileNbr，CNT，d，数据（d），时间d
= d + 1接下来我用Agt3494A1结束cnt = cnt + 1 Do直到cnt> iter startTime = Time。输出“Sense：Current：Det ACDC”'将仪表设置为ACDC。输出“Sense：Current：Range Max”'High
当前范围。输出“Sense：Func”“Curr”“”'获取当前读数“。输出”Sense：SWE：Tint .001“'采样时间间隔为1ms”。输出“Sense：SWE：Points 1000”'
扫描中的测量样本“。输出”感应：SWE：偏移：点0“'触发前的数字采样点”。输出“测量：数组：当前？”
开始时间=时间。进入currentArray使用ReDim数据（（UBound函数（currentArray）+ 1）* ITER）对于i = 1至UBound函数（currentArray）+ 1数据（d）= currentArray（I - 1）写#intDatFileNbr，CNT，d，
数据（d），时间d = d + 1下一个i cnt = cnt + 1循环。输出“Volt 0”'设置输出为0伏。输出“输出关闭”关闭#intDatFileNbr结束使用cmdGetPulse.Enabled = True End Sub



     以下为原文

  When assigning Fetch Array data to an array variable the enter command is taking a huge amount of time.  I am pulling 1000 readings from the buffer and it is taking 9 seconds to assign the values.

When I take 4,000 readings it takes 19 seconds.

I have to take 60 seconds of data at 1msec intervals and save it to a file.  The buffer will only hold 4096 readings, so I have to create a loop and keep re-reading the buffer, but losing 19 seconds between each loop is killing me.  

Option Explicit
   
Private Sub cmdError_Click()
    Agt3494A1.Connect Me.txtAddress.Text
    InstrumentError Agt3494A1
End Sub

Private Sub cmdGetPulse_Click()
    Dim strDatFileName As String
    Dim strBackSlash As String
    Dim intDatFileNbr As Integer
    Dim strDatName As String
    Dim intDeptNbr As Integer
    Dim currentArray(999) As Double '0 to 4095 is 4096 points
    Dim Data() As Variant
    Dim i As Long
    Dim cnt As Long
    Dim d As Long
    Dim iter As Integer
    Dim startTime As String
   

   
    strBackSlash = IIf(Right$(App.Path, 1) = "", "", "")
    strDatFileName = App.Path & strBackSlash & "POWERUP.dat"
    intDatFileNbr = FreeFile
   
    cnt = 1
    d = 0
    iter = 0
  
    cmdGetPulse.Enabled = False
    Agt3494A1.Connect Me.txtAddress.Text
    If isconnected(Agt3494A1) = False Then Exit Sub
   
' If the file we want to open for output already exists, delete it ...
    If Dir$(strDatFileName) "" Then
        Kill strDatFileName
    End If
   
    Open strDatFileName For Append As #intDatFileNbr

    setupDCSource Agt3494A1
   
   
    With Agt3494A1
        .Output "Output  On"
        .Output "Volt 4.2"         ' Set output to 4.2 volts  For some reason this is set in the Module then reset here?
        .timeOut = 50000           ' set timout to 50 sec
   
        .Output "init:Name ACQ"
        .Output "Fetch:Array:curr?"
        .Enter currentArray
        
        
        ReDim Data(UBound(currentArray) + 1)
   
            For i = 1 To UBound(currentArray) + 1
               Data(d) = currentArray(i - 1)
               Write #intDatFileNbr, cnt, d, Data(d), Time
               d = d + 1
            Next i
    End With
   
     
    With Agt3494A1
        cnt = cnt + 1
        Do Until cnt > iter
        startTime = Time
            .Output "Sense:Current:Det ACDC"         ' Set meter to ACDC
            .Output "Sense:Current:Range Max"           ' High current range
            .Output "Sense:Func ""Curr"""              ' Acquire current reading"
            .Output "Sense:SWE:Tint .001"            ' Sample time interval to 1ms"
            .Output "Sense:SWE:Points 1000"             ' Number of measurement samples in sweep"
            .Output "Sense:SWE:Offset:Points 0"      ' Number sample points before trigger"
            .Output "Measure:Array:curr?"
             startTime = Time
            .Enter currentArray
                ReDim Data((UBound(currentArray) + 1) * iter)
                    For i = 1 To UBound(currentArray) + 1
                        Data(d) = currentArray(i - 1)
                        Write #intDatFileNbr, cnt, d, Data(d), Time
                        d = d + 1
                    Next i
                cnt = cnt + 1
        Loop
                          
            .Output "Volt 0"          ' Set output to 0 volts
            .Output "Output  Off"
            Close #intDatFileNbr
    End With


    cmdGetPulse.Enabled = True
   
End Sub