Архивы Павел - Страница 163 из 303

Резиновый виджет vk

18.10.2017 Павел Грибов WEB

По умолчанию виджет который предлагается vk для установке, не «резиновый». Исправляем:

<div id="vk_widget"></div>
		<script type="text/javascript" src="//vk.com/js/api/openapi.js?116"></script>
		<script>
		    function VK_Widget_Init(){
			document.getElementById('vk_widget').innerHTML = '<div id="vk_groups"></div>';
			VK.Widgets.Group("vk_groups", {mode: 0, width: "auto", height: "400"}, 128460609);
		    };
		    window.addEventListener('load', VK_Widget_Init, false);
		    window.addEventListener('resize', VK_Widget_Init, false);
		</script>

function VK_Widget_Init(){

document.getElementById('vk_widget').innerHTML = '<div id="vk_groups"></div>';

VK.Widgets.Group("vk_groups", {mode: 0, width: "auto", height: "400"}, 128460609);

};

window.addEventListener('load', VK_Widget_Init, false);

window.addEventListener('resize', VK_Widget_Init, false);

</script>

Оставить комментарий vk, резиновый виджет

Управление реле 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=ложь;конецесли;
		конеццикла;		
   		тЧтение.Закрыть(); 		
		этаформа.Объект.жсон=фф;

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

Оставить комментарий 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;

}

Перепрошивка приставки Vermax UHD200. Не удачная.

Прилетела задача чуть кастомизировать приставку Vermax UHD200 с прошивкой от НАГ. А именно часть приложений удалить, несколько приложений добавить. Образ оригинальной прошивки был в наличии. В формате zip. Решил попробовать ROM Helper,

Собственно эта программа позволяет выполнить именно те задачи которые мне нужны. А именно открыть архив, вывести список установленных программ, отметить галочками те которые нужно убрать, а так-же возможность добавить свои apk. Так-же было заявлено что умеет «подписывать» прошивки. Но как оказалось таки — не умеет.

Как мы видим, ругается на подпись и ставить не хочет.

Пробовал подписывать архив и не безызвестной программой ZipSigner — результат тот-же.

Думаю…

mysql_upgrade: [ERROR] 1813: Tablespace ‘`sys`.`sys_config`’ exists.

Исправляется:

sudo mysql_upgrade -f

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						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