Verizon Markası'nın Ürünleri

7.6 Program Examples (Q-Basic)

1ØØ REM *****************************************************

11Ø REM THE EXAMPLE OF USING PN 3ØØ WITH GPIB-INTERFACE

12Ø REM AT-GPIB/TNT AND SOFTWARE NI-488.2 OF NI

13Ø REM VOLTAGE SETTING OF SOURCE A TO 1Ø.ØØ V

14Ø REM VOLTAGE SETTING OF SOURCE B TO 3Ø.ØØ V

15Ø REM CURRENT SETTING OF BOTH SOURCES TO Ø.1ØØ A

16Ø REM ITS GPIB SYSTEM ADDRESS IS 7

17Ø REM EXAMPLE PROGRAM USING NI-488.2 SUBROUTINES

18Ø REM MERGE THIS CODE WITH DECL.BAS (WHEN USING NI-488.2)

19Ø REM *****************************************************

2ØØ REM

21Ø REM *** SET UP INTERFACE AT-GPIB/TNT ***

22Ø DIM ADDRLIST%(31):ADDRLIST%(Ø)=7:ADDRLIST%(1)=NOADDR%

23Ø BDINDEX%=Ø: PAD%=7

24Ø CALL SENDIFC(BDINDEX%)

25Ø REM

26Ø REM *** SET UP INTERFACE AND STATUS REPORTING ***

27Ø CALL ENABLEREMOTE (BDINDEX%,ADDRLIST%(Ø))

28Ø CALL DEVCLEAR(BDINDEX%,PAD%)

29Ø WRT$="*RST;*CLS"

3ØØ CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)

31Ø REM

32Ø REM *** SETTING OF OPERATING PARAMETERS ***

33Ø WRT$="OPER_IND;PROT_LIM"

34Ø CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)

35Ø REM

36Ø REM *** SETTING OF SOURCE A ***

37Ø WRT$="SEL_A;VSET 1Ø.ØØ;ISET Ø.1ØØ"

38Ø CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)

39Ø REM

4ØØ REM *** SETTING OF SOURCE B ***

41Ø WRT$="SEL_A;VSET_MAX;ISET Ø.1ØØ"

42Ø CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)

43Ø REM

44Ø REM *** ACTIVATION OF OUTPUTS ***

45Ø WRT$="OUT_ON"

46Ø CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)

47Ø REM

48Ø REM *** SET UP DEVICE AND SET LOCAL MODE ***

49Ø WRT$="*OPC?"

5ØØ CALL SEND (BDINDEX%,PAD%,WRT$,NLEND%)

51Ø RD$= SPACE$(2Ø)

52Ø CALL RECEIVE (BDINDEX%,PAD%,RD$,STOPEND%)

53Ø REM

54Ø CALL ENABLELOCAL (BDINDEX%,ADDRLIST%(Ø))

55Ø REM

56Ø REM *** DISABLE THE SOFTWARE AND HARDWARE ***

57Ø V% = Ø

58Ø CALL IBONL (BDIDEX%,V%)

59Ø END

Operating Instructions PN 300

1/99