WTHIT? (ΤΣΔΕΑ Ελληνιστί)

Τι ετοιμάζεται στο μπαλκόνι του SW1IXP άραγε;;; Hint 19.35.

73 de SW1IXP

Digital adapter part 2

Λίστα εξαρτημάτων:

R1 10k
R2 2,7
R3 10k
R4 1k
R5 10k
R6 26
R7 470
R8 1k
R9 1k
R10 470
R11 6,7k
R12 1k
D1 led 3mm
T1 bc547
J1 8 pin RJ45 Modular Jack
TR1 bourns lm-np-1001-b1
TR2 bourns lm-np-1001-b1
IC1 78l05
C1 47μF 25v ηλεκτρολυτικός
C2 0.47μF τανταλίου
X1 3,5mm stereo jack
X2 3,5mm stereo jack
U2 Attiny13

Αγάπη μου σμίκρυνα τον προσαρμογέα για τα ψηφιακά!











73 de SW1IXP

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 κουτάκι!