Digital adapter part 1

Μετά κόπων και βασάνων και τρεις εκδοχές της ίδιας πλακέτας έτοιμος ο προσαρμογέας για ψηφιακά. Προσφέρει απομόνωση ανάμεσα στον υπολογιστή και τον ασύρματο και επίσης κάνει αυτόματο PTT. Αυτό επιτυγχάνεται με την χρήση ενός μικροελεγκτή attiny13 (με μόλις 8 ποδαράκια!) ο οποίος διαθέτει ενσωματωμένο αναλογικό ασύγκριτη. Όταν το πλάτος του σήματος ξεπεράσει μια προκαθορισμένη τιμή ο μΕ ενεργοποιεί το PTT του ασυρμάτου γειώνοντας το. Ρυθμιζόμενα είναι το vox sensitivity και το vox delay (από 4msec μέχρι περίπου 2sec) μέσω δυο ποτενσιόμετρων. Επίσης διαθέτει ενδεικτικό led το οποίο μόλις τροφοδοτηθεί το κύκλωμα δίνει δυο σύντομες αναλαμπές για να γνωρίζουμε ότι δεν υπάρχει κάποιο πρόβλημα τροφοδοσίας. Το ίδιο led ανάβει και όταν εκπέμπει ο ασύρματος. Η 13,8V τροφοδοσία γίνεται μέσω του RJ45 και μπορεί να πάρει ελάχιστη τιμή μέχρι 8volt.

Προσοχή η τάση της εξόδου της κάρτας ήχου να μην ξεπεράσει το 1,5V κορυφής (μάλλον απίθανο με τις κάρτες ήχου των υπολογιστών…)

Ο κώδικας που τρέχει στον μΕ είναι γραμμένος σε bascom:

'VOX ADAPTER

$regfile = "ATtiny13.dat"

$crystal = 1000000

Config Adc = Single , Prescaler = Auto , Reference = Internal

Config Aci = On , Compare = On , Trigger = Rising

Config Portb.4 = Output

Config Portb.3 = Output

On Aci Trigger

Dim Delay_counter As Integer

Dim Vox_delay As Integer

Disable Interrupts

Portb.4 = 0

Portb.3 = 0

Waitms 250

Portb.3 = 1

Waitms 250

Portb.3 = 0

Waitms 250

Portb.3 = 1

Waitms 250

Portb.3 = 0

Waitms 250

Start Adc

Start Ac

Enable Aci

Enable Interrupts

Delay_counter = 2056

Vox_delay = Getadc(1) + 1

Do

If Delay_counter < Vox_delay Then

Delay_counter = Delay_counter + 1

Waitms 2

Elseif Delay_counter = Vox_delay Then

Portb.4 = 0

Portb.3 = 0

Delay_counter = Delay_counter + 1

End If

Loop

End

Trigger:

Portb.4 = 1

Portb.3 = 1

Delay_counter = 0

Vox_delay = Getadc(1) + 1

Return

Θα ακολουθήσουν σε νέα δημοσίευση τα σχέδια, πλακέτα κτλ.

73 de SW1IXP

ΥΓ: Και όλα αυτά σε ένα υπέροχο λευκό trendy κουτάκι!