Samuele E. Locatelli
326 lines
11 KiB
C#
326 lines
11 KiB
C#
using IOB_UT;
|
|
using Newtonsoft.Json;
|
|
using System;
|
|
using System.Collections.Generic;
|
|
|
|
namespace IOB_WIN
|
|
{
|
|
/// <summary>
|
|
/// Controllo Siemens specifico x impianti SAET
|
|
/// </summary>
|
|
public class IobSiemensAt2001 : IobSiemens
|
|
{
|
|
/* --------------------------------------------------------------------------------
|
|
* Controlli VIPA/SIEMENS (Interclays) di @2001
|
|
* - VIPA, COMPATIBILE SIEMENS
|
|
* - S7 vers 300
|
|
*
|
|
*
|
|
|
|
* -------------------------------------------------------------------------------- */
|
|
|
|
protected DateTime lastPLCWatchDog;
|
|
protected int counterMes2Plc = 0;
|
|
protected int counterPlc2Mes = 0;
|
|
|
|
/// <summary>
|
|
/// Classe base con i metodi x Siemens
|
|
/// </summary>
|
|
/// <param name="caller"></param>
|
|
/// <param name="adpConf"></param>
|
|
public IobSiemensAt2001(AdapterForm caller, IobConfiguration IOBConf) : base(caller, IOBConf)
|
|
{
|
|
lgInfo("NEW IOB SIEMENS versione VIPA");
|
|
lastPLCWatchDog = DateTime.Now.AddMinutes(-1);
|
|
// imposto i parametri speciali x calcolo...
|
|
var chiaviTSVC = findOptPar("TSVC");
|
|
if (chiaviTSVC.Count > 0)
|
|
{
|
|
lgInfo($"Trovate {chiaviTSVC.Count} chiavi TSVC");
|
|
string[] codVal;
|
|
VCData currConf;
|
|
int periodo = 0;
|
|
VC_func funz = VC_func.POINT;
|
|
// accodo nella conf...
|
|
foreach (var item in chiaviTSVC)
|
|
{
|
|
codVal = item.Value.Split(':');
|
|
Enum.TryParse(codVal[0], out funz);
|
|
int.TryParse(codVal[1], out periodo);
|
|
currConf = new VCData()
|
|
{
|
|
Funzione = funz,
|
|
Period = periodo,
|
|
DTStart = DateTime.Now.AddHours(-1),
|
|
dataArray = new List<double>()
|
|
};
|
|
TSVC_Data.Add(item.Key.Replace("TSVC_", ""), currConf);
|
|
}
|
|
// documento...
|
|
foreach (var item in TSVC_Data)
|
|
{
|
|
lgInfo($"TSVC: {item.Key} | periodo: {item.Value.Period} | funz: {item.Value.Funzione}");
|
|
// salvo i valori PREC...
|
|
LastTSVC.Add(item.Key, 0);
|
|
}
|
|
}
|
|
}
|
|
|
|
#region Metodi specifici (da verificare/completare in implementazione)
|
|
|
|
/// <summary>
|
|
/// Effettua processing del recupero delle OVERRIDE (spindle, feedrate, rapid)
|
|
/// </summary>
|
|
public override void processOverride()
|
|
{
|
|
}
|
|
|
|
public override void processWhatchDog()
|
|
{
|
|
//NON SERVE!!!!
|
|
|
|
}
|
|
|
|
/// <summary>
|
|
/// Processo i task richiesti e li elimino dalla coda 1:1
|
|
/// </summary>
|
|
/// <param name="task2exe"></param>
|
|
public override Dictionary<string, string> executeTasks(Dictionary<string, string> task2exe)
|
|
{
|
|
// Verificare il protocollo: dovrebeb togliere SOLO i task eseguiti...
|
|
Dictionary<string, string> taskDone = new Dictionary<string, string>();
|
|
bool taskOk = false;
|
|
string taskVal = "";
|
|
// inizio VUOTO
|
|
byte[] MemBlock = new byte[parametri.memSizeWrite];
|
|
|
|
// cerco task specifici: se ho startSetup --> imposto bit DBB701.DBB0.4
|
|
foreach (var item in task2exe)
|
|
{
|
|
taskOk = false;
|
|
taskVal = "";
|
|
// converto richiesta in enum...
|
|
taskType tName = taskType.nihil;
|
|
Enum.TryParse(item.Key, out tName);
|
|
// controllo sulla KEY
|
|
switch (tName)
|
|
{
|
|
case taskType.nihil:
|
|
case taskType.fixStopSetup:
|
|
case taskType.forceResetPzCount:
|
|
case taskType.forceSetPzCount:
|
|
case taskType.startSetup:
|
|
case taskType.stopSetup:
|
|
taskVal = $"taskReq: {tName} | key: {item.Key} | val: {item.Value} | SKIPPED | NO EXEC";
|
|
break;
|
|
case taskType.setArt:
|
|
case taskType.setComm:
|
|
case taskType.setProg:
|
|
// imposto i valori...
|
|
if (currProdData.ContainsKey(item.Key))
|
|
{
|
|
currProdData[item.Key] = item.Value;
|
|
}
|
|
else
|
|
{
|
|
currProdData.Add(item.Key, item.Value);
|
|
}
|
|
taskVal = item.Value;
|
|
break;
|
|
case taskType.setParameter:
|
|
// deserializzo il valore del parametro in primis
|
|
var paramData = JsonConvert.DeserializeObject<dataConf>(item.Value);
|
|
|
|
|
|
break;
|
|
case taskType.sendWatchDogMes2Plc:
|
|
//// compogo in byte... primo bit è setup/run, ultimo è watchdog
|
|
//int valore = inSetup ? 1 : 0;
|
|
int valore = counterMes2Plc;
|
|
MemBlock[68] = (byte)valore;
|
|
taskVal = $"VALUE DB1001.68 --> {counterMes2Plc}";
|
|
break;
|
|
default:
|
|
taskVal = "SKIPPED | NO EXEC";
|
|
break;
|
|
}
|
|
|
|
// aggiungo task!
|
|
taskDone.Add(item.Key, taskVal);
|
|
}
|
|
|
|
// controllo SE HO da scrivere articolo/commessa/programma
|
|
saveStringOnMemBlock(ref MemBlock, "setArt", 0, 20, true);
|
|
saveStringOnMemBlock(ref MemBlock, "setComm", 22, 20, true);
|
|
saveStringOnMemBlock(ref MemBlock, "setProg", 44, 20, true);
|
|
|
|
|
|
|
|
// !!!FIXME!!! rendere parametrico
|
|
// SE HO un valore ART scrivo...
|
|
if (currProdData.ContainsKey("setArt"))
|
|
{
|
|
if (currProdData["setArt"] != "")
|
|
{
|
|
// imposto i valori...
|
|
upsertKey("kgParz", "1234");
|
|
saveIntOnMemBlock(ref MemBlock, "kgParz", 66);
|
|
upsertKey("set_th", "601");
|
|
saveIntOnMemBlock(ref MemBlock, "set_th", 72);
|
|
upsertKey("set_c", "101");
|
|
saveRealOnMemBlock(ref MemBlock, "set_c", 74);
|
|
upsertKey("aria_1", "1801");
|
|
saveIntOnMemBlock(ref MemBlock, "aria_1", 78);
|
|
upsertKey("aria_2", "1851");
|
|
saveIntOnMemBlock(ref MemBlock, "aria_2", 80);
|
|
upsertKey("setMmH20", "9");
|
|
saveRealOnMemBlock(ref MemBlock, "setMmH20", 82);
|
|
upsertKey("rpmci", "101");
|
|
saveIntOnMemBlock(ref MemBlock, "rpmci", 86);
|
|
}
|
|
}
|
|
|
|
// fare un controllo x forzare update...
|
|
|
|
// scrivo comunque!
|
|
taskOk = S7WriteBB(ref MemBlock);
|
|
|
|
|
|
|
|
|
|
return taskDone;
|
|
}
|
|
|
|
/// <summary>
|
|
/// Recupero dati dinamici in formato dictionary
|
|
/// </summary>
|
|
/// <returns></returns>
|
|
public override Dictionary<string, string> getDynData()
|
|
{
|
|
Dictionary<string, string> outVal = new Dictionary<string, string>();
|
|
#if false
|
|
try
|
|
{
|
|
/* ----------------------------------------------------------
|
|
* DB60.DBD6: pressione camera filtrante (salvataggio del MAX ogni minuto) | var testVal = S7.Net.Types.Double.FromByteArray(memByteRead.Skip(0).Take(4).ToArray());
|
|
* DB60.DBD10: pressione linea utenze (salvataggio del MAX ogni minuto)
|
|
* DB60.DBD14: temperatura acqua pulita (salvataggio del MAX ogni minuto)
|
|
* */
|
|
double pressCamFilt = S7.Net.Types.Double.FromByteArray(RawInput.Skip(6).Take(4).ToArray());
|
|
double pressLinUt = S7.Net.Types.Double.FromByteArray(RawInput.Skip(10).Take(4).ToArray());
|
|
double tempH2O = S7.Net.Types.Double.FromByteArray(RawInput.Skip(14).Take(4).ToArray());
|
|
|
|
if (utils.CRB("enableTSVC"))
|
|
{
|
|
// salvo in stack le VC rilevate
|
|
bool scad01 = stackVal_TSVC("pressCamFilt", pressCamFilt);
|
|
bool scad02 = stackVal_TSVC("pressLinUt", pressLinUt);
|
|
bool scad03 = stackVal_TSVC("tempH2O", tempH2O);
|
|
|
|
// verifico SE devo riportare dati VC
|
|
if (scad01 || scad02 || scad03)
|
|
{
|
|
pressCamFilt = getVal_TSVC("pressCamFilt", scad01);
|
|
pressLinUt = getVal_TSVC("pressLinUt", scad02);
|
|
tempH2O = getVal_TSVC("tempH2O", scad03);
|
|
outVal.Add("DYNDATA", $"pressCamFilt {pressCamFilt:N6} | pressLinUt {pressLinUt:N6} | tempH2O {tempH2O:N3}");
|
|
outVal.Add("pressCamFilt", $"{pressCamFilt:N6}");
|
|
outVal.Add("pressLinUt", $"{pressLinUt:N6}");
|
|
outVal.Add("tempH2O", $"{tempH2O:N3}");
|
|
// salvo!
|
|
LastTSVC["pressCamFilt"] = pressCamFilt;
|
|
LastTSVC["pressLinUt"] = pressLinUt;
|
|
LastTSVC["tempH2O"] = tempH2O;
|
|
}
|
|
else
|
|
{
|
|
outVal.Add("DYNDATA", $"pressCamFilt {LastTSVC["pressCamFilt"]:N6} | pressLinUt {LastTSVC["pressLinUt"]:N6} | tempH2O {LastTSVC["tempH2O"]:N3}");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
outVal.Add("pressCamFilt", $"{pressCamFilt:N6}");
|
|
outVal.Add("pressLinUt", $"{pressLinUt:N6}");
|
|
outVal.Add("tempH2O", $"{tempH2O:N3}");
|
|
outVal.Add("DYNDATA", $"pressCamFilt {pressCamFilt:N3} | pressLinUt {pressLinUt:N3} | tempH2O {tempH2O:N3}");
|
|
}
|
|
}
|
|
catch (Exception exc)
|
|
{
|
|
lgError(exc, "Errore in getDynData x Siemens Aprochim");
|
|
}
|
|
#endif
|
|
return outVal;
|
|
}
|
|
|
|
/// <summary>
|
|
/// Effettua decodifica aree memoria alla bitmap usata x MAPO
|
|
/// </summary>
|
|
protected override void decodeToBaseBitmap()
|
|
{
|
|
// init a zero...
|
|
B_input = 0;
|
|
|
|
/* -----------------------------------------------------
|
|
* bitmap MAPO STANDARD
|
|
* B0: POWER_ON
|
|
* B1: RUN
|
|
* B2: pzCount
|
|
* B3: allarme
|
|
* B4: manuale
|
|
* B5: emergenza
|
|
*
|
|
*
|
|
* - BIT di stato
|
|
* - DB60.DBX3.0: AUSILIARI INSERITI = NO EMERGENZA
|
|
* - DB60.DBX3.1: Filtro (macchina) in LAVORAZIONE
|
|
* - DB60.DBX3.2: Selettore in AUTOMATICO (sennò GIALLO)
|
|
* - DB60.DBX3.3: WARNING MIN LIV VASCA (arancio)
|
|
* - DB60.DBX3.4: WARNING MIN LIV CELLULOSA (blu)
|
|
* - DB60.DBX3.5: LAMPADA ROSSA (allarmi almeno 1 attivo)
|
|
----------------------------------------------------- */
|
|
|
|
|
|
|
|
/* -----------------------------------------------------
|
|
* bitmap MAPO FILTRO Aprochim
|
|
* B0: POWER_ON
|
|
* B1: RUN
|
|
* B2: AUTOMATICO
|
|
* B3: WARN_MIN_VASCA
|
|
* B4: WARN_MIN_CELL
|
|
* B5: ALARM
|
|
* B6: EMERGENZA
|
|
----------------------------------------------------- */
|
|
|
|
// bit 0 (poweron) imposto a 1 SE connected...
|
|
B_input = currPLC.IsConnected ? 1 : 0;
|
|
|
|
// recupero byte segnali...
|
|
int byteSignals = RawInput[3];
|
|
// aggiungo "in coda" primo bit emergenza...essendo un bit negato (NON emergenza) lo cambio di segno
|
|
if ((byteSignals & (1 << 0)) == 0)
|
|
{
|
|
byteSignals += (1 << 6);
|
|
}
|
|
// cancello primo bit (faccio uno shift a dx e poi a sx di 1...)
|
|
byteSignals = ((byteSignals >> 1) << 1);
|
|
// bit 0 (poweron) imposto a 1 SE connected...
|
|
if (currPLC.IsConnected)
|
|
{
|
|
byteSignals += (1 << 0);
|
|
}
|
|
// salvo!
|
|
B_input = byteSignals;
|
|
|
|
// log opzionale!
|
|
if (verboseLog)
|
|
{
|
|
lgInfo(string.Format($"Trasformazione dati: RawInput:{RawInput[3]} --> B_input: {B_input}"));
|
|
}
|
|
}
|
|
|
|
#endregion
|
|
}
|
|
}
|