Обработка сигнала датчика продукта на дискретный вход ПР

Вид для печати

Показывать 40 сообщений этой темы на одной странице

17.01.2025, 09:54
Dimensy

У меня как-то так получилось и даже, вроде, работает

Код:

function_block Impuls var_input //объявление входных переменных U : bool; Delay : udint; //Длительность задержки импульса, мс Imp : udint; //Длительность выходного импульса, мс end_var var_output //объявление выходных переменных Q : bool; end_var var //объявление локальных переменных CurTime : udint; RTrig : SYS.RTRIG; TOF : SYS.TOF; MasDel : array[0..9] of udint; MasImp : array[0..9] of bool; nWrite, nRead : udint := 0; flag : bool; end_var TOF.T := udint_to_time(Imp); CurTime := time_to_udint(get_time()); RTrig(I := U); if RTrig.Q then MasDel[nWrite] := CurTime + Delay; MasImp[nWrite] := true; nWrite := (nWrite + 1) mod 10; end_if flag := MasImp[nRead] and CurTime >= MasDel[nRead]; if flag then MasImp[nRead] := false; nRead := (nRead + 1) mod 10; end_if TOF(I := flag, Q => Q); end_function_block
17.01.2025, 10:50
Антон_Б

Спасибо, всем сочуствующим, буду пробовать
17.01.2025, 12:28
Антон_Б

Цитата:

Сообщение от FPavel

Код:

A: array [0..999] of bool; // буфер на 1000 * 10 мс = 10 с InIndx: udint; OutIndx: udint; if CLK then // если на тактовом входе true - выполнить пересчёт A[InIndx] := In; OutIndx := InIndx + 123; // 123 * 10 ms = 1 s 23 ms - задержка при такте 10 ms if OutIndx > 999 then OutIndx := OutIndx - 1000; //минус длина массива end_if Out := A[OutIndx]; // значение выхода InIndx := InIndx + 1; if InIndx > 999 then InIndx := InIndx - 1000; //минус длина массива end_if end_if

На вход CLK подать выход связки BLINK+RTrig с полным периодом 10 мс (5+5 мс).

В этом примере длительность выходного импульса равна 5 мс. А можно ли ее задавать?
Время не корректно выадерживает. МОжет связано с BLINKom
17.01.2025, 12:34
Антон_Б

Цитата:

Сообщение от Dimensy

У меня как-то так получилось и даже, вроде, работает

Код:

function_block Impuls var_input //объявление входных переменных U : bool; Delay : udint; //Длительность задержки импульса, мс Imp : udint; //Длительность выходного импульса, мс end_var var_output //объявление выходных переменных Q : bool; end_var var //объявление локальных переменных CurTime : udint; RTrig : SYS.RTRIG; TOF : SYS.TOF; MasDel : array[0..9] of udint; MasImp : array[0..9] of bool; nWrite, nRead : udint := 0; flag : bool; end_var TOF.T := udint_to_time(Imp); CurTime := time_to_udint(get_time()); RTrig(I := U); if RTrig.Q then MasDel[nWrite] := CurTime + Delay; MasImp[nWrite] := true; nWrite := (nWrite + 1) mod 10; end_if flag := MasImp[nRead] and CurTime >= MasDel[nRead]; if flag then MasImp[nRead] := false; nRead := (nRead + 1) mod 10; end_if TOF(I := flag, Q => Q); end_function_block

ГОДНЫЙ ВАРИАНТ, ТО ЧТО НУЖНО, СПАСИБО ЗА ПОМОЩЬ
17.01.2025, 18:42
Dimensy

Цитата:

Сообщение от Антон_Б

ГОДНЫЙ ВАРИАНТ, ТО ЧТО НУЖНО, СПАСИБО ЗА ПОМОЩЬ

Упустил нюанс с переполнением. От греха подальше, лучше поправить две строчки

Код:

function_block Impuls var_input //объявление входных переменных U : bool; Delay : udint; //Длительность задержки импульса, мс Imp : udint; //Длительность выходного импульса, мс end_var var_output //объявление выходных переменных Q : bool; end_var var //объявление локальных переменных CurTime : udint; RTrig : SYS.RTRIG; TOF : SYS.TOF; MasDel : array[0..9] of udint; MasImp : array[0..9] of bool; nWrite, nRead : udint := 0; flag : bool; end_var TOF.T := udint_to_time(Imp); CurTime := time_to_udint(get_time()); RTrig(I := U); if RTrig.Q then MasDel[nWrite] := CurTime; MasImp[nWrite] := true; nWrite := (nWrite + 1) mod 10; end_if flag := MasImp[nRead] and CurTime - MasDel[nRead] >= Delay; if flag then MasImp[nRead] := false; nRead := (nRead + 1) mod 10; end_if TOF(I := flag, Q => Q); end_function_block
17.01.2025, 19:00
FPavel

Вложений: 1

Цитата:

Сообщение от Антон_Б

В этом примере длительность выходного импульса равна 5 мс. А можно ли ее задавать?
Время не корректно выадерживает. МОжет связано с BLINKom

Странно, вроде бы, выдерживает

Код:

function_block Delay var_input In: bool; Clk: bool; end_var var_output Out: bool; end_var var A: array [0..999] of bool; // буфер на 1000 * 10 мс = 10 с InIndx: udint; OutIndx: udint; end_var if CLK then // если на тактовом входе true - выполнить пересчёт A[InIndx] := In; OutIndx := InIndx + 123; // 123 * 10 ms = 1 s 23 ms - задержка при такте 10 ms if OutIndx > 999 then OutIndx := OutIndx - 1000; //минус длина массива end_if Out := A[OutIndx]; // значение выхода InIndx := InIndx + 1; if InIndx > 999 then InIndx := InIndx - 1000; //минус длина массива end_if end_if end_function_block

Вложение 81384

Ничего не менял в коде...

По хорошему, BLINK и RTrig реализовать бы на ST, но хотел принцип реализации задержки показать.

Показывать 40 сообщений этой темы на одной странице