SCL While loop?

Dear expert.

This is my first try to program scl code. The problem is that the while loop dosen't count up.

Here is my code, i hope someone can help me out whit this.

FUNCTION FC1 : VOID
// FC1 är en slumpgenerator som ska slumpa
// fram tal använderen väljer
// Hur många gånger slumpandet ska utföras //
NAME : RANDOM
VAR_INPUT
HiLimit : INT ;
Antal: INT; // = 10 Antalet slumpade tal
END_VAR
VAR_OUTPUT
Random : INT ; // Random tal
END_VAR
VAR_TEMP
TimeTck : TIME; // aktuell systemtid
Index: INT;// vilkor för att loppen ska sluta
END_VAR

BEGIN
Index:=0;

WHILE Antal >= Index DO
Index:=Index+1;
TimeTck := TIME_TCK(); // Tid
Random := ABS(DINT_TO_INT(TIME_TO_DINT(TimeTck))) MOD HiLimit ;// Räkna ut slumpnumer

END_WHILE;
END_FUNCTION


/ Berra

Either index must be IN_OUT or convert to a FB and use a stat for the index. Temp variables are not remembered between calls.

Ok, i try that

I do think that the index does count up..

But you will never se that becausse its all done in the same scan..

The other thing I do notice is that if you put 3 as input Antal your function will only show the third number your random generator has made..

If you do want to have three different numbers you have to do it another way..

Example:

Call this function with a pulse whenever you want some random numbers..

//Just a little modification of your function not tested..

As a little tip you could also call the TimeTck function directly from SCL so you dont need that as an input just Variable:=TimeTck() if you dont want an variable you could just exchange your TimeTck with TimeTck()..

bara_hence said:

I do think that the index does count up..

Click to expand...

You are right, I missed the statement Index:=0