Page 16 sur 16

Re: Bouée Cardinale

Posté : 15 Fév 2013 18:54
par Rackham
papy94 a écrit :cela n’empêche que tu devrais investir dans un arduino
pour ton Uboot, tu pourrais faire des tas de choses qui te rendraient pleins de service

sur le site de Alain (bateautruc), tout est super bien expliqué, c'est grâce a lui si je commence a comprendre un peu l’électronique et que je suis capable de te proposer quelque chose
Il y a pleins d'exemples que Alain a fait, et toutes les explications sont facilement compréhensibles par nous les débutants,et en plus il est super cool

et il y a aussi Laurent qui bien qu'il ne parle pas beaucoup en connait un rayon

lâches toi :bave:


ouai je sais bien ...l'arduino est la reponse à beaucoup de question :) j'ai vu que le site de Alain est super à ce sujet !

Re: Bouée Cardinale

Posté : 15 Fév 2013 20:27
par papy94
suite a un mail de Alain

pourquoi faire compliqué quand ont peu faire simple ,il n'a pas tout a fait tord

http://www.conrad.fr/ce/fr/product/173495/LED-Clignotante-8-Mm-verte

j'en ai honte :gne:

Re: Bouée Cardinale

Posté : 15 Fév 2013 22:08
par Rackham
hihi et moi avec mon fer à souder :Oo:
mais suis pas sur qu'il y ait du blanc ....
merci à Alain :Up:

Re: Bouée Cardinale

Posté : 15 Fév 2013 22:14
par Patjabix

Re: Bouée Cardinale

Posté : 15 Fév 2013 22:40
par Rackham
Bon et bien là on est pas mal ;) A défaut de bricoler un module 9 éclats :Up:
ça laisse le temps de bricoler

Re: Bouée Cardinale

Posté : 15 Juin 2018 13:09
par Waverunner
Bonjour
Désolé de deterrer ce post un peu vieux
Je ne suis pas modeliste naval, mais pour les besoins d'un collegue. J'ai realisé un module atiny85 qui permet de faire les signaux des bouees cardinales avec LED
Il est bien sur possible de piloter un relais a la place de la led
Un cavalier a 4 positions selectionne le type ( N, E, O, S )
Si vous etes interressé, faite le moi savoir, je partagerai les documents
Cordialement

Re: Bouée Cardinale

Posté : 15 Juin 2018 20:35
par Serge50
Bonsoir
Je suis preneur de ces informations.
Cordialement
Serge

Re: Bouée Cardinale

Posté : 18 Juin 2018 18:44
par Waverunner
Bonsoir,

voici les infos
si la résolution n'est pas terrible, me contacter avec un mail en MP pour avoir les images non réduites.

Le Schéma:

Image




Une Vue 3D

Image



Le PCB

Image



L'Implantation:

Image



Et enfin, le code:

Code : Tout sélectionner

// simulation balise cardinale avec choix du quadrant geographique par selection.
// Pour ATtiny85
// Cree 9 fevrier 2018 par Eric Pruvot
// utilisation et modification libre de droit pour usage prive, usage commercial: me consulter eric.pruvot@live.fr



int DelaiEclat = 250; //  definition de la duree d'un eclat
int DelaiEclatLong = 1000; //  definition de la duree d'un eclat long
int DelaiPause = 250; //  definition de la duree de la pause apres l'eclat
int DelaiPauseMoy = 1250;  // definition de la pause a la fin du cycle d'eclat
int DelaiPauseLong = 1750;  // definition de la pause longue pour fin de cycle Est
int SortieLed = 0; // definie la pin 0 comme sortie Led
int InNord = 1; // definie la pin 1 pour choisir cardinale Nord
int InEst = 2; // definie la pin 2 pour choisir cardinale Est
int InSud = 3; // definie la pin 3 pour choisir cardinale Sud
int InOuest = 4; // definie la pin 4 pour choisir cardinale Ouest
void setup() {
  pinMode(SortieLed, OUTPUT);
  pinMode(InNord, INPUT_PULLUP);
  pinMode(InEst, INPUT_PULLUP);
  pinMode(InSud, INPUT_PULLUP);
  pinMode(InOuest, INPUT_PULLUP);
  }

// cette boucle tourne en permanence
void loop() {
 
  if (digitalRead(InNord) == 0)
  {
  digitalWrite(SortieLed, HIGH);    // 1 eclat
  delay(DelaiEclat); // duree eclat
  digitalWrite(SortieLed, LOW);    // pause courte
  delay(DelaiPause);  // duree pause courte                     
  }
  else if(digitalRead(InEst) == 0)
  {
  for (int x = 1; x <= 3; ++x) { // 3 sintillements
  digitalWrite(SortieLed, HIGH);    // 1 eclat
  delay(DelaiEclat); // duree eclat
  digitalWrite(SortieLed, LOW);    // pause courte
  delay(DelaiPause); }  // duree pause courte                     
  delay(DelaiPauseLong);  // duree pause fin de cycle 
  }
  else if(digitalRead(InSud) == 0)
  {
  for (int y = 1; y <= 6; ++y) { // 6 sintillements
  digitalWrite(SortieLed, HIGH);    // 1 eclat
  delay(DelaiEclat); // duree eclat
  digitalWrite(SortieLed, LOW);    // pause courte
  delay(DelaiPause); }  // duree pause courte
  digitalWrite(SortieLed, HIGH);    // 1 eclat long
  delay(DelaiEclatLong); // duree eclat long
  digitalWrite(SortieLed, LOW);                   
  delay(DelaiPauseMoy);  // duree pause fin de cycle
  }
  else if(digitalRead(InOuest) == 0)
  {
  for (int z = 1; z <= 9; ++z) { // 9 sintillements
  digitalWrite(SortieLed, HIGH);    // 1 eclat
  delay(DelaiEclat); // duree eclat
  digitalWrite(SortieLed, LOW);    // pause courte
  delay(DelaiPause); }  // duree pause courte                     
  delay(DelaiPauseMoy);  // duree pause fin de cycle
  }
  else
  { digitalWrite(SortieLed, HIGH); // Si pas de position selectionnee envoi un "K" en code morse lumineux pour demander la configuration
    delay(600);                    // Trait
    digitalWrite(SortieLed, LOW);
    delay(200);
    digitalWrite(SortieLed, HIGH);
    delay(200);                    // Point
    digitalWrite(SortieLed, LOW);
    delay(200);
    digitalWrite(SortieLed, HIGH);
    delay(600);                    // Trait
    digitalWrite(SortieLed, LOW);
    delay(600);
    }
}




Voila Serge
si je peux aider, je ne passerai pas très souvent vu que ça n'est pas trop mon hobby, mais je ferai de mon mieux.
je pense qu'un MP déclenche un mail, les admins confirmeront.

bon amusement

cordialement

Eric

Re: Bouée Cardinale

Posté : 26 Juin 2018 20:17
par Rackham
Excellent :Up: