Архивы arduino - Страница 2 из 4

Эмулятор Arduino

23.10.2023 Павел Грибов arduino

Редко когда пишу хвалебные отзывы, но тут исключение, ибо наконец нашел хороший инструмент для отладки проектов на ардулино и иже с ними, без доступа к железу. Лично для меня большим не удобством было, что чтобы что-то попрограммировать, нужно обязательно иметь железку, и обязательно собрать схему «в железе». Что иногда долго и безобразно выглядеще. Итак оно: https://wokwi.com/. Прмямо «онлайн» выбираешь железку, собираешь схему и прямо там пишешь код и выполняешь его. Светодиоды моргают, датчики и дисплеи показывают. А вот когда уже отладил всё, собирай железку живьем на здоровье..

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

Ночник из Arduino Mega

10.12.2017 Павел Грибов arduino

Купили как-то в FixPirice светильник «ночное» небо за 99р. Так-то бы в принципе и ничего, но единственный светодиод дико раздражал своим миганием невпопад. А тут как раз оказалась что у меня есть Arduino Mega завалящаяся да три светодиода. Час работы и вот результат 😉

https://youtu.be/vJfTsvMK9-I

Кому интересно вот Скетч:

void setup() {
  pinMode(13, OUTPUT);
  pinMode(9, OUTPUT);
  pinMode(12, OUTPUT);
  pinMode(11, OUTPUT);
  pinMode(10, OUTPUT);

  digitalWrite(13, LOW); 
  
  analogWrite(11, 100);  // средний
  analogWrite(9, 255);  //желтый
  analogWrite(12, 255);  //зеленый
  analogWrite(10, 255);   //красный
  
}

int step=8;
int paus=20;
void loop() {
  //зажигаем желтый, гасим зеленый
  for (int i=255;i>0;i=i-step){
    analogWrite(9, i);  //желтый    
    analogWrite(12, 255-i);  //зеленый
    delay(paus);
  };
  analogWrite(12, 255);
  //зажигаем красный, гасим желтый
  for (int i=255;i>0;i=i-step){
    analogWrite(10, i);  //красный
    analogWrite(9, 255-i);  //желтый    
    delay(paus);
  };
  analogWrite(9, 255);
  //зажигаем зеленый, гасим красный
  for (int i=255;i>0;i=i-step){
    analogWrite(12, i);  //зеленый
    analogWrite(10, 255-i);  //красный
    delay(paus);
  };
  analogWrite(10, 255);

  paus=paus-1;
  if (paus==5){paus=20;};
}

void setup() {

pinMode(13, OUTPUT);

pinMode(9, OUTPUT);

pinMode(12, OUTPUT);

pinMode(11, OUTPUT);

pinMode(10, OUTPUT);

digitalWrite(13, LOW);

analogWrite(11, 100); // средний

analogWrite(9, 255); //желтый

analogWrite(12, 255); //зеленый

analogWrite(10, 255); //красный

}

int step=8;

int paus=20;

void loop() {

//зажигаем желтый, гасим зеленый

for (int i=255;i>0;i=i-step){

analogWrite(9, i); //желтый

analogWrite(12, 255-i); //зеленый

delay(paus);

};

analogWrite(12, 255);

//зажигаем красный, гасим желтый

for (int i=255;i>0;i=i-step){

analogWrite(10, i); //красный

analogWrite(9, 255-i); //желтый

delay(paus);

};

analogWrite(9, 255);

//зажигаем зеленый, гасим красный

for (int i=255;i>0;i=i-step){

analogWrite(12, i); //зеленый

analogWrite(10, 255-i); //красный

delay(paus);

};

analogWrite(10, 255);

paus=paus-1;

if (paus==5){paus=20;};

}

Оставить комментарий arduino, mega, ночник, светодиоды

Управление реле 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, управление реле

Управление питанием при помощи Arduino. Часть третья.

21.02.2017 Павел Грибов arduino

В продолжение части 1 и части 2. выкладываю электрическую схему по подключению. Любезно предоставлено Фёдоровым Александром, далее текст и схемы — его.

Для осуществления развязки по питанию блока релле и основной платы Arduino, а также возможности прошивки через USB без включения внешнего питания рекомендуется подача рабочего питания +5V во внутреннюю линию 5V после преобразователя IC1 через внешний диод (чтобы при питании от USB питание не попадало на блок релле и внешний блок питания). Блок релле также желательно подключать через диод для предотвращения проникновения обратных бросков с блока релле в цепь питания Arduino, при этом перемычка питания блока релле должны быть снята. Небольшое занижение питания за счет диодного перехода до 4.5V не влияет на работу блоков Arduino т.к. сам CPU этих плат запитывается через преобразователь «3.3V» (IC6) имеющий низки параметр минимального падения напряжения около 0.28V, что позволяет запитывать плату даже от 3.7 V

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

Метка: arduino

Эмулятор Arduino

Ночник из Arduino Mega

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

Управление питанием при помощи Arduino. Часть третья.

Управление питанием при помощи Arduino . Часть вторая.