ST функции OWEN Logic

[capzap]

Кто нибудь знает как написать функцию random на языке ST?

все алгоритмы случайных чисел запоминают предыдущее значение, поэтому функцию ни как, или макрос или ФБ

[Armorgan]

А может кто-нибудь объяснить как с помощью команды get_time() привязаться не к миллисекундам, а к секундам?

[Dimensy]

А может кто-нибудь объяснить как с помощью команды get_time() привязаться не к миллисекундам, а к секундам?

На 1000 разделите, получите секунды

[МихаилГл]

Кто нибудь знает как написать функцию random на языке ST?

все алгоритмы случайных чисел запоминают предыдущее значение, поэтому функцию ни как, или макрос или ФБ

Буквально вчера для эмулятора модбас сервера придумывал... На аляпаскале:

var
  H, M, S, mS: Word;
  I: Integer;
  J: Integer;
begin
  if (Reg_13= 0) and (J= 0) then
  begin
    J:= 1;
    DecodeTime(Now,H,M,S,mS);
    self:= H + 100 * M + S + mS;
  end;
  if (Reg_13<> 0) and (J= 1) then
  begin
    J:= 0;
  end;
end;

Может на лоджике такое же возможно...