Function ShowFault( ByVal nFltIndex&, ByVal nTiers&, ByVal nShowType&, _
ByVal nPerUnit&, ByRef vnShowRelay() as Long ) As Long
Purpose: Show result of a fault simulation case on one-line diagram.
Works in: OneLiner only.
Parameters:
nFltIndex
[in] fault
number to show or:
SF_FIRST: first
fault
SF_NEXT: next
fault
SF_PREV: previous
fault
SF_LAST: last
fault
nTiers [in] number of tiers away from the fault bus
nShowType
[in] output
type
= 1: zero sequence result
= 2: positive sequence result
= 3:
negative sequence result
= 4: phase A result
= 5: phase B result
= 6:
phase C result
= 7: relay operating time result
nPerUnit [in] per unit flag; 1 – set; 0 - reset
vnShowRelay [in] show relay flag;
1 – set; 0 - reset
vnShowRelay(1) -
Overcurrent ground relays
vnShowRelay(2) -
Overcurrent phase relays
vnShowRelay(3) -
Distance ground relays
vnShowRelay(4) -
Distance phase relays
Return value:
1 success
0 failure
Remarks:
Example:
Dim vnShowRelay(4)
If ShowFault( 1, 0, 4, 0, vnShowRelay ) = 0 Then GoTo HasError
Do
If GetSCCurrent( HND_SC, vdVal1, vdVal2, 4 ) = 0 Then GoTo HasError
Print #1, FaultDescription(); Chr(10); _
" "; _
Format( vdVal1(1), "####0.0"); "@"; Format( vdVal2(1), "#0.0"), Space(5), _
Format( vdVal1(2), "####0.0"); "@"; Format( vdVal2(2), "#0.0"), Space(5), _
Format( vdVal1(3), "####0.0"); "@"; Format( vdVal2(3), "#0.0")
Loop While ShowFault( SF_NEXT, 0, -999, 0, vnShowRelay ) > 0