Октябрь 2017 - Страница 2 из 2

Управление реле Arduino из 1с

16.10.2017 Павел Грибов 1C, arduino

В продолжение вот этого. Если у arduino есть ethernet шиелд, то ей вполне можно управлять даже из 1С. Например Реле питания.

&НаКлиенте
Функция ФункцияВосстановления(Свойство, Значение, ДополнительныеПараметры) Экспорт
   Если Свойство = "ДатаJSON"Тогда
      Возврат ПрочитатьДатуJSON(Значение, ФорматДатыJSON.ISO);
   КонецЕсли;
   Если Свойство = "СтрокаJSON" Тогда
      Возврат СокрЛП(Значение);
   КонецЕсли;
   Если Свойство = "uidJSON" Тогда
      Возврат Новый УникальныйИдентификатор(Значение);
   КонецЕсли;
КонецФункции

&НаКлиенте
Процедура СчитатьСтатус(Команда)
		файл=новый чтениетекста("http://"+этаформа.Объект.ИП+"/");
		фф=файл.Прочитать();
		файл.Закрыть();
		фф=стрзаменить(фф,"<!DOCTYPE HTML>","");
		тЧтение=Новый ЧтениеJson;
		тЧтение.УстановитьСтроку(фф);
		тДанные = ПрочитатьJSON(тЧтение, Ложь, , , "ФункцияВосстановления", ЭтотОбъект);
		пинсстат=тДанные.pinsstatus;			
		к=0;
		для каждого стат из пинсстат цикл			
			к=к+1;
			если к=1 и стат=1 тогда этаформа.Объект.Реле1=Истина иначе этаформа.Объект.Реле1=ложь;конецесли;
			если к=2 и стат=1 тогда этаформа.Объект.Реле2=Истина иначе этаформа.Объект.Реле3=ложь;конецесли;
			если к=3 и стат=1 тогда этаформа.Объект.Реле3=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;
			если к=4 и стат=1 тогда этаформа.Объект.Реле4=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;
		конеццикла;		
   		тЧтение.Закрыть(); 		
		этаформа.Объект.жсон=фф;

КонецПроцедуры

&НаКлиенте
Процедура СчитатьСтатус(Команда)
		файл=новый чтениетекста("http://"+этаформа.Объект.ИП+"/");
		фф=файл.Прочитать();
		файл.Закрыть();
		фф=стрзаменить(фф,"<!DOCTYPE HTML>","");
		тЧтение=Новый ЧтениеJson;
		тЧтение.УстановитьСтроку(фф);
		тДанные = ПрочитатьJSON(тЧтение, Ложь, , , "ФункцияВосстановления", ЭтотОбъект);
		пинсстат=тДанные.pinsstatus;			
		к=0;
		для каждого стат из пинсстат цикл			
			к=к+1;
			если к=1 и стат=1 тогда этаформа.Объект.Реле1=Истина иначе этаформа.Объект.Реле1=ложь;конецесли;
			если к=2 и стат=1 тогда этаформа.Объект.Реле2=Истина иначе этаформа.Объект.Реле3=ложь;конецесли;
			если к=3 и стат=1 тогда этаформа.Объект.Реле3=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;
			если к=4 и стат=1 тогда этаформа.Объект.Реле4=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;
		конеццикла;		
   		тЧтение.Закрыть(); 		
		этаформа.Объект.жсон=фф;

КонецПроцедуры

&НаКлиенте

Функция ФункцияВосстановления(Свойство, Значение, ДополнительныеПараметры) Экспорт

Если Свойство = "ДатаJSON"Тогда

Возврат ПрочитатьДатуJSON(Значение, ФорматДатыJSON.ISO);

КонецЕсли;

Если Свойство = "СтрокаJSON" Тогда

Возврат СокрЛП(Значение);

КонецЕсли;

Если Свойство = "uidJSON" Тогда

Возврат Новый УникальныйИдентификатор(Значение);

КонецЕсли;

КонецФункции

&НаКлиенте

Процедура СчитатьСтатус(Команда)

файл=новый чтениетекста("http://"+этаформа.Объект.ИП+"/");

фф=файл.Прочитать();

файл.Закрыть();

фф=стрзаменить(фф,"<!DOCTYPE HTML>","");

тЧтение=Новый ЧтениеJson;

тЧтение.УстановитьСтроку(фф);

тДанные = ПрочитатьJSON(тЧтение, Ложь, , , "ФункцияВосстановления", ЭтотОбъект);

