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)

Declare Function ibinit Lib "gpib.dll" (ByVal ioport As Long, ByVal myaddr As Long, ByVal syscfg As Long) As Long
Declare Function ibwrt Lib "gpib.dll" (ByVal nAddr As Long, ByVal str As String, ByVal ustrlen As Long) As Long
Declare Function ibrd Lib "gpib.dll" (ByVal nAddr As Long, ByVal str As String, ByVal ustrlen As Long) As Long
Declare Function ibifc Lib "gpib.dll" () As Long
Declare Function ibeol Lib "gpib.dll" (ByVal nAddr As Long, ByVal nOEolMode As Long, ByVal pOEolStr As String, ByVal nOEolStrLen As Long, ByVal nIEolMode As Long, ByVal nIEolByte As Long) As Long
Declare Function ibdclr Lib "gpib.dll" (ByVal nAddr As Long) As Long
Declare Function ibllo Lib "gpib.dll" () As Long
Declare Function iblocal Lib "gpib.dll" (ByVal nAddr As Long) As Long
Declare Function ibppl Lib "gpib.dll" () As Long
Declare Function ibpplc Lib "gpib.dll" (ByVal nAddr As Long, ByVal nCfg As Long) As Long
Declare Function ibpplu Lib "gpib.dll" (ByVal nAddr As Long) As Long
Declare Function ibren Lib "gpib.dll" (ByVal nAddr As Long) As Long
Declare Function ibspl Lib "gpib.dll" (ByVal nAddr As Long) As Long
Declare Function ibsts Lib "gpib.dll" (ByVal nCfg As Long) As Long
Declare Function ibtout Lib "gpib.dll" (ByVal uTimeIntvl As Long) As Long
Declare Function ibtrg Lib "gpib.dll" (ByVal nAddr As Long) As Long
Declare Function ibcmd Lib "gpib.dll" (ByVal str As String, ByVal leng As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public temperature As Single
Public tstart As Single
Public tstop As Single
Public tstep As Single
Public timestart As Single
Public timenow As Single

Public cmd As String * 96
Public r(1 To 4, 1 To 4) As Single
Public th(1 To 4, 1 To 4) As Single
Public range(0 To 25) As Single
Public Freqset(1 To 4) As Single
Public Harmset(1 To 4) As Integer
Public fnum As Integer
Public hnum As Integer
Public senset(1 To 4, 1 To 4) As Integer
这是一些函数声明。
这是一个过程：
Sub stab()

Sleep (300)
cmd = "OFLT 9" + Chr(10)
flag = ibwrt(8, cmd, Len(cmd))
Sleep (2000)
Sleep (2000)
Sleep (2000)

End Sub