› ›

Quick Nightlight

tomcrawfordtomcrawford Posts: 853
in BASIC Stamp Vote Up0Vote Down
Our visiting grandson asked for a nightlight because they forgot theirs. In about ten minutes I made one.

This is perhaps the shortest program I have ever written that actually does something. 
' {$STAMP BS2}
' {PBASIC 2.5}
Variable  VAR  Byte
DO
   PWM 1, Variable, 100
   If (In14 = 0) THEN Variable = Variable + 10
   LOOP
P1030996.jpg
640 x 480 - 71K
Re-inventing the wheel is not a waste of time if, when you are done, you understand why it is round.
Cool, CA, USA 95614

Comments

  • 3 Comments sorted by Date Added Votes
  • EGGHEADEGGHEAD Posts: 26
    Vote Up0Vote Down
    Nice job TomCrawford.

    I did one for my grandson using RGB's and he was impressed, you know your good when you can impress a 6 year old.

  • $WMc%$WMc% Posts: 1,884
    Vote Up0Vote Down
    Cool Tom
    __Walt McDonald__

    The Truth is out there
    It's not rocket-surgery
    I see why we don't have any water,All of the pipes are full of wires!
    E=WMc2
    Now with WiFi
    Not in the Spin Bunch
    import RPi.GPIO as GPIO

    ABB M202 certified
    ABB M211 certified
  • AwesomeCronkAwesomeCronk Posts: 74
    Vote Up0Vote Down
    My brother (8yrs) panicked when I hooked up Wifif to my Stamp and started flashing LEDs with my computer!
Sign In or Register to comment.