private void OnAnalogAddedEvent(object sender, EventArgs e)
{
Console.WriteLine("OnAnalogEventAdded started");
Analog analog = (Analog)e;
IORequestBlock iorb = new IORequestBlock()
{
RequestType = RequestType.SEND,
ProcessControllerName = analog.ProcContrName
};
DBContext dbContext = new DBContext();
RTU rtu;
if ((rtu = dbContext.GetRTUByName(analog.ProcContrName)) != null)
{
iorb.ReqAddress = (ushort)rtu.GetCommandAddress(analog);
bool shouldCommand = false;
switch (rtu.Protocol)
{
case IndustryProtocols.ModbusTCP:
ModbusHandler mdbHandler = new ModbusHandler();
mdbHandler.Header = new ModbusApplicationHeader()
{
TransactionId = 0,
Length = 5,
ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
DeviceAddress = rtu.Address
};
mdbHandler.Request = new WriteRequest()
{
StartAddr = (ushort)rtu.GetCommandAddress(analog)
};
if (shouldCommand = AnalogProcessor.InitialWorkPointAnalog(analog))
{
mdbHandler.Request.FunCode = FunctionCodes.WriteSingleRegister;
AnalogProcessor.EGUToRawValue(analog);
((WriteRequest)mdbHandler.Request).Value = analog.RawCommValue;
iorb.SendBuff = mdbHandler.PackData();
iorb.SendMsgLength = iorb.SendBuff.Length;
Console.WriteLine(BitConverter.ToString(iorb.SendBuff, 0, 12));
IORequests.EnqueueRequest(iorb);
analog.IsInit = true;
}
break;
}
}
Console.WriteLine("OnAnalogEventAdded finished");
}
public OMSSCADACommon.Responses.Response WriteSingleDigital(string id, CommandTypes command)
{
Console.WriteLine("WriteSingleDigital!");
Digital digital = null;
OMSSCADACommon.Responses.Response response = new OMSSCADACommon.Responses.Response();
// sporno
//while (!Database.IsConfigurationRunning)
// getting PV from db
ProcessVariable pv;
if (dbContext.GetProcessVariableByName(id, out pv))
{
digital = (Digital)pv;
}
// does this ID exist in the database
if (digital == null)
{
response.ResultMessage = ResultMessage.INVALID_ID;
return(response);
}
// is this a valid command for this digital device
if (!CommandValidator.ValidateDigitalCommand(digital, command))
{
response.ResultMessage = ResultMessage.INVALID_DIG_COMM;
return(response);
}
RTU rtu;
if ((rtu = dbContext.GetRTUByName(digital.ProcContrName)) != null)
{
IORequestBlock iorb = new IORequestBlock()
{
RequestType = RequestType.SEND,
ProcessControllerName = digital.ProcContrName
};
iorb.ReqAddress = (ushort)rtu.GetCommandAddress(digital);
switch (rtu.Protocol)
{
case IndustryProtocols.ModbusTCP:
ModbusHandler mdbHandler = new ModbusHandler
{
Header = new ModbusApplicationHeader()
{
TransactionId = 0,
Length = 5,
ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
DeviceAddress = rtu.Address
},
Request = new WriteRequest()
{
FunCode = FunctionCodes.WriteSingleCoil,
StartAddr = (ushort)rtu.GetCommandAddress(digital),
Value = (ushort)command
}
};
iorb.SendBuff = mdbHandler.PackData();
iorb.SendMsgLength = iorb.SendBuff.Length;
break;
}
IORequests.EnqueueRequest(iorb);
Console.WriteLine("enqued {0}", BitConverter.ToString(iorb.SendBuff, 0, 12));
digital.Command = command;
response.ResultMessage = ResultMessage.OK;
}
else
{
// rtu does not exist
}
return(response);
}
// napravila, ali nisam testirala do kraja, to je nekad za buducnost, svakako ne treba sad :)
public OMSSCADACommon.Responses.Response WriteSingleAnalog(string id, float value)
{
Console.WriteLine("WriteSingleAnalog!");
Analog analog = null;
OMSSCADACommon.Responses.Response response = new OMSSCADACommon.Responses.Response();
// to do:
//while (!Database.IsConfigurationRunning)
// getting PV from db
ProcessVariable pv;
if (dbContext.GetProcessVariableByName(id, out pv))
{
analog = (Analog)pv;
}
// does this ID exist in the database
if (analog == null)
{
response.ResultMessage = ResultMessage.INVALID_ID;
return(response);
}
// to do:
// ovde analogProcessor provera opsega, alarma...bla, bla
RTU rtu;
if ((rtu = dbContext.GetRTUByName(analog.ProcContrName)) != null)
{
IORequestBlock iorb = new IORequestBlock()
{
RequestType = RequestType.SEND,
ProcessControllerName = analog.ProcContrName
};
iorb.ReqAddress = (ushort)rtu.GetCommandAddress(analog);
bool shouldCommand = false;
switch (rtu.Protocol)
{
case IndustryProtocols.ModbusTCP:
ModbusHandler mdbHandler = new ModbusHandler
{
Header = new ModbusApplicationHeader()
{
TransactionId = 0,
Length = 5,
ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
DeviceAddress = rtu.Address
},
Request = new WriteRequest()
{
FunCode = FunctionCodes.WriteSingleCoil,
StartAddr = (ushort)rtu.GetCommandAddress(analog)
}
};
if (shouldCommand = AnalogProcessor.SetNewWorkPoint(analog, value))
{
mdbHandler.Request.FunCode = FunctionCodes.WriteSingleRegister;
((WriteRequest)mdbHandler.Request).Value = (ushort)analog.RawCommValue;
}
iorb.SendBuff = mdbHandler.PackData();
iorb.SendMsgLength = iorb.SendBuff.Length;
break;
}
IORequests.EnqueueRequest(iorb);
Console.WriteLine("enqued {0}", BitConverter.ToString(iorb.SendBuff, 0, 12));
response.ResultMessage = ResultMessage.OK;
}
else
{
// rtu does not exist
}
return(response);
}
/// <summary>
/// Send Commands to simulator, to make its state consistent with RTDB
/// </summary>
public void InitializeSimulator()
{
// ovo probati sa taskovima, za svaki od rtu-ova. ipak ne, jer nekim promenljivim komandujes, nekim ne
// var rtus = dbContext.GettAllRTUs();
//Parallel.ForEach(rtus, (currentRtu, state) =>
//{
// Console.WriteLine("InitSim Parallel.foreach RTU name = {0}, Therad id = {1} started", currentRtu.Key, Thread.CurrentThread.ManagedThreadId);
// IIndustryProtocolHandler IProtHandler = null;
// RTU rtu = dbContext.GetRTUByName(currentRtu.Key);
// if (currentRtu.Value != null)
// {
// IORequestBlock iorb = new IORequestBlock()
// {
// RequestType = RequestType.SEND,
// ProcessControllerName = currentRtu.Key
// };
// switch (rtu.Protocol)
// {
// case IndustryProtocols.ModbusTCP:
// IProtHandler = new ModbusHandler()
// {
// Header = new ModbusApplicationHeader
// {
// TransactionId = 0,
// ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
// DeviceAddress = rtu.Address,
// Length = 5
// },
// Request = new WriteRequest()
// };
// break;
// }
// //to do. praviti nove iorbove
// // za svaku varijablu trebas imati should command ili ne i u zavisnosti od toga puniti data, racunati length zahtvea i ostalo
// //-------------analogs---------------
// var analogs = dbContext.GetProcessVariable().Where(pv => pv.Type == VariableTypes.ANALOG && pv.IsInit == false &&
// pv.ProcContrName.Equals(currentRtu.Key)).OrderBy(pv => pv.RelativeAddress);
// int requestCount = analogs.ToList().Count();
// if (requestCount != 0)
// {
// ProcessVariable firstPV = analogs.FirstOrDefault();
// iorb.ReqAddress = (ushort)rtu.GetAcqAddress(firstPV);
// if (IProtHandler != null)
// {
// switch (rtu.Protocol)
// {
// case IndustryProtocols.ModbusTCP:
// for(int i = 0; i < requestCount; i++)
// {
// }
// ((ReadRequest)((ModbusHandler)IProtHandler).Request).FunCode = FunctionCodes.ReadInputRegisters;
// ((ReadRequest)((ModbusHandler)IProtHandler).Request).Quantity = (ushort)requestCount;
// ((ReadRequest)((ModbusHandler)IProtHandler).Request).StartAddr = iorb.ReqAddress;
// break;
// }
// iorb.Flags = requestCount;
// iorb.SendBuff = IProtHandler.PackData();
// iorb.SendMsgLength = iorb.SendBuff.Length;
// IORequests.EnqueueRequest(iorb);
// }
// }
// //-------------digitals---------------(to do: add init flag...)
// var digitals = dbContext.GetProcessVariable().Where(pv => pv.Type == VariableTypes.DIGITAL &&
// pv.ProcContrName.Equals(currentRtu.Key)).OrderBy(pv => pv.RelativeAddress);
// requestCount = digitals.ToList().Count();
// if (requestCount != 0)
// {
// ProcessVariable firstPV = digitals.FirstOrDefault();
// iorb.ReqAddress = (ushort)rtu.GetAcqAddress(firstPV);
// if (IProtHandler != null)
// {
// switch (rtu.Protocol)
// {
// case IndustryProtocols.ModbusTCP:
// ((ReadRequest)((ModbusHandler)IProtHandler).Request).FunCode = FunctionCodes.ReadDiscreteInput;
// ((ReadRequest)((ModbusHandler)IProtHandler).Request).Quantity = (ushort)requestCount;
// ((ReadRequest)((ModbusHandler)IProtHandler).Request).StartAddr = iorb.ReqAddress;
// break;
// }
// iorb.Flags = requestCount;
// iorb.SendBuff = IProtHandler.PackData();
// iorb.SendMsgLength = iorb.SendBuff.Length;
// IORequests.EnqueueRequest(iorb);
// }
// }
// }
//});
List <ProcessVariable> pvs = dbContext.GetProcessVariable().ToList();
if (pvs.Count != 0)
{
foreach (ProcessVariable pv in pvs)
{
IORequestBlock iorb = new IORequestBlock()
{
RequestType = RequestType.SEND,
ProcessControllerName = pv.ProcContrName
};
RTU rtu;
if ((rtu = dbContext.GetRTUByName(pv.ProcContrName)) != null)
{
iorb.ReqAddress = (ushort)rtu.GetCommandAddress(pv);
bool shouldCommand = false;
switch (rtu.Protocol)
{
case IndustryProtocols.ModbusTCP:
ModbusHandler mdbHandler = new ModbusHandler();
mdbHandler.Header = new ModbusApplicationHeader()
{
TransactionId = 0,
Length = 5,
ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
DeviceAddress = rtu.Address
};
mdbHandler.Request = new WriteRequest()
{
StartAddr = (ushort)rtu.GetCommandAddress(pv)
};
switch (pv.Type)
{
// initialy, on simulator all digitals are set to 0 -> closed state
case VariableTypes.DIGITAL:
Digital digital = (Digital)pv;
CommandTypes comm;
if (shouldCommand = CommandValidator.InitialCommandingForDigital(digital, out comm))
{
mdbHandler.Request.FunCode = FunctionCodes.WriteSingleCoil;
((WriteRequest)mdbHandler.Request).Value = (ushort)comm;
}
break;
case VariableTypes.ANALOG:
Analog analog = (Analog)pv;
if (shouldCommand = AnalogProcessor.InitialWorkPointAnalog(analog))
{
mdbHandler.Request.FunCode = FunctionCodes.WriteSingleRegister;
((WriteRequest)mdbHandler.Request).Value = (ushort)analog.RawCommValue;
}
analog.IsInit = true;
break;
case VariableTypes.COUNTER:
Counter counter = (Counter)pv;
break;
}
if (shouldCommand)
{
iorb.SendBuff = mdbHandler.PackData();
iorb.SendMsgLength = iorb.SendBuff.Length;
//if (pv.Name == "MEAS_AN_1")
// Console.WriteLine(BitConverter.ToString(iorb.SendBuff, 0, 12));
}
break;
}
if (shouldCommand)
{
IORequests.EnqueueRequest(iorb);
}
}
else
{
// izbrisati omdah te procesne varijable sa rtu-om tog imena?
Console.WriteLine("Invalid config: ProcContrName = {0} does not exists.", pv.ProcContrName);
continue;
}
}
}
}
/// <summary>
/// Send Commands to simulator, to make its state consistent with RTDB
/// </summary>
public void InitializeSimulator()
{
List <ProcessVariable> pvs = dbContext.GetAllProcessVariables();
if (pvs.Count != 0)
{
foreach (ProcessVariable pv in pvs)
{
IORequestBlock iorb = new IORequestBlock()
{
RequestType = RequestType.SEND,
ProcessControllerName = pv.ProcContrName
};
RTU rtu;
if ((rtu = dbContext.GetRTUByName(pv.ProcContrName)) != null)
{
iorb.ReqAddress = (ushort)rtu.GetCommandAddress(pv);
bool shouldCommand = false;
switch (rtu.Protocol)
{
case IndustryProtocols.ModbusTCP:
ModbusHandler mdbHandler = new ModbusHandler();
mdbHandler.Header = new ModbusApplicationHeader()
{
TransactionId = 0,
Length = 5,
ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
DeviceAddress = rtu.Address
};
mdbHandler.Request = new WriteRequest()
{
StartAddr = (ushort)rtu.GetCommandAddress(pv)
};
switch (pv.Type)
{
// initialy, on simulator all digitals are set to 0 -> closed state
case VariableTypes.DIGITAL:
Digital digital = (Digital)pv;
CommandTypes comm;
if (shouldCommand = CommandValidator.InitialCommandingForDigital(digital, out comm))
{
mdbHandler.Request.FunCode = FunctionCodes.WriteSingleCoil;
((WriteRequest)mdbHandler.Request).Value = (ushort)comm;
}
break;
case VariableTypes.ANALOG:
Analog analog = (Analog)pv;
if (shouldCommand = AnalogProcessor.InitialWorkPointAnalog(analog))
{
mdbHandler.Request.FunCode = FunctionCodes.WriteSingleRegister;
((WriteRequest)mdbHandler.Request).Value = (ushort)analog.RawCommValue;
}
analog.IsInit = true;
break;
case VariableTypes.COUNTER:
Counter counter = (Counter)pv;
break;
}
if (shouldCommand)
{
iorb.SendBuff = mdbHandler.PackData();
iorb.SendMsgLength = iorb.SendBuff.Length;
if (pv.Name == "MEAS_AN_1")
{
Console.WriteLine(BitConverter.ToString(iorb.SendBuff, 0, 12));
}
}
break;
}
if (shouldCommand)
{
IORequests.EnqueueRequest(iorb);
}
}
else
{
// izbrisati omdah te procesne varijable sa rtu-om tog imena?
Console.WriteLine("Invalid config: ProcContrName = {0} does not exists.", pv.ProcContrName);
continue;
}
}
}
}
/// <summary>
/// Producing IORB requests for automatic data acquistion
/// </summary>
public void StartAcquisition()
{
DBContext.OnAnalogAdded += OnAnalogAddedEvent;
List <ProcessVariable> pvs;
while (!isShutdown)
{
// sporno to do:
//while (!Database.IsConfigurationRunning)
// Thread.Sleep(100);
pvs = dbContext.GetAllProcessVariables();
foreach (ProcessVariable pv in pvs)
{
IORequestBlock iorb = new IORequestBlock()
{
RequestType = RequestType.SEND_RECV,
ProcessControllerName = pv.ProcContrName
};
RTU rtu;
if ((rtu = dbContext.GetRTUByName(pv.ProcContrName)) != null)
{
iorb.ReqAddress = (ushort)rtu.GetAcqAddress(pv);
switch (rtu.Protocol)
{
case IndustryProtocols.ModbusTCP:
ModbusHandler mdbHandler = new ModbusHandler();
// header is same for all read - acquistion requests
mdbHandler.Header = new ModbusApplicationHeader()
{
TransactionId = 0,
Length = 5,
ProtocolId = (ushort)IndustryProtocols.ModbusTCP,
DeviceAddress = rtu.Address
};
mdbHandler.Request = new ReadRequest()
{
StartAddr = iorb.ReqAddress
};
switch (pv.Type)
{
case VariableTypes.DIGITAL:
Digital digital = (Digital)pv;
mdbHandler.Request.FunCode = FunctionCodes.ReadDiscreteInput;
((ReadRequest)mdbHandler.Request).Quantity = (ushort)(Math.Floor((Math.Log(digital.ValidStates.Count, 2))));
break;
case VariableTypes.ANALOG:
Analog analog = (Analog)pv;
if (!analog.IsInit)
{
continue; // dok se ne setuje inicijalna vrednost
}
mdbHandler.Request.FunCode = FunctionCodes.ReadInputRegisters;
((ReadRequest)mdbHandler.Request).Quantity = analog.NumOfRegisters;
break;
case VariableTypes.COUNTER:
Counter counter = (Counter)pv;
break;
}
iorb.SendBuff = mdbHandler.PackData();
break;
}
iorb.SendMsgLength = iorb.SendBuff.Length;
//if (pv.Name == "MEAS_AN_1")
// Console.WriteLine(BitConverter.ToString(iorb.SendBuff, 0, 12));
IORequests.EnqueueRequest(iorb);
}
else
{
// ne postoji taj rtu sa tim imenom. izbrisati te procesne varijable sa rtu-om tog imena
Console.WriteLine("Invalid config: ProcContrName = {0} does not exists.", pv.ProcContrName);
continue;
}
}
Thread.Sleep(millisecondsTimeout: timerMsc);
}
Console.WriteLine("StartAcq.shutdown=true");
return;
}