Язык программирования Alfa
Язык программирования Alfa - это попытка создать инструмент, для удаленного администрирования и автоматизации выполняемых работ на серверах и компьютерах под Windows платформой, с простым и ясным синтаксисом похожим на старый, добрый - Pascal.
Краткая характеристика языка Alfa
Автор: Александр Уваров
- Язык Alfa процедурный, типизированный;
- Программа на языке Alfa состоит из единственного модуля. Выполнение программы начинается с первого оператора после слова begin;
- Предусмотрены константы и переменные вещественного (real), целого (int), строкового (string), булевского (bool) типа. Ссылочные переменные файлового (file) типа, серверного (server) типа, COM (comobj) типа, процедурного (proc, func) типа;
- Предусмотрены одномерные массивы перечисленных типов;
- Переменные серверного типа (server) представляют собой специальный объект сервер, с помощью методов которого, можно удаленно выполнять различные действия на сервере или рабочей станции. Можно запускать и останавливать службы и процессы, определять их текущее состояние, перезагружать сервер, изменять IP адрес, определять доступность любого компьютера или сервера в сети, работать с файлами, папками, общими ресурсами;
- Предусмотрена работа с внешними серверами автоматизации (COM объектами);
- Предусмотрены стандартные процедуры и функции для работы с числами, строками, массивами, папками и файлами, а также функции для отправки сообщений электронной почты по протоколу SMTP, функции передачи и приёма файлов по протоколу FTP, функции для работы с INI файлами, функции для работы с COM объектами;
- Предусмотрен ввод и вывод на консоль, чтение и запись информации в текстовый файл;
- Предусмотрено выполнение кода написанного на других языках программирования JScript, VBScript;
- В записи программы разрешены комментарии, которые могут быть вложенными;
- Большие и малые буквы различаются;
- Язык программирования Alfa предназначен исключительно для специфических задач удаленного администрирования серверов и компьютеров и не претендует ни на что более.
Скачать
Пример программы на языке Alfa
Задача
Пусть у нас имеется комплекс серверов. Нужно удаленно, с любого рабочего места, как можно быстро, проверить состояние серверов, а так же запущены ли необходимые службы на них. Если службы, по какой либо причине не запущены (“упали”), то запустить их (“поднять”).
Ниже представлен исходный код на языке программированияAlfa, для решения поставленной задачи.
Код:
#on_wait
#on_log
program ControlServers;
var
I : int;
// службы на сервере телеобработки
Main_TO :array4ofstring=
(
"Телеобработка",
"Монитор взаимодействия с Этран",
"Модуль взаимодействия с АС ЭТД",
"StatClient"
);
// службы на основном сервере приложений
Main_SP :array4ofstring=
(
"Планировщик СП основной",
"Отчетность АСУСТ (основная)",
"Сервер подсистемы КСАРМ ВЧД",
"StatClient(основной)"
);
// службы на резервном сервере приложений
Res_SP :array4ofstring=
(
"Планировщик СП резервный";
"Отчетность АСУСТ (резервная)";
"Сервер подсистемы КСАРМ ВЧД";
"StatClient(резервный)";
);
declare @CUMR04_TO : server
Title ="Cервер телеобработки";
Host ="1.2.2.15";
User ="adm";
Password ="pass";
IntervalWait =60;
WaitReboot =360;
end;
declare @CUMR04A : server
Title ="Основной сервер приложений";
Host ="1.2.2.11";
User ="adm";
Password ="pass";
IntervalWait =60;
WaitReboot =360;
end;
declare @CUMR05A : server
Title ="Резервный сервер приложений";
Host ="1.2.2.21";
User ="adm";
Password ="pass";
IntervalWait =60;
WaitReboot =360;
end;
procedure OutMess (Mess :string; NameService :string);
begin
ifnot(Mess ="")then
writeln("Ошибка: ", Mess);
else
writeln("Cлужба: "+"'"+ NameService +"'"+" - запущена!");
endif;
end;
procedure ServiceControl (var @Serv : server; NameService :string);
begin
@Serv->ControlService(NameService);
OutMess(@Serv->Get_MessErr(), NameService);
end;
begin
writeln("=========================================");
writeln("Контроль состояния служб на серверах ЦУМР");
writeln("=========================================");
// подключение к серверу телеобработки
writeln("Подключение к серверу телеобработки");
ifnot @CUMR04_TO->Connect()then
writeln("Ошибка: ", @CUMR04_TO->Get_MessErr());
exit;
endif;
// подключение к основному серверу приложений
writeln("Подключение к основному серверу приложений");
ifnot @CUMR04A->Connect()then
writeln("Ошибка: ", @CUMR04A->Get_MessErr());
exit;
endif;
// подключение к резервному серверу приложений
writeln("Подключение к резервному серверу приложений");
ifnot @CUMR05A->Connect()then
writeln("Ошибка: ", @CUMR05A->Get_MessErr());
exit;
endif;
writeln("-----------------------------------------");
writeln(@CUMR04_TO.Title+" ("+ @CUMR04_TO.Host+")");
// проверка запуска служб на сервере телеобработки
for I :=0to Len(Main_TO)-1
ServiceControl(@CUMR04_TO, Main_TO[I]);
endfor;
writeln("-----------------------------------------");
writeln(@CUMR04A.Title+" ("+ @CUMR04A.Host+")");
// проверка запуска служб на основном сервере приложений
for I :=0to Len(Main_SP)-1
ServiceControl(@CUMR04A, Main_SP[I]);
endfor;
writeln("-----------------------------------------");
writeln(@CUMR05A.Title+" ("+ @CUMR05A.Host+")");
// проверка запуска служб резервном сервере приложений
for I :=0to Len(Res_SP)-1
ServiceControl(@CUMR05A, Res_SP[I]);
endfor;
writeln("-----------------------------------------");
// запрос на завершение работы
readln();
end.
Ниже представлен файл протокола программы ControlServers.
Код:
***********************************************************
ControlServers
Дата: 22.10.2009 Время: 16:03:11
Время выполнения: 00:11.79
***********************************************************
=========================================
Контроль состояния служб на серверах ЦУМР
=========================================
Подключение к серверу телеобработки
Подключение к основному серверу приложений
Подключение к резервному серверу приложений
-----------------------------------------
Cервер телеобработки (1.2.2.15)
Cлужба: 'Телеобработка' - запущена!
Cлужба: 'Монитор взаимодействия с Этран' - запущена!
Cлужба: 'Модуль взаимодействия с АС ЭТД' - запущена!
Cлужба: 'StatClient' - запущена!
-----------------------------------------
Основной сервер приложений (1.2.2.11)
Cлужба: 'Планировщик СП основной' - запущена!
Cлужба: 'Отчетность АСУСТ (основная)' - запущена!
Cлужба: 'Сервер подсистемы КСАРМ ВЧД' - запущена!
Cлужба: 'StatClient(основной)' - запущена!
-----------------------------------------
Резервный сервер приложений (1.2.2.21)
Cлужба: 'Планировщик СП резервный' - запущена!
Cлужба: 'Отчетность АСУСТ (резервная)' - запущена!
Cлужба: 'Сервер подсистемы КСАРМ ВЧД' - запущена!
Cлужба: 'StatClient(резервный)' - запущена!
-----------------------------------------
Источник: http://feedproxy.google.com/~r/codenet/read/~3/FYieeYgXoJc/
|
Язык программирования Alfa - это попытка создать инструмент, для удаленного администрирования и автоматизации выполняемых работ на серверах и компьютерах под Windows платформой, с простым и ясным |
РэдЛайн, создание сайта, заказать сайт, разработка сайтов, реклама в Интернете, продвижение, маркетинговые исследования, дизайн студия, веб дизайн, раскрутка сайта, создать сайт компании, сделать сайт, создание сайтов, изготовление сайта, обслуживание сайтов, изготовление сайтов, заказать интернет сайт, создать сайт, изготовить сайт, разработка сайта, web студия, создание веб сайта, поддержка сайта, сайт на заказ, сопровождение сайта, дизайн сайта, сайт под ключ, заказ сайта, реклама сайта, хостинг, регистрация доменов, хабаровск, краснодар, москва, комсомольск |
Дайджест новых статей по интернет-маркетингу на ваш email
Новые статьи и публикации
- 2026-03-04 » Скорость, ИИ и человекоцентричность: каким должен быть сайт в 2026 году
- 2026-03-03 » Как искусственный интеллект меняет таргетированную рекламу
- 2026-03-03 » Основные киберугрозы для бизнеса: 5 способов потерять (и сохранить) данные компании
- 2026-03-03 » Главные тренды веб-дизайна 2026 года: от гиперминимализма до кибербрутализма
- 2026-03-03 » Искусственный интеллект в маркетинге: помощник, а не замена человеку
- 2026-02-26 » Нулевая позиция в поиске: как на нее попасть и зачем это нужно
- 2026-02-26 » Как выбрать подрядчика для сайта и не попасть на мошенников
- 2026-02-26 » Инклюзивный клиентский опыт: как сделать бизнес доступным для всех и повысить конверсию
- 2026-02-26 » ESG-принципы: что это такое и как бизнесу внедрять их в свою работу
- 2026-02-26 » Почему в 2026 году маркетологу не стоит бояться искусственного интеллекта
- 2026-02-22 » No-code vs Профессиональная разработка: выстрелит ли Tilda в 2026 году?
- 2026-02-22 » Почему малый бизнес проигрывает в контекстной рекламе и при чем тут структура сайта
- 2026-02-22 » Куда уходит скорость: как мы теряем посетителей из-за одного "тяжелого" шрифта
- 2026-02-22 » Дарк-паттерны (Dark Patterns) в интерфейсах: когда манипуляция клиентом выходит боком
- 2026-02-22 » Голосовой поиск и веб: готов ли ваш сайт к разговору с Алисой и Марусей?
- 2026-02-22 » Микроанимация и UX/UI: как движение элементов влияет на конверсию
- 2026-02-22 » ИИ в веб-аналитике: как нейросети предсказывают отток клиентов до того, как они уйдут
- 2026-02-22 » Темная сторона шаблонов: почему сайт на готовом решении может угробить ваш бизнес
- 2026-02-22 » Зеленый хостинг и экология в IT: тренд или необходимость?
- 2026-02-22 » Веб-доступность (Accessibility): почему ваш сайт теряет до 20% клиентов и штрафует сам себя
- 2026-02-12 » Экономика фриланса vs веб-студии: скрытые издержки и риски при заказе сайта «у знакомого разработчика»
- 2026-02-12 » Инструменты аналитики помимо Google Analytics
- 2026-02-12 » Юридические аспекты владения сайтом
- 2026-02-12 » Сравниваем популярные CRM-системы для интеграции с сайтом
- 2026-02-12 » Эволюция интерфейсов: от CLI к GUI, к VUI и далее
- 2026-02-12 » Контент-стратегия после обновления Google Helpful Content
- 2026-02-12 » Headless-архитектура: модный тренд или необходимость для вашего бизнеса?
- 2026-02-12 » Мифы о кибербезопасности для малого и среднего бизнеса
- 2026-02-12 » Как Core Web Vitals влияют не только на SEO, но и на конверсию?
- 2026-02-12 » PWA vs Нативное приложение: что выбрать малому бизнесу в 2026?
Там, где речь заходит об очень больших деньгах, разумно не доверять никому. |
Мы создаем сайты, которые работают! Профессионально обслуживаем и продвигаем их !
Как мы работаем
Заявка
Позвоните или оставьте заявку на сайте.
Консультация
Обсуждаем что именно Вам нужно и помогаем определить как это лучше сделать!
Договор
Заключаем договор на оказание услуг, в котором прописаны условия и обязанности обеих сторон.
Выполнение работ
Непосредственно оказание требующихся услуг и работ по вашему заданию.
Поддержка
Сдача выполненых работ, последующие корректировки и поддержка при необходимости.
Мы создаем практически любые сайты от продающих страниц до сложных, высоконагруженных и нестандартных веб приложений! Наши сайты это надежные маркетинговые инструменты для успеха Вашего бизнеса и увеличения вашей прибыли! Мы делаем красивые и максимально эффектные сайты по доступным ценам уже много лет!
Комплексный подход это не просто продвижение сайта, это целый комплекс мероприятий, который определяется целями и задачами поставленными перед сайтом и организацией, которая за этим стоит. Время однобоких методов в продвижении сайтов уже прошло, конкуренция слишком высока, чтобы была возможность расслабиться и получать \ удерживать клиентов из Интернета, просто сделав сайт и не занимаясь им...
Мы оказываем полный комплекс услуг по сопровождению сайта: информационному и техническому обслуживанию и развитию Интернет сайтов.
Контекстная реклама - это эффективный инструмент в интернет маркетинге, целью которого является увеличение продаж. Главный плюс контекстной рекламы заключается в том, что она работает избирательно.