[time-nuts] EZGPIB

[Ulrich Bangert]

Gentlemen,

this is to inform you that due to a suggestion of Charles F. Englehart
of Northrop Grumman Corporation EZGPIB now features VISA support. A
script making use of the VISA drivers may look as simple as:

Program VISA; // Demonstrates VISA communication

var Status:Integer;
    CountWritten:Integer;
    CountRead:Integer;
    RM:Integer;
    VI:Integer;
    Answer:String;        

begin;
  EZGPIB_ScreenClear;
  
  Status:=EZGPIB_viOpendefaultRM(RM);

  Status:=EZGPIB_viOpen(RM,'GPIB0::9::INSTR',0,0,VI);
  Status:=EZGPIB_viWrite(VI,'OUTPUT ON',CountWritten);  
  Status:=EZGPIB_viWrite(VI,'VOLT 12.500',CountWritten);
  Status:=EZGPIB_viClose(VI);

  Status:=EZGPIB_viOpen(RM,'GPIB0::10::INSTR',0,11,VI);
  Status:=EZGPIB_viWrite(VI,'END ALWAYS',CountWritten);              
  Status:=EZGPIB_viWrite(VI,'DCV',CountWritten); 
  Status:=EZGPIB_viWrite(VI,'NRDGS 1,SYN',CountWritten);   
  Status:=EZGPIB_viWrite(VI,'TRIG SGL',CountWritten);                 
  Status:=EZGPIB_viRead(VI,Answer,CountRead);
  Status:=EZGPIB_viClose(VI); 

  EZGPIB_screenwriteln(Answer);         
end. 

The sripts sets my HP6632 to 12.5 Volts and measures this voltage back
with a HP3457A. I used the current version of the AGILENT IO library in
conjunction with my NI IEEE488 pci card. 

Ulrich Bangert
www.ulrich-bangert.de
Ortholzer Weg 1
27243 Gross Ippener