agri-controller 0.0.0

data/lib/agri-controller/serial.rb

@@ -0,0 +1,114 @@
+#!ruby
+#coding:utf-8
+module AgriController
+require "Win32API"
+  class Serial
+     GENERIC_READ  = 0x80000000
+     GENERIC_WRITE = 0x40000000
+     OPEN_EXISTING = 3
+     FILE_ATTRIBUTE_NORMAL = 0x00000080
+     FILE_FLAG_OVERLAPPED  = 0x40000000
+     PURGE_TXABORT = 1
+     PURGE_RXABORT = 2
+     PURGE_TXCLEAR = 4
+     PURGE_RXCLEAR = 8
+
+     @@iniflg = 0
+     def initialize
+        if @@iniflg != 1
+           @@wcreatefile = Win32API.new('kernel32','CreateFile','PIIPIII','I');
+           @@wclosehandle = Win32API.new('kernel32','CloseHandle','I','I')
+           @@wSetupComm = Win32API.new('kernel32','SetupComm','III','I')
+           @@wPurgeComm = Win32API.new('kernel32','PurgeComm','II','I')
+           @@wSetCommTimeouts = Win32API.new('kernel32','SetCommTimeouts','IP','I')
+           @@wGetCommState = Win32API.new('kernel32','GetCommState','IP','I')
+           @@wSetCommState = Win32API.new('kernel32','SetCommState','IP','I')
+           @@wEscapeCommFunction = Win32API.new('kernel32','EscapeCommFunction','II','I')
+           @@wClearCommError = Win32API.new('kernel32','ClearCommError','IPP','I')
+           @@wWriteFile = Win32API.new('kernel32','WriteFile','IPIPP','I')
+           @@wReadFile = Win32API.new('kernel32','ReadFile','IPIPP','I')
+           @@iniflg = 1
+        end
+        @wcrecv = "\x0" * 512
+        @iinvstep = 1
+     end
+
+     def send(schar)
+        ilen = schar.length
+        wpwadd = [0].pack("I")
+        soverlapped = [0,0,0,0,0].pack("I*")
+        @@wWriteFile.call(@iht,schar,ilen,wpwadd,soverlapped)
+     end
+
+     def receive
+        dwerr = [0].pack("I")
+        statcom = [0,0,0].pack("I*")
+        bi = @@wClearCommError.call(@iht,dwerr,statcom)
+        if bi != 0
+           wstatcom = statcom.unpack("I*")
+           if wstatcom[1] > 0
+              ilen = wstatcom[1]
+              dreadsize = [0].pack("I")
+              roverlapped = [0,0,0,0,0].pack("I*")
+              @@wReadFile.call(@iht,@wcrecv,ilen,dreadsize,roverlapped)
+              irlen = dreadsize.unpack("I")
+              rcvchar = @wcrecv.unpack("a#{irlen[0]}")[0]
+           end
+        end
+        return rcvchar
+     end
+
+     def open(icomno,idcbflags,ibaud,ibyte,iparity,istopbits,irecbuf,isenbuf)
+        comno = "COM#{icomno}\0"
+        @iht = @@wcreatefile.call(comno,GENERIC_READ | GENERIC_WRITE,0,nil,
+                                  OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL | FILE_FLAG_OVERLAPPED,0)
+        ir = nil
+        if @iht != -1
+           ir = catch(:exit){
+              bi = @@wSetupComm.call(@iht,irecbuf,isenbuf)    #送受信ﾊﾞｯﾌｧ
+              throw :exit, -2 if bi == 0
+            bi = @@wPurgeComm.call(@iht,PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR | PURGE_RXCLEAR)
+              throw :exit, -3 if bi == 0                      #ﾊﾞｯﾌｧｸﾘｱｰ
+              readIntervalTimeout = 1000
+              readTotalTimeoutMultiplier = 0
+              readTotalTimeoutConstant = 0
+              writeTotalTimeoutMultiplier = 20
+              writeTotalTimeoutConstant = 1000
+            commTimeout = [readIntervalTimeout,readTotalTimeoutMultiplier,readTotalTimeoutConstant,
+                             writeTotalTimeoutMultiplier,writeTotalTimeoutConstant]
+              wCommTimeout = commTimeout.pack("i*")
+              bi = @@wSetCommTimeouts.call(@iht,wCommTimeout);#time out
+              throw :exit, -4 if bi == 0
+              wDCB = ' ' * 8 * 3 + ' ' * 2 * 3 + ' ' * 1 * 8 + ' ' * 2
+              bi = @@wGetCommState.call(@iht,wDCB)            #状態取得
+              throw :exit, -5 if bi == 0
+              dFMT = "IIISSSCCCCCCCCS"                        #DCB構造体
+              dcb = wDCB.unpack(dFMT)
+              dcb[2] = idcbflags
+              dcb[1] = ibaud
+              dcb[6] = ibyte
+              dcb[7] = iparity
+              dcb[8] = istopbits
+              wDCB = dcb.pack(dFMT)
+              bi = @@wSetCommState.call(@iht,wDCB)            #状態ｾｯﾄ
+              throw :exit, -6 if bi == 0
+              setdtr = 5
+              bi = @@wEscapeCommFunction.call(@iht,setdtr)    #DTR ON
+              throw :exit, -7 if bi == 0
+           }
+        else
+           ir = -1
+        end
+        return ir
+     end
+
+     def close
+        if @iht != -1
+           clrdtr = 6
+           bi = @@wEscapeCommFunction.call(@iht,clrdtr)       #DTR OFF
+           @@wclosehandle.call(@iht)
+        end
+     end
+
+  end
+end

data/lib/agri-controller/setting_io.rb

@@ -0,0 +1,53 @@
+#!ruby
+require "yaml"
+require "yaml/store"
+
+module AgriController
+  module_function
+  #module Setting_io
+    module_function
+    def yaml_db(name,value,file=name)#"db.yaml")
+      #p name
+      db=YAML::Store.new(file)
+      db.transaction do
+        db[name.to_s]=value
+      end
+    end
+    
+    def yaml_dbr(name,file=name)#"db.yaml")
+      #p file
+      db=YAML::Store.new(file)
+      db.transaction(:read_only) do
+        db[name.to_s]
+      end
+    end
+    def yaml_key(file)
+      db=YAML::Store.new(file)
+      db.transaction(:read_only) do
+        db.roots.sort
+      end
+    end
+
+    def yaml_dump(data,filename="setting_io.yml")
+      yaml_db(name=filename,value=data,"db.yaml")
+    end
+    
+    def yaml_load(filename="setting_io.yml")
+      res=yaml_dbr(name=filename)#,"db.yaml")
+      if res == nil
+        if File.exist?(filename)
+          a=File.read(filename)
+          if a
+            x=YAML.load(a)
+            yaml_db(name=filename,x,name)
+          end
+          
+          return x
+        else
+          return nil
+        end
+      else
+        return res
+      end
+    end
+end

data/lib/agri-controller/thermo_data_each_day.rb

@@ -0,0 +1,67 @@
+require "time"
+module AgriController
+  def thermo_data_each_day(file)
+    if File.exist?(file)
+      dat=File.read(file)
+    else
+      dat=file
+    end
+    x=[]
+    y=[]
+    line=0
+    file_num=0
+    last_day_data=0
+    change=nil
+    date=Time.now
+    begin 
+      dat.each_line do |str|
+        line+=1
+        #split day data
+        #p str
+        if str!=""
+          data=str.chomp.split(",")
+          date=Time.parse(data[0])
+          last_day_data=date.day
+          change=date if change==nil
+        end
+        #not change
+        if change.day==last_day_data
+        #day change
+        elsif change.day!=last_day_data
+          y[file_num] = change
+          change=date
+          file_num+=1
+        else
+          p "??"
+        end
+          x[file_num]="" if x[file_num]==nil
+          x[file_num]+=str
+        
+        #normal end
+        
+      end
+      y[file_num]=date
+    end
+    #return split array
+    ret=[x,y]
+    return ret
+  end
+  def save_each_day(file="_thermo_data.csv")
+    p result=thermo_data_each_day(file)
+    x=0
+    result[1].each do |date|
+      i=date.year.to_s
+      j=date.month.to_s
+      k=date.day.to_s
+      #save_each_day
+      filename="./thermo_data/"+i+"-"+j+"-"+k+"_thermo.csv"
+      open(filename,"w"){|io| io.print result[0][x]}
+      
+      x+=1
+    end
+  end
+end
+
+if $0==__FILE__
+  save_each_day(file="_thermo_data.csv")
+end

data/lib/agri-controller/thermo_gruff.rb

@@ -0,0 +1,109 @@
+require 'rubygems'
+require 'gruff'
+require "date"
+
+module AgriController
+#thrmo datas to jpg graph
+def thermo_gruff(output_filename="thermo_data.jpg",input_csv_data="thermo_data.csv",thermo_num=3,view="500x420")
+    #data ini
+    data=File.read(input_csv_data)
+    thermo_data_hash={}
+
+    result=[]
+    #arrays generate
+    (2*thermo_num).times do
+      result << []
+    end
+    result
+    title_day=""
+    line=0
+    label={}
+    hour=0
+    day=0
+    data.each_line do |str|
+      line+=1#line+=
+      dat=str.chomp.split(",")
+      #p dat[0]
+      begin
+        time=DateTime.parse(dat[0])
+      rescue
+        line=line-1
+        next
+      end
+      #title_day
+      if line==1
+        title_day=time.year.to_s+"/"+time.month.to_s+"/"+time.day.to_s
+      end
+      #line if day change
+      if time.day!=day #(day change)
+        day=time.day
+        label[line]=":"#time.month.to_s+"/"+day.to_s
+      elsif time.hour!=hour
+        hour=time.hour
+        label[line]="|"+hour.to_s
+        if time.hour==12
+          label[line]="|12"
+        end
+      else
+      end
+      
+      #set thermo datas
+      thermo_num.times do |n|
+        begin
+          x=dat[n*2+1].to_f
+          if x>-100
+          result[n*2] << x
+          else
+            result[n*2] << nil
+          end
+        rescue
+          result[n*2] << nil
+        end
+        #Judge nil data
+        if dat[n*2+2]!="false"
+          result[n*2+1] << dat[n*2+2].to_f/3
+        else
+          result[n*2+1] << nil
+        end
+      end
+    end
+    #p result
+    #p label
+        #gruff main
+        g = Gruff::Line.new(view)
+        g.title="Thermo data since "+title_day
+        #g.title_font_size =24
+        g.theme_37signals
+        g.maximum_value = 35
+        g.minimum_value = 5
+        g.y_axis_increment = 1
+        #g.baseline_value=9
+        #g.increment=5
+        #dataset
+        datasets=[]
+        thermo_num.times do |i|
+          x=i+1
+          datasets[i*2  ]=[("'C:"+x.to_s).intern,result[i*2]]
+          datasets[i*2+1]=[("%/3:"+x.to_s).intern,result[i*2+1]]
+        end
+        #% humidity data delete
+        [7,5,3].each{|i| datasets.delete_at(i)}
+        
+        #dataset
+        datasets.each do |data|
+          g.data(*data)
+        end
+        g.labels =label
+        # Default theme
+        g.write(output_filename)
+  end
+end
+
+if $0==__FILE__
+  p Dir.pwd
+    input_csv_data="./thermo_data/2009-11-21_thermo.csv"
+      if File.readable?(input_csv_data)
+        thermo_gruff(output_filename="../htdocs/thermo/2009-11-21.jpg",input_csv_data,thermo_num=2,"480x420")
+        p Time.now
+      end
+end

data/lib/agri-controller/thermo_gruff_generate.rb

@@ -0,0 +1,28 @@
+#!ruby
+#coding:utf-8
+module AgriController
+
+  def thermo_gruff_generate(dir_to="./htdocs/thermo",dir_from="./cgi-bin/log/thermo",num=3)
+    dir=dir_from+"/*_thermo.csv"
+    list=Dir.glob(dir)
+    
+    list.each do |file|
+      #p file
+      name=File.basename(file).split(/_/)[0]
+      new_name=dir_to+"/"+name+".jpg"
+      
+      #p name
+      #p new_name
+      
+      unless File.exist?(new_name)
+            thermo_gruff(new_name,file,thermo_num=num,"480x420")
+      end
+      
+      new_name=dir_to+"/thumb/"+name+"_s.jpg"
+      unless File.exist?(new_name)
+            thermo_gruff(new_name,file,thermo_num=num,"240x320")
+      end
+      #p Time.now
+    end
+  end
+end

data/lib/agri-controller/thermo_gruff_loop.rb

@@ -0,0 +1,35 @@
+#!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/value_controller.rb

@@ -0,0 +1,167 @@
+#!ruby
+#coding:utf-8
+
+module AgriController
+  class Value_controller
+    attr_accessor:steps,:now_step,:up_sec,:down_sec,:acting
+    attr_accessor:set_value,:controll_bool,:reset_time
+    
+  def initialize(steps=5,up_sec=60,down_sec=open_sec,sensitivity=1,set_value=20,dead_time=2,verbose=false)
+      @bit=0
+
+      @steps            =steps            #多段制御>=1
+      @up_sec=up_sec
+      @down_sec=down_sec          #閉時動作時間（秒）
+      @sensitivity      =sensitivity      #感度
+      @set_value        =set_value        #設定値
+      @dead_time        =dead_time        #不感時間
+      @dead_bool        =false
+      @now_step=@steps          #現在の段(2010.5.23変更)
+
+      @controll_bool=false #割り込みswitch(0n,0ff)
+      @time=Time.now
+      @acting=false
+      @bool=false         #true(on)  false(off)方向
+      @verbose=verbose
+      @reset_time=Time.now+@up_sec*@steps+3
+      p "Value_controller initialized at #{@reset_time}" if @verbose
+    end
+    
+    def switch
+      if @now_step==0 or @now_step==@steps
+        return true
+      else
+        return @controll_bool
+      end
+    end
+    
+    def switch_on
+      @controll_bool = true
+    end
+    
+    def switch_off
+      @controll_bool = false
+    end
+    
+    def value_controll(now_value)
+      if Time.now < @reset_time
+        return true
+        #return false #common open when initialize
+      end
+      if @acting==false
+        #now_value:nil or tempareture
+        if now_value != nil
+          high=(now_value <=> @set_value+@sensitivity*(@now_step+1))
+          low =(now_value <=> (@set_value+@sensitivity*(@now_step))-2)
+        else
+          high=1#温度を下げる方向へセット
+          low=0 #そのまま
+          p Time.now.inspect+" :"+now_value.inspect
+          raise "value_controller.rb:68 error!!"
+        end
+        
+        #もし動作中なら、そのときの温度に関係なく動作続行（下記の判定は読みとばす）
+        #動作してなくて、且つステップの範囲内でstep_up , step_downさせる
+        if @dead_bool==false  
+          if high==1 && @now_step<@steps
+            #且つ、スイッチがオフ
+            if  @controll_bool == false
+              #時間
+              @time=Time.now
+              switch_on#スイッチオン
+              @bool=true#return true
+              #タイマー時間設定
+              step_up 
+            end
+          elsif low==-1 && @now_step>0
+            #且つ、スイッチがオフ
+            if  @controll_bool == false
+              #時間
+              @time=Time.now
+              switch_on#スイッチオン
+              @bool=false#return true
+              #タイマー時間設定
+              step_down 
+            end
+          elsif high==1 && @now_step==@steps
+            @bool=true
+          elsif low==-1 && @now_step==0
+            @bool=false
+          else
+            #
+          end
+        end
+      end
+        
+        ##
+        #時刻設定
+        #スイッチがオン
+        #時間までタイマーオン
+        #時間になったらスイッチオフ
+        #デッドタイム処理
+        #スイッチオフ
+        #value_controllもnil
+        if @bool==true
+          x=pulse_timer([@time,@up_sec])
+          y=pulse_timer([@time,@up_sec+@dead_time])
+        else #@bool==false
+          x=pulse_timer([@time,@down_sec])
+          y=pulse_timer([@time,@down_sec+@dead_time])
+        end
+        if y==true
+          @acting=true
+        else
+          @acting=false
+        end
+        
+        if x==true
+        elsif x==false && y==true
+          switch_off
+          @dead_bool = true
+        else
+          @dead_bool = false
+        end
+      return @bool
+    end
+    
+    def step_up
+      @now_step+=1 if @now_step < @steps
+      return @now_step
+    end
+    
+    def step_down
+      @now_step=now_step-1 if @now_step > 0
+      return @now_step
+    end
+  end
+end
+
+if $0==__FILE__
+  require "multiple_pulse_timer"
+  require "setting_io"
+  include AgriController
+  p a=Value_controller.new(
+    name="house1a.yml",
+    steps=5,
+    open_sec=4,
+    down_sec=3,
+    sensitivity=2,
+    set_value=5,
+    dead_time=1.5)
+  require "setting_io"
+  require "n_dan_thermo"
+  house1=N_dan_thermo.new(Setting_io::yaml_load("house_n_dan_thermo1.yml"),diff=4,300)
+  p house1.set_now
+  p a.set_value
+  p a.value_controll(house1.set_now)
+  p a.switch
+  
+  60.times do |x|
+    sleep 1
+    p a if x%10==0
+      if x>30 
+        a.set_value=25
+      end
+    p a.value_controll(house1.set_now).to_s+","+a.switch.to_s+","+a.now_step.to_s
+  end
+end