Files
Mapo-IOB-WIN/IOB-WIN-NEXT/IobBeckhoff/BeckhoffCpa.cs
T
Samuele Locatelli 8bb0f158b5 SPLIT PROGETTO!!!
- proj di base con le 2 form da ereditare
- progetto globale che contiene TUTTI gli adapter (pronto a venire spezzettato
- gettate le basi x "portare fuori" i vari componenti oppure fare compilazione condizonale
2024-12-20 10:16:32 +01:00

315 lines
11 KiB
C#

using IOB_UT_NEXT;
using MapoSDK;
using System;
using System.Collections.Generic;
namespace IOB_WIN_NEXT.IobBeckhoff
{
public class BeckhoffCpa : IobBeckhoff.Beckhoff
{
#region Public Constructors
/// <summary>
/// Estende l'init della classe base
/// </summary>
/// <param name="caller"></param>
/// <param name="IOBConf"></param>
public BeckhoffCpa(AdapterFormNext caller, IobConfiguration IOBConf) : base(caller, IOBConf)
{
lgInfo("START IobBeckhoffCPA Adapter specifico");
// leggo le altre conf standard...
if (!string.IsNullOrEmpty(getOptPar("CPA_STATE_VAR")))
{
statusVar = getOptPar("CPA_STATE_VAR");
}
if (!string.IsNullOrEmpty(getOptPar("CPA_PZCOUNT")))
{
counterVar = getOptPar("CPA_PZCOUNT");
}
if (getOptPar("ADD_VARS").ToLower() == "true")
{
// fixme conf var gestite ad eventi da json
dataVal.Add(statusVar);
}
if (getOptPar("EARLY_CONNECT").ToLower() == "true")
{
tryConnect();
}
if (AdsCli != null)
{
readCurrVal();
}
}
#endregion Public Constructors
#region Public Methods
/// <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)
{
lgInfo($"Chiamata executeTasks specifica IobBeckhoffCpa: {task2exe.Count} task ricevuti");
// Verificare il protocollo: dovrebeb togliere SOLO i task eseguiti...
Dictionary<string, string> taskDone = new Dictionary<string, string>();
string taskVal = "";
// inizio con 1 byte di default
byte[] MemBlock = new byte[1];
if (task2exe != null)
{
// cerco task specifici
foreach (var item in task2exe)
{
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.setProg:
case taskType.sendWatchDogMes2Plc:
case taskType.startSetup:
case taskType.stopSetup:
taskVal = $"taskReq: {tName} | key: {item.Key} | val: {item.Value} | SKIPPED | NO EXEC";
break;
case taskType.setPzComm:
AdsCli.WriteVariabile(setPzReqVar, item.Value);
AdsCli.WriteVariabile(setParamsVar, 1);
break;
case taskType.setArt:
AdsCli.WriteVariabile(setArtVar, item.Value);
AdsCli.WriteVariabile(setParamsVar, 1);
break;
case taskType.setComm:
AdsCli.WriteVariabile(setCommVar, item.Value);
AdsCli.WriteVariabile(setParamsVar, 1);
break;
case taskType.setParameter:
// richiedo da URL i parametri WRITE da popolare
lgInfo("Chiamata processMemWriteRequests");
taskVal = processMemWriteRequests();
// se restituiscce "" faccio altra prova...
if (string.IsNullOrEmpty(taskVal))
{
// i parametri me li aspetto come stringa composta paramName|paramvalue
if (item.Value.Contains("|"))
{
string[] paramsJob = item.Value.Split('|');
taskVal = $"REQUEST SET PARAMETERS: {paramsJob[0]} --> {paramsJob[1]}";
}
else
{
taskVal = $"WRONG REQUEST FOR SET PARAMETERS: {item.Value} doesnt contain pipe for splitting key/value";
}
}
// aggiunta finale bit a 1 x richiesta processing..
AdsCli.WriteVariabile(setParamsVar, 1);
break;
default:
taskVal = "SKIPPED | NO EXEC";
break;
}
// aggiungo task!
taskDone.Add(item.Key, taskVal);
}
}
return taskDone;
}
/// <summary>
/// Effettua vero processing contapezzi
/// </summary>
public override void processContapezzi()
{
if (utils.CRB("enableContapezzi"))
{
var rawCount = AdsCli.ReadVariabile(counterVar).ToString();
if (!string.IsNullOrEmpty(rawCount))
{
int newVal = -1;
int.TryParse(rawCount, out newVal);
contapezziPLC = newVal > -1 ? newVal : contapezziPLC;
}
}
}
/// <summary>
/// Leggo le variabili correnti (status, contapezzi)
/// </summary>
public override void readCurrVal()
{
var rawStatus = AdsCli.ReadVariabile(statusVar).ToString();
if (!string.IsNullOrEmpty(rawStatus))
{
int.TryParse(rawStatus, out currStatus);
}
var rawCount = AdsCli.ReadVariabile(counterVar).ToString();
if (!string.IsNullOrEmpty(rawCount))
{
int newVal = -1;
int.TryParse(rawCount, out newVal);
contapezziPLC = newVal > -1 ? newVal : contapezziPLC;
}
}
/// <summary>
/// Effettua lettura semafori principale <paramref name="currDispData">Parametri da
/// aggiornare x display in form</paramref>
/// </summary>
public override void readSemafori(ref newDisplayData currDispData)
{
/* -----------------------------------------------------
* STATE MACHINE 60
* --------------------------
* bitmap MAPO
* B0: POWER_ON
* B1: RUN
* B2: pzCount
* B3: allarme
* B4: manuale
* B5: slowTC
* B6: WarmUpCoolDown
* B7: emergenza
*
* --------------------------
* Enum Stato macchina
* --------------------------
* Errore = -1,
* Ferma = 0,
* Automatica = 1,
* Manuale = 2,
* Emergenza = 3,
* AzzeraTavola = 4,
* ManualeStazione = 5,
* Avviamento = 7
----------------------------------------------------- */
byte[] MemBlock = new byte[2];
try
{
if (connectionOk)
{
B_input = 1;
currDispData.semIn = Semaforo.SV;
}
else
{
B_input = 0;
currDispData.semIn = Semaforo.SR;
}
// indico emergenza ARMATA
B_input += (1 << 7);
// in base all'enum di status compilo valori...
switch (currStatus)
{
case -1:
B_input += (1 << 3);
break;
case 0:
case 2:
case 4:
case 5:
case 7:
B_input += (1 << 4);
break;
case 3:
// tolgo emergenza SE fosse premuta (force zero)
B_input &= ~(1 << 7);
break;
case 1:
B_input += (1 << 1);
break;
default:
break;
}
}
catch
{
currDispData.semIn = Semaforo.SR;
}
}
public override void setEventHandler()
{
base.setEventHandler();
if (AdsCli != null)
{
AdsCli.StatusChanged += AdsCli_StatusChanged;
AdsCli.CountChanged += AdsCli_CountChanged;
AdsCli.ValueChanged += AdsCli_ValueChanged;
}
}
#endregion Public Methods
#region Protected Fields
protected int currStatus = 0;
#endregion Protected Fields
#region Protected Methods
protected void AdsCli_CountChanged(TcAdsClient sender, int newCount)
{
contapezziPLC = newCount;
lg.Info($"Nuova lettura contapezzi | contapezziPLC: {contapezziPLC} | contapezziIOB: {contapezziIOB}");
}
protected void AdsCli_StatusChanged(TcAdsClient sender, int newStatus)
{
currStatus = newStatus;
lg.Info($"Status changed: {newStatus}");
}
#endregion Protected Methods
#region Private Fields
private string counterVar = "VarADS.BuoniLancio";
private string setArtVar = "VarADS.NomeDisegnoRichiesto";
private string setCommVar = "VarADS.NomeLancioRichiesto";
private string setParamsVar = "VarADS.bCambioArticolo";
private string setPzReqVar = "VarADS.nQuantitaRichiesta";
private string statusVar = "VarADS.StatoMacchina";
#endregion Private Fields
#if false
public enum EnuStates //Stato Macchina
{
Errore = -1,
Ferma = 0,
Automatica = 1,
Manuale = 2,
Emergenza = 3,
AzzeraTavola = 4,
ManualeStazione = 5,
Avviamento = 7,
}
#endif
}
}