Super Simple Sound Doppler Peiler

Hardware en software.
Bericht
Auteur
Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#721 Bericht door Dopp »

73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#722 Bericht door Dopp »

Hallo Allemaal,

Mijn Arduino nano/uno sketch voor de Mario vos met CW ID

Alleen een PTT schakeltorretje en een audio filtertje is nodig.

Have Fun !!

Code: Selecteer alles

/*
  Tried to make a Fox generator with CW from it 24-08-2018 PA3BNX
  
  Arduino Mario Bros Tunes
  With Piezo Buzzer and PWM

  Connect the positive side of the Buzzer to pin 3,
  then the negative side to a 1k ohm resistor. Connect
  the other side of the 1 k ohm resistor to
  ground(GND) pin on the Arduino.

  by: Dipto Pratyaksa
  last updated: 31/3/13
*/

/*************************************************
 * Public Constants
 *************************************************/
//Integer
byte pinBuzzer=3;
byte pinPTT=6;
byte pinNote=LED_BUILTIN;

int freq=400; //Freq CW
int dih=75;
int dah;
int space;
int separator;


#define NOTE_B0  31
#define NOTE_C1  33
#define NOTE_CS1 35
#define NOTE_D1  37
#define NOTE_DS1 39
#define NOTE_E1  41
#define NOTE_F1  44
#define NOTE_FS1 46
#define NOTE_G1  49
#define NOTE_GS1 52
#define NOTE_A1  55
#define NOTE_AS1 58
#define NOTE_B1  62
#define NOTE_C2  65
#define NOTE_CS2 69
#define NOTE_D2  73
#define NOTE_DS2 78
#define NOTE_E2  82
#define NOTE_F2  87
#define NOTE_FS2 93
#define NOTE_G2  98
#define NOTE_GS2 104
#define NOTE_A2  110
#define NOTE_AS2 117
#define NOTE_B2  123
#define NOTE_C3  131
#define NOTE_CS3 139
#define NOTE_D3  147
#define NOTE_DS3 156
#define NOTE_E3  165
#define NOTE_F3  175
#define NOTE_FS3 185
#define NOTE_G3  196
#define NOTE_GS3 208
#define NOTE_A3  220
#define NOTE_AS3 233
#define NOTE_B3  247
#define NOTE_C4  262
#define NOTE_CS4 277
#define NOTE_D4  294
#define NOTE_DS4 311
#define NOTE_E4  330
#define NOTE_F4  349
#define NOTE_FS4 370
#define NOTE_G4  392
#define NOTE_GS4 415
#define NOTE_A4  440
#define NOTE_AS4 466
#define NOTE_B4  494
#define NOTE_C5  523
#define NOTE_CS5 554
#define NOTE_D5  587
#define NOTE_DS5 622
#define NOTE_E5  659
#define NOTE_F5  698
#define NOTE_FS5 740
#define NOTE_G5  784
#define NOTE_GS5 831
#define NOTE_A5  880
#define NOTE_AS5 932
#define NOTE_B5  988
#define NOTE_C6  1047
#define NOTE_CS6 1109
#define NOTE_D6  1175
#define NOTE_DS6 1245
#define NOTE_E6  1319
#define NOTE_F6  1397
#define NOTE_FS6 1480
#define NOTE_G6  1568
#define NOTE_GS6 1661
#define NOTE_A6  1760
#define NOTE_AS6 1865
#define NOTE_B6  1976
#define NOTE_C7  2093
#define NOTE_CS7 2217
#define NOTE_D7  2349
#define NOTE_DS7 2489
#define NOTE_E7  2637
#define NOTE_F7  2794
#define NOTE_FS7 2960
#define NOTE_G7  3136
#define NOTE_GS7 3322
#define NOTE_A7  3520
#define NOTE_AS7 3729
#define NOTE_B7  3951
#define NOTE_C8  4186
#define NOTE_CS8 4435
#define NOTE_D8  4699
#define NOTE_DS8 4978

