Bnc 1201 - 6 1/2 Digit Digital Multimeter Instrukcja Użytkownika Pobierz pdf (Strona 165)

166

Instance, and Unhandled Exception) is not executed. The Startup Object

property can be set in the Application pane of the Project Designer.

To change the startup object

1. With a project selected in Solution Explorer, on the Project menu

click Properties.

2. Select the Application pane.

3. Select a Startup object from the Startup object drop-down list.

To set the startup object for a Windows Application to Sub Main

1. With a project selected in Solution Explorer, on the Project menu

click Properties.

2. Select the Application pane.

3. Check the Startup with custom Sub Main checkbox.

4. Select Sub Main from the Startup object drop-down list.

LISTING D.1. MEASure.bas--THE Sub Main FUNCTION IS WHERE YOU

NEED TO ADD INITIALIZATION CODE.

Sub Main()

Dim stat As ViStatus

Dim dfltRM As ViSession

Dim sesn As ViSession

Dim fList As ViFindList

Dim desc As String * VI_FIND_BUFLEN

Dim nList As Long

Dim ret As Long

Dim readin As String * 64

stat = viOpenDefaultRM(dfltRM)

If (stat < VI_SUCCESS) Then

'Rem Error initializing VISA ... exiting

MsgBox "USBTMC resource not found.", vbExclamation, "1201 multimeter

device test"

Exit Sub

End If

Rem Find all 1201 USBTMC instruments in the system

stat = viFindRsrc(dfltRM, "USB[0-9]*::0x164E::0x0FA3::?*INSTR", fList,

nList, desc)

If (stat < VI_SUCCESS) Then

'Rem Error finding resources ... exiting

MsgBox "1201 device not found.", vbExclamation, "1201 multimeter device

test"

viClose (dfltRM)

Exit Sub

End If

1 2 ... 160 161 162 163 164 165 166 167 168 169 170 ... 176 177

Brak uwag

Bnc 1201 - 6 1/2 Digit Digital Multimeter Instrukcja Użytkownika Strona 165