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

#766 Bericht door Dopp »

Hallo Allemaal,


Onlangs had ik het probleem dat mijn GPS mouse na inprikken
op de USB poort van de PC hem een nummer toekende COM23

Prolific FTDI ch340 etc..


Helaas kan software in VB6 geen compoorten toewijzen boven &H1F (1-15)

Maar het is mogelijk onder windows 7 de geemuleerde compoort
een ander nummer toe te wijzen (zie plaatje).


Dus voor mijn GPS.exe behorende bij SoundDoppler.exe program misschien een goede Tip.
Bijlagen
Win7USB2RS232Change.png
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

#767 Bericht door Dopp »

Hallo Allemaal,



LPDA A0076 opening
https://youtu.be/6sZhhH9CTA4


Zoiets lijkt mij ook wel wat voor op de Foxcopters hier...
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

#768 Bericht door Dopp »

Hallo Allemaal,


Momenteel niet erg aktief met de hobby maar komt wel weer denk ik

Intressante LPDA antenne voor vossenjagen op 2 en 70


Elk Log Periodic Dipole Array (LPDA) VHF/UHF Antenna Review

https://youtu.be/b8lL67FFehY
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

#769 Bericht door Dopp »

Hallo Allemaal,

Zelf een LPDA maken of ontwerpen ?


LPDA online calculator

https://hamwaves.com/lpda/en/index.html
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

#770 Bericht door Dopp »

Hallo Allemaal,

Vandaag toch wat leuke dingetjes gemaakt in mijn SoundDoppler.exe v1.57

o.a. een checkbox voor AGC of zonder AGC weergeven van de inhoud in het
digitale SwitchCapfilter.

De amplitude is dan steeds hetzelfde of heeft een maximaal plafond..


Grappig om mee te spelen ook..
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

#771 Bericht door Dopp »

Hallo Allemaal,

Krijg gewoon zin om mee te doen hi


mobile ardf jbfd2017
https://www.youtube.com/watch?v=2Ppj2Z7zYQY
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
PE2AAB
Moderator
Berichten: 7089
Lid geworden op: 12 apr 2005, 19:06
Roepletters: PE2AAB
Locatie: Aalst - Waalre
Contacteer:

Re: Super Simple Sound Doppler Peiler

#772 Bericht door PE2AAB »

Dopp schreef:Hallo Allemaal,

Krijg gewoon zin om mee te doen hi


mobile ardf jbfd2017

youtu.be/2Ppj2Z7zYQY

Met de youtube BB codes kun je video zelf insluiten

Code: Selecteer alles

[youtube]Video ID ná v=[/youtube] dus in dit geval [youtube]2Ppj2Z7zYQY[/youtube]
'73 Rick, PE2AAB www.pe2aab.nl

EA5JEX
Berichten: 1471
Lid geworden op: 14 nov 2007, 18:56
Roepletters: pa5cw
Locatie: Pedralba Valencia Spanje

Re: Super Simple Sound Doppler Peiler

#773 Bericht door EA5JEX »

Dat zou hier niet mogen, levensgevaarlijke uitsteeksels voor voetgangers.

kees

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

Re: Super Simple Sound Doppler Peiler

#774 Bericht door Dopp »

Hallo Allemaal,


Amazed gebeurd dit ook al op peil gebied !
Bijlagen
Peilzender.png
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

#775 Bericht door Dopp »

Hallo Allemaal,

Plaatje uit De Hobby Club van
Leonard de Vries van 1966


Zag dat boek vandaag in de tweedehands winkel liggen

Wat een enthousiasme spreekt eruit.
Bijlagen
80 meter Cartoon
80 meter Cartoon
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

#776 Bericht door Dopp »

Hallo Allemaal,

Nog een Plaatje uit de Hobbyclub !
Bijlagen
80 Vossenjacht2-Leonard de vries.png
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

#777 Bericht door Dopp »

Hallo Allemaal,

Er staan leuke filmpjes op Youtube over Radio Oom Leonard de Vries



youtu.be/hoiL7tBsPwQ
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

#778 Bericht door Dopp »

Hallo Allemaal,

