MegaD 328

vtec

На все ли я ответил?

Bluefox

~~@Bluefox:~~

3. Что надо вызвать чтобы появилась страница с настройками для порта? "http://192.168.0.14/sec/?pt=0" ?

А для P14 "http://192.168.0.14/sec/?pt=14" ? `

http://192.168.0.14/sec/?pt=0
filename="p0.png" index="2">~~

http://192.168.0.14/sec/?pt=7
filename="p7.png" index="1">~~

http://192.168.0.14/sec/?pt=14
filename="p14.png" index="0">~~ `
Вроде начинает проясняться. Спасибо!

> Надеюсь это только для симулятора :), не для парсинга %)
Именно для парсинга. Я хочу считать все "…sec/?pt=Х" и извлечь настройки. А что есть какой то другой путь?

vtec

Если я не ошибаюсь, то есть, т.к. есть скрипт который все настройки экспортирует.

Работа с настройками

При использовании ключа –ee (стирание EEPROM), часто необходимого при обновлении прошивки, из памяти устройства удаляется вся текущая нстройка портов. Это очень неудобно после перепрошивки восстанавливать настройки устройства и портов. Поэтому начиная с версии 1.1 скрипта megad-cfg.php была предусмотрена функция считывания и записи текущих настроек.

Считывание конфигурации устройства и запись в файл megad.cfg

php megad-cfg.php --ip 192.168.0.14 --read-conf megad.cfg -p sec

Считывание конфигурации из файла и запись в устройство

php megad-cfg.php --ip 192.168.0.14 --write-conf megad.cfg -p sec

Сканирование всех устройств типа MegaD-328 в сети

php megad-cfg.php –scan

vtec

Сканирование (из php файла):

$sock = socket_create(AF_INET, SOCK_DGRAM, SOL_UDP); 
socket_set_option($sock, SOL_SOCKET, SO_BROADCAST, 1); 
$broadcast_ip = preg_replace("/(\d+)\.(\d+)\.(\d+)\.(\d+)/", "$1.$2.$3.255", $local_ip);

# Prepearing sockets
if ( !empty($options['local-ip']) )
$local_ip = $options['local-ip'];
else
{
	$local_ip = gethostbyname(gethostname());
	if ( empty($local_ip) || preg_match("/127\./", $local_ip) )
	{
		if ( preg_match("/^WIN/", PHP_OS) )
		$local_ip = get_local_ip_win();
		else
		{
			$find_ip = get_local_ip();
			foreach ( $find_ip as $iface => $iface_ip)
			{
				if ( preg_match("/^192\.168/", $find_ip[$iface]) || preg_match("/^10\./", $find_ip[$iface]) )
				$local_ip = $find_ip[$iface];
			}
		}
	}

	if ( !preg_match("/192\.168\./", $local_ip) && !preg_match("/10\.0\./", $local_ip) && !preg_match("/172\.16\./", $local_ip) )
	{
		echo "Unable to detect local network\nPlase, specify local IP-address with --local-ip\n";
		exit;
	}
}

# Scanning network for Mega-cool MegaD-devices ;)
if ( array_key_exists('scan', $options) || array_key_exists('s', $options) )
{

	$broadcast_string = chr(0xAA).chr(0).chr(12);

	socket_sendto($sock, $broadcast_string, strlen($broadcast_string), 0, $broadcast_ip, 52000);
	usleep(100);
	do
	{
		$pkt = fread($socket, 10);
		if ( !empty($pkt) && ord($pkt[0]) == 0xAA )
		echo ord($pkt[1]).".".ord($pkt[2]).".".ord($pkt[3]).".".ord($pkt[4])."\n";
	}
	while ( $pkt != false );
}

