' The LED is defined as a single I/O line
Dim Red As New oDio1

' Here we create a virtual wire. Wires are
' used to link output or flag values to
' input values.
Dim W As New oWire

' All OOPic programs need to define a "main" sub-routine.
' This is what will be run when the OOPic is turned on.
Sub Main()
  ' Here we specify the pin number for the I/O line.
  ' The onboard red LED is on pin 7.
  Red.IOLine = 7

  ' The LED can also be used for a button, so we need
  ' to specify whether we wish to read from or write to
  ' the pin.
  ' (cvOutput is a constant value)
  Red.Direction = cvOutput


  ' Now we can set up the wire link!
  ' For the wire's input, we wish to use the built-in
  ' 1Hz timer.
  W.Input.Link(OOPic.Hz1)

  ' Now we send the output of the wire to the LED.
  ' Note that we actually send it to the "Value"
  ' property of the LED, as this is what determines
  ' whether the LED is lit.
  W.Output.Link(Red.Value)

  ' All that's left to do is to tell the wire to
  ' operate, and the OOPic will do the rest!
  ' (cvTrue is a constant value)
  W.Operate = cvTrue

End Sub