ADCMT 7351A User Manual

7351 Series Digital Multimeter Operation Manual
6.3.4 Sample Program (RS-232)
6-10
UserForm1.MSComm1.Output = "*TRG" & Chr(10)
'*TRG: Triggers.
Call rx_prompt 'Receives a prompt.
Do
UserForm1.MSComm1.Output = "MSR?" & Chr(10)
'MSR?: Sends the command for reading the measurement event register.
Call rx_data(msr, 5) 'Reads the measurement event register (5 characters) and stores them in msr.
sts = Val(msr) And 256 'Converts the 5 characters, which are stored in msr, to a numerical value and stores
the value in sts.
Loop While (sts <> 256) 'Repeats until EOM is set.
UserForm1.MSComm1.Output = "MD?" & Chr(10)
'MD?: Sends the command for reading the measured data.
Call rx_data(dt, 14) 'Reads the measured data (14 characters) and stores them in dt$.
Cells(1, 1) = "'" & Left(dt, 12)
'Displays the measured data for a cell.
UserForm1.MSComm1.PortOpen = False
'Closes the port.
--------------------------------------------------------------------------------
Private Sub rx_prompt() 'Subroutine procedure for receiving a prompt
Dim prompt As String
Do 'Repeats.
If UserForm1.MSComm1.InBufferCount >= 5 Then
'If there is received data, it is read.
prompt = UserForm1.MSComm1.Input
'Reads data from the receiving buffer.
If InStr(prompt, "=>") Then
'Checks whether to have received "=>".
Exit Do 'Exits Do While Loop.
End If 'Terminates If.
End If 'Terminates If.
Loop 'Terminates Do While Loop.
End Sub 'Terminates the subroutine procedure.
--------------------------------------------------------------------------------
Private Sub rx_data(dt As String, dt_len As Integer)
'Subroutine procedure for receiving data and a prompt
Do 'Repeats.
If UserForm1.MSComm1.InBufferCount >= (5 + dt_len) Then
'If there is received data, it is read.
dt$ = UserForm1.MSComm1.Input
'Reads data from the receiving buffer.
If InStr(dt, "=>") Then
'Checks whether to receive "=>".
dt = Mid(dt, 2, dt_len)
'Separates a prompt from received data.
Exit Do 'Exits Do While Loop.
End If 'Terminates If.
End If 'Terminates If.
Loop 'Terminates Do While Loop.
End Sub

ADCMT 7351A Specifications

General

Brand	ADCMT
Model	7351A
Category	Multimeter
Language	English