rs232resp.bas

Tektronix TDS3000&TDS3000B series oscilloscope program examples ver3.0

Attribute VB_Name = "Module1"
Public theCommPort As Integer           ' 1 is COMM1, 2 is COMM2


Static Sub DOCMD(commCtrl As MSComm, CMD As String)
'
'  Execute the user's command or query
'
    
    Dim ESRResponse As String
    '
    '  Send the command or query to the scope and print the number of
    '  characters sent
    '
    Call RS232WRITE(commCtrl, CMD)
        
    frmtl.lblWriteResponse.Caption = Str(Len(CMD)) + " character(s) sent."
   
    ' We can't get the at instruments status bits so will just wait a bit.
    Call WaitABit(1)
End Sub