А нельзи ли создать что то подобное?

[Father]

один случай я не могу обойти стороной, и обязательно расскажу:
я услышал "особое мнение," когда два престарелых моэковских киповца, стоя по колено в гавне в подвале, где слегка до тридцати не дотягивало, программировали трм12, что бы гвсовскую задвижку вручную не регулировать. жаль, что я не догадался записать на сотик их "особое мнение"...

в этой ветке уже не интересно, удаляюь.

[ASo]

я делаю просто, сажусь, и пишу свою инструкцию киповцам, кочегарам, и прочей обслуге, в той части, где им необходимо внедряться. себе дешевле обходится.

Инструкцию на что? На ПЛК? Так это Ваша, как программиста обязанность, из базовой инструкции нужны 2 страницы - как кнопки нажимать.
Инструкцию на готовый прибор типа ТРМххх? Так что поделаешь, если деградация работников летит вниз стремительным домкратом.

[ASo]

программировали трм12, что бы гвсовскую задвижку вручную не регулировать. жаль, что я не догадался записать на сотик их "особое мнение"...

Один МОЭКовский киповец, правда из руководящего состава, както сказал моему коллеге - "а мой основной инструмент - промокашка". Так что не аргумент.

[юнный киповец]

да, такое красивое оформление тоже время занимает. техподдержка со стороны разработчиков по сути их собственная инициатива, никак не оплачивается и тратить на написание красивых примеров много рабочего времени не получается.

видимо все таки отрабатываете деньги. а могли сделать чтото действительно полезное. жизнь может пройти зря. кстати где действительно пасутся те кто заказывает маркетинговую политику?
не все же время на багамах.

[Кирилл Валюнин]

уважаемые форумчане, пожалуйста, сбавьте обороты в общении.

[Малышев Олег]

а вот чисто практически - какие примеры, помимо выше указанного, вы хотели бы видеть?

[юнный киповец]

олег,респект тебе и уважуха.
повторюсь у меня плк63м
опрос клавиатуры, чисто практически, решен, но былобы крайне интересно как это делается правильным способом. собсно получить код нажатой клавиши не трудно, прибавить кудато точно один(1) по нажатию-
день потерял.
дисплей просто странный кудато вечно пропадает.
строку выводит устойчиво. добавить к строке Real показания датчика
картинка пропадает по нажатию клавиши,появляется случайно, часто с зябликами.
датчик дтс 035.50м соответствует ту4211.... паспорт кувф 405210 итд.
однако в руководстве к плк датчики идут по госту соответствие нигде не указано. показывает он похоже температуру но это както само получилось и видимо также пропасть может. не могблибы вы пока доброе расположение духа вас не покинуло разьяснить желательно с работоспособными примерами. а то такое впечатление что компилятор с библиотеками ваяли электрики пока програмеры паяли контроллер. шутка

[Малышев Олег]

Кусок рабочей программы
PROGRAM kbd_handler
VAR CONSTANT
KBD_START:BYTE:=16#20;
KBD_EXIT:BYTE:=16#40;
KBD_ALT:BYTE:=16#80;
KBD_ENTER:BYTE:=16#10;
KBD_UP:BYTE:=16#8;
KBD_DN:BYTE:=16#4;
END_VAR
VAR
wrk_scrINT;
start_by_kbd_TON: TON;
start_by_kbd_R_TRIG:R_TRIG;
(*Обнаружение АЛЬТ -ЕНТЕР*)
alt_enter_TON: TON;
alt_enter_TRIG:R_TRIG;

alt_P:TON;
alt_P_RT:R_TRIG;
tmp_bool:BOOL;

(*Обнаружение Пуск/Стоп - Вверх*)
stst_up_TON:TON;
stst_up_trig:R_TRIG;

(*Обнаружение Пуск/Стоп - Вниз*)
stst_dn_TON:TON;
stst_dn_trig:R_TRIG;

ex_TON:TON;
ex_trig:R_TRIG;
end_var



start_by_kbd_TON(in:=(kbd=KBD_START),pt:=t#2s);(*T ODO Учесть запуск клавиатуры*)
start_by_kbd_R_TRIG(CLK:=start_by_kbd_TON.Q);
have_start:=start_by_kbd_R_TRIG.Q;
wrk_scr:=GetWorkScreen();

alt_p(in:=(kbd=(KBD_ALT OR KBD_ENTER)),pt:=t#300ms);(*TODO Учесть запуск клавиатуры*)
alt_p_rt(CLK:=alt_p.Q);

[Малышев Олег]

var
info_err: ARRAY [1..15] OF STRING(16):=
'Ошибка N1',(*1 *)
'Ошибка N2',(*2 *)
'Ошибка N3',(*3 *)
'Ошибка N4',(*4 *)
'Ошибка N5',(*5 *)
'Нет данных',(*6 *)
'Датчик отключен',(*7 *)
'Высокая t ХС ТП',(*8 *)
'Низкая t ХС ТП',(*9 *)
'Значение велико',(*a *)
'Значение мало',(*b *)
'Короткое зам.',(*c *)
'Обрыв датчика',(*d *)
'Нет связи c АЦП',(*e *)
'Ошибка калибр.'; (*f *)
df_ai_InletECODE_FLOAT;
ai_T_InLet_nc at %id0.2.0:REAL;
ai_T_InLet_tm at %id0.2.1:WORD;
ai_T_InLet:REAL:=20.0;
ai_T_InLet_err:BYTE;
old_ai_T_InLet_tm:WORD:=0;
end_var
df_ai_Inlet(VALUE:=ai_T_InLet_nc,def_value:=ai_T_I nLet, OUT_VALUE=>ai_T_InLet,_err=>ai_T_InLet_err );

if old_ai_T_InLet_tm<> ai_T_InLet_tm then
old_ai_T_InLet_tm :=ai_T_InLet_tm;
IF ai_T_Inlet_err=0 THEN
ShowReal(0,0,1,'%6.2f',ai_T_Inlet); (*Вывести остаток строки с пробелами*)
ELSE
ShowString(0,0,1,info_err[ai_T_Inlet_err]);
end_if
end_if

[ASo]

схожее на Sfc