Чтение конфига

	if ( array_key_exists('read-conf', $options) )
	{
		echo "Reading configuration... ";

		$pages = array("cf=1", "cf=2");
		//$pages = array();
		$page = file_get_contents("http://".$options['ip']."/".$options['p']);
		$ports = preg_replace("/.*\?pt=(\d+).*/", "$1", $page);
		for ( $i = 0; $i <= $ports; $i++ )
		$pages[] = "pt=$i";

		$fh = fopen($options['read-conf'], "w");
		$dom = new DOMDocument();
		$preset_flag = 0;

		for ( $i = 0; $i < count($pages); $i++ )
		{
			if ( $preset_flag == 1 )			
			{
				//echo "Setting preset 0\n";
				$page = file_get_contents("http://".$options['ip']."/".$options['p']."/?cf=1&pr=0");
				sleep(1);
				$preset_flag = 2;
			}

			$page = file_get_contents("http://".$options['ip']."/".$options['p']."/?".$pages[$i]);

			@$dom->loadHTML($page);
			//$url = "http://".$options['ip']."/".$options['p']."/?";
			$url = "";

			$els=$dom->getelementsbytagname('input');
			foreach($els as $inp)
			{
				if ( $inp->getAttribute('type') != "submit" )
				{
					$name=$inp->getAttribute('name');
					//$value=urlencode($inp->getAttribute('value'));
					if ( $inp->getAttribute('type') == "checkbox" )
					{
						if ( $inp->hasAttribute('checked') )
						$value=1;
						else
						$value='';
					}
					else
					$value=$inp->getAttribute('value');
					if ( $name != "pt" )
					{
						if ( $name == "sl" && empty($value));
						else
						$url .= "$name=$value&";
					}
				}
			}

			$select = $dom->getelementsbytagname('select');

			foreach($select as $elem)
			{
				$name=$elem->getAttribute('name');
				$els=$elem->getelementsbytagname('option');

				$sel_flag = 0;
				foreach($els as $inp)
				{
					if ( $inp->hasAttribute('selected') )
					{
						//$name=$inp->getAttribute('name');
						$value=urlencode($inp->getAttribute('value'));
						$value=$inp->getAttribute('value');
						$url .= "$name=$value&";
						$sel_flag = 1;

						if ( $pages[$i] == "cf=1" && $name == "pr" && !empty($value) )
						{
							$preset_flag = 1;
							$stored_preset = $value;
						}

					}
				}
				// Хак ввиду того, что PHP DOM почему-то не может распарсить значение <> поля "Mode"
				if ( $sel_flag == 0 && $name == "m" )
				$url .= "m=3&";

			}

			$url = preg_replace("/&$/", "", $url);
			fwrite($fh, "$url\n");
		}

		fclose($fh);

		if ( $preset_flag == 2 )			
		{
			//echo "Setting preset 1\n";
			$page = file_get_contents("http://".$options['ip']."/".$options['p']."/?cf=1&pr=$stored_preset");
			sleep(1);
		}

		echo "OK\n";
	}

vtec

Посмотрел чтение конфига, там тот же парсинг идет :lol:

А вот поиск устройств, всего две строки, отправка udp запроса бродкастом на порт 52000

vtec

Из мануала:

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

Bluefox

Спасибо. Вот теперь я знаю, что я буду делать на выходных.

Bluefox

Что возвращают?

Как HTML.

vtec

MegaD-328 by [ab-log.ru](http://ab-log.ru) (fw: 3.30b5)
[Config](/sec/?cf=1)
-- Ports --
[P0 - IN](/sec/?pt=0)
[P1 - IN](/sec/?pt=1)
[P2 - IN](/sec/?pt=2)
[P3 - IN](/sec/?pt=3)
[P4 - IN](/sec/?pt=4)
[P5 - IN](/sec/?pt=5)
[P6 - IN](/sec/?pt=6)
[P7 - OUT](/sec/?pt=7)
[P8 - OUT](/sec/?pt=8)
[P9 - OUT](/sec/?pt=9)
[P10 - OUT](/sec/?pt=10)
[P11 - OUT](/sec/?pt=11)
[P12 - OUT](/sec/?pt=12)
[P13 - OUT](/sec/?pt=13)
[A6 - ADC](/sec/?pt=14)
[A7 - ADC](/sec/?pt=15)

2. Тоже самое что и первое

3.

[Back](/sec) | [Megad-ID](/sec/?cf=2)

<form action="/sec/">IP: 
Pwd: 
GW: 
SRV: 
Script: 
Preset: <select name="pr"><option value="0" selected="">Norm</option><option value="1">7I7O</option></select>
T check: 
Alarm T: 
Cur T: 37
</form>

[Back](/sec) | [Config](/sec/?cf=1)

<form action="/sec/">Megad-ID: 
srv loop: 
</form>

vtec

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

Bluefox

Дописал драйвер с твоей помощью. Можешь попробовать?

Haus

Привет

В новой прошивке Megad есть поддержка датчиков 1wire DS18B20 и DS1990A (считыватели ключей iButton, EM-Marene с поддержкой протокола TM/1-wire). Вместо DHT22 определился DHT11, а вместо 1W тоже определился DHT11.

1W

[Back](/sec)
P7
temp:26.81

<form action="/sec/">Type <select name="pty"><option value="255">NC</option><option value="0">In</option><option value="1">Out</option><option value="3" selected="">DSen</option></select>
Mode <select name="m"><option value="0">Norm</option><option value="1" selected="">></option><option value="2"><</option><option value="3"><></option></select>
Val 
Act 
Net  
Sensor: <select name="d"><option value="1">DHT11</option><option value="2">DHT22</option><option value="3" selected="">1W</option><option value="4">iB</option></select>
</form>

DHT22

[Back](/sec)
P0
temp:30.30
hum:38.70

<form action="/sec/">Type <select name="pty"><option value="255">NC</option><option value="0">In</option><option value="1">Out</option><option value="3" selected="">DSen</option><option value="2">ADC</option></select>
Sensor: <select name="d"><option value="1">DHT11</option><option value="2" selected="">DHT22</option><option value="3">1W</option><option value="4">iB</option></select>
</form>

443_screencapture-192-168-1-68-8081-1440449132648.png
443_screencapture-192-168-1-14-sec-1440449943300.png

Bluefox

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

Я запрограммировал, как в новой версии. Кстати у неё есть номер, что бы я мог написать, что поддерживается версия от X.Y

Может кто нибудь попробовать новую версию?

cd /opt/iobroker
npm install https://github.com/ioBroker/ioBroker.megad/tarball/master

> В новой прошивке Megad есть поддержка датчиков 1wire DS18B20 и DS1990A (считыватели ключей iButton, EM-Marene с поддержкой протокола TM/1-wire). Вместо DHT22 определился DHT11, а вместо 1W тоже определился DHT11.
А всё остальное работает???

Andrei34

В настройках параметры считываются шыкарно , но не записываются . А в Vis ни на что не реагирует .

Bosya

Поигрался с новым драйвером и есть вопрос про длинное нажатие. Сейчас это работает как одинарное и двойное нажатие - true и сразу false, хотя я продолжаю держать кнопку.Хотелось бы иметь true после времени задержки, а false по отпусканию кнопки…

2015-09-03 13:54:06.920 - debug: inMem message * megad.0.p11_P11_long val=true, ack=true, ts=1441277647, from=system.adapter.megad.0, lc=1441277647

2015-09-03 13:54:07.126 - debug: inMem message * megad.0.p11_P11_long val=false, ack=true, ts=1441277647, from=system.adapter.megad.0, lc=1441277647

vtec

А зачем?

Вообще мега такой запрос отправляет, можете на свой скрипт направить мегу.

Bosya

~~@vtec:~~

А зачем? `
Мне это нужно для димирования. На одиночный и двойной клик вешаем какие то функции - например включение/выключение свете, общее выключение света. На длинное нажатие вешаем плавную регулировку яркости.
~~@vtec:~~

Вообще мега такой запрос отправляет, можете на свой скрипт направить мегу. `
Мега не может такой запрос отправлять, так как p11_P11_long, это чисто программная переменная, которая генерируется после определенной задержки длинного нажатия и выставляется в true, а вот после этого сразу скидывается в false. Не совсем логично. Если кому надо не для димирования, то он ловит только true и пользует его, а для димирования нужен реальный false который будет генерироваться по отпусканию кнопки.

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

А чем может помешать правильная обработка конца нажатия?

Bluefox

~~@Andrei34:~~

В настройках параметры считываются шыкарно , но не записываются . `
А можно логи? (Предварительно выставить на level=debug)

~~@Andrei34:~~

А в Vis ни на что не реагирует . `
Поправил. Должно работать.

Осталось выяснить, что делать с выходом в режиме PWM.

Bluefox

~~@Bosya:~~

Поигрался с новым драйвером и есть вопрос про длинное нажатие. Сейчас это работает как одинарное и двойное нажатие - true и сразу false, хотя я продолжаю держать кнопку.Хотелось бы иметь true после времени задержки, а false по отпусканию кнопки…

2015-09-03 13:54:06.920 - debug: inMem message * megad.0.p11_P11_long val=true, ack=true, ts=1441277647, from=system.adapter.megad.0, lc=1441277647

2015-09-03 13:54:07.126 - debug: inMem message * megad.0.p11_P11_long val=false, ack=true, ts=1441277647, from=system.adapter.megad.0, lc=1441277647 `
Поправил. Установка через github, как сверху описано.

Bosya

~~@Bluefox:~~

Поправил. Установка через github, как сверху описано. `
Спасибо, это заработало отлично.

Есть следующая проблема. Для выходов ШИМ не правильно читаются данные. Если 0 то val=false, а если 1-255 то val = true.

Приєтом команды:

http://192.168.24.69/sec/?pt=12&cmd=get

255 (ШИМ Р12 - 250, val=true)

http://192.168.24.69/sec/?cmd=all

;;;;;;;temp:0/hum:0;;;ON;OFF/14;<color color="red">1;temp:25/hum:33;799;1023 (ШИМ р12 - 1, val=true)

2015-09-09 10:37:08.053 - debug: megad.0 detected new value on port [12]: false

2015-09-09 10:37:08.078 - debug: inMem message megad.0.* megad.0.p12_P12 val=false, ack=true, ts=1441784228, from=system.adapter.megad.0, lc=1441784228
645____.png

NEWS

MegaD 328

Support us

902
Online

31.6k
Users

79.4k
Topics

1.3m
Posts

NEWS

MegaD 328

Support us

902Online

31.6kUsers

79.4kTopics

1.3mPosts

902
Online

31.6k
Users

79.4k
Topics

1.3m
Posts