Specifications

60 Chapter 3
Setting Measurement Conditions
Example program for setting the measuring conditions
Example 3-2 Setting measuring conditions (macro)
10 Sub Main()
20 Dim trc1 As Integer, trc2 As Integer, trc3 As Integer
30 Dim trc4 As Integer, trc5 As Integer
40 Dim nop As Integer, sweep_avg_coun As Integer
50 Dim start_freq As Double, stop_freq As Double, sweep_delay
As Double
60 Dim sour_curr As Double, dc_bias_v As Double,
dc_bias_i_lim As Double
70 Dim full_scale1 As Double, full_scale2 As Double,
full_scale4 As Double
80 Dim ref_val1 As Double, ref_val2 As Double, ref_val4 As
Double
90 Dim ref_pos1 As Double, ref_pos2 As Double, ref_pos4 As
Double
100 Dim top_scale1 As Double, top_scale2 As Double, top_scale4
As Double
110 Dim bottom_scale1 As Double, bottom_scale2 As Double,
bottom_scale4 As Double
120 Dim trac1 As String, trac2 As String, trac3 As String
130 Dim trac4 As String, trac5 As String
140 Dim m_para1 As String, m_para2 As String, m_para4 As
String
150 Dim disp_form1 As String, disp_form2 As String, disp_form4
As String
160 Dim disp_y_spac1 As String, disp_y_spac2 As String,
disp_y_spac4 As String
170 Dim phase_unit1 As String, phase_unit2 As String,
phase_unit4 As String
180 Dim phase_exp1 As String, phase_exp2 As String, phase_exp4
As String
190 Dim sweep_type As String, sweep_dir As String
200 Dim sweep_avg As String, point_avg As String
210 Dim sweep_t_auto As String, sour_curr_mode As String
220 Dim list_page1 As String, list_page2 As String, list_page4
As String
230 Dim disp_trac1 As String, disp_trac2 As String, disp_trac4
As String
240 Dim buff As String
250
260 trc1 = 1
270 trc2 = 2
280 trc3 = 3
290 trc4 = 4
300 trc5 = 5
310
320 trac1 = "ON"
330 trac2 = "ON"
340 trac3 = "OFF"
350 trac4 = "ON"
360 trac5 = "OFF"
370 m_para1 = "Z"
380 m_para2 = "ZPH"
390 m_para4 = "RC"
400 disp_form1 = "RECT"
410 disp_form2 = "RECT"