agri-controller 0.0.0 → 0.0.8

data/lib/agri-controller/thermo_gruff_loop.rb

@@ -1,35 +0,0 @@
-#!ruby
-#coding:utf-8
-
-#require "thermo_gruff"
-#require "thermo_gruff_generate"
-module AgriController
-  module_function
-  def thermo_gruff_loop(verbose=false,dir_to="./htdocs/thermo",dir_from="./cgi-bin/log",num=3)
-    p "gruf_start:"+Time.now.to_s if verbose
-    loop do
-      input_csv_data=dir_from+"/thermo_data.csv"#"data.tmp"
-        if File.readable?(input_csv_data)
-          output_filename=dir_to+"/thermo_data.jpg"
-          input_csv_data
-          
-          thermo_gruff(output_filename=dir_to+"/thermo_data.jpg",input_csv_data,thermo_num=num,"480x420")
-          thermo_gruff(output_filename=dir_to+"/thumb/thermo_data.jpg",input_csv_data,thermo_num=num,"220x250")
-          
-          Loger::loger(dir_from+"/thermo_graph_loop.txt",Time.now.to_s,"w")
-        end
-        
-        #check 1day thermo_data and generate gruff(and small gruff) below
-        thermo_gruff_generate
-      sleep 120
-      p "gruff_loop:"+Time.now.to_s if verbose
-    end
-  end
-end
-if $0==__FILE__
-require "thermo_gruff"
-require "thermo_gruff_generate"
-include AgriController
-
-thermo_gruff_loop
-end

data/lib/agri-controller/wetsensor.rb

@@ -1,119 +0,0 @@
-#require "Setting_io"
-#require "wet_sensor"
-module AgriController
-  class WetSensor #< Wet_sensor
-    
-    #include Setting_io
-    attr_reader :name
-    
-    def initialize( delay=1 , name="x")
-      @name=name
-      
-      @keep=false
-      @delay=delay
-      @time=on
-      @command=false
-      @wet_read=yaml_db("wet_read",false, name)
-      @wet_sensor=yaml_db("wet_sensor", false,name)
-      @weted=false
-    end
-    
-    def on
-      @time=Time.now+@delay
-    end
-    def time?
-      Time.now > @time
-    end
-  def commander
-    if @command==true
-      yield 
-      @command=false
-      return true
-    else
-      return false
-    end
-  end
-    def run(bit,name=@name)
-      ##illigating check
-      #���������H
-      if bit
-        #print "1"
-        #flag read
-        @wet_read  =yaml_dbr("wet_read",name)
-        @wet_sensor=yaml_dbr("wet_sensor",name)
-        #���m�ォ�H
-        if @weted
-          #print "2"
-          #���m��̓Z���T�[�̊��m�������Ȃ�
-          return !time?
-        #���m���Ă��Ȃ�
-        else
-          #�Z���T�[���m(true)
-          if @wet_sensor
-            #�X�g�b�v����
-            p "#{name} detect:#{Time.now.to_s}"
-            @weted=true
-            #���؏���
-            on
-            #�Z���T�[�s���m
-          else 
-            #print "4"
-            #�Z���T�[�̒l�ǂݍ���
-            if @wet_read==false
-              #print "5"
-                #�₢���킹����
-                @command=true
-                @wet_read=yaml_db("wet_read",true,name)
-              # =>�Ԏ��ɂ����sensor���ύX
-            else
-              #wet_read==true
-              #�҂����킹��
-              #print "6"
-            end
-          end
-          #�������s
-          return true
-        end
-      #�������Ă��Ȃ��Ƃ�
-      else
-        #print "."
-        if @wet_sensor
-          @wet_sensor=yaml_db("wet_sensor",false,name)
-        end
-        
-        if @wet_read
-          @wet_read=yaml_db("wet_read",false,name)
-        end
-        @weted=false
-        
-        return bit
-      end
-    end
-  end
-end
-
-if $0==__FILE__
-require "setting_io"
-include AgriController
-include Setting_io
-
-name="bit"
-time=Time.now
-bool=false
-bit=WetSensor.new(3,name)
-  loop do
-    break if Time.now >(time+10)
-    
-    p bit.run(true)
-    
-    if Time.now>(time+2) && (bool==false)
-      p Time.now
-      p "detected"
-      yaml_db("wet_sensor",true,name)
-      yaml_db("wet_read",false,name)
-      bool=true
-    end#p yaml_dbr("wet_read","bit")
-    sleep 0.9
-  end
-
-end

data/lib/agri-controller/wr1010.rb

@@ -1,316 +0,0 @@
-module AgriController
-  ##
-  #module WR1010
-  #  before using,you must check COM_port of WR1010,and set same config.
-  #  
-  #  How to use
-  #    require "wr1010"
-  #    include WR1010
-  #    
-  #    list(com_port=7,child_thermo_numbers=4)
-  #        # =>[[25.9, 36, 36, "10100001000", 5],
-  #             [26.7, false, 21, "10100001000", 5],
-  #             [26.1, false, 3, "10100001000", 5],
-  #             [26.1, false, 51, "10100001000", 5]]
-  #            or nil
-  #
-  #  data meaning
-  #  [Degree,Humidity,Seconds since recorded,status bit,radio(1-5)or errors of status.]
-  #  if fail communicate , returns nil.
-  module WR1010
-    module_function
-    ##
-    #communication setting is very important.please check .
-    # icomno COMNO 1-
-    # idcbflags 0:binariy
-    #           1:parity_on
-    #           2:CTS output flow controll 
-    #           b:no check Null char 
-    #         c,d:RTS output flow controll
-    # ibaud rate 110,300,600,1200,2400,4800,9600,14400,19200,38400
-    # ibyte 1byte_length 4,5,6,7,8 
-    # iparity PARITY 0:none 1:odd 2:even
-    # istopbits STPBIT 0:1bit
-    #                  1:1.5bit
-    #                  2:2bit
-    # irecbuf,isenbuf BUFFERSIZE(recieve,send)
-    # return nil:ok
-    #open(icomno,idcbflags,ibaud,ibyte,iparity,istopbits,irecbuf,isenbuf)
-    #WRexport(com_port,send_port="01",number_of_address="00003",bcc_sum="**",sleep_t=0.05)
-    # =>"%01$RD0C0129002E000f051301FFFF1E0007040E01FFFF030006023201FFFF020001001A\r" (example.)
-    def WRexport(com_port,send_port="01",number_of_address="00003",bcc_sum="**",sleep_t=0.05)
-      a=Serial.new
-        if a.open(com_port,1,57600,8,0,0,8,10) != -1#108,324)!=-1
-          command="%#{send_port}#RDD00000#{number_of_address}#{bcc_sum}\r"
-          
-          yield command if block_given?
-          #p command
-          a.send(command)
-
-          sleep sleep_t
-          receive=a.receive
-          a.close
-          return receive
-        else
-          return false
-        end
-      nil
-    end
-    
-    ##
-    #returns address number of child thermos(5 chars)
-    #child_thermo(1)# =>"00003"
-    #child_thermo(4)# =>"00015"
-    #child_thermo(56)# =>"00223"
-    def child_thermo(n)
-      begin
-        x=n*4-1
-        y=x.to_s
-        (5-y.size).times{y="0"+y}
-      rescue
-        raise "method child_thermo(#{n}):error"
-      end
-      return y
-    end
-    #thermo_data(recieve_value)# =>["0ff0fffff500ffff","1f00ffffff000000"](ex.)
-    def thermo_data(recieve_value)#ex# =>["0ff0fffff500ffff","1f00ffffff000000"]
-      begin
-        if recieve_value
-          str=recieve_value[6..(-4)]
-          size=str.size
-          if (size)%16 ==0
-          array=[]
-            (size/16).times do |i|
-              array[i]=str.slice!(0..15)
-            end
-          array
-          else
-            nil
-          end
-        else
-          nil
-        end
-      rescue
-        return nil
-      end
-    end
-
-    def thrmo_array(str)
-      begin
-        result=[]
-        str.each do |data|
-          #p data ;p data.size
-        result_1=[]
-          (data.size/4).times do |i| 
-            result_1 << data.slice((i*4),4)
-          end
-          result << anaryze(result_1)
-        end
-        return result 
-      rescue
-        return nil
-      end
-    end
-    
-    def anaryze(data)#["0201", "2C00", "2400", "0805"]
-      result=[]
-        #result[0]
-                x=thermo_hex_to_i(data[0])
-        result << judge(x).to_f/10
-        #result[1]
-        x2 = thermo_hex_to_i(data[1])
-        if x2==65535
-          result << false
-        elsif x2<=32766
-          if x2<=100
-            result << x2
-          elsif
-            result << 100
-          end
-        else
-          #p thermo_hex_to_i(data[1])
-          result << false
-        end
-        #result[2]
-        result << thermo_hex_to_i(data[2])
-        #result[3]
-        result << thermo_hex_to_i(data[3]).to_s(2)
-      result
-    end
-    
-    def errors(bit_str)#"10100001000"
-      error_list=[]
-      #if bit_str
-        
-        bit=Bit.new(Integer("0b"+bit_str))
-        #p bit.bit
-        if bit.on?(0)
-          error_list << "bit0:causion:battery. "
-        end
-        
-        if bit.on?(1)
-          error_list << "bit1:Error:sensor cable. "
-        end
-        if bit.on?(2)
-          error_list << "bit2:causion:Temp is too High or Low. "
-        end
-        if bit.off?(3)
-          error_list << "bit3:Error:FATAL ERROR.needs maintainance. "
-        end
-        #p error_list
-        
-        #radio power
-        size=bit_str.size*-1
-        #p bit_str
-        #p bit_str.slice((size..-9))
-        radio_power=Integer("0b"+bit_str.slice((size..-9)))
-        
-        if error_list==[]
-          begin
-            
-            return radio_power
-          rescue
-            return nil
-          end
-        end
-      #else
-      #  nil
-      #end 
-      error_list << radio_power
-    end
-  #+-tempereture judge function
-  def judge(x)
-    begin 
-      bit=Bit.new(x)
-      unless bit.on?(15)
-        return x
-      else
-        res= x-65535
-        
-        #under -100 'c (degrees Celsius)
-        #thermo must be error 35536 => "1000101011010000" => -2999.9
-        unless res< -1000          
-          return res
-        else
-          return nil
-        end
-      end
-    rescue
-      nil
-    end
-  end
-    
-    def thermo_hex_to_i(data)
-      #hex="f100" # =>241
-      x=data.slice(0..1)
-      y=data.slice(2..3)
-      result=((y+x).to_i(16))
-    end
-    
-    def list(com_port=7,thermo=4,sleep_t=0.05)
-      result=[]
-      send_port="01"
-      bcc_sum="**"
-      number_of_address=child_thermo(thermo)
-      recieve_value=WRexport(com_port,send_port,number_of_address,bcc_sum,sleep_t)
-      if recieve_value
-        ret=thermo_data(recieve_value)
-        if ret
-          x=thrmo_array(ret)
-          if x
-            x.each do |data|
-              ret=errors(data[3])
-              data << ret#"10100001000"
-              result << data
-            end
-            return result
-          end
-        end
-      end
-      nil
-    end
-    
-    def to_log(log_file,data)
-      #add data to log_file
-      if data.class!=nil
-        open(log_file,"a") do |io|
-          io.print Time.now
-          io.print "\n"
-          
-          data.each do |str|
-            res=""
-            str.each do |str2|
-              res+=str2.to_s+","
-            end
-            io.print res.chop+"\n"
-          end
-          io.print("\n")
-        end
-        
-        #rename log_file if size too big
-        if File.size?(log_file)>=100000
-          i=1
-          bool=true
-          while bool
-            new_name=i.to_s+log_file
-            unless File.exist?(new_name)
-              File.rename(log_file,new_name)
-              bool=false
-            end
-            i+=1
-          end
-        end
-        nil
-      end
-    end
-    def help
-  '##
-  #module WR1010
-  #  before using,you must check COM_port of WR1010,and set same config.
-  #  
-  #  How to use
-  #    require "wr1010"
-  #    include WR1010
-  #    
-  #    list(com_port=7,child_thermo_numbers=4)
-  #        # =>[[25.9, 36, 36, "10100001000", 5],
-  #             [26.7, false, 21, "10100001000", 5],
-  #             [26.1, false, 3, "10100001000", 5],
-  #             [26.1, false, 51, "10100001000", 5]]
-  #            or nil
-  #
-  #  data meaning
-  #  [Degree,Humidity,Seconds since recorded,status bit,radio(1-5)or errors of status.]
-  #  if fail communicate , returns nil.'
-    end
-    
-    alias status errors
-    alias com list
-    alias save to_log
-  end
-end
-
-if $0==__FILE__
-#p $KCODE=""
-include WR1010
-#com_port=7
-#send_port="01"
-#number_of_address="00015"
-#bcc_sum="**"
-
-#p recieve_value=WRexport(com_port,send_port,number_of_address,bcc_sum)
-#p ret=thermo_data(recieve_value)
-#p x=thrmo_array(ret)
-p x=list(8,4)
-#p judge(65534).to_f/10
-#p thermo_data(nil)
-#thrmo_array(ret)
-#p judge 65535
-p child_thermo(4)
-=begin
-sample="%01$RD0C0129002E000f051301FFFF1E0007040E01FFFF030006023201FFFF020001001A\r"
-#sample=["0D0129000C000f05", "1401FFFF38000804", "0E01FFFF09000802", "3901FFFF1C000900"]
-p ret=thermo_data(sample)
-=end
-#save("foo.txt",list(4))
-end