пинсстат=тДанные.pinsstatus;

к=0;

для каждого стат из пинсстат цикл

к=к+1;

если к=1 и стат=1 тогда этаформа.Объект.Реле1=Истина иначе этаформа.Объект.Реле1=ложь;конецесли;

если к=2 и стат=1 тогда этаформа.Объект.Реле2=Истина иначе этаформа.Объект.Реле3=ложь;конецесли;

если к=3 и стат=1 тогда этаформа.Объект.Реле3=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;

если к=4 и стат=1 тогда этаформа.Объект.Реле4=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;

конеццикла;

тЧтение.Закрыть();

этаформа.Объект.жсон=фф;

КонецПроцедуры

&НаКлиенте

Процедура СчитатьСтатус(Команда)

файл=новый чтениетекста("http://"+этаформа.Объект.ИП+"/");

фф=файл.Прочитать();

файл.Закрыть();

фф=стрзаменить(фф,"<!DOCTYPE HTML>","");

тЧтение=Новый ЧтениеJson;

тЧтение.УстановитьСтроку(фф);

тДанные = ПрочитатьJSON(тЧтение, Ложь, , , "ФункцияВосстановления", ЭтотОбъект);

пинсстат=тДанные.pinsstatus;

к=0;

для каждого стат из пинсстат цикл

к=к+1;

если к=1 и стат=1 тогда этаформа.Объект.Реле1=Истина иначе этаформа.Объект.Реле1=ложь;конецесли;

если к=2 и стат=1 тогда этаформа.Объект.Реле2=Истина иначе этаформа.Объект.Реле3=ложь;конецесли;

если к=3 и стат=1 тогда этаформа.Объект.Реле3=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;

если к=4 и стат=1 тогда этаформа.Объект.Реле4=Истина иначе этаформа.Объект.Реле4=ложь;конецесли;

конеццикла;

тЧтение.Закрыть();

этаформа.Объект.жсон=фф;

КонецПроцедуры

Оставить комментарий 1с, arduino, управление реле

Перебор каждого дня месяца за выбранный период, с выделением последнего дня месяца

05.10.2017 Павел Грибов PHP

Задача: перебрать каждый день, в выбранном периоде, отдельно выделяя последний день месяца.

Решение:

echo "<h1>Расчет за период с $dtstart по $dtend</h1>";

$date=$dtstart;   
while($date <= $dtend){
    echo "$date<br/>";    
    if (trim($date)==getLastDayOfMonth2(trim($date))) {
	echo "<b>$date</b><br/>";	
    };
  $date = date('Y-m-d', strtotime($date.' + 1 days'));       
};
function getLastDayOfMonth2($dateInISO8601){    
    $date = explode('-', $dateInISO8601);
    $zx=$date;
    if ( !checkdate ( $date[1] , $date[2] , $date[0] ) )
        return false; 
    $start = new DateTime( $dateInISO8601 );
    $end = new DateTime( $dateInISO8601 );
    $end->add( new DateInterval( 'P2M' ) );
    $interval = new DateInterval( 'P1D' );
    $daterange = new DatePeriod($start, $interval, $end);
    $prev = $start;
    foreach ($daterange as $date){
        if ($prev->format('m') != $date->format('m') )
            return  $zx[0]."-".$zx[1]."-".(int) $prev->format('d'); 
        $prev = $date;
    }    
    return false;
}

echo "<h1>Расчет за период с $dtstart по $dtend</h1>";

$date=$dtstart;

while($date <= $dtend){

echo "$date<br/>";

if (trim($date)==getLastDayOfMonth2(trim($date))) {

echo "<b>$date</b><br/>";

};

$date = date('Y-m-d', strtotime($date.' + 1 days'));

};

function getLastDayOfMonth2($dateInISO8601){

$date = explode('-', $dateInISO8601);

$zx=$date;

if ( !checkdate ( $date[1] , $date[2] , $date[0] ) )

return false;

$start = new DateTime( $dateInISO8601 );

$end = new DateTime( $dateInISO8601 );

$end->add( new DateInterval( 'P2M' ) );

$interval = new DateInterval( 'P1D' );

$daterange = new DatePeriod($start, $interval, $end);

$prev = $start;

foreach ($daterange as $date){

if ($prev->format('m') != $date->format('m') )

return $zx[0]."-".$zx[1]."-".(int) $prev->format('d');

$prev = $date;

}

return false;

}

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31