Heb vandaag weer zitten prutsen aan de arduino nano
koppelen aan de PA8W 2.3 Doppler peiler.

Bedoeling is dat er agrelo (%bbb) uit de USB komt
voor allerlei kaart programma's

Nog niet alles klaar maar alvast een voor proefje.

De arduino sketch zit er ook bij

Niet alles is klaar en working Yet !

Groeten,

Lodewijk


Source
===============================================================
/*
((C))PA3BNX Arduino PA8W Agelo
19-09-2017 Not all ready yet!
2^5 data bits from PA8W and Strobe
I think tap from 4017 the 5 bits and tap the freeze led as Strobe/Squelch
2^4 data bits and strobe from other dopplers
Purpose is to give Agrelo Serial out with a cheap arduino(Uno,Nano)
on existing doppler.
-------
Use a inverting transistor to interface bits and strobe from doppler to arduino
-------
Arduino outputs Agrelo like %DDD<cr><lf>
Replacement 1995-N7LUE.pdf Agrelo Interface BY ROBERT SWAIN
4 or 5 counter hardware bits from 4040 or 4060 in hardware doppler
and the strobe Zerocross pin.
//Options also possible with arduino ?
Arduino could also do GPS Module and output NMEA on software serial port ?
Arduino could also do FluxCompas HMC5883 TWI interface ?
22-09-2017
04-08-2018
20-11-2019
potmeter 0 offset degrees so hardware pelorus same as agrelo pelorus ??? 22-11-2019
*/

//Int
const byte pinData[] = {2, 3, 4, 5, 6};
const byte pinStrobe = 7;
const byte pinOffset = A0; //Pin offset Potmeter

//Const
const int cNodegrees = 999; //Squelch
const int cReset = 888; //Reset averaged with last degrees value only
const double f = 359/1023;
const int cSquelchOpenMax= 5000;//Max averaged time in Averaged sub

int Offset = 0;

unsigned long SquelchOpenStart = millis();



//Bool
bool bMultiPathAverage;
bool bAverage = true;
bool bDemo = true;

void Message()
{
Serial.println(F("PA8W USB Agrelo Doppler Interface"));
Serial.println(F("---------------------------------"));
if (bDemo == true) {
Serial.println(F("DemoMode"));
}
Serial.print(F("Data pins LSB to MSB="));
for (byte i = 0; i < 4; i++)
{
Serial.print(pinData); Serial.print(" ");
}
Serial.println();
Serial.print(F("Strobe pin=")); Serial.println(pinStrobe);
Serial.println(F("Squelch = LED_BUILDIN"));
Serial.print(F("Offset pin="));Serial.println(pinOffset);
}//==================Last Message==========================



int GetDemo(int x1, int x2)
{
const byte m = 55;
static byte i;
int x;

i++;
x = random(x1, x2);
if (i > m)
{
i = 0;
return cNodegrees;
}
else
{
return x;
}
}//=============================Last Demo=================



void GetOffset()
{
int x;

x=int(analogRead(pinOffset) * f);

Offset= LimitDegrees360( x + 180);

}

int Calibrate(int x)
{


if (x == cNodegrees) {
return x;
}
else
{
return LimitDegrees360(x + Offset);
}
}

//Return Agrelo formatted string % and always 3 digits
String Format3Degrees(int d) {
String str;
int digits[3];
int reminder;
digits[0] = d / 100;
reminder = d % 100;
digits[1] = reminder / 10;
reminder = reminder % 10;
digits[2] = reminder;
str += '%';
str += digits[0];
str += digits[1];
str += digits[2];
return str;
}//==============================Last Format3Degrees==================================

//Limit Degrees 0 to 360 degrees
int LimitDegrees360(int d) {
//Limit degrees 0 to 360 here
//If 999 then return 999
if (d == cNodegrees)
{
return d;
}
else
{
int x;
x = d % 360;
if (x < 0)
{
x += 360;
}
return x;
}
}//-------------------------------------Last LimitDegrees360==============================

//Get data from 4040 or 4060 counter in the doppler ?
//Digital counting

//So get time to get the degrees counter lines

//Create new Function detecting Strobe for some time?


int GetBearing4()
{
int x = 0;

if (digitalRead(pinStrobe) == HIGH)
{
for (byte i = 0; i < 3; i++)
{
if (digitalRead(pinData == LOW))
{
x += pow(i, 2);
}
}
return int(x * 22.5);
}
else
{
return cNodegrees;
}
}


int GetBearing5()
{
int x = 0;

if (digitalRead(pinStrobe) == HIGH)
{
for (byte i = 0; i < 4; i++)
if (digitalRead(pinData == LOW))
{
x += pow(i, 2);
}
return int(x * 11.25);
}
else
{
return cNodegrees;
}
}

//----------------------------------------Average Degrees------------------------------------
int Average(int d) {
//If d = 999 (cNoDegrees) then reset average and return last avDegrees witch is 999
//If d = 888 (cReset) then Reset all and put last avDegrees back in arrays

//Always return avDegrees and Set bMultiPath

//Integer
static unsigned int sum[4] = {0, 0, 0, 0}; //Sum of counts for each kwadrant can be now 2^16=65536
static int c[4] = {0, 0, 0, 0}; //Amount of count
static int totalCount = 0; //Sum of all counts
static int avDegrees = cNodegrees; //Averaged degrees
int xx[4] = {0, 0, 0, 0}; //Adjacent kwadrants counts
int z = 0; //Most adjacent headings
int z1 = 0; //Other two kwandants headings Multipath
int y = 0; //Index where the most headings are

//Reset/clear and return cNodegrees or last avDegrees

//01-06-2015 No Averaging
if (bAverage == false) {
return d;
}


//No Overflow in sum[]
if (totalCount >= 180)
{
for (byte i = 0; i < 4; i++)
{
sum = 0;
c = 0;
}
}

switch (d) {
case cNodegrees:
//Reset and Clear
for (byte i = 0; i < 4; i++)
{
sum = 0;
c = 0;
}
bMultiPathAverage = false;
avDegrees = cNodegrees;
return avDegrees; //Exit now
case cReset: //Reset and fill with avDegrees
//Reset
for (byte i = 0; i < 4; i++)
{
sum = 0;
c = 0;
}
//Fill with last avDegrees
d = avDegrees; //Put last degrees in again
}

if (d >= 0 && d < 90) {
sum[0] += d;
c[0]++;
}
if (d >= 90 && d < 180) {
sum[1] += d;
c[1]++;
}
if (d >= 180 && d < 270) {
sum[2] += d;
c[2]++;
}
if (d >= 270 && d <= 360) {
sum[3] += d;
c[3]++;
}

//No degrees found so exit function
totalCount = c[0] + c[1] + c[2] + c[3];
if (totalCount == 0)
{
bMultiPathAverage = false;
avDegrees = cNodegrees;
return avDegrees;
}

//Find 2 adjacent kwadrants with hold most heading counts

//Count all adjacents kwadrants
xx[0] = c[0] + c[1];
xx[1] = c[1] + c[2];
xx[2] = c[2] + c[3];
xx[3] = c[3] + c[0];

//Find out in witch two kwadrants the most headings are
for (byte i = 0; i < 4; i++) {
if (xx > z) {
z = xx[i]; //Most adjacent Headings counts
y = i; //Witch 2 adjacent Array Index from xx[1]
}
}

//Check for multipath kwadrants
switch (z) {
case 0:
z1 = 2;
break;
case 1:
z1 = 3;
break;
case 2:
z1 = 0;
break;
case 3:
z1 = 1;
break;
}

if (xx[z] == xx[z1])
{
bMultiPathAverage = true;
}
else
{
bMultiPathAverage = false;
}

//Average the 2 most counts kwadrants
switch (y) {
case 0:
avDegrees = (sum[0] + sum[1]) / xx[y];
break;
case 1:
avDegrees = (sum[1] + sum[2]) / xx[y];
break;
case 2:
avDegrees = (sum[2] + sum[3]) / xx[y];
break;
case 3:
if (c[3] == 0 && c[1] > 0)
{
avDegrees = sum[1] / c[1];
}
else if (c[1] == 0 && c[3] > 0)
{
avDegrees = sum[3] / c[3];
}
else if (c[3] > 0 && c[1] > 0)
{
avDegrees = LimitDegrees360(((sum[3] / c[3]) + ((sum[0] / c[0]) + 360) / 2));
}

break;
}


return avDegrees;
}//-----------------------------Last Average--------------------------------------------


void setup() {
// put your setup code here, to run once:

Serial.begin(9600);

pinMode(LED_BUILTIN, OUTPUT); //Squelch indicator ?

for (byte x; x < 5; x++)
{
pinMode(pinData[x], INPUT_PULLUP);
}
pinMode(pinStrobe, INPUT_PULLUP);

Message();

Average(cNodegrees); //Init Average() returns cNoDegrees


}//------------------------------Last Setup==============================================

void loop() {
//Put your main code here, to run repeatedly:
static int OldDegrees;
int x = cNodegrees;


GetOffset();


if (bDemo == true)
{
x = GetDemo(110, 290); //begin and end degrees
}
else
{
//Does the strobe be positive or negative edge triggerd ?
//Squelch can be detected through ? and trigger LED_BUILTIN
int start = millis() + 10;
do
{
x = GetBearing4();
//x=GetBearing5();
} while (start < millis() && x != cNodegrees);
}


x = Average(x);

//Detect when squelch = closed
if (OldDegrees==cNodegrees)
{
SquelchOpenStart = millis() + cSquelchOpenMax;
}


//bMultiPathAverage, bAverage, cReset ????
//Reduce data over RS232


if (OldDegrees != x )
{
if (bMultiPathAverage == false || x == cNodegrees)
{
//Serial.println(Format3Degrees(LimitDegrees360(x)));
Serial.println(Format3Degrees(Calibrate(x)));
if (x == cNodegrees) {
digitalWrite(LED_BUILTIN, HIGH);
} else {
digitalWrite(LED_BUILTIN, LOW);
}
OldDegrees = x;
}
}


//reset average after a while averaging ???

if (millis() > SquelchOpenStart)
{
SquelchOpenStart = millis() + cSquelchOpenMax;
Average(cReset);//Save only last Averaged degrees value
}

delay(100);

}//=== =============================Last Loop ================================================
Bijlagen
DSC02021-1.jpg
HEF4050-arduino-1.png
DSC02021-1.jpg
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

#779 Bericht door Dopp »

Hallo Allemaal,

Nog steeds bezig met Arduino nano USB PA8W agrelo doppler interface.

Deze filmpjes zijn ook Fun...

KerberosSDR Radio Direction Finding: Heatmap + Auto Navigation to Transmitter Location Demo 1 + 2

https://www.youtube.com/watch?v=XVfE5s8dh7U

https://www.youtube.com/watch?v=4A77sVCGTW8

Fijne Sinterklaas avond allemaal.
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

#780 Bericht door Dopp »

Hallo Allemaal,

Nog steeds bezig met Arduino Agrelo pa8w doppler v 2.3 interface

Hardware nog steeds het zelfde dus een hc4050 en arduino nano zoals ik al eerder poste



Moet dit als comment opnemen in de sketch denk ik hi

Code: Selecteer alles


/*
 * You may think you know what the following code does.
 * But you dont. Trust me.
 * Fiddle with it, and youll spend many a sleepless
 * night cursing the moment you thought youd be clever
 * enough to "optimize" the code below.
 * Now close this file and go play with something else.
 */ 

Oh en verder vond ik dit in de kringloop

"Contact" Carl Sagan

Super leuk boek met raak vlakken met radio ham SETI

At first it seemed impossible - a radio signal that came not from Earth but from far beyond the nearest stars. But then the signal was translated, and what had been impossible became terrifying. For the signal contains the information to build a Machine that can travel to the stars. A Machine that can take a human to meet those that sent the message. They are eager to meet ...more
Bijlagen
Kaft van Contact
Kaft van Contact
conatct1.jpg (9.47 KiB) 9142 keer bekeken
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Plaats reactie