atduskgreg-rad 0.2.5

data/lib/examples/blink_m_hello.rb

@@ -0,0 +1,14 @@
+class BlinkMHello < ArduinoSketch
+
+  # just a scaffolding for blink_m_demo 
+
+  output_pin 19, :as => :wire, :device => :i2c, :enable => :true
+  
+  def loop
+
+	  x = 4    
+  
+  end
+    
+
+end

data/lib/examples/blink_m_multi.rb

@@ -0,0 +1,61 @@
+class BlinkMMulti < ArduinoSketch
+
+  # demonstrate control of individual blinkms
+  # this assumes the leds have been assigned addresses 10, 11, 12
+  # which can be done with blink m address assignment
+
+  # two ways to address the blinkms, array and individual variables
+  @blink_addresses = [10,11,12]
+  @addr_all = "0, byte" 
+  @addr1 = "10, byte"
+  @addr2 = "11, byte"
+  @addr3 = "12, byte"
+  
+  output_pin 19, :as => :wire, :device => :i2c, :enable => :true # reminder, true issues wire.begin
+  input_pin 7,  :as => :button_one, :device => :button
+  input_pin 8,  :as => :button_two, :device => :button
+  input_pin 9,  :as => :button_three, :device => :button
+  input_pin 10,  :as => :button_four, :device => :button
+  
+  # display the action on a 4x20 pa_lcd, yours may be 9200 instead of 19,200
+
+  output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+  
+  
+  def loop  
+    stop_and_fade(@addr1) if button_one.read_input
+    stop_and_fade(@addr2) if button_two.read_input 
+    stop_and_fade(@addr3) if button_three.read_input 
+    dance if button_four.read_input 
+  end
+  
+  def stop_and_fade(addr)
+    f = 1 + addr # hack to coerce addr to int
+    my_lcd.clearscr
+    my_lcd.setxy 0,0, "blinkm # "
+    my_lcd.print addr
+    delay 700
+    BlinkM_stopScript addr
+    my_lcd.setxy 0,1, "stopping script.."
+    delay 700
+    my_lcd.setxy 0,2, "fade to purple.."
+    BlinkM_fadeToRGB(addr, 0xff,0x00,0xff)
+  end
+  
+  def dance
+    BlinkM_setFadeSpeed(@addr_all, 20) # 1-255, with 1 producing the slowest fade
+    my_lcd.clearscr
+    my_lcd.setxy 0,0, "Do the shimmy.."
+    my_lcd.setxy 0,1
+    @blink_addresses.each do |a|
+      BlinkM_fadeToRGB(a, 1,166,138)
+      delay 100
+    end
+    @blink_addresses.each do |a|
+      BlinkM_fadeToRGB(a, 35,0,112)
+      delay 100
+    end
+  end
+    
+
+end

data/lib/examples/blink_with_serial.rb

@@ -0,0 +1,16 @@
+class BlinkWithSerial < ArduinoSketch
+  
+  # hello world (uncomment to run)
+  @i  = "0, long"
+  
+  output_pin 13, :as => :led
+  
+  serial_begin
+  
+    def loop
+      @i += 1
+      serial_println @i
+      blink led, 100 
+    end
+
+end

data/lib/examples/configure_pa_lcd_boot.rb

@@ -0,0 +1,91 @@
+class ConfigurePaLcdBoot < ArduinoSketch
+  
+## important!  
+## most pa_lcd rates are set to 9200, but there are some newer at 19200
+## if you have a 19200, uncomment the end of line 38
+  
+## purpose:  
+## change cursor to none
+## and add custom boot screen
+## 
+## jd's preferred setup for pa_lcd
+## 
+## assumes 4 x 20 pa_lcd
+## 
+## no blinking cursor press button 1
+## configure custom start up screen - press button 2
+## configure lcd to use custom startup screen - press button 3
+## 
+## press buttons one, two and three 
+## or season to taste
+##
+## refernce
+## K107 LCD Controller Board Manual
+## page 11 for cursors
+## page 13 for custom boot
+## http://wulfden.org/downloads/manuals/K107manual.pdf
+##
+##
+
+## set pins to your setup
+
+
+   input_pin 8,  :as => :button_one, :device => :button
+   input_pin 9,  :as => :button_two, :device => :button
+   input_pin 10, :as => :button_three, :device => :button
+   
+   ## note, most of these controllers are set to 9200
+   output_pin 14, :as => :my_lcd, :device => :pa_lcd #, :rate => 19200
+
+   
+   def loop
+     set_cursor     if button_one.read_input 
+     set_custom_screen      if button_two.read_input 
+     change_boot_to_custom  if button_three.read_input 
+   end
+   
+   ## assumes 4 x 20 screen
+   ## maintain 20 characters after ?Cn
+   ## wny delays?  the controller needs them to give it 
+   ## enough time to write 20 bytes to internl EEPROM
+   def set_custom_screen
+     my_lcd.clearscr
+     my_lcd.print "?C0   RAD & Arduino    "
+     delay 400
+     my_lcd.print "?C1    Development     "
+     delay 400
+     my_lcd.print "?C2                    "
+     delay 400
+     my_lcd.print "?C3      v0.3.0        "
+   end
+   
+   
+   ## ?c0 for no cursor
+   ## ?c2 for non blinking cursor
+   ## ?c3 for blinking cursor
+   def set_cursor
+     my_lcd.clearscr
+     my_lcd.print "Changing to "
+     my_lcd.setxy 0,1
+     my_lcd.print "no cursor. "
+     my_lcd.setxy 0,3
+     my_lcd.print "Reboot to view... "
+     
+     my_lcd.print("?c0")
+   end
+   
+   ## "?S0 for blank screen 
+   ## ?S1 for configuration settings 
+   ## ?S2 for custom text screen
+   def change_boot_to_custom
+     my_lcd.clearscr
+     my_lcd.print "Changing to "
+     my_lcd.setxy 0,1
+     my_lcd.print "custom boot screen. "
+     my_lcd.setxy 0,3
+     my_lcd.print "Reboot to view... "
+     my_lcd.print("?S2")
+   end
+
+  
+end

data/lib/examples/debounce_methods.rb

@@ -0,0 +1,49 @@
+class DebounceMethods < ArduinoSketch
+  
+  output_pin 13, :as => :led 
+  input_pin 6, :as => :button_one, :device => :button # can also :adjust => 300
+  input_pin 7, :as => :button_two, :device => :button
+  input_pin 8, :as => :button_three, :device => :button
+  input_pin 9, :as => :button_four, :device => :button  
+  input_pin 10, :as => :button_five, :device => :button  
+  
+  # depressing and releasing button_one, button_two or button_four do the same thing
+  # with a slightly different syntax and number of blinks
+  # button_three simply toggles the led with the read_and_toggle method
+  # button_five does it with a twist
+
+     def loop
+       blink_twice if read_input button_one
+       blink_three_times if read_input button_two
+       button_three.read_and_toggle led #  
+       blink_three_times_basic if read_input button_four
+       blink_with_a_twist if read_input button_five
+     end
+     
+     def blink_twice
+        2.times do |i|
+          led.blink 200 + i
+        end
+      end
+     
+     def blink_three_times
+       3.times { led.blink 200 }
+     end
+
+     # no blink helper
+     def blink_three_times_basic
+       4.times do 
+         led.digitalWrite HIGH
+         delay 200
+         led.digitalWrite LOW
+         delay 200
+       end
+     end
+     
+     def blink_with_a_twist
+       20.times do |i|
+         led.blink i * 10
+       end
+     end     
+     
+end

data/lib/examples/external_variable_fu.rb

@@ -0,0 +1,26 @@
+class ExternalVariableFu < ArduinoSketch
+  
+  @one = int
+  @two = long
+  @three = unsigned
+  @four = short
+  @five = byte
+  @six = 1
+  @seven = 1.2
+  @eight = "0x00"
+  @nine = "arduino"
+  @ten = true
+  @eleven = false
+  @twelve = "1, long"
+  @thirteen = "1, unsigned"
+  @fourteen = "1, byte"
+  @fifteen = HIGH
+  @sixteen = LOW
+  @seventeen = ON 
+  @eighteen = OFF
+
+  def loop
+   delay @six
+  end
+     
+end

data/lib/examples/external_variables.rb

@@ -0,0 +1,32 @@
+class ExternalVariables < ArduinoSketch
+
+  define "KOOL 10"
+  define "TRUE 1"
+  define "COMMENT true"
+  define "DS1307_CTRL 7"
+  define "DS1308_CTRL 7"
+  array "char buffer[32];"
+  array "char bufferz[32];"
+
+
+  @foo = 1
+  @bidda = "badda"
+  @boom = "1, int"
+  @rad = "1.00"
+  
+  def loop
+	  delay 1
+	  @foo = 2
+    @foo = KOOL
+  end
+  
+  def setup # special one time only method
+    delay 100
+    delay 100
+    @foo = 10
+    5.times { delay 200 }
+
+  end
+    
+
+end

data/lib/examples/first_sound.rb

@@ -0,0 +1,23 @@
+class FirstSound < ArduinoSketch
+
+
+
+output_pin 11, :as => :myTone, :device => :freq_out, :frequency => 100 # frequency required
+
+    def loop
+        myTone.disable
+        1.upto(400) { |x| tone_out x }   # run up the scale to 4000 Hz in 10 Hz steps
+        399.downto(1) { |x| tone_out x } # come back down in 10 Hz steps
+        delay 2000
+    end
+
+    def tone_out(n)
+        myTone.set_frequency 10*n
+        myTone.enable
+        delay 80
+        myTone.disable
+        delay 10
+    end
+    
+
+end

data/lib/examples/frequency_generator.rb

@@ -0,0 +1,30 @@
+class FrequencyGenerator < ArduinoSketch
+  
+  # need explaination
+  
+  output_pin 11, :as => :myTone, :device => :freq_out, :frequency => 100
+
+     def loop
+         uh_oh 4   
+     end
+
+     def uh_oh(n)
+       
+
+         n.times do
+             myTone.enable
+             myTone.set_frequency 1800
+             delay 500
+             myTone.disable
+             delay 100
+             myTone.enable
+             myTone.set_frequency 1800
+             delay 800
+             myTone.enable
+         end
+         # hack to help translator guess that n is an int
+         f = n + 0
+      end
+      
+
+end

data/lib/examples/hello_array.rb

@@ -0,0 +1,48 @@
+class HelloArray < ArduinoSketch
+
+ # still working this out...
+ # for example, new instance style array declaration naming
+ # is at odds with original style array naming  
+ 
+ # for simple integer, string, float, and boolean arrays  
+ @toppings = [1,2,3]
+ @names = ["ciero", "bianca", "antica"]
+ 
+ # when we just need to declare an array, or need more control, such as specific type requirements
+ array "int ingredients[10]"
+ array "int pizzas[] = {1,2,3,4}"
+ 
+ output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+ 
+ 
+ def loop
+   
+   my_lcd.clearscr "toppings: "
+   delay 500
+   
+   @toppings.each do |a|
+     my_lcd.print a
+     my_lcd.print " "
+     delay 500
+   end
+   
+   my_lcd.setxy 0,1, "pizzas: "
+   
+   pizzas.each do |p|
+     my_lcd.print p
+     my_lcd.print " "
+     delay 500
+   end
+   
+   my_lcd.setxy 0,2, "names: "
+   
+   @names.each do |p|
+     my_lcd.print p
+     my_lcd.print " "
+     delay 500
+   end
+   
+   
+ end
+
+end

data/lib/examples/hello_array2.rb

@@ -0,0 +1,79 @@
+class HelloArray2 < ArduinoSketch
+
+   # ----------------------------------------------------------------------
+   #    Checking out various array operations
+   #
+   #      JD Barnhart - Seattle, WA July 2008
+   #      Brian Riley - Underhill Center, VT, USA  July 2008
+   #                     <brianbr@wulfden.org>
+   #
+   # ----------------------------------------------------------------------
+
+ # still working this out...
+ # for example, new instance style array declaration naming
+ # is at odds with original style array naming  
+
+ define "THROWAWAY 0"
+ 
+ # for simple integer, string, float, and boolean arrays  
+ @toppings = [1,2,3]
+ @names = ["ciero", "bianca", "zeus", "athena", "apollo"]
+ 
+ # when we just need to declare an array, or need more control, such as specific type requirements
+ array "int ingredients[10]"
+ array "int pizzas[] = {1,2,3,4}"
+ array "byte buffer[20] = {'A', 'B', 'Z', 'C', 'Y', 'D', 'W', 'E', '%', 'H', '*', '!', ')', '=', 'P', '-', '+', 'R', 'I', 'K'}"
+ 
+ output_pin 14, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+ 
+ 
+ def setup
+   
+   my_lcd.clearscr "toppings: "
+   delay 500
+   
+   @toppings.each do |a|
+     my_lcd.print a
+     my_lcd.print " "
+     delay 500
+   end
+   
+   my_lcd.setxy 0,1, "pizzas: "
+   
+   pizzas.each do |p|
+     my_lcd.print p
+     my_lcd.print " "
+     delay 500
+   end
+   
+   my_lcd.setxy 0,2, "names: "
+   
+   @names.each do |p|
+     my_lcd.print p
+     my_lcd.print " "
+     delay 500
+   end
+   
+   delay 3000
+   
+   my_lcd.clearline 1, @names[2]
+   my_lcd.print " [ "
+   my_lcd.print pizzas[1]
+   my_lcd.print " ]"
+   
+   delay 2000
+   
+   my_lcd.clearscr "Array Load?n"
+   1.upto(20) do |x|
+#     buffer[x] = 64 + x  # we cannot set array elements yet except to initialize in declaration
+     my_lcd.print buffer[x-1]
+     my_lcd.print " "
+   end
+   
+ end
+ 
+ def loop
+    x = THROWAWAY
+ end
+
+end