Agilent Technologies 4294A Manual de Serviço Página 243

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 518
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 242
13 243
Application Sample Programs
File Transfer Function
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
150 PRINT " ENTER SOURCE FILE SIZE ? ";
160 INPUT Src_size
170 PRINT Src_size
180 !
190 PRINT " ENTER DESTINATION FILE NAME ON INSTRUMENT ? ";
200 INPUT Dst_file$
210 PRINT Dst_file$
220 !
230 Copy_to_instr(@Agt4294,Src_file$,Src_size,Dst_file$)
240 !
250 END
260 !
270 ! copy_to_instrument
280 !
290 SUB Copy_to_instr(@Agt4294,Src_file$,Src_size,Dst_file$)
300 DIM Img$[32]
310 Max_bsize=16384
320 !
330 ASSIGN @Src_file TO Src_file$
340 !
350 CLEAR @Agt4294
360 OUTPUT @Agt4294;"CLES"
370 OUTPUT @Agt4294;"WOPEN """;Dst_file$;""""
380 IF FNCheck_error(@Agt4294," <CPTI: wopen>")=-1 THEN SUBEXIT
390 Xfr_done=0
400 !
410 LOOP
420 SELECT (Src_size-Xfr_done)
430 CASE >Max_bsize
440 Block_size=Max_bsize
450 CASE 0
460 ASSIGN @Src_file TO *
470 OUTPUT @Agt4294;"CLOSE"
480 SUBEXIT
490 CASE ELSE
500 Block_size=(Src_size-Xfr_done)
510 END SELECT
520 Xfr_done=Xfr_done+Block_size
530 !
540 ALLOCATE Dat$[Block_size]
550 !
560 Img$="#,"&VAL$(Block_size)&"A"
570 ENTER @Src_file USING Img$;Dat$
580 !
590 Img$="8A,ZZZZZZ,"&VAL$(Block_size)&"A"
600 OUTPUT @Agt4294 USING Img$;"WRITE
#6",Block_size,Dat$,END
610 DEALLOCATE Dat$
620 IF FNCheck_error(@Agt4294," <CPTI: block write>")=-1
THEN SUBEXIT
630 END LOOP
640 SUBEND
650 !
660 ! Instrument Error Check
670 !
680 DEF FNCheck_error(@Agt4294,Str$)
690 DIM Err$[64]
700 INTEGER Err_no
Vista de página 242
1 2 ... 238 239 240 241 242 243 244 245 246 247 248 ... 517 518

Comentários a estes Manuais

Sem comentários