C:\> Rostislav Persion's Projects

.:: Motion Sensing Trigger ::.
Motion Sensing Infrared Camera Trigger




This is a device that detects motion and sends out an infrared signal to the camera to take a photo.



SOFTWARE WRITTEN IN GREAT COW BASIC
   1:  ;Chip Settings
   2:  #chip 16F628,4
   3:  #config PWRTE=OFF, WDT=OFF, LVP=OFF, MCLRE=OFF, OSC=INTRC_OSC_NOCLKOUT
   4:   
   5:  Dir PORTA.0 Out
   6:  Dir PORTA.1 In
   7:  start:
   8:  Do While PORTA.1 = 1
   9:      POUT 494
  10:      Wait 3 ms
  11:      POUT 38
  12:      Wait 1 ms
  13:      POUT 38
  14:      Wait 1 ms
  15:      POUT 38
  16:      Wait 1 ms
  17:      POUT 38
  18:      Wait 1 ms
  19:      POUT 38
  20:      Wait 1 ms
  21:      POUT 38
  22:      Wait 1 ms
  23:      POUT 38
  24:      Wait 1 s
  25:  Loop
  26:  Goto start
  27:   
  28:  Sub POUT (length As word)
  29:      For i = 1 To length
  30:          Set PORTA.0 On
  31:          Wait 13 us
  32:          Set PORTA.0 Off
  33:          Wait 13 us
  34:      Next
  35:  End Sub