Помогите создать программу СИГНАЛИЗАЦИЮ О ЗЕМЛЕТРЯСЕНИИ

Клапауций
Offline
Зарегистрирован: 10.02.2013

SU-27-16 пишет:

Мона завести собак, кошек, рыбок, раков, сурков и создать систему отслеживания их поведения.... Самый лЮчший датчик будет :)

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

art100
Offline
Зарегистрирован: 09.03.2014

флудеры кодеры

неужто кода SOS ни у кого нет в виде подпрограмки?

art100
Offline
Зарегистрирован: 09.03.2014
//art to write 20140527 sos
//pins- ногЫ ---
const byte buzzPin=  8;// бузун он и в африке бузит
int    button5Pin= A5;// батон он и в африке батон
//constants-констоянки -------------
int pause = 100;
int note = 440;
//init- он и в африке инициализуравть надо-----------------------------------
void setup(){
    pinMode(buzzPin,OUTPUT);// вывод
    pinMode(button5Pin,INPUT_PULLUP);// ввод ..нахрена резистор паять если внутри чипа на + уже есть... Когда эта дурь кончиться у других...рИТОРИКА
}
// main= главнюк он и в африке главнюк ============================================
void loop(){
  if(digitalRead(button5Pin)==0){
    threeDots();
    threeDashes();
    threeDots();
    delay(3000);
  
    //sos
    //beep(50);
    //beep(50);
    //beep(50);
    //delay(100);
    //beep(150);
    //beep(150);
    //beep(150);
    //beep(50);
    //beep(50);
    //beep(50);
    //delay(1000);
    //sos
  }
}
//-------------------------------------------------------------
void buzzer1(int pin1, int note1, int time1){// three short signals
  for (int i=0; i<3; i++){
    tone(buzzPin, note, 100);
    delay(200);
    noTone(buzzPin);
  }
  delay(200);
}
//-------------------------------------------------------------
void threeDots(){// three short signals
  for (int i=0; i<3; i++){
    tone(buzzPin, note, 100);
    delay(200);
    noTone(buzzPin);
  }
  delay(200);
}
//-------------------------------------------------------------
void threeDashes(){// three long signals8
  for (int i=0; i<3; i++){
    tone(buzzPin, note, 300);
    delay(400);
    noTone(buzzPin);
  }
  delay(200);
} 
//- подпрограмка --------------------------------------------
void beep( int delt ){ //это не я писал какой-то другой хлопец
    tone(buzzPin, 2093);
    delay(delt);
    noTone(buzzPin);
    delay(delt);
}
//-------------------------------------------------------------

 

art100
Offline
Зарегистрирован: 09.03.2014

сделал героический подвиг потенциометр допаял

флудеры кто помнит как распаянный на плате светодиод обзывается

int led13=13; //???

 

чего он у меня горить постоянно?

кто косяк видит?

 

//art to write 20140527 sos
//pins- ногЫ ---
int    led13      =13;//на плате лампочку задействовать типа дом развалился уже 
const byte buzzPin= 8;// бузун он и в африке бузит
int    buttonPin5= A5;// батон он и в африке батон
int    potencPin0= A0;// груз подпружиненный думаю через шкиви или шестернки для чувствительности на него одевать
//constants-констоянки -------------
int pause = 100;
int note1 = 440;
int pot1  =   0;
//init- он и в африке инициализуравть надо-----------------------------------
void setup(){
  pinMode(led13,OUTPUT);// вывод
  digitalWrite(led13,LOW); //
  pinMode(buzzPin,OUTPUT);// вывод
  pinMode(buttonPin5,INPUT_PULLUP);// ввод ..нахрена резистор паять если внутри чипа на + уже есть... Когда эта дурь кончиться у других...рИТОРИКА
  pinMode(potencPin0,INPUT);// аналог ЦАП 10 битовый будет
  Serial.begin(9600);
}
// main= главнюк он и в африке главнюк ============================================
void loop(){
  // button-------------------------------
  if(digitalRead(buttonPin5)==0){
    digitalWrite(led13,HIGH);
    threeDots();
    threeDashes();
    threeDots();
    digitalWrite(led13,LOW);
  }
  // button-------------------------------
  // usb ----------------------------------------------------------------
//  if (Serial.available() > 0) {  
    pot1 = analogRead(potencPin0); 
    Serial.println(pot1); 
    if(pot1<400){ digitalWrite(led13,HIGH); Serial.println("dom razavalilsya");};
    if(pot1>600){ digitalWrite(led13,HIGH); Serial.println("dom razavalilsya");};
//  }
  // usb ----------------------------------------------------------------    
  
 //   delay(3000);
  
    //sos
    //beep(50);
    //beep(50);
    //beep(50);
    //delay(100);
    //beep(150);
    //beep(150);
    //beep(150);
    //beep(50);
    //beep(50);
    //beep(50);
    //delay(1000);
    //sos

}
//-------------------------------------------------------------
void buzzer1(int pin1, int note1, int time1){// three short signals
  for (int i=0; i<3; i++){
    tone(buzzPin, note1, 100);
    delay(200);
    noTone(buzzPin);
  }
  delay(200);
}
//-------------------------------------------------------------
void threeDots(){// three short signals
  for (int i=0; i<3; i++){
    tone(buzzPin, note1, 100);
    delay(200);
    noTone(buzzPin);
  }
  delay(200);
}
//-------------------------------------------------------------
void threeDashes(){// three long signals8
  for (int i=0; i<3; i++){
    tone(buzzPin, note1, 300);
    delay(400);
    noTone(buzzPin);
  }
  delay(200);
} 
//- подпрограмка --------------------------------------------
void beep( int delt ){ //это не я писал какой-то другой хлопец
    tone(buzzPin, 2093);
    delay(delt);
    noTone(buzzPin);
    delay(delt);
}
//-------------------------------------------------------------

 

 

флудеры вы где

что там по скучному телевизору смотреть

у меня 50 программ все надоели

скучно

с двух тарелок 5 спутников еще 3 000 каналов все скучное

если только ради музикы со спутника 

но долго хорошего безплатно не было

не помню

pan-electric
Offline
Зарегистрирован: 15.05.2014

Доброе утро всем. Арт100 а ты хорош. Да меня вчера не знай что напала в сон толкнуло над ноутбуком так и уснул когда был в форуме тут. А может в подсознание прогру экструдера раскрамсовывал???

pan-electric
Offline
Зарегистрирован: 15.05.2014

да ладно что ты там скрутился Арт100, я ведь только с хорошими намерениями и наверно это понятно из стиля моей переписки в форуме.

art100
Offline
Зарегистрирован: 09.03.2014

платку то к своему кольцу с проволкой прикрутил?

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

а в последнем уже аналог A0 

ну чтоб пьезики изгибать от сигнализайий или еще что достпуное

колеса грузики пружинки

1 середка ~500 максималка 1024

отлаживать естественно аналог через просмотр USB потока

то есть ввод с одно стороы платы слево

а вывод с другой стороны платы справо

это хороши стиль не запутаешся

 

 

pan-electric
Offline
Зарегистрирован: 15.05.2014

Нет не успел поздно пришёл после работы пришлось по калымить на другой работе а затем супер маркет и конце концов добрался до дома, скупался поел включил ноутбук зашёл в форум. Вот и всё конец дня.

art100
Offline
Зарегистрирован: 09.03.2014

поразвлекался с событиями лампочками

лампочку на плате накидал так чтоб событие без резета оставалось видно

переменник дернется тоже динамик вякнет и лампочка будет горет

сбрасывать событие конечно можно резетом

короче много быкав щас поробуую кино выложить

//art to write 20140527 sos
//pins- ногЫ ---
int    led13      =13;
const byte buzzPin= 8;// бузун он и в африке бузит
int    buttonPin5= A5;// батон он и в африке батон
int    potencPin0= A0;
//constants-констоянки -------------
int pause = 100;
int note1 = 440;
int pot1  =   0;
//init- он и в африке инициализуравть надо-----------------------------------
void setup(){
  pinMode(led13,OUTPUT);// вывод
//  digitalWrite(led13,LOW); //
  pinMode(buzzPin,OUTPUT);// вывод
  pinMode(buttonPin5,INPUT_PULLUP);// ввод ..нахрена резистор паять если внутри чипа на + уже есть... Когда эта дурь кончиться у других...рИТОРИКА
  pinMode(potencPin0,INPUT);// аналог ЦАП 10 битовый будет
  Serial.begin(9600);
}
// main= главнюк он и в африке главнюк ============================================
void loop(){
  // button-------------------------------
  if(digitalRead(buttonPin5)==0){
    digitalWrite(led13,HIGH);
    threeDots();
    threeDashes();
    threeDots();
    digitalWrite(led13,LOW);
  }
  // button-------------------------------
  // usb ----------------------------------------------------------------
//  if (Serial.available() > 0) {  
    pot1 = analogRead(potencPin0); 
    //commandusb = Serial.read();
    //if (commandusb==76 ) {digitalWrite(led3, HIGH);} // Laser on  L
    //if (commandusb==108) {digitalWrite(led3,  LOW);} // laser off l
    //if (commandusb==45 ) {stepA4988(true, stepycor,sp1table);} //  down+      
    //if (commandusb==43 ) {stepA4988(false,stepycor,sp1table);} //  up  -
    Serial.println(pot1); 
    if(pot1<400){ digitalWrite(led13,HIGH); Serial.println("dom razavalilsya");threeDots();};
    if(pot1>600){ digitalWrite(led13,HIGH); Serial.println("dom razavalilsya");threeDots();};
//  }
  // usb ----------------------------------------------------------------    
  
 //   delay(3000);
  
    //sos
    //beep(50);
    //beep(50);
    //beep(50);
    //delay(100);
    //beep(150);
    //beep(150);
    //beep(150);
    //beep(50);
    //beep(50);
    //beep(50);
    //delay(1000);
    //sos

}
//-------------------------------------------------------------
void buzzer1(int pin1, int note1, int time1){// three short signals
  for (int i=0; i<3; i++){
    tone(buzzPin, note1, 100);
    delay(200);
    noTone(buzzPin);
  }
  delay(200);
}
//-------------------------------------------------------------
void threeDots(){// three short signals
  for (int i=0; i<3; i++){
    tone(buzzPin, note1, 100);
    delay(200);
    noTone(buzzPin);
  }
  delay(200);
}
//-------------------------------------------------------------
void threeDashes(){// three long signals8
  for (int i=0; i<3; i++){
    tone(buzzPin, note1, 300);
    delay(400);
    noTone(buzzPin);
  }
  delay(200);
} 
//- подпрограмка --------------------------------------------
void beep( int delt ){ //это не я писал какой-то другой хлопец
    tone(buzzPin, 2093);
    delay(delt);
    noTone(buzzPin);
    delay(delt);
}
//-------------------------------------------------------------

 

кино

http://yadi.sk/d/PYwtDmEjRUkgT

 

Andrey_Y_Ostanovsky
Offline
Зарегистрирован: 03.12.2012

SU-27-16 пишет:

В 1989-ом в Туркмении - узнал про землетрус в 5 баллов только когда пришёл на работу ( первый этаж )...

Мы ночевали на земле в палатках - дак о том, что ночью прошло землетрясение, поняли только тогда, когда на следующий день шли по горной тропе, а весь склон был в трещинах и свежих оползнях... Молодые были, сон крепкий... :)

pan-electric
Offline
Зарегистрирован: 15.05.2014

Очевидно тема серьёзная о сигнализации землетрясении. Я вот всё думаю какой датчик более надёжный и чувствительным был.

art100
Offline
Зарегистрирован: 09.03.2014

тут же давали

кторый в мире слуашает

а это как правило

переменник или изгибая пьезик грузами

потом на паре операционников типа AD324 дифференциально сбалансированную схему

потом в 3-ий операцинник типа AD324 получили красивую очень точную форму (синусойду уменьшающуюся например)

потом детекторный приемник элементарный на диоде в АЦП ноги A0 (я ведь от туда кодом слушаю) 

а код уже написан

 

 

pan-electric
Offline
Зарегистрирован: 15.05.2014

Арт100 большое спасибо и искренно благодарен за программку которую выложил и видео о нём. Хочу спросит там у тебя одна плата к Ардуине подключена, она имеет какую то функцию к этому?

pan-electric
Offline
Зарегистрирован: 15.05.2014

не думаю что этот датчик на основе пьезокристалле самый подходящий из точки того что: а) направления колебания то есть если колебании попадут точно ребром на датчик. б) вообще колебании земные бывают вертикальные и горизонтальные.

pan-electric
Offline
Зарегистрирован: 15.05.2014

Арт100 вопрос к Аналоговым ходом если устанавливать так pinMode(potencPin0,INPUT); то становиться 10битовыми или только А0?

pan-electric
Offline
Зарегистрирован: 15.05.2014

Добрый день. Артём опять спасибо за отклик и за уделёное время. Вчера перенёс программу выставленную тобою, работает. Пока не мучил и не трогал Ардуинку что бы посмотреть если какие то уязвимые места в программе. Детально осматриваю почему и зачем так написано, что бы научиться хоть немного и постепенно.

art100
Offline
Зарегистрирован: 09.03.2014

pan-electric пишет:
... что бы научиться ...

плата надеюсь стандартная синенькая 

на плате тогда все буквы будут совпадать с кодом

спрашивай

глядишь и сюда загляну

 

pan-electric
Offline
Зарегистрирован: 15.05.2014

Доброе утро. Да да синенькая стандартная. Купил для сына вообще то что бы увлечь его в ремесло это, но пока базовых навыков если сам не научусь как сыну толковать буду. Но и себе тоже заодно, плюс научиться и использовать в реализации автоматики с малыми расходами по сравнению одного готового PLC. НУ и иногда даже жалко ставить один PLC а SMART RELAY не подходят малы очень.

art100
Offline
Зарегистрирован: 09.03.2014

есть простая официальная картинка

советую в качестве фоновой иметь

для начала лучшей шпаргалки нет

тут и реальная распиновка и ардуиновская и основные функции Arduino IDE

много вопросов снимают

сейчас в третей версии Arduino Uno R3 usb порт обслуживает не простенькая ft232 а навороченная за безплатно atmega16U2 за свою дружбу с компилятором и разные возможные извращения уже на последовательном порту 

сам atmel предложил и договорился с microsft windows непонятно почему дрова еще надо вливать

по видимому сам microsoft еще вовсю проталкивает своего Кипариса для переферийных устройств с дорогим только мелкомягкодружным компилятором

 

твой вопрос относился к голубой части картинки

 

pan-electric
Offline
Зарегистрирован: 15.05.2014

Искренний благодарен Артём. Спасибо большое. Нет ничего лучшего когда есть вот такие примерные люди, которые помогают в нужде.

pan-electric
Offline
Зарегистрирован: 15.05.2014

Всем добрый вечер. Осмотрел свою Аурдуинку Уно она REV3. Классно хоть не старую подсунули.

art100
Offline
Зарегистрирован: 09.03.2014

купи в свою платку джойстик http://arduino.ru/forum/apparatnye-voprosy/hid-device-i-windows-tolko-leonardo-micro-da-nu-ne-veryu

и всего-то

новые и старые игрушки джойстик пробьется управлять

 

я нашел прошивочку виндо-совместимую и твоей платки

бери целиком архив 8 мег

там все что нужно прошивка прошивальщик код игра (код с уникальными командами в соответсвии с уникальным.h заголовком)

там у видиел заложенные возможности 10-ка кнопок XYZ камеры какие-то наезды отьезды думаю это прицелы

я даже не знаю сколько джойстиков, судя по ArduinoUnoR3 аналоговым ногам штуки 3 наверно

я пока один воткнул и pacman-а старого гоняю

на ней ведь два чипа один из которых вполне взрослый USB - ATmega16U2 в если в предшественника могли уже пихать то в этого точно можно

пока пишут что одновременно режими Adruino и HID-deviceWindows(Android) не влезает приходится читсо его резет ножки коротить

и не надо спецзаточенные Teensy не знаю где их находят за 16$ я меньше 23$+доставка не вижу

и не надо большие Arduino Mega ADK за 30$+доставка=50$

одночиповые дохлые Arduino Leonardo официально имеют прошивку клавиатуры и мыши

короче все в сад

берем за 5$ ArduinoUnoR3 + 5$ джойстик мной обнаруженную прошивку код может чуток подправить пять одножильных проводов у телефонистов откусить 10 см и все

кричим на весь дом Ай-Яй-яй

это делает втоя плата

проверил уже кричу

старый пакман звук захватывает в конце повисает конечно перезапускать надо но играть это не мешает

 

 

pan-electric
Offline
Зарегистрирован: 15.05.2014

Добрый день всем. Спасибо Артём, как буду дома сразу спущу и посмотрю. Артём у меня есть Агент там я "gioti"  . Если хочешь можно там переписываться и познакoмиться.