GE DEH-210 User Manual download pdf (Page 61)

PMCS Interface Toolkit Creating Floor Plans, Elevation Views, and One-Line Diagrams • 55

Bus6.Get

Bus7.Get

Dim Change3 As Boolean

Dim Change4 As Boolean

Dim Change5 As Boolean

Dim Change6 As Boolean

Dim Change7 As Boolean

If ((Bus1.value) And (brk1)) Then

Bus3.value = 1

Change3 = 1

ElseIf (Not Change3) Then

Bus3.value = 0

End If

If ((Bus2.value) And (brk2)) Then

Bus5.value = 1

Change5 = 1

ElseIf (Not Change5) Then

Bus5.value = 0

End If

If ((Bus3.value) And (brk3)) Then

Bus4.value = 1

Change4 = 1

ElseIf (Not Change4) Then

Bus4.value = 0

End If

If ((Bus4.value) And (brk4)) Then

Bus5.value = 1

Change5 = 1

ElseIf (Not Change5) Then

Bus5.value = 0

End If

If ((Bus3.value) And (brk5)) Then

Bus6.value = 1

1 2 ... 56 57 58 59 60 61 62 63 64 65 66 ... 219 220

Comments to this Manuals

No comments