Re: Es ist so ruhig hier…

[Marino Salvalaggio <m.salv@gmx.ch>]

Hallo,

für jene die das das vielleicht interessieren könnte:

Leider kann ich den Header so nicht darstellen, da dieser in einer 
Tabelle gehalten ist die sich hartnäckig weigert sich kopieren zu lassen.
Die Textformatierung geht hier leider in die Binsen :-(

IF (usCtrlCnt = 0) THEN                        (*local controlcounter    
                *)
    usCtrlCnt := usCtrlTm;                    (*Input of controltime / 
set counter    *)
    rAdvDlt := rActDlt;                        (*move actualdelta to 
memory            *)
      rActDlt := rCallDlt;                    (*move operating delta    
                *)
      rCallDlt:= IrDlt;                        (*call new delta        
                *)
    QxClk := TRUE;                            (*Ouput of Clock        
                *)
ELSE
    QxClk := FALSE;
    IF (xClk =TRUE)XOR(ifClk =TRUE) THEN
        ifClk := xClk;
        IF (ifClk =TRUE) THEN
            usCtrlCnt := usCtrlCnt -1;        (*count down 
controlcounter                *)
          END_IF;
    ELSE
        rCallDlt := (IrDlt + rActDlt)/2.0;    (*integration to drift    
                *)
    END_IF;
END_IF;
IF     (IrDlt > 0.0) THEN
    QxDec := FALSE;
    IF (rActDlt >= rAdvDlt) THEN
        QxInc := TRUE;                        (*Output of increment    
                *)
        QrDlt := rActDlt;                    (*Output of control        
                *)
      ELSE
        QxInc := FALSE;
        QrDlt := 0.0;
      END_IF;
ELSIF(IrDlt < 0.0)THEN
    QxInc := FALSE;
    IF (rActDlt <= rAdvDlt) THEN
        QxDec := TRUE;                        (*Output of decrement    
                *)
        QrDlt := rActDlt;                    (*Output of control        
                *)
      ELSE
        QxDec := FALSE;
        QrDlt := 0.0;
      END_IF;
ELSE                                        (*Output reset            
                *)
    QxDec := FALSE;
    QxDec := FALSE;
    QrDlt := 0.0;
END_IF;