madrona-rad 0.2.5 → 0.2.6

data/lib/examples/external_variables.rb

@@ -1,5 +1,8 @@
 class ExternalVariables < ArduinoSketch
 
+  define "KOOL 10"
+  define "TRUE 1"
+  define "COMMENT true"
   define "DS1307_CTRL 7"
   define "DS1308_CTRL 7"
   array "char buffer[32];"
@@ -17,7 +20,7 @@ class ExternalVariables < ArduinoSketch
 
 	  delay 1
 	  @foo = 2
-  
+    @foo = KOOL
   end
   
   def setup # special one time only method
@@ -25,6 +28,7 @@ class ExternalVariables < ArduinoSketch
     delay 100
     @foo = 10
     5.times { delay 200 }
+
   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

data/lib/examples/hello_array_eeprom.rb

@@ -0,0 +1,61 @@
+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"
+ define "EEPROM_ADDR 0x50"
+ 
+
+ # when we just need to declare an array, or need more control, such as specific type requirements
+ array "byte page_data[20] = {'A', 'B', 'Z', 'C', 'Y', 'D', 'W', 'E', '%', 'H', '*', '!', ')', '=', 'P', '-', '+', 'R', 'I', 'K'}"
+ array "byte in_buffer[20]"
+ 
+ output_pin 19, :as => :mem0, :device => :i2c_eeprom, :enable => :true
+ 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"
+
+   i2c_eeprom_write_page 0x50, 0x0040, page_data, 20 
+
+   delay 1000
+   
+   my_lcd.clearline 1, "  block readback"
+   
+   i2c_eeprom_read_buffer 0x50, 0x0040, 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_eeprom.rb

@@ -6,7 +6,7 @@ class HelloEeprom < ArduinoSketch
   output_pin 14, :as => :myLCD, :device => :pa_lcd, :rate => 19200
     
   def loop
-	    myLCD.home					# set to 0,0
+	    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 
@@ -31,13 +31,10 @@ class HelloEeprom < ArduinoSketch
 
 		delay 2000
 		
-		myLCD.setxy 0,2 	# clears bottom two lines           
-		myLCD.print "?l"
-		myLCD.setxy 0,3
-		myLCD.print "?l"
+		myLCD.clearline 2 	# clears bottom two lines           
+		myLCD.clearline 3
 
-		myLCD.setxy 10,0
-		myLCD.print "read test "
+		myLCD.setxy 10,0, "read test "
 		myLCD.setxy 0,2
 									# read and print 39 addresses with printable numbers
 		75.upto(113) { |x| myLCD.print(i2c_eeprom_read_byte(0x50, x)) }

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| i2c_eeprom_write_byte  0x50, x, x
+        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
+      75.upto(113) { |x| myLCD.print(i2c_eeprom_read_byte(0x50, 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

data/lib/examples/hello_lcd_charset.rb

@@ -0,0 +1,75 @@
+class HelloLcdCharset < ArduinoSketch
+
+  # -------------------------------------------------------------------------
+  #    Program to Display the entire lower half (under 0x80) character set
+  #
+  #    The class variable @a defined as byte is needed to make RubyToC put
+  #    the value to be 'printed' as a byte and thus give us the character
+  #    that value represents.
+  #
+  #      Brian Riley - Underhill Center, VT, USA  July 2008
+  #                     <brianbr@wulfden.org>
+  #
+  # ----------------------------------------------------------------------
+  
+   
+      @a  = byte
+      
+      output_pin 14, :as => :myLCD, :device => :pa_lcd, :rate => 19200
+      output_pin 13, :as => :led
+
+  def loop
+    
+    myLCD.clearscr  "Alphabet Chars?n"
+    0x41.upto(0x5a) do |i|    # A to Z
+      @a = i                  # forces 'byte' typing to variable
+      myLCD.print @a          # so print rouien prints character represented 
+      delay 50                # by the index value
+    end
+    0x61.upto(0x7a) do |i|    # a to z
+      @a = i
+      myLCD.print @a
+      delay 50
+    end
+    
+    delay 3000
+    myLCD.clearscr  "Numeric Chars?n"
+    0x30.upto(0x39) do |i|    # 0 to 9
+      @a = i
+      myLCD.print @a
+      delay 50
+    end
+    
+    delay 3000
+
+    myLCD.clearscr  "Other Chars?n"
+    0x21.upto(0x2f) do |i|    # punctuation et al
+      @a = i
+      myLCD.print @a
+      delay 50
+    end
+    0x3a.upto(0x40) do |i|
+      @a = i
+      myLCD.print @a
+      delay 50
+    end
+    0x5b.upto(0x60) do |i|
+      @a = i
+      myLCD.print @a
+      delay 50
+    end
+    0x7b.upto(0x7f) do |i|
+      @a = i
+      myLCD.print @a
+      delay 50
+    end
+    
+    delay 3000
+      
+
+
+  end
+  
+  
+  
+end

data/lib/examples/hello_pa_lcd.rb

@@ -0,0 +1,59 @@
+class HelloPaLcd < ArduinoSketch
+
+
+# demonstrate 4 x 20 pa_lcd toggle between normal and Bignum mode
+# with @toggle external variable thrown in for fun
+
+# change your pins to suit your setup
+  
+  @toggle = false
+  
+  input_pin 6,  :as => :button_one, :device => :button
+  input_pin 7,  :as => :button_two, :device => :button
+  input_pin 8, :as => :button_three, :device => :button
+  
+  output_pin 5, :as => :my_lcd, :device => :pa_lcd, :rate => 19200, :clear_screen => :true
+
+  def setup
+    delay 3000
+    my_lcd.setxy 0,0
+    my_lcd.print "Press button"
+    my_lcd.setxy 0,1
+    my_lcd.print "One, two or three...."
+  end
+  
+  def loop  
+    say_hello     if button_one.read_input 
+    say_more      if button_two.read_input 
+    say_it_large  if button_three.read_input 
+  end
+  
+  def say_hello
+    @toggle = true
+    my_lcd.clearscr "Any sufficiently    advanced technology"
+    my_lcd.setxy 0,2
+    my_lcd.setxy 0,3, "toggle state: "
+    my_lcd.print @toggle
+  end
+  
+  def say_more # passing print strings to home and setxy (also works on clearscr)
+    @toggle = false
+    my_lcd.clearscr "is indistinguishablefrom magic"
+    my_lcd.setxy 0,3, "toggle state: "
+    my_lcd.print @toggle
+  end
+  
+  
+  def say_it_large
+
+    my_lcd.intoBignum
+    my_lcd.clearscr            # line 0, col 0
+    1.upto(32) do |i|
+      my_lcd.setxy 0,1
+      my_lcd.print i * i
+      delay 200
+    end
+    my_lcd.outofBignum
+  end
+ 
+end