【求助】VB问题

Question

VB的一段程序DoEvents
        
        DoEvents
        For j = 1 To hnum
        Sleep (300)
        cmd = "HARM" + str(Harmset(j)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (300)
        cmd = "SENS " + str(senset(1, j)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (1000)
        cmd = "OFLT 7" + Chr(10)
        flag = ibwrt(8, cmd, Len(cmd))
        Call stab
        For i = 1 To fnum
        Sleep (500)
        cmd = "SENS " + str(senset(i, j)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (500)
        cmd = "FREQ" + str(Freqset(i)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Call stab
        cmd = "OUTP ? 3" + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (1000)
        flag = ibrd(8, cmd, 48)
        Sleep (500)
        r(i, j) = Val(cmd)
        Sleep (500)
        cmd = "OUTP ? 4" + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (1000)
        flag = ibrd(8, cmd, 48)
        Sleep (500)
        th(i, j) = Val(cmd)
     
        If r(i, j) > 0.8 * range(senset(i, j)) Then
         senset(i, j) = senset(i, j) + 1
         ElseIf r(i, j) < 0.1 * range(senset(i, j)) Then
         If senset(i, j) > 11 Then
            senset(i, j) = senset(i, j) - 1
         End If
        End If
        
    Next i
  
    Next j
    cmd = "temp?    " + Chr(10)
        Sleep (300)
        flag = ibwrt(7, cmd, Len(cmd))
        Sleep (300)
        flag = ibrd(7, cmd, 48)
        v = Val(cmd)可否解释一下这程序是啥意思？ 
本文来自: 小木虫论坛 http://emuch.net/bbs/viewthread.php?tid=2534872&fpage=1

Answer 1

大体意思就是组命令串（cmd)，发送命令串(cmd)，然后获得真假标志(flag)。

Answer 2

这里有以下自定义的函数或过程：函数：共 6 个，如下；
Harmset、ibwrt、senset、Freqset、ibrd、range过程：共 1 个，如下；
stab常量：8、7、0.8、0.1、11不知道这些东西的意思，还不敢乱猜；不过2楼说的是很有可能的，但也没法猜出要干什么？哪怕再有那几个函数与过程的代码也没准能看个差不多来着！

Answer 3

而且他这个程序 SLEEP（中断）了 N次，程序最后执行完一遍怎么说也得需要10秒左右，它中断了那么多次，每次中断后调用那些个“自定义函数”！干什么去了呢？