Random !!!

[mbruck]

Random and Randomize !!!

[vanja]

Here is a library:

Code: Select all

unit random;


var  randx : longint;
     randf : byte;

//-------------- Random number seed
procedure srand(x : longint);
  begin
	  randx := x;
	  randf := 1;
  end;

//-------------- Random number generator
function rand : word;
  begin
		if(randf = 0) then
			srand(1);
	  randx  := (((randx * 1103515245) + 12345) shr 16) and 0x077777;
	  result := word(randx);
  end;
end.

And here is a main program:

Code: Select all

program random_number_test;

uses random;

begin
  ddrb := $ff;
  srand(100);
  while true do
    begin
      portb:= rand;
      delay_ms(100);
    end;
end.

It's tested and it works.

[mbruck]

Tnx !