GE DEH-210 用户手册

•

Sub Main()

   Dim Brkr1S As New Point

   Dim Brkr2S As New Point

   Dim Brkr3S As New Point

   Dim Brkr4S As New Point

   Dim Brkr5S As New Point

   Dim Brkr6S As New Point

   Brkr1S.id = "BRKR1_S"

   Brkr2S.id = "BRKR2_S"

   Brkr3S.id = "BRKR3_S"

   Brkr4S.id = "BRKR4_S"

   Brkr5S.id = "BRKR5_S"

   Brkr6S.id = "BRKR6_S"

   Brkr1S.get

   Brkr2S.get

   Brkr3S.get

   Brkr4S.get

   Brkr5S.get

   Brkr6S.get

   Dim brk1 As Boolean

   Dim brk2 As Boolean

   Dim brk3 As Boolean

   Dim brk4 As Boolean

   Dim brk5 As Boolean

   Dim brk6 As Boolean

   brk1 = false

   brk2 = false

   brk3 = false

   brk4 = false

   brk5 = false

   brk6 = false

   If (Brkr1S.value = 3) Then