Найти тему
Электропрактика

Программа-памятка для электрика и менеджера электриков

Знание программирования электрикам может быть очень полезно как в случаях, когда им приходится обслуживать автоматизированные системы, построенные на контроллерах компании Сименс (simantic) и иных производителей, так и для решения различных прикладных задач.

Я немного программирую в среде Делфи. Этот инструмент позволяет при минимальных затратах времени на освоение создавать весьма полезные программы.

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

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

Программа pamjatka.exe размещается в отдельной папке pamjatka в каталоге c:\ и загружается с ее ярлыка, который помещается в папку Автозагрузки.

Бегущая строка программы памятки электрика и менеджеров электриков
Бегущая строка программы памятки электрика и менеджеров электриков
Бегущая строка программы памятки (масштаб увеличен)
Бегущая строка программы памятки (масштаб увеличен)

Информация для бегущей строки формируется в текстовом файле pamjatka.txt, который заполняется другой программой wwod.exe, которая находится в той же папке c:\pamjatka, что и выводящий бегущую строку файл pamjatka.exe.

К wwod.exe создан ярлык на рабочем столе. При клике мышью по нему загружается следующее окно (Рис 1.), при активации его формы на нем отображается содержимое ранее заполненной текстовой информации.

Важно соблюдать формат записываемой "инфы". Вначале идет запись даты (дд.мм.гггг), затем текста, приходящегося на эту дату.

Программа pamjatka.exe будет сравнивать указанную дату с системной датой на день загрузки компа. При совпадении дат информация будет отображаться в бегущей строке.

Программа wwod.exe

Рис 1. Окно ввода информации программы памятки для электрика
Рис 1. Окно ввода информации программы памятки для электрика

Исходя из информации Рис 1, можно увидеть, что 1 апреля 2020 года при каждой загрузке компьютера в течение дня будет выдаваться информация первых двух строк: "Поздравить ...." и "Купить 300 метров кабеля....". Второго апреля в бегущей строке будет появляться "проверить качество прокладки кабеля ..." и т.д.

Окно ввода информации программы памятки для электрика wwod.exe собрано в среде Делфи из компонентов Memo1, Panel1, фонового изображения Image1, 4-х кнопок SpeedButton (1,2,3 и 4) и FontDialog1.

В программе Wwod.exe задействованы 4 процедуры, выполняемые при нажатии SpeedButton и одной при активации формы:

// процедура загрузки содержимого текстового файла в memo1 при активации формы Form3.
procedure TForm3.FormActivate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('pamjatka.txt');
end;

// процедура загрузки содержимого текстового файла в memo1, активируемая нажатием кнопки SpeedButton1
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('pamjatka.txt');
end;

// процедура сохранения внесенных в текстовый файл новых или измененных данных, активируемая нажатием кнопки SpeedButton2
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('pamjatka.txt');
end;

// процедура закрытия программы ввода, активируемая нажатием кнопки SpeedButton3
procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
Close
end;

// процедура выбора параметров шрифта по размеру и цвету, активируемая нажатием кнопки SpeedButton4
procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then Memo1.Font.Height:=fontdialog1.Font.Height;
if fontdialog1.Execute then Memo1.Font.color:=fontdialog1.Font.color;
end;

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

Полезна она может быть для менеджеров компаний.

Если кого-то из вас заинтересовало практическое удобство "проги", можете обращаться. А также ставьте лайк и подписывайтесь на канал