Интересная задачка с утра.

[Иванище]

Стоит тетрадная линия. Есть энкодер enc-1-2-t-24, ПР103, СП307. Необходимо вывести на панель оператора (СП307) линейную скорость линии.
Колесо энкодера будет крутиться за счет вращения вала, с которым он соприкасается.
Интересно почитать у кого какие варианты решения на уме.

[Валенок]

Спымать того, кому энти тетрадки, и пораспрошать его про число пи, попросить у него линейку и померять диаметр колеса/вала. А если он хотя бы не троечник то подкинуть ему енту задачу. Мороженку не забыть купить.
В общем, автор, не унывай. Не перевелись еще на земле Русской умеющие перевести частоту вращения в линейную скорость. Бог даст, встретишь такого

[EFrol]

Самый простой вариант:
Owen.jpg
где fValue и fKoef сетевые с плавающей запятой (доступные для СП3xx).
FI1 настроить как энкодер
подключить согласно инструкции:
Owen1.jpg

а EncoderSpeed:

function_block EncoderSpeed

    var_input
       Enc : udint;         // Текущее значение счетчика
    end_var

    var_output
       Speed : udint;       // Скорость в имп/сек
    end_var

    var
        EncOld : udint;     // Предыдущее значение счетчика
        t : SYS.TON;        // Секундный таймер
    end_var

    t(I:=TRUE, T:=T#1s);
    if t.Q then                                     // Каждую секунду
        if Enc >= EncOld then
            Speed := Enc - EncOld;                  // Определяем кол-во накопленных импульсов за последнюю сек.
        else
            Speed := 4294967295 - EncOld + Enc + 1; // Учтем возможность переполнения счетчика
        end_if
        EncOld := Enc; t(I:=FALSE);                 // Запомним текущее значение счетчика и перезапустим таймер
    end_if
            

end_function_block

[Иванище]

Объясните непутевому студенту смысл переменной fKoef (что, откуда и куда), пожалуйста

[МихаилГл]

Объясните непутевому студенту смысл переменной fKoef (что, откуда и куда), пожалуйста

Ну speed это импульсы в секунду, импульсы на оборот знаете? Длину окружности поделите на количество импульсов на оборот, и получите м/импульс. Перемножаем, в итоге м/с... Скорость. Ну это на первый взгляд...

[Иванище]

Справедливо. Спасибо

[EFrol]

Объясните непутевому студенту смысл переменной fKoef (что, откуда и куда), пожалуйста

Если Вас устроит в имп/сек поставьте fKoef = 1.0.
Но можно в любой единице измерения (даже в попугаях/сек), если Вы точно знаете сколько Ваших единиц (попугаев) приходится на 1 импульс.

[Иванище]

Предложу начальнику новую систему измерения. До меня у нас в попугаях точно никто ничего не измерял. Спасибо)

[Валенок]

Уважаемый EFrol
4294967295 - EncOld + Enc + 1
=>
(4294967295 + 1) - EncOld + Enc
=>
(0) - EncOld + Enc
=>
- EncOld + Enc
=>
Enc - EncOld

=>

 if Enc >= EncOld then
            Speed := Enc - EncOld;                  // Определяем кол-во накопленных импульсов за последнюю сек.
        else
            Speed := 4294967295 - EncOld + Enc + 1; // Учтем возможность переполнения счетчика
        end_if

=>

 if Enc >= EncOld then
            Speed := Enc - EncOld;                  // Определяем кол-во накопленных импульсов за последнюю сек.
        else
            Speed := Enc - EncOld; // Учтем возможность переполнения счетчика
        end_if

=>

 

            Speed := Enc - EncOld; // Не надо ничего учитывать

[EFrol]

Спасибо. Не привык к беззнаковой арифметике.
Для наглядности просто:
4294967295 - EncOld => сколько осталось до переполнения
+ Enc => сколько накопилось от 0-я
+ 1 => сам 0

Для новичков факт 4294967295 + 1 = 0 не очевиден.