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

1C, arduino

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

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
&НаКлиенте
Функция ФункцияВосстановления(Свойство, Значение, ДополнительныеПараметры) Экспорт
   Если Свойство = "Дата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=ложь;конецесли;
конеццикла;
   тЧтение.Закрыть();
этаформа.Объект.жсон=фф;
 
КонецПроцедуры