Current Cost Support Forum

### DisplayENVI.ps1 ############################################
#
# Routine to display power recorded by a Current Cost Monitor.
#               
################################################################


$loop_forever = $true
$CommPort_in="COM3"
$BaudRate=57600
$Sensor1=9
$Sensor2=8

#$template=[xml]("<msg><src></src><dsb></dsb><time></time><tmpr></tmpr><sensor></sensor><id></id><type></type><ch1><watts></watts></ch1><ch2><watts></watts></ch2><ch3><watts></watts></ch3></msg>")


[SINGLE]$CH1 = 0
[SINGLE]$CH2 = 0
[SINGLE]$CH3 = 0
[SINGLE]$Meter1 = 62745
[SINGLE]$Meter2 = -71
[SINGLE]$Total1 = 0
[SINGLE]$Total2 = 0
$TimeNow=" "
#########################################3######################
$port_in= new-Object System.IO.Ports.SerialPort $CommPort_in,$BaudRate,None,8,one
$port_in.Open()

$data=$port_in.Readline() #Discard a possibly partial msg
#

do {
   $data=$port_in.Readline()
   #Write-Host ($data)
   #Remove any chars (probably noise) received before <msg
   if ((!$data.StartsWith("<msg>")) -or (!$data.EndsWith("</msg>")))
      {$Data =$data.substring($data.IndexOf("<"),$data.LastIndexOf(">") - $data.IndexOf("<")+1)
      }
   
   [xml]$data_in=$data #may still have noise inside the message. trap error and continue
   #---------------------------------------------------
   if ($data_in.msg.sensor -eq $Sensor1)
      {$CH1=$data_in.msg.imp     
       $CH2=$data_in.msg.ipu
       $CH3=$data_in.msg.id
      $Total1 = ($CH1 / $CH2) + $Meter1
         $TimeNow=$data_in.msg.time
       
       # Cls

      Write-Host ("Sensor=$Sensor1, Time=$TimeNow Meter Reading=$Total1, Impulse Count=$CH1")
       
       }
   
    elseif ($data_in.msg.sensor -eq $Sensor2)
      {$CH1=$data_in.msg.imp     
       $CH2=$data_in.msg.ipu
       $CH3=$data_in.msg.id
      $Total2 = ($CH1 / $CH2) + $Meter2
         $TimeNow=$data_in.msg.time
       

      Write-Host ("Sensor=$Sensor2, Time=$TimeNow Meter Reading=$Total2, Impulse Count=$CH1")
 
       
      }
       
   else
      {
       # All other sensors ignored
      }
   #----------------------------------------------------
   } While ($loop_forever='true')
$port_in.close()
Write-Host ("DisplayENVI completed")