Verzögerung in CAPL

[Markus (Gast)]

Hallo,

wie kann man in CAPL zwischen zwei Ereignissen eine Verzögerung für ein 
paar Sekunden realisieren?

Ich wollte eine Spannung hochladen und nach 5s wieder entladen.

könntet ihr mir bitte helfen? Danke!

Gruß

[CAN-Fan (Gast)]

So viel ich weiß, gar nicht. Dafür ist, finde ich, CAPL nicht ausgelegt. 
Wie du es machen kannst, bzw. ich mache. Du schickst die Nachricht zum 
Laden, startest einen Timer und der Handler schickt die Nachricht zum 
Entladen.

Sowas wie delay(xx) habe ich mal gesucht, aber nie gefunden. Du könntest 
sonst das mit C/Matlab, ... nutzen, da sollte das gehen. Bei CAPL dürfen 
die Funktionen nicht blockieren.

[Borislav B. (boris_b)]

Das geht in CAPl sehr einfach.
Bist du in einem Testmodul oder in einem Netzwerkknoten?

Testmodul:
Funktion TestWaitForTimeout(...) benutzen.

Netwerkknoten:
 - Mit setTimer(t1, 5000) einen Timer aufziehen.
 - Mit on timer t1 { ... } einen Event-Handler implementieren.

[Eric B. (beric)]

Markus schrieb:
> wie kann man in CAPL zwischen zwei Ereignissen eine Verzögerung für ein
> paar Sekunden realisieren?

* timer definieren
* Beim 1. Ereignis timer starten
* Wenn timer abläuft (on timer xyz ...)  2. Ereignis losschicken.

[Markus (Gast)]

Danke für die Antworten.
Ich wollte dass die Entladung sich für 5s verzögert aber ich kriege das 
nicht hin.

Das Programm sieht so aus:

char Hochladen = 0;
char Entladen = 0;

on timer t1
{

/*Lade_spannung hoch*/
 if (t <= 10)
  {
    setTimer (t1 , 10);
    t+=0.01;
    y = ymax*(1-exp(-t));


 /*Entlade Spannung*/
  }else
  {

    Hochladen = 0;
    if ($Botschaft_1::Signal_1 == 0)
    {
      setTimer(t2,10);
      t = 0;
      Entladen = 1;
    }
  }
}

on timer t2
{
 if (t <= 5)
  {
    setTimer (t2 , 10);
    t+=0.01;
    y = ymax*(exp(-t));
  }else
  {
    Entladen = 0;
  }

}

on timer Entladeverzoegerung
{
  ?
}

[Markus (Gast)]

Kann keiner helfen :-(?

[Hubert (Gast)]

Es wurde doch schon 2x geschrieben wie man einen Timer in CAPL 
programmiert.

Läuft deine Simulation? Teste mal folgenden Code. Dann Taste 'a' 
drücken.

msTimer tmrTest;

on key 'a'
{
  setTimer(tmrTest, 5000);
}

on timer tmrTest
{
  write("Timer abgelaufen");
}

[Eric B. (beric)]

Du brauhst nur einen Timer. Etwa so:

ladestatus = 0; // 0 = laden, 1 = warten, 2 = entladen

on timer t1
{
  if(ladestatus == 0) /* bin beim laden */
  {
    if( /* laden noch nicht fertig */ )
    {
      /* lade weiter */
      setTimer (t1, 10)
    } 
    else
    {
       /* laden fertig - jetzt 5 sek warten */
       ladestatus = 1
       setTimer(t1, 5000)
    }
  }
  else if (ladestatus == 1) /* warten */
  {
    /* warte timer abgelaufen - jetzt entladen */
    ladestatus = 2
    setTimer(t1, 10)
  }
  else if(ladestatus == 2) /* jetzt entladen */
  {
    if( /* entladen noch nicht fertig */ )
    {
      /* entlade weiter */
      setTimer (t1, 10)
    } 
    else
    {
       /* entladen fertig */
    }
  }
  else
  {
     /* Ungültige ladestatus- Fehler melden! */
  }
}