Specifications

188 Chapter 8
Save and Recall Files
Example Programs for Saving/Recalling a File
msg7 & msg8 & msg9 & msg10, "file menu")
200
210 Select Case ans
220 Case "1"
230 Call chn_curr_holder
240 Case "2"
250 Call save_state
260 Case "3"
270 Call recall_state
280 Case "4"
290 Call save_data
300 Case "5"
310 Call recall_data
320 Case "6"
330 Call save_citi
340 Case "7"
350 Call save_graphics
360 Case "8", ""
370 GoTo menu_end
380 End Select
390
400 GoTo menu
410
420 menu_end:
430 End
440 End Sub
450
460 Private Sub chn_curr_holder()
470 Dim msg As String, holder As String, err_mes As String
480 Dim err_no As Integer
490
500 SCPI.Output "MMEM:CDIR?"
510 SCPI.Enter holder
520 input_name:
530 msg = "current holder name: " & holder & vbCrLf & vbCrLf &
"Do you want to change the current holder?"
540 ans = MsgBox(msg, vbYesNo)
550 If ans = vbYes Then
560 msg = "Input new current holder name you wish."
570 holder = InputBox(msg, "holder name")
580 If holder = "" Then GoTo input_end
590 holder = """" & holder & """"
600 SCPI.Output "*CLS"
610 SCPI.Output "MMEM:CDIR " & holder
620 SCPI.Output "SYST:ERR?"
630 SCPI.Enter err_no, "#"
640 SCPI.Enter err_mes
650 If err_no <> 0 Then
660 MsgBox (err_mes & "occured")
670 GoTo input_name
680 ElseIf err_no = 0 Then
690 MsgBox ("new holder name: " & holder)
700 End If
710 End If
720 input_end:
730 End Sub
740
750 Private Sub save_state()