Informatie:

Ik was de ouderwetse vossenpiepen zat dus het besluit was al snel genomen om een nieuw (fail safe) ontwerp te maken.
De bedoeling was om een ontwerp te maken wat tegen de handen (soldeerbouten en schroevendraaiers) van de "amateurs" zou kunnen, dat is aardig gelukt.....er zit namelijk geen enkele potmeter in het ontwerp :-))
Hieronder zie je de layout (PDF) en de sourcecode voor het project.

Technische informatie:

De vossenpiep generator kan zowel in als buiten een radio gebruikt worden en werkt op 6 tot 15 volt, gebruik je de print in een radio dan zul je de RX draad los moeten laten of voor de aan en uit schakelaar een dubbelpolig exemplaar moeten gebruiken.

Specificaties en voordelen van het ontwerp :

Het ontwerp is klein gebleven dus het e.e.a. is makkelijk in een radio te knutselen
In en Extern te gebruiken.
Bij extern gebruik te voeden uit de microfoon plug (mits er spanning aanwezig is).
De toon en tijdsduur zijn in de controller vastgelegd (60 sec. aan en 30 sec. uit).
Toon en tijdsduur zijn naar behoefte (in de source) aan te passen.
Geen potmeters aanwezig om te vernielen :-)
Makkelijk zelf te bouwen.

De code voor de Atmel microcontroller:

 

De source is geschreven in Bascom (www.mcselec.com).

$regfile = "2313def.dat"
$crystal = 10000000
Dim Wacht As Long
Dim B As Bit
Dim X As Long
Dim Laag As Word
Dim Hoog As Word
Config Timer0 = Timer , Prescale = 256
On Timer0 Tijd
Enable Timer0
Enable Interrupts
Config Pinb.4 = Output
Wacht = 0
B = 1
Laag = 700
Hoog = 2100
Portb.4 = 1
Do
If B = 1 Then
Portb.2 = 1
For X = Laag To Hoog Step 5
Sound Portb.3 , 1 , X
Next X
For X = Hoog To Laag Step -8
Sound Portb.3 , 1 , X
Next X
Else
Portb.2 = 0
End If
If Wacht >= 9325 Then
Stop Timer0
B = Not B
Wacht = 0
Start Timer0
End If
Loop
Tijd:
If B = 1 Then
Incr Wacht
Else
Wacht = Wacht + 2
End If
Return
End


Hieronder vind je alle bestanden die je nodig hebt om het project tot een goed einde te brengen.



That's it!