[jaluino] r427 committed - sound sample, using sound sensor grove brick

[jal...@googlecode.com]

Revision: 427
Author: sebastienlelong
Date: Mon Jan 7 12:44:08 2013
Log: sound sample, using sound sensor grove brick
http://code.google.com/p/jaluino/source/detail?r=427

Added:
/trunk/samples/hex/jaluino_bee_sound.hex
/trunk/samples/jaluino_bee_sound.jal

=======================================
--- /dev/null
+++ /trunk/samples/hex/jaluino_bee_sound.hex Mon Jan 7 12:44:08 2013
@@ -0,0 +1,97 @@
+:020000040000FA
+:100000001BEF00F02D2D20536F756E642073656E0D
+:10001000736F722073616D706C65202D2D00536FAE
+:10002000756E642076616C75653A2000FB6E0C512C
+:10003000FA6E0B51F96E9B8C0001A10E086F300E09
+:10004000096F092F21EF00F0082F1FEF00F00001CA
+:10005000010E086F082F2AEF00F000000000FF0ECD
+:100060000F01486FFF0E496FC26AC16AD26AD16A36
+:10007000256B84EF00F0576F5751D8B41200010E72
+:10008000575DD8A44BEF00F00001230E086F082F36
+:1000900047EF00F01200570700011F0E086F082FEE
+:1000A0004FEF00F05751586F596B5EEF00F00001B1
+:1000B000270E086F082F5AEF00F0592B5951585D41
+:1000C000D8A457EF00F012005151536F5251546FA2
+:1000D000556B566B7AEF00F00001FF0E086F0E0EA5
+:1000E000096F092F71EF00F0082F6FEF00F0552B0B
+:1000F000D8B4562B5551535D086F5651545D0811B5
+:10010000D8A46CEF00F012009494A7EF00F07E8664
+:10011000AD84E10EB06E040E7F6E1200AD6AAC6A63
+:1001200087EC00F09D9A9D98948E948CAD8AAC8E4D
+:10013000AC8812000F6F9EA89BEF00F00F51AE6EBF
+:100140001200000108510E6F0E519AEF00F08EEC74
+:1001500000F057EF02F00D0E086F4E510B6F4F512C
+:100160000C6F505116EC00F00A0E0001086F4E5152
+:100170000B6F4F510C6F505116EF00F04451496F07
+:1001800045514A6F49514C6F4A514D6F4B6BE1EFEE
+:1001900000F046514B25F66E000E006E47510020D0
+:1001A000F76E48510020F86EF89C0900F550086F72
+:1001B00041510B6F42510C6F435116EC00F000019E
+:1001C0004B2B4B514C5D086F4D510811D8A4C9EF12
+:1001D00000F01200D8901037113712371337D8902B
+:1001E00010353D6F11353E6F12353F6F1335406F3F
+:1001F000D8903D373E373F3740373D5110273E516D
+:1002000011233F511223405113231200010E106F8E
+:10021000116B126B136B356B366B1351345DD8A4B5
+:100220001EEF01F01251335DD8A41EEF01F0115101
+:10023000325DD8A41EEF01F01051315D3891D8A481
+:10024000D8B03881000E365DD8A429EF01F00A0E2F
+:10025000355D3893D8B42FEF01F0D8A038833885B6
+:1002600038B138A3389538A53EEF01F0EAEC00F03C
+:100270000001352BD8B4362B0DEF01F03551361176
+:10028000D8A446EF01F0010E356F366B35073529DE
+:10029000D8B43607010E106F116B126B136B35510A
+:1002A000396F36513A6F3B6B3C6B5DEF01F0EAEC16
+:1002B00000F000013B2BD8B43C2B3B51395D086F5B
+:1002C0003C513A5D0811D8A457EF01F0300E376F5A
+:1002D0003451135DD8A479EF01F03351125DD8A4E5
+:1002E00079EF01F03251115DD8A479EF01F031516D
+:1002F000105DD8B47FEF01F0D8B08FEF01F0D88057
+:1003000031511055316F32511155326F33511255F1
+:10031000336F34511355346F372B68EF01F0375179
+:10032000086F2E510B6F2F510C6F305116EC00F0EF
+:10033000000135513611D8A446EF01F012002851C2
+:100340002A6F29512B6F2C6B2D6B25512E6F265147
+:100350002F6F2751306F2A51316F2B51326F2C5133
+:10036000336F2D51346F06EF01F01200246F2451CA
+:10037000D8A4BEEF01F00F0148919280010E000158
+:10038000245DD8A4C7EF01F00F0148939282020EBA
+:100390000001245DD8A4D0EF01F00F0148959284AC
+:1003A000030E0001245DD8A4D9EF01F00F01489796
+:1003B0009286040E0001245DD8A4E2EF01F00F0143
+:1003C0004899928A080E0001245DD8A4EBEF01F051
+:1003D0000F0149919384090E0001245DD8A4F4EF24
+:1003E00001F00F01499393860A0E0001245DD8A401
+:1003F000FDEF01F00F01499593820B0E0001245D82
+:10040000D8A406EF02F00F01499794840C0E000166
+:10041000245DD8A40FEF02F00F01499993801200D8
+:10042000206F23B117EF02F0C19E18EF02F0C18ECA
+:100430002035086F08373C0E0817C30EC214081188
+:10044000C26EC28015513BEC00F0C282C2B226EFF0
+:1004500002F0C4500001226FC350216F810E145D61
+:10046000D8B436EF02F0D8A045EF02F000010B0E31
+:10047000086FB40E096F092F3BEF02F0082F39EF18
+:1004800002F0000000004BEF02F000013F0E086F89
+:10049000082F48EF02F0C2902151086F2251096FD6
+:1004A000120000011D6F23811D5110EF02F00001A9
+:1004B000186B1831086F08330831086FC00E081721
+:1004C0003F0EC2140811C26E080E196F1A6B0D0E82
+:1004D000196F1A6BF80EC1140609C16E1951146F09
+:1004E000C70EC1160E0E156F090EB6EC01F0000115
+:1004F000166B176B420E416F010E426F000E436F79
+:10050000190E446F456B040E466F000E476F000EC8
+:100510004009486FBEEC00F0420E00014E6F010E24
+:100520004F6F000E506FABEC00F0420E00014E6FAB
+:10053000010E4F6F000E506FABEC00F0090E51EC46
+:1005400002F000010851166F0951176F000E175D78
+:10055000D8A4ADEF02F0640E165DD8B49EEF02F0A1
+:10056000D8A09EEF02F08B84420E416F010E426FC5
+:10057000000E436F0D0E446F456B1E0E466F000E4E
+:10058000476F000E4009486FBEEC00F0420E0001BC
+:10059000256F010E266F000E276F1651286F175119
+:1005A000296F9FEC01F0420E00014E6F010E4F6F5C
+:1005B000000E506FABEC00F0140E0001516F526B47
+:0A05C00064EC00F08B949EEF02F053
+:020000040001F9
+:08FFF800F8F7FDFFFFFAFFFB23
+:00000001FF
=======================================
--- /dev/null
+++ /trunk/samples/jaluino_bee_sound.jal Mon Jan 7 12:44:08 2013
@@ -0,0 +1,64 @@
+-- Title: Sound sensor sample for Jaluino Bee
+-- Author: Sebastien Lelong, Copyright (c) 2008..2013, all rights reserved.
+-- Adapted-by:
+-- Compiler: 2.4p
+--
+-- This file is part of jaluino (http://jaluino.googlecode.com)
+-- Released under the BSD license
(http://www.opensource.org/licenses/bsd-license.php)
+--
+-- Description: This program shows how to read data from sound sensor.
+-- This basically means reading value from ADC. Using Seeedstudio's Grove
brick
+-- (http://www.seeedstudio.com/wiki/index.php?title=Twig_-_Sound_Sensor)
+-- just power the sensor with 5V (not 3V3), connect RB3 pin (which is
analog pin #9)
+-- to a R bridge voltage divider (150/100R), to prevent damage on ADC
input pin
+-- (they are not 5V tolerant)
+--
+
+
+include jaluino_bee
+include delay
+
+onboard_led_direction = output
+
+-- we'll print results through serial
+const SERIAL_HW_BAUDRATE = 9600
+include serial_hardware
+serial_hw_init()
+
+include print
+
+const byte welcome[] = "-- Sound sensor sample --"
+const byte str_sound[] = "Sound value: "
+const word SOUND_TRESHOLD = 100 -- above which we send something. Higher
means louder.
+
+
+-- Configure ADC
+const byte ADC_NVREF = ADC_NO_EXT_VREF
+const word ADC_RSOURCE = 2_000
+const bit ADC_HIGH_RESOLUTION = high
+include adc
+adc_init()
+set_analog_pin(9) -- RAB3AN*9*
+
+var word sound_value = 0 -- will store result from ADC readings
+
+print_string(serial_hw_data,welcome)
+print_crlf(serial_hw_data)
+print_crlf(serial_hw_data)
+
+forever loop
+
+ sound_value = adc_read_high_res(9) -- read on ADC channel #9
+ if sound_value > SOUND_TRESHOLD then
+ onboard_led = on
+ print_string(serial_hw_data,str_sound)
+ print_word_dec(serial_hw_data,sound_value)
+ print_crlf(serial_hw_data)
+ delay_1ms(20)
+ onboard_led = off
+ end if
+
+
+end loop
+
+--