#define melodyPin 3
//Mario main theme melody
int melody[] = {
  NOTE_E7, NOTE_E7, 0, NOTE_E7,
  0, NOTE_C7, NOTE_E7, 0,
  NOTE_G7, 0, 0,  0,
  NOTE_G6, 0, 0, 0,

  NOTE_C7, 0, 0, NOTE_G6,
  0, 0, NOTE_E6, 0,
  0, NOTE_A6, 0, NOTE_B6,
  0, NOTE_AS6, NOTE_A6, 0,

  NOTE_G6, NOTE_E7, NOTE_G7,
  NOTE_A7, 0, NOTE_F7, NOTE_G7,
  0, NOTE_E7, 0, NOTE_C7,
  NOTE_D7, NOTE_B6, 0, 0,

  NOTE_C7, 0, 0, NOTE_G6,
  0, 0, NOTE_E6, 0,
  0, NOTE_A6, 0, NOTE_B6,
  0, NOTE_AS6, NOTE_A6, 0,

  NOTE_G6, NOTE_E7, NOTE_G7,
  NOTE_A7, 0, NOTE_F7, NOTE_G7,
  0, NOTE_E7, 0, NOTE_C7,
  NOTE_D7, NOTE_B6, 0, 0
};
//Mario main them tempo
int tempo[] = {
  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,

  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,

  9, 9, 9,
  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,

  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,

  9, 9, 9,
  12, 12, 12, 12,
  12, 12, 12, 12,
  12, 12, 12, 12,
};
//Underworld melody
int underworld_melody[] = {
  NOTE_C4, NOTE_C5, NOTE_A3, NOTE_A4,
  NOTE_AS3, NOTE_AS4, 0,
  0,
  NOTE_C4, NOTE_C5, NOTE_A3, NOTE_A4,
  NOTE_AS3, NOTE_AS4, 0,
  0,
  NOTE_F3, NOTE_F4, NOTE_D3, NOTE_D4,
  NOTE_DS3, NOTE_DS4, 0,
  0,
  NOTE_F3, NOTE_F4, NOTE_D3, NOTE_D4,
  NOTE_DS3, NOTE_DS4, 0,
  0, NOTE_DS4, NOTE_CS4, NOTE_D4,
  NOTE_CS4, NOTE_DS4,
  NOTE_DS4, NOTE_GS3,
  NOTE_G3, NOTE_CS4,
  NOTE_C4, NOTE_FS4, NOTE_F4, NOTE_E3, NOTE_AS4, NOTE_A4,
  NOTE_GS4, NOTE_DS4, NOTE_B3,
  NOTE_AS3, NOTE_A3, NOTE_GS3,
  0, 0, 0
};
//Underwolrd tempo
int underworld_tempo[] = {
  12, 12, 12, 12,
  12, 12, 6,
  3,
  12, 12, 12, 12,
  12, 12, 6,
  3,
  12, 12, 12, 12,
  12, 12, 6,
  3,
  12, 12, 12, 12,
  12, 12, 6,
  6, 18, 18, 18,
  6, 6,
  6, 6,
  6, 6,
  18, 18, 18, 18, 18, 18,
  10, 10, 10,
  10, 10, 10,
  3, 3, 3
};


void Speed(byte s)
{
  dih=s;
  dah=3 * dih;
  space=4 * dih;
  separator=6 * dih;
}


void PlayMorse(String aa)
{
byte i;
String m;


for (i=0;i<aa.length();i++)
{
  Serial.print( aa.charAt(i));
  char myChar = aa.charAt(i);

  if (myChar == ' ')
  {
   m += '/';
  }
  else
  {
   m += " ";
  }
 
  switch (myChar){
  case 'a':
   m += ".-";
   break;
  case 'b':
   m += "-...";
   break;
  case 'c':
   m += "-.-.";
   break;
  case 'd':
   m += "-..";
   break;
  case 'e':
   m += ".";
   break;
  case 'f':
   m += "..-.";
   break;
  case 'g':
   m += "--.";
   break;
  case 'h':
   m += "....";
   break;
  case 'i':
   m += "..";
   break;
  case 'j':
   m += ".---";
   break;
  case 'k':
   m += "-.-";
   break;
  case 'l':
   m += ".-..";
   break;
  case 'm':
   m += "--";
   break;
  case 'n':
   m += "-.";
   break;
  case 'o':
   m += "---";
   break;
  case 'p':
   m += ".--."; 
   break;
  case 'q':
   m += "--.-";
   break;
  case 'r':
   m += ".-.";
   break;
  case 's':
   m += "...";
   break;
  case 't':
   m += "-";
   break;
  case 'u':
   m += "..-";
   break;
  case 'v':
   m += "...-";
   break;
  case 'w':
   m += ".--";
   break;
  case 'x':
   m += "-..-";
   break;
  case 'y':
    m += "-.--"; 
    break;
  case 'z':
   m += "--..";
   break;
  case '1':
   m += ".----";
   break;
  case '2':
   m += "..---"; 
   break;
  case '3':
   m += "...--";
   break;
  case '4':
   m += "....-"; 
   break;
  case '5':
   m += ".....";
   break;
  case '6':
   m += "-...."; 
   break;
  case '7':
   m += "--...";
   break;
  case '8':
   m += "---..";
   break;
  case '9':
   m += "----."; 
   break;
  case '0':
   m += "-----"; 
   break;
  case '?':
   m+="..--..";
   break;
  case '.':
   m+=".-.-.-";
   break;
  case ',':
   m+=".----.";
   break;
  case '/':
   m+="-..-.";
   break;
  case '\\':
   m+="-..-.";
   break;
  default:
   break;
  }
}
  m.replace(" /","/");
  for (i=0;i<m.length();i++)
  {
   switch (m.charAt(i))
   {
   case '.':
    sein(dih);
    break;
   case '-':
    sein(dah);
    break;
   case ' ':
    sein(space);
    break;
   case '/':
    sein(separator);
   default:
    sein(separator);
    break; 
   }
  }

 Serial.println("");
}


void sein(int token)
{
if (token==space)
{   
 delay(space);
 }
  else if (token==separator)
  {
  delay(separator);
  }  
  else
  {
  digitalWrite(pinNote,HIGH);
  tone(pinBuzzer,freq,token);
  delay(token);
  digitalWrite(pinNote,LOW);
  delay(dih);
  }
 }
 
void PTT(bool OnOff)
{
 digitalWrite(pinPTT,OnOff);
}

void PTToffTime(int t) 
{
  PTT(false);
  delay(t);
  PTT(true);
  delay(100); 
}

void sing(int song) {
  // iterate over the notes of the melody:
  if (song == 2) {
    Serial.println(" 'Underworld Theme'");
    int size = sizeof(underworld_melody) / sizeof(int);
    for (int thisNote = 0; thisNote < size; thisNote++) {

      // to calculate the note duration, take one second
      // divided by the note type.
      //e.g. quarter note = 1000 / 4, eighth note = 1000/8, etc.
      int noteDuration = 1000 / underworld_tempo[thisNote];

      buzz(melodyPin, underworld_melody[thisNote], noteDuration);

      // to distinguish the notes, set a minimum time between them.
      // the note's duration + 30% seems to work well:
      int pauseBetweenNotes = noteDuration * 1.30;
      delay(pauseBetweenNotes);

      // stop the tone playing:
      buzz(melodyPin, 0, noteDuration);

    }

  } else {

    Serial.println(" 'Mario Theme'");
    int size = sizeof(melody) / sizeof(int);
    for (int thisNote = 0; thisNote < size; thisNote++) {

      // to calculate the note duration, take one second
      // divided by the note type.
      //e.g. quarter note = 1000 / 4, eighth note = 1000/8, etc.
      int noteDuration = 1000 / tempo[thisNote];

      buzz(melodyPin, melody[thisNote], noteDuration);

      // to distinguish the notes, set a minimum time between them.
      // the note's duration + 30% seems to work well:
      int pauseBetweenNotes = noteDuration * 1.30;
      delay(pauseBetweenNotes);

      // stop the tone playing:
      buzz(melodyPin, 0, noteDuration);

    }
  }
}

void buzz(int targetPin, long frequency, long length) {
  digitalWrite(pinNote, HIGH);
  long delayValue = 1000000 / frequency / 2; // calculate the delay value between transitions
  //// 1 second's worth of microseconds, divided by the frequency, then split in half since
  //// there are two phases to each cycle
  long numCycles = frequency * length / 1000; // calculate the number of cycles for proper timing
  //// multiply frequency, which is really cycles per second, by the number of seconds to
  //// get the total number of cycles to produce
  for (long i = 0; i < numCycles; i++) { // for the calculated length of time...
    digitalWrite(targetPin, HIGH); // write the buzzer pin high to push out the diaphram
    delayMicroseconds(delayValue); // wait for the calculated delay value
    digitalWrite(targetPin, LOW); // write the buzzer pin low to pull back the diaphram
    delayMicroseconds(delayValue); // wait again or the calculated delay value
  }
  digitalWrite(pinNote, LOW);

}

void setup(void)
{
  Serial.begin(9600);
  pinMode(pinBuzzer, OUTPUT);//buzzer
  pinMode(pinNote, OUTPUT);//led indicator when singing a note
  pinMode(pinPTT,OUTPUT);//PTT switch tor + led

  Speed(dih);
  PTT(true); 
}

void loop()
{
  //sing the tunes

  freq=380;
  PlayMorse("fox hunt test");
  PTToffTime(2000);

  freq=450;
  PlayMorse("vvv pa3bnx");
  sing(1);
  PTToffTime(3000);

  freq=600;  
  PlayMorse("pa3bnx");
  sing(1);
  PTToffTime(3000);

  freq=800;
  PlayMorse("pa3bnx");
  sing(2);
  PTToffTime(6000);

 }

Bijlagen
Arduino DeVos PA3BNX
Arduino DeVos PA3BNX
DeVos.png (381.21 KiB) 7796 keer bekeken
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#723 Bericht door Dopp »

Hallo Allemaal,

TDOA Versie 2 van k7oei in ontwikkeling

Kan ook met Arduino gemaakt worden denk ik


http://www.ka7oei.com/PIC_tdoa.html

Tnx's Rob for telling me !!!
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#724 Bericht door Dopp »

Hallo Allemaal,

Vandaag een fraaie uitzending over nm knots km/h time zones lat en longitude van pa0ete daily minutes 1 sept 2018

https://www.youtube.com/watch?v=4PCt01xZuSg
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#725 Bericht door Dopp »

Hallo Allemaal


Zo snel moet een antenna rotor draaien om effectief te zijn een met ruiten wisser motor


MICK TURFORD HOME BREW WINDSCREEN WIPER MOTOR ANT TENNA ROTATOR 10 7 2016

https://youtu.be/fiCgIFUPUjE
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#726 Bericht door Dopp »

Hallo Allemaal

Love to see these animations

Fourier Transform, Fourier Series, and frequency spectrum
https://youtu.be/r18Gi8lSkfM

But what is the Fourier Transform? A visual introduction.
https://youtu.be/spUNpyF58BY
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#727 Bericht door Dopp »

Hallo Allemaal,


Een led bar S meter bouwen voor de RSSI uitgang ? met lm3914

https://gathering.tweakers.net/forum/li ... ges/577307
https://learn.sparkfun.com/tutorials/do ... -guide/all
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#728 Bericht door Dopp »

Hallo Allemaal,



Installing Werneth Low Direction Finding Array - Never Before Seen Photos!

https://youtu.be/Bi1gLfcQyko
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#729 Bericht door Dopp »

Hallo Allemaal,

Nieuwe intressante zaken op Crypto museum

oa de plaat antenne en veldsterkte meter vorige
generatie van AT

http://www.cryptomuseum.com/df/taiyo/tdl1706/index.htm


http://www.cryptomuseum.com/df/nrp/fs.htm
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#730 Bericht door Dopp »

Hallo Allemaal,


Ik ben naar de dag van de radio amateur geweest in Zwolle.


Daar zag ik PG8M marcel werken met mijn sounddoppler.exe programma
samen met RDFMapper van Jonathan Mustler

http://www.musther.net/RDFMapper/

Marcel had een leuke tussen app geschreven om te input van RDFMapper

naar een comport te sturen in agrelo (%xxx/q cr lf ) formaat.

Maar in mijn software zat echter al een keuze mogelijkheid om agrelo (%xxx/q cr lf ) output te geven direct
vanuit sounddoppler.exe naar comport 1 tot 7

Agrelo protocol opmerking: Bij mijn software betekend %999 squelch closed

Daarna via een virtueel compoort programma door zetten van sounddoppler naar RDFMapper. (Geen echte kabel dus)

Ik heb ondertussen een nieuwe versie sounddoppler.exe geschreven version 1.55 die alle 1 to 15 comport nummers
ondersteund die VB98 alleen heeft.

Binnenkort komt ie op de A43 site te staan.
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#731 Bericht door Dopp »

Hallo Allemaal,

Het duurt langer als gedacht maar in de nieuwe SoundDoppler

komen nieuwe futures.

Dit is ook interessant:


https://www.rtl-sdr.com/hydrasdr-previe ... -and-more/
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#732 Bericht door Dopp »

Hallo Allemaal,

Al gezien ?


FoxRex-144 Foxoring Receiver
https://www.wimo.com/foxrex-3500-ardf-receiver_e.html

Ben nog steeds druk met de Foxcopter en nieuwe SoundDoppler.exe

Have fun
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#733 Bericht door Dopp »

Hallo Allemaal,


Uit de oude doos van PA5TYS

Ham Radio vossenjacht 1979 Hilversum van PE1CTC

https://youtu.be/MSh7FN7ehjw

Vossen jacht op fiets in Zwart Wit

He he eindelijk weer vorderingen met de nieuwe versie SoundDoppler.exe

Nog even geduld A.U.B.
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#734 Bericht door Dopp »

Hallo Allemaal,

Zin in een speciale aparte S-meter ?


https://youtu.be/xk_MztTt88s

http://www.orion2.de/index.htm
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: Super Simple Sound Doppler Peiler

#735 Bericht door Dopp »

Hallo Allemaal,


Net van PA5ROB deze link gekregen

https://www.indiegogo.com/projects/kerb ... -rtl-sdr#/

Nog steeds bezig hier met nieuwe opties in mijn SoundDoppler1.56
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Plaats reactie