document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' The LED is defined as a single I/O line
  2. Dim Red As New oDio1
  3.  
  4. \' Here we create a virtual wire. Wires are
  5. \' used to link output or flag values to
  6. \' input values.
  7. Dim W As New oWire
  8.  
  9. \' All OOPic programs need to define a "main" sub-routine.
  10. \' This is what will be run when the OOPic is turned on.
  11. Sub Main()
  12.   \' Here we specify the pin number for the I/O line.
  13.  \' The onboard red LED is on pin 7.
  14.   Red.IOLine = 7
  15.  
  16.   \' The LED can also be used for a button, so we need
  17.  \' to specify whether we wish to read from or write to
  18.   \' the pin.
  19.  \' (cvOutput is a constant value)
  20.   Red.Direction = cvOutput
  21.  
  22.  
  23.   \' Now we can set up the wire link!
  24.  \' For the wire\'s input, we wish to use the built-in
  25.  \' 1Hz timer.
  26.   W.Input.Link(OOPic.Hz1)
  27.  
  28.   \' Now we send the output of the wire to the LED.
  29.  \' Note that we actually send it to the "Value"
  30.   \' property of the LED, as this is what determines
  31.  \' whether the LED is lit.
  32.   W.Output.Link(Red.Value)
  33.  
  34.   \' All that\'s left to do is to tell the wire to
  35.   \' operate, and the OOPic will do the rest!
  36.  \' (cvTrue is a constant value)
  37.   W.Operate = cvTrue
  38.  
  39. End Sub
');