neo_rad 0.4.0

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,112 @@
+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'}"
+ 
+ ## multidimensional arrays
+ array 'int @my_numbers[3][4] = {{1,2,3,4},{5,6,7,8},{9,10,11,12}}'
+ array 'char* @pizzas[2][4] = {{"margherita","funghi","napoletana","prosciutto cotto"},{"veggie","pepperoni","cheese","kitchen sink"}}'
+ 
+ 
+ output_pin 5, :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 "Multidimensional ?n"
+   
+   0.upto(2) do |f|
+     0.upto(3) do |s|
+       my_lcd.print @my_numbers[f][s]
+       my_lcd.print ", "
+       delay 500
+     end
+   end
+   
+   delay 1000
+   
+   my_lcd.clearscr
+
+    0.upto(1) do |f|
+      0.upto(3) do |s|
+        my_lcd.print @pizzas[f][s]
+        my_lcd.print ", "
+        delay 500
+      end
+    end
+
+
+
+    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

data/lib/examples/hello_array_eeprom.rb

@@ -0,0 +1,59 @@
+class HelloArrayEeprom < ArduinoSketch
+
+   # ----------------------------------------------------------------------
+   #    Checking out various array operations  with I2C serial EEPROM
+   #      doing block writes and bloack readbacks with byte arrays
+   #
+   #      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"
+
+ # when we just need to declare an array, or need more control, such as specific type requirements
+ array "byte page_data[20] = {'R', 'A', 'D', ' ', 'i', 's', ' ', 'B', 'A', 'D', '*', '!', ')', '=', 'P', '-', '+', 'R', 'I', 'K'}"
+ array "byte in_buffer[20]"
+ 
+ output_pin 19, :as => :mem0, :device => :i2c_eeprom, :address => 1     # w/o :address defaults to  :address => 0  which is  0x50
+ output_pin 14, :as => :my_lcd, :device => :pa_lcd, :rate => 19200
+ 
+ 
+ def setup
+   
+   my_lcd.clearscr    "  I2C EEPROM Demo"
+   my_lcd.setxy 0, 1, "block write and read"
+   my_lcd.setxy 0, 2, "  back and display"
+   my_lcd.setxy 0, 3, "    to the LCD"
+   
+   delay 2000
+   
+   my_lcd.clearscr    "  I2C EEPROM Demo?n    block write"
+
+   mem0.write_page 0x0100, page_data, 20 
+
+   delay 1000
+   
+   my_lcd.clearline 1, "  block readback"
+   
+   mem0.read_buffer 0x0100, in_buffer, 20 
+   
+   my_lcd.setxy 0, 2
+   
+   1.upto(20) do |x|
+     my_lcd.print in_buffer[x-1]
+     my_lcd.print " "
+   end
+   
+ end
+ 
+ def loop
+    x = THROWAWAY
+ end
+
+end

data/lib/examples/hello_clock.rb

@@ -0,0 +1,84 @@
+class HelloClock < ArduinoSketch
+  
+# ----------------------------------------------------------------------------------
+#   <b>Time and Temp  (20 July 2008)</b>
+#   Example #1 - Brian Riley, Underhill Center, VT USA <brianbr@wulden.org>
+#   
+#   Connections
+#     I2C bus - DS1307 Real Time Clock chip
+#     Analog 0 (a.k.a Digital 14) - Wulfden K107 seria LCD Controller
+#                                   Peter Anderson chip
+#
+#   Comment
+#     - This is a straight forward program to read the Real Time Clock and Display
+#     delay() calls waiting for temperature conversion readings
+#
+#     - for the external data busses make sure you have 4.7K pullup resistors on the 
+#      the SDA/SCL (I2C)
+#
+# ----------------------------------------------------------------------------------
+ 
+    @flag    = int
+
+    array "byte clock[8]"
+    
+    @days   = ["Sun","Mon","Tue","Wed","Thu","Fri","Sat"]
+    @months = ["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"]
+
+                              # implicit in :device => :ds1307 is that this i i2c
+                              # :enable => true issues the Wire.begin to ick over i2c
+    output_pin 19, :as => :rtc, :device => :i2c_ds1307, :enable => :true
+                              # software serial tx drives LCD display, screen cleared at startup
+                              # defines the softare protocol for controller as Peter Anderson
+    output_pin 14, :as => :myLCD, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+    loop_timer :as => :mainloop
+    
+
+    def setup
+      myLCD.clearscr "   --<Date/Time>--"
+      myLCD.setxy 1,3, "looptime = "
+      rtc.get clock, 1
+      print_main
+      @flag = 1
+    end
+    
+    def loop
+        mainloop.track
+        myLCD.setxy 12,3,  mainloop.get_total
+        rtc.get clock, 1
+        if clock[0] == 0
+          if @flag == 0
+            print_main
+            @flag = 1
+          end
+        else
+          @flag = 0
+        end
+       	myLCD.setxy 6,2
+       	printlz clock[2]
+       	myLCD.print ":"
+  	    printlz clock[1]
+       	myLCD.print ":"
+  	    printlz clock[0]
+
+       delay 50
+        
+    end
+
+    def	printlz(w)
+    			myLCD.print "0" if w < 10
+    			myLCD.print w
+    end
+
+    def	print_main
+ 	    myLCD.setxy 1,1, @days[clock[3]-1]
+		  myLCD.print ", "
+      myLCD.print @months[clock[5]-1]
+   	  myLCD.print " "
+      printlz clock[4]
+   	  myLCD.print ", "
+      printlz clock[6] + 2000
+      
+    end
+    
+end

data/lib/examples/hello_eeprom.rb

@@ -0,0 +1,51 @@
+class HelloEeprom < ArduinoSketch
+  
+  output_pin 19, :as => :rtc, :device => :i2c_ds1307, :enable => :true
+  output_pin 19, :as => :mem0, :device => :i2c_eeprom
+
+  output_pin 14, :as => :myLCD, :device => :pa_lcd, :rate => 19200
+    
+  def loop
+	    myLCD.setxy 0,0					# set to 0,0
+	    myLCD.print rtc.get(5, 1)	# refresh registers (=1) get month
+     	myLCD.print "/"
+	    myLCD.print rtc.get(4, 0)	# no need to refresh (=0) get day 
+     	myLCD.print "/"
+	    myLCD.print rtc.get(6, 0)	# get year
+     	myLCD.setxy(0,1)			# set in 1 byte line 1 (second line)
+     	printlz 2					# print hours with lead zero
+     	myLCD.print ":"
+	    printlz 1					# print minutes with lead zero
+     	myLCD.print ":"
+	    printlz 0					# print seconds with lead zero
+	    
+
+		myLCD.setxy 10,0
+		myLCD.print "write test"
+		myLCD.setxy 0,2
+		32.upto(109) do				# write address of byte to that b yte
+			|x| mem0.write_byte  x, x
+			myLCD.print(".") if x%2
+			delay 10
+		end
+
+		delay 2000
+		
+		myLCD.clearline 2 	# clears bottom two lines           
+		myLCD.clearline 3
+
+		myLCD.setxy 10,0, "read test "
+		myLCD.setxy 0,2
+									# read and print 39 addresses with printable numbers
+		75.upto(113) { |x| myLCD.print(mem0.read_byte(x)) }
+		delay 10000
+		myLCD.clearscr
+  end
+  
+  def	printlz(w)
+  			i = 0 + rtc.get(w,0)         # the '0 +' is YARH (Yet Another RubyToc Hack)
+  			myLCD.print "0" if i < 10
+  			myLCD.print i
+  end
+
+end

data/lib/examples/hello_eeprom_lcdpa.rb

@@ -0,0 +1,81 @@
+class HelloEepromLcdpa < ArduinoSketch
+  # -----------------------------------------------------------------------
+  #    Simple Byte Write and Byte Read-back of I2C EEPROM
+  #
+  #      Brian Riley - Underhill Center, VT, USA  July 2008
+  #                     <brianbr@wulfden.org>
+  #
+  #    I2C Routines are in a plugin not a library
+  #    No block reads and write yet
+  #    Displays to PH Anderson based serial LCD Display
+  #
+  #    <b>I2C Serial EEPROM - Byte Read and Byte Write</b>
+  #      
+  #     i2c_eeprom_write_byte  dev_addr, chip_addr, value
+  #
+  #     dev_addr (byte) - range 0x50 to 0x57 determined by hardware wiring 
+  #     chip_addr (unsigned) - 0 to as much as 64K, depends on chip
+  #     value (byte) - 0 to 255 (0x00 to 0xFF)
+  #
+  #     returns - nothing
+  #
+  #     i2c_eeprom_read_byte  dev_addr, chip_addr
+  #
+  #     dev_addr (byte) - range 0x50 to 0x57 determined by hardware wiring 
+  #     chip_addr (unsigned) - 0 to as much as 64K, depends on chip
+  #
+  #     returns - byte value
+  #
+  #
+  #     http://www.arduino.cc/playground/Code/I2CEEPROM
+  # ----------------------------------------------------------------------
+  
+  output_pin 19, :as => :mem0, :device => :i2c_eeprom, :enable => :true
+  output_pin 14, :as => :myLCD, :device => :pa_lcd, :rate => 19200
+
+
+    
+  def setup
+      delay 1500        # give startup screen time to finish and clear
+	    myLCD.clearscr    "  I2C EEPROM Demo"
+      myLCD.setxy 0, 1, "byte write then read"
+      myLCD.setxy 0, 2, "  back and display"
+      myLCD.setxy 0, 3, "    to the LCD"
+      
+      clear_off_test
+      myLCD.clearline 1, "  byte write test"
+      
+      myLCD.setxy 0, 2
+      32.upto(109) do				# write address of byte to that b yte
+			  |x| mem0.write_byte  x, x+7
+        myLCD.print(".") if x%2
+        delay 10      # EEPROM write _requires_ 3-10 ms pause
+      end
+
+      clear_off_test
+      myLCD.clearline 1, "  byte read test "
+
+      myLCD.setxy 0, 2
+									# read and print 39 addresses with printable numbers
+      70.upto(105) { |x| myLCD.print(mem0.read_byte(x)) }
+
+      delay 2000
+      clear_off_test
+      myLCD.clearline 1, "-< tests complete >- "
+
+
+  end
+  
+  def loop
+    x = 4       # loop has to have _something_
+  end
+
+
+   def clear_off_test   # clears bottom two lines 
+     delay 2000
+     myLCD.clearline 3
+     myLCD.clearline 2   # leaves you at start of a 
+                              # cleared third line
+   end
+
+end