Forum HomeMade - Projekty Grupy HomeMade

Mieszacz H-mode FSA3157

Fri, 25 Apr 2025 17:44:23 +0000

Mieszacz H-mode na przełącznikach FSA3157

Mieszacz RF jest w ciągu najważniejszych elementów tzw. FRONT-END-u odbiornika komunikacyjnego. Dostęp do nowych technologicznie elementów daje nam możliwości wykonania go z oczekiwaniem wysokich parametrów. Aktualnie standard stanowi mieszacz na "kluczach" w różnych odmianach - pierścieniowy, H-mode, TIM.. itp,.
W opisywanej przeze mnie na forum konstrukcji B-L-U wykonałem wg. mojej wersji mieszacz na kluczach D-MOS SD5400, które są wykorzystywane w transceiverach z górnej półki firmy ICOM. Mieszacz ten spełnił oczekiwania. Firma YAESU wykorzystuje w top transceiverach klucze FST3257 podobnie jak zrobił to Elecraft. W tym przypadku, wykonany w wersji z dzielnikiem 74AC74 niestety mieszacz nie spełnił oczekiwań ze względu na ilość produktów niepożądanych pochodzących od sterownika syntezy i samej syntezy. Z generatora na Si5351 generowana była częstotliwość VFO x 4. Tak wysoka częstotliwość dzielona następnie przez 4 w 74H74 dawała wiele niepożądanych prążków. Koncepcja mieszacza w tej wersji była nie do przyjęcia.

Pozostała jeszcze inna możliwość, która miała dobrą opinię wystawioną przez PA3AKE Martein'a Bakker'a. Chodzi o mieszacz na przełącznikach FSA3157.
Przytoczę poniżej tłumaczenie jego tekstów z publikacji internetowej na temat jego testów różnych mieszaczy:
Cytuję:
Prawie zrezygnowałem z mikserów typu SPDT, ponieważ nie mogły dorównać mikserom SPST FST3125 lub FSAV332 pod względem IMD. Ale kiedy w końcu przetestowałem FSA3157, który wypadł nawet lepiej niż FSAV332 i FST3125, byłem zaskoczony....
Zarówno mikser FSA3157, jak i NC7SZ384 nie odczuły żadnego problemu z IMD, ponieważ mikser składa się z dwóch lub czterech oddzielnych układów, a nie tylko z jednego...
Początkowo wydawało się niemożliwe zbudowanie miksera z przełącznikami Fairchild, który osiągałby lepsze wyniki niż +40dBm IIP na wszystkich pasmach HF. Okazało się jednak, że jest to możliwe, z tym że transformatory odgrywają bardzo dużą rolę w obrazie IP3 razem z przełącznikami. Najlepsze wartości występują na pasmach, na których jest to najbardziej potrzebne, mianowicie 80m i 40m. Wartości te łatwo przekraczają +46dBm, co bardzo utrudnia budowę otaczających podsystemów (BPF i filtr dachowy), aby nie narażały one IP3 miksera.
Moje wyjaśnienie - chodzi o to, że parametry pod względem IIP3 BPF i filtru kwarcowego mogą być nieosiągalne na tym poziomie co sam mieszacz.
Opisuje on, że wykonanie filtrów dachowych z niskiej jakości rezonatorów popsuje cały tor wejściowy odbiornika.
Stosowanie 74AC74 do filtracji ostóg (spurs) - to testowałem z FST3257.
Cytuję dalej:
Jestem przekonany, że redukcja ostróg (spurs) uzyskana za pomocą nieregulowanych mikserów typu dzielenia przez 2 kwadrat 74AC74 jest w dużym stopniu zależna od przypadkowej tolerancji/różnicy składowych. Oznacza to, że dobry poziom redukcji spurs, chociaż możliwy, prawdopodobnie nie jest zbyt powtarzalny w tej konfiguracji.
Moja uwaga - w moich testach wykorzystanie 74AC74 jako układu kształtowania sygnału poprzez dzielenie przez 4 powodowało generowanie spurs zamiast ich oczyszenie.
Cytuje dalej:
FSA3157 w połączeniu z podstawowym kwadratowym 74AC04 i transformatorem ADTT1-1 jest bardzo dobry, jeśli chodzi o redukcję odbić. Bez żadnego filtrowania DDS (poza filtrem antyaliasingowym 200 MHz) średni poziom 130 odbić na 15M wynosił -9,3 dB poniżej MDS. To jest całkiem ciche!

Nie ma już potrzeby, aby port RF „widział” 50-omowe rezystancyjne zakończenie w celu zmniejszenia poziomu odgałęzienia. Nie potrzeba pół- lub pełnych diplekserów przed mikserem. To znacznie upraszcza konstrukcję! I w konsekwencji nie ma dodatkowych (choć niewielkich) strat wprowadzanych przez te dipleksery pogarszające NF front-endu.
Koniec cytowania PA3AKE

W związku z bardzo dobrą opinią o samych FSA3157 wykonałem układ mieszacza rewersyjnego typu H-mode ale bez użycia 74AC74. Jako układ kształtowania sygnału zastosowałem układ FIN1002M High Speed Differential Reciver na bazie koncepcji mieszacza VK3AQZ.
Wykorzystując własne wcześniejsze doświadczenia z wielu wykonanych i testowanych mieszaczy na kluczach zastosowałem transformatory minicircuits o przełożeniu 1-4 zamiast 1-1 czy 1-2 jak proponował stosować VK3AQZ.

Zdjęcie wykonanego testowo mieszacza

  mieszacz pcb.jpg (Rozmiar: 109.64 KB / Pobrań: 713)

Jak pisze Martein trudno jest zepsuć ten mieszacz, jeśli pcb jest wykonane prawidłowo z symetrycznymi krótkimi połączeniami RF parametry będą powtarzalne w stosunku do jego pomiarów.
Poniżej tabela z pomiarami jego mieszacza na FSA3157.

  parametry.jpg (Rozmiar: 91 KB / Pobrań: 698)

Można zatem przyjąć, że podobne parametry ma wykonany testowo mieszacz.

Jakie efekty?.. mieszacz testuję z modułami B-L-U z p.cz. 9MHz (filtr PP9A2).
Odbiór jest bardzo dobry, "czuć" niskie tłumienie mieszacza poprzez czułość odbiornika na wyższych pasmach bez pre-amp.
Dokonałem pomiarów tłumienia mieszacza wraz z diplexerem, jest na poziomie 5,5dB. Jest bardzo dobry wynik, powtarzalny na wszystkich pasmach od 80m-10m.
Teraz najważniejsze - produkty niepożądane od sterownika syntezy i samego generatora Si5351. To są dwa różnego rodzaju zakłócenia. Można je usłyszeć czy zmierzyć bez sygnału z anteny... to co opisuje Martein czy mieszacz jest "cichy" czy "głośny". Mieszacz na FSA3157 jest cichy, a nawet cichszy niż wersja na SD5400.
Nie wiem na ile ma na to wpływ sam mieszacz na FSA3157 a na ile układ FIN1002M kształtujący sygnał VFO.
Efekt jest taki, że nie ma praktycznie żadnych produktów niepożądanych na wszystkich pasmach osłu***

  mieszacz FSA3157 sp9lvz.pdf (Rozmiar: 174.32 KB / Pobrań: 366)

  S9+60dB.jpg (Rozmiar: 85.67 KB / Pobrań: 723)

Antenowy filter przeciwzakłoceniowy.

Sat, 26 Mar 2022 13:37:38 +0000

Swego czasu pozbyłem się TV kablowej na rzecz "darmowej" TV z anteny. No i "się zaczęło" czyli zakłócenia w odbiorze. O ile na innych blokach i mieszkaniach nie ma tego problemu o tyle u mnie antena TV wisi niecałe 3 metry od nadawczej i nie ma sposobu aby sie to zmieniło. No owszem jest rx satelitarny do TV ale... Już dawno chodziła mi po głowie koncepcja budowy takiego filtra bo owszem swoje radia mam sprawne ale przez moje biurko przechodzą różne urządzenia i nie całkiem sprawne ( inaczej by ich tu nie było ) No ale odległość anteny od anteny jest zbyt mała nawet na sprawne radio. W publikacji Wiktora Chojnackiego SP5QU "Instalowanie i Wyposażenie Radiostacji Amatorskich " znalazłem filtr autorstwa LA6DM eliminujący takowe zakłócenia z efektem 120 dB. Postanowiłem zrobić taki układ ale z przeróbkami. Po pierwsze zamiast drogiej srebrzonej blachy na obudowę postanowiłem użyć dwójki ocynkowanej z której wykonałem całe chassis. Poza tym wymiary boczne czyli tam gdzie wchodzą gniazda oraz przegrody wewnętrzne wynoszą 50 x 50 mm no i długość jest całkiem słuszna bo pomiędzy przegrodami jest również 50 mm lub czasami więcej. Przepusty na cewki łączące wykonane zostały z turbaksu i wklejone do przelotów. średnica przepustów wynosi ponad 10 mm a to dla bezpieczeństwa aby czasem sygnał nadawczy nie "przestrzelił do masy. Całość została przykryta blachą ocynkowana o grubości 1 mm z której "wyklepałem" pokrywę przykręcaną na "samowierty" . Gniazda antenowe mocowane są na klasyczne śrubki dwójki. Przegrody są nitowane do podstawy, podobnie jak uchwyty do przykręcenia obudowy. Poprzez wszystkie przegrody przepuszczony jest dodatkowy drut srebrzony średnicy 3 mm do którego polutowane są końce wszystkich kondensatorów. (posrebrzone aluminium - rosyjski patent, do dziś zachodzę w głowę JAK Oni to zrobili) Końce tego przewodu połączone są z końcówkami montażowymi które następnie od środka przychodzą na śrubki mocujące gniazda. Chodzi o to żeby te gniazda miały jak najlepsze połączenie z "masą" filtra. Teraz najważniejsze. Kondensatory wybieramy nadawcze na 3 kV co najmniej. Poza tym w oryginale użyto kondensatorów pojemności 170 pF. Ja użyłem 150 pF / 3kV ale za to każda cewka ma o dwa zwoje więcej. Poza tym kolejny problem drut (!) Ponieważ zależało mi na tym żeby tłumienie było jak największe zamiast miedzi średnicy 2mm użyłem srebrzanki "jedynki" z odzysku. Jednak w takim wypadku należy uważać aby poszczególne zwoje nie zrobiły pomiędzy sobą zwarcia. Ale da się zrobić. Najpierw przewlekamy i lutujemy ze sobą wszystkie cewki no i gniazda. Pierwsza i ostatnia "cela" w filtrze pozostaje przewleczona na wskroś bez cewki ale tam przychodzą cewki nie w szeregu tylko poprzez kondensator "do masy" i każda stanowi obwód wysokiej impedancji( tłumiący) na częstotliwość pośrednią odbiornika TV czyli 38 MHz. Pozostałe cewki po dolutowaniu kondensatorów "wchodzą w zakres" bez potrzeby zestrajania. Pamiętać trzeba że ten filtr był projektowany w latach 70 tych i miał być strojony na GDO a te urządzenia jak wiadomo mają dokładność "do pół łokcia" . Kondensatory lutujemy pomiędzy cewki a drut 3mm o którym pisałem powyżej. Jednak do tego celu potrzebować będziemy lutownicy "do dachów" minimum 300Wat. Kondensatory nadawcze mają końcówki gość grube drut też jest spory więc aby uniknąć zimnych lutów trzeba dobrze to rozgrzać. ZURIT owska "setka" transformatorowa nie wystarczy. Po zakryciu pokrywy i zmontowaniu całości możemy pomierzyć. Jeśli wychodzi tak jak na moim VNA Powinno być ok.

Tak wygląda wykres, a tak konstrukcja

Mój mentor uczył mnie że "to ma działać a nie wyglądać"

A w środku wygląda tak:

  Filtr Antena 1.jpg (Rozmiar: 677.36 KB / Pobrań: 1609)

  Filtr Antena 2.jpg (Rozmiar: 503.74 KB / Pobrań: 1518)

  Filtr Antena 3.jpg (Rozmiar: 517.06 KB / Pobrań: 1494)

  Filtr Antena 4.jpg (Rozmiar: 610.81 KB / Pobrań: 1501)

Zasilacz buforowy akumulatora 12V

Fri, 04 Feb 2022 07:28:23 +0000

Cześć!
Przymuszony koniecznością uporządkowania osobistych zapasów przydasi elektronicznych, żonaci rozumieją a kawalerowie się doczekają, trafiłem na kilka perełek w tym słynne P210 z radiatorami oraz kilka ponad 100VA transformatorów bezpieczeństwa. Zakiełkowała we mnie myśl aby zbudować sobie powiedzmy 10 amperowy zasilacz do urządzeń radiowych pracujący w buforze z akumulatorem samochodowym.
I teraz w czym potrzebuję pomocy Szanownego Koleżeństwa.
- wybór układu pracy
- wybór rozwiązania układowego.

Piloty CW do PP9

Fri, 23 Apr 2021 13:36:52 +0000

Koledzy! Ma ktoś na zbyciu pilota do CW od filtra PP9 A3? Mam kilka tych filtrów ale porzebne mi 4 piloty od CW zeby przerobić PP9 ( jeden z posiadanych przeze mnie) na węższe pasmo czyli ok. 1kHz właśnie do CW. Niestety wiem że praca na CW przy użyciu filtra SSB to droga przez mękę dlatego chcę spróbować i wymienić te cztery kwarce aby uzyskać filtr z jednym zboczem za to węższy. Pomoże ktoś? Ile i czemu tak drogo?

SSB z DDS

Tue, 21 Apr 2020 08:17:40 +0000

Cześć!

Korzystając z chwilowego braku zajęcia zastanawiam się czy istnieją rozwiązania pozwalające w miarę prosty sposób cyfrowo kształtować sygnał jednowstęgowy. Otóż mając sygnał SSB przekształcamy go cyfrowo aby wysyłać go do DDS który wygeneruje sygnał na żądanej częstotliwości. Można by w ten sposób "uprościć" budowę małych nadajników.
Czy ktoś już opracował tę metodę? Czy jest Wam znana?

Sterownik DTMF (PUK 2011)

Sun, 11 Sep 2011 07:52:17 +0000

Na tegoroczny konkurs PUK, czyli przydatne urządzenie krótkofalarskie przygotowałem prosty sterownik DTMF. Sterownik ten może być wykorzystany do sterowania wszelkimi urządzeniami do których jest utrudniony dostęp. W zamierzeniu powstał jako urządzenie do kontrolowania przemiennika, oraz komputerów obsługujących Echolink i Igate w sieci APRS. Urządzenie jest prostym rozwiązaniem opartym o sprzętowe dekodowanie DTMF-u oraz najpopularniejszy procesor ATTiny 2313. Projekt jest udostępniany na licencji GPL.
Sterownik może kontrolować maksymalnie do 6-ciu urządzeń i składa się z płytki podstawowej (3 linie) oraz płytki rozszerzeń (kolejne 3 linie). Funkcje sterowania są zabezpieczone cztero cyfrowym pinem.
Sterownik ten dzięki udostępnieniu źródeł może posłużyć jako baza do konstruowania innych urządzeń, lub do zaimplementowania w swoim rozwiązaniu części funkcjonalności.

W projekcie przewidziałem możliwość rozszerzenia funkcjonalności poprzez rozbudowę o port RS-232 i możliwość wyrzucania tam, zdekodowanych kodów DTMF, na przykład do sterowania Echolinkiem. Jeśli jest ktos chętny to zapraszam do rozbudowy i opisania tego na forum.

Wszystkie pliki źródłowe można pobrać ze strony: sq9mdd.qrz.pl

Film prezentujący działanie sterownika.

Poniżej źródło programu a w załącznikach rysunki płytek w SprintLayout

Kod:
'-------------------------------------------------------------------------------

'      DTMF  Controler DC1  v.1.2 Stable

'

'

'      SQ9MDD  2011

'

'      This program is free software; you can redistribute it and/or modify

'      it under the terms of the GNU General Public License as published by

'      the Free Software Foundation; either version 2 of the License, or

'      (at your option) any later version.

'

'      This program is distributed in the hope that it will be useful,

'      but WITHOUT ANY WARRANTY; without even the implied warranty of

'      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

'      GNU General Public License for more details.

'

'      You should have received a copy of the GNU General Public License

'      along with this program; if not, write to the Free Software

'      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

'      MA 02110-1301, USA.

'-------------------------------------------------------------------------------

' ustawienia kompilatora i konfiguracja

$regfile = "Attiny2313.dat"

$crystal = 4000000

$hwstack = 32

$swstack = 0

$framesize = 50

'-------------------------------------------------------------------------------

'konfiguracja portów, patrz schemat

Config Portb.0 = Output  'L6  Conn 3

Config Portb.1 = Output  'L5

Config Portb.2 = Output  'L4

Config Portb.3 = Output  'func led

Config Portb.4 = Input   'Q4

Config Portb.5 = Input   'Q3

Config Portb.6 = Input   'Q2

Config Portb.7 = Input   'Q1

Config Portd.0 = Output  'RS 232

Config Portd.1 = Output  'RS 232

Config Portd.2 = Input   'StD

Config Portd.3 = Input   'ResetKey

Config Portd.4 = Output  'L1

Config Portd.5 = Output  'L2

Config Portd.6 = Output  'L3

Config Porta.0 = Output  'UNUSED

Config Porta.1 = Output  'UNUSED

Portb = &B00000000

Portd = &B0001000        'ResetKey domyślnie w stanie wysokim

L1 Alias Portd.4

L2 Alias Portd.5

L3 Alias Portd.6

L4 Alias Portb.2

L5 Alias Portb.1

L6 Alias Portb.0

Q1 Alias Pinb.7

Q2 Alias Pinb.6

Q3 Alias Pinb.5

Q4 Alias Pinb.4

Funcled Alias Portb.3

Resetkey Alias Pind.3

Dim Cyfra As Integer

Dim Kod As String * 8

Dim Znak As String * 1

Dim Pin As String * 4

Dim Mypin As String * 4

Dim Savedpin As Eram String * 4

Dim Temppin As String * 4

Dim Linia As String * 1

Dim Akcja As String * 1

Dim Zmianapinu As Bit

Enable Interrupts        'odpalam przerwania

Config Int0 = Rising     'reagujemy na zbocze narastajace

Enable Int0

On Int0 Dtmfin           'jesli przyjdzie sygnal ze zdekodowano dtmf odpalamy procedure dtmfin

'-------------------------------------------------------------------------------

'inicjalizacja programu zczytuje zapisany pin

Zmianapinu = 0

Cyfra = 0

Mypin = Savedpin         'wczytuje pin z eepromu

Wait 5

'wlasciwa petla

  Do

   If Resetkey = 0 Then  'procedurk resetu i ustawienia domyslnego pinu

      Funcled = 1

      Wait 5             'po pieciu sekundach od zwarcia zworki reset sprawdzam czy nadal jest zwarta jesli tak to wykonuje akcje.

      If Resetkey = 0 Then

         Mypin = "2222"  'ustawiamy domyslny pin w urzadzeniu

         Savedpin = "2222"

         Funcled = 0

         Wait 5

      End If

   End If

  Loop

End                      'koniec programu glównego

'-------------------------------------------------------------------------------

Dtmfin:

      Cyfra = 0          ' reset cyfry zaczynamy od zera

      Waitms 5           ' czekamy czy nadal jest kod

      If Q1 = 1 Then     ' zamiana binarki z 8870 na dziesietne

         Cyfra = Cyfra + 1

      End If

      If Q2 = 1 Then

         Cyfra = Cyfra + 2

      End If

      If Q3 = 1 Then

         Cyfra = Cyfra + 4

      End If

      If Q4 = 1 Then

         Cyfra = Cyfra + 8

      End If

      Znak = Lookupstr(cyfra , Kody)       ' zamiana cyferek na string z liczbami

      If Znak = "#" Then ' znaki specjalne resetuja bufor

         Kod = ""

         Znak = ""

         Zmianapinu = 1

      End If

      If Znak = "*" Then ' znaki specjalne resetuja bufor

         Kod = ""

         Znak = ""

         Zmianapinu = 0

      End If

      Kod = Kod + Znak   ' tutaj sklejam stringa z poszczegolnych znakow

   If Zmianapinu = 0 Then

      If Len(kod) = 6 Then       ' jesli string ma 6 znakow przystepujemy do analizy

         Pin = Left(kod , 4)       ' wycinamy PIN

         Linia = Mid(kod , 5 , 1)       ' wycinamy ktora linia bedziemy sterowac

         Akcja = Right(kod , 1)       ' wycinamy jaka akcja

         Kod = ""

         If Pin = Mypin Then       ' jesli pin jest ok przystepujemy do dzialania

            If Linia = "1" Then

              If Akcja = "1" Then       'wlacz

                  L1 = 1

              Elseif Akcja = "0" Then       'wylacz

                  L1 = 0

              Elseif Akcja = "2" Then       'reset

                  L1 = 1

                  Wait 30

                  L1 = 0

              End If

            Elseif Linia = "2" Then

              If Akcja = "1" Then

                  L2 = 1

              Elseif Akcja = "0" Then

                  L2 = 0

              Elseif Akcja = "2" Then

                  L2 = 1

                  Wait 30

                  L2 = 0

              End If

            Elseif Linia = "3" Then

              If Akcja = "1" Then

                  L3 = 1

              Elseif Akcja = "0" Then

                  L3 = 0

              Elseif Akcja = "2" Then

                  L3 = 1

                  Wait 30

                  L3 = 0

              End If

            Elseif Linia = "4" Then

              If Akcja = "1" Then

                  L4 = 1

              Elseif Akcja = "0" Then

                  L4 = 0

              Elseif Akcja = "2" Then

                  L4 = 1

                  Wait 30

                  L4 = 0

              End If

            Elseif Linia = "5" Then

              If Akcja = "1" Then

                  L5 = 1

              Elseif Akcja = "0" Then

                  L5 = 0

              Elseif Akcja = "2" Then

                  L5 = 1

                  Wait 30

                  L5 = 0

              End If

            Elseif Linia = "6" Then

              If Akcja = "1" Then

                  L6 = 1

              Elseif Akcja = "0" Then

                  L6 = 0

              Elseif Akcja = "2" Then

                  L6 = 1

                  Wait 30

                  L6 = 0

              End If

            Elseif Linia = "9" Then       'obsluga wszystkich linii jednoczesnie

               If Akcja = "1" Then

                  L1 = 1

                  L2 = 1

                  L3 = 1

                  L4 = 1

                  L5 = 1

                  L6 = 1

               Elseif Akcja = "0" Then

                  L1 = 0

                  L2 = 0

                  L3 = 0

                  L4 = 0

                  L5 = 0

                  L6 = 0

               Elseif Akcja = "2" Then

                  L1 = 1

                  L2 = 1

                  L3 = 1

                  L4 = 1

                  L5 = 1

                  L6 = 1

                  Wait 30

                  L1 = 0

                  L2 = 0

                  L3 = 0

                  L4 = 0

                  L5 = 0

                  L6 = 0

               End If

            End If

         End If

         Gosub Komendaok

      End If

   Elseif Zmianapinu = 1 Then       'procedura zmiany pinu

      If Len(kod) = 8 Then       'dlugosc dwoch pinow

         Pin = Left(kod , 4)       'stary pin

         If Pin = Mypin Then       'jesli obecny pin zgadza sie z zapamietanym

            Temppin = Right(kod , 4)

            Savedpin = Temppin

            Mypin = Temppin

         End If

      End If

   End If

Return

Komendaok:

   Funcled = 1

   Waitms 125

   Funcled = 0

   Waitms 50

   Funcled = 1

   Waitms 125

   Funcled = 0

Return

Komendaerr:

   Funcled = 1

   Waitms 300

   Funcled = 0

Return

Kody:

Data "D" , "1" , "2" , "3" , "4" , "5" , "6" , "7" , "8" , "9" , "0" , "*" , "#" , "A" , "B" , "C"

'-------------------------------------------------------------------------------

  dokumentacja-v.1.1.pdf (Rozmiar: 2.19 MB / Pobrań: 3224)

  20110709-main.LAY (Rozmiar: 140.4 KB / Pobrań: 1576)

  20110709-extend.LAY (Rozmiar: 54.01 KB / Pobrań: 1596)

Miernik częstotliwości skala cyfrowa.

Wed, 11 May 2011 20:25:24 +0000

Wiem że projektów skal cyfrowych w sieci jest pełno i nawet jeszcze więcej. Pomimo to Wraz z kolegą z Koniakowa postanowiliśmy że stworzymy projekt który docelowo będzie zainstalowany w Taurusie. A także może być wykorzystany jako prosty miernik częstotliwości. Wspólnie ustaliliśmy że nasz wskaźnik będzie wyposażony w wyświetlacz LED 5 cyfr.
Do tej pory (już kilka dni temat męczymy) Zaprojektowaliśmy płytkę wyświetlacza płytkę miernika, schemat i mamy wstępne propozycje programu.
Przy tej okazji może ktoś popełni program w Assemblerze? będzie okazja porównać program robiący to samo.

Rysunek płytki wyświetlacza

  board_led.JPG (Rozmiar: 186.71 KB / Pobrań: 5484)

Rysunek miernika

  board_counter.JPG (Rozmiar: 320.42 KB / Pobrań: 6259)

Schemat miernika

  miernik-czestotliwosci-skala.png (Rozmiar: 218.97 KB / Pobrań: 6054)

Schemat wyświetlacza

  miernik-czestotliwosci-wyswietlacz.png (Rozmiar: 144.11 KB / Pobrań: 6139)

Przed prasowaniem

  IMG01139-20110508-1614.jpg (Rozmiar: 301.84 KB / Pobrań: 5473)

Po wytrawieniu

  IMG01142-20110508-1717.jpg (Rozmiar: 316.81 KB / Pobrań: 2710)

Gotowy moduł, oczywiście prototypowy, bede zmieniał sposób wyprowadzenia goldpinów.

  IMG01147-20110508-1830.jpg (Rozmiar: 311.29 KB / Pobrań: 2846)

Film z testu poprawności wykonania wyświetlacza

UPDATE 20110514:

Dzisiaj zmontowałem "trochę" płytki miernika,zamiast tranzystorów jak jest na schemacie, podłączyłem anody wyświetlaczy bezpośrednio z procesora.
Wszystko działa poprawnie jasność jest zadowalająca.

Pod tym linkiem znajduje się film z testów. Na razie wrzucilem programik który odlicza cyferki prezentując sposób wyświetlania
Oczywiście wszystkie źródła wrzucę gdy skończę.

No panowie na razie tyle, reszta w drodze...

  lcd_board.LAY (Rozmiar: 44.58 KB / Pobrań: 1708)

  uc_board.LAY (Rozmiar: 75.31 KB / Pobrań: 1427)

  miernik-czestotliwosci-skala.sch (Rozmiar: 12.64 KB / Pobrań: 1811)

  miernik-czestotliwosci-wyswietlacz.sch (Rozmiar: 5.68 KB / Pobrań: 1590)

Sterownik Rotora (Modernizacja AR-303)

Wed, 20 Apr 2011 11:55:38 +0000

Witam.

Na jednym z for nawiązała się dyskusja dotycząca Lekkiego rotora AR-303 i w trakcie rozmowy padł pomysł modernizacji rotora. Rotor ten pomimo oczywistych wad (sterowanie, kalibracja) ma dwie niezaprzeczalne zalety.
Te zalety to cena i możliwość łatwej modyfikacji.

Rotor jest prosty, postanowiłem że sterownik do niego też będzie bardzo prosty i tani. W załączeniu pliki źródłowe wersji 1.0 beta sterownika. Kilka rzeczy wymaga jeszcze modyfikacji lub zdefiniowania wartości elementów.

  sterownik-rotora.png (Rozmiar: 403.18 KB / Pobrań: 7591)

  plytka-sterownik.JPG (Rozmiar: 591.75 KB / Pobrań: 7697)

  plytka-sterownik-face.JPG (Rozmiar: 505.19 KB / Pobrań: 7346)

Na YouTube wrzuciłem kilka filmów obrazujących działanie sterownika.
Sterownik rotora pierwsze odpalenie.

Test impulsatora

Zainstalowany impulsator

Mechanika krańcówki

  sterownik-rotora-v.1.0-20110419.rar (Rozmiar: 2.08 KB / Pobrań: 1996)

  sterownik-rotora.LAY (Rozmiar: 111.09 KB / Pobrań: 2124)

  sterownik-rotora.sch (Rozmiar: 17.48 KB / Pobrań: 2249)

Sterownik rotora - Bascom

Sun, 27 Mar 2011 19:42:57 +0000

Witam czytających - posiadając minimalną wiedzę o pisaniu programów w Bascom'ie - postanowiłem że spróbuje napisać taki program i przetestować go na mojej płytce uruchomieniowej EvB 4.3.
Na tą chwile mam taki oto napisany program.

Kod:
'zwiększanie ADC zapala PB1-LED,gasi PB0-LED

'zmiejszanie ADC zapala PB0-LED,gasi PB1-LED

'wyrównanie wartości gasi LED'y

'czyszczenie znaku stopnia działa

'przy zmiejszaniu zadanej - poniżej wartości

'odczytanej zapalaja się na przemian obie LED'y

'nie wiem czemu?

$regfile = "m644pdef.dat"                                   'informuje kompilator o typie mikrokontrolera

'$sim

$crystal = 16000000                                         'informuje kompilator

                                                            'o częstotliwości oscylatora

                                                            'taktującego mikrokontroler

Config Lcd = 16 * 4

Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7       'porty mikrokontrolera, do których dołączono wyświetlacz LCD

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'konfiguracja wewnętrznego przetwornika A/C

Config Portd = &B11111100 : Portd = &B11111111

Config Portb = &B11111111 : Portb = &B11111111

Deflcdchar 1 , 31 , 31 , 4 , 4 , 4 , 4 , 4 , 4              ' replace ? with number (0-7)

Deflcdchar 2 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32        ' replace ? with number (0-7)

Deflcdchar 3 , 31 , 31 , 4 , 4 , 4 , 32 , 32 , 32           ' replace ? with number (0-7)

Deflcdchar 4 , 4 , 4 , 4 , 4 , 14 , 14 , 31 , 31            ' replace ? with number (0-7)

Deflcdchar 5 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32        ' replace ? with number (0-7)

         'Zmienne

Dim Wart_ac1 As Word                                        'zmienna na wartość odczytaną z przetwornika

Dim V1 As Single

Dim V2 As Integer

Dim V3 As String * 3

Dim V4 As Integer

Dim V5 As Single

Dim V6 As String * 3                                        'zmienna przechowująca obliczon

Declare Sub Lewo

Declare Sub Prawo

Declare Sub Zatrz

Start Adc                                                   'uruchamia wbudowany przetwornik

Wart_ac1 = Getadc(0)                                        'odczytanie wartości z wejści ADC0 mikrokontrolera

V1 = Wart_ac1 / 2.841                                       'zamiana odczytanej wartości z A/C na stopnie azymutu

V2 = Int(v1)

V3 = Str(v2)

Cursor Off

Cls

Wait 1

Locate 1 , 4 : Lcd "STEROWNIK"

Waitms 500

Locate 2 , 6 : Lcd "ROTORA"

Wait 1

Cls

Locate 1 , 6 : Lcd "Azymut"

Locate 2 , 1 : Lcd Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2)

Locate 3 , 2 : Lcd V3 ; Chr(5)

Locate 3 , 9 : Lcd Chr(4)

Locate 3 , 12 : Lcd V2 ; Chr(5)

V4 = V2

Cls

Do

                                                         'początek pętli programu

Wart_ac1 = Getadc(0)                                        'odczytanie wartości z wejści ADC0 mikrokontrolera

V1 = Wart_ac1 / 2.841                                       'zamiana odczytanej wartości z A/C na stopnie azymutu

V2 = Int(v1)

V3 = Str(v2)

Locate 1 , 6 : Lcd "Azymut"

Locate 2 , 1 : Lcd Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2)

Locate 3 , 2 : Lcd V3 ; Chr(5) ; "  "

Locate 3 , 9 : Lcd Chr(4)

Locate 3 , 12 : Lcd V4 ; Chr(5) ; "  "

If Pind.0 = 0 Then                                          'zwiększanie zadanego azymutu

  Waitms 25

    If Pind.0 = 0 Then

   Incr V4

  If V4 => 360 Then

  V4 = 360

  End If

  End If

  End If

If Pind.1 = 0 Then                                          'zmiejszanie zadanego azymutu

 Waitms 25

 If Pind.1 = 0 Then

 Decr V4

 If V4 <= 0 Then

 V4 = 0

 End If

 End If

 End If

Locate 3 , 12 : Lcd V4 ; Chr(5)

V5 = Val(v3)

V6 = Str(v4)

If V3 < V6 Then

Gosub Lewo

End If

If V3 > V6 Then

Gosub Prawo

End If

If V3 = V6 Then

Gosub Zatrz

End If

Loop                                                        'koniec pętli Do...Loop

End                                                         'koniec programu

Sub Lewo

Portb = &B11111111 : Portb = &B11111110

End Sub Lewo

Sub Prawo

Portb = &B11111111 : Portb = &B11111101

End Sub Prawo

Sub Zatrz

Portb = &B11111111 : Portb = &B11111111

End Sub Zatrz

podczas zmieszania przyciskiem wartości zadanej ( tej po prawej stronie)
podczas przechodzenia z setek na dziesiątki oraz z dziesiątek na jedności zapala mi się LED podłączona do PB0 - czy może ktoś podpowiedzieć co robie źle - pozdrawiam Jacek.

P.S. załączam obrazek poglądowy sterownika

rotor-blokowy.JPG (Rozmiar: 49.13 KB / Pobrań: 3848)

Sterownik przemiennika crossband

Mon, 18 Oct 2010 22:06:38 +0000

Witam Forumowiczów!

Od pewnego czasu chodził mi po głowie pomysł praktycznego zrealizowania dwukierunkowego przemiennika crossbandowego 2m/70cm, umożliwiającego łączność między użytkownikami radiotelefonów na różne pasma. Samo urządzenie w fazie testowej zostało przeze mnie już uruchomione i pracuje zadowalająco, jednak poczyniłem kroki zmierzające do jego formalnego zalegalizowania, co wiąże się z koniecznością nadawania znamiennika na obydwu częstotliwościach, a także roger beepa.

Ponieważ charakter pracy takiego transpondera jest dwukierunkowy, opisany na forum sterownik nie nadaje się, gdyż konieczne jest monitorowanie stanu sygnałów SQUELCH w dwóch odbiornikach i załączanie jednego z dwóch nadajników zależnie od tego, który odbiornik został aktywowany.

Urządzenie jest wykonane na bazie dwóch ręcznych radiotelefonów Motorola, tak więc konieczne było zastosowanie przekaźników dołączających transformatory audio do wejścia MIC, w celu aktywacji PTT.

Sterownik taki powinien więc posiadać dwa wejścia monitorujące stan blokady szumów, oraz dwa wyjścia sterujące przekaźnikami poprzez odpowiednie tranzystory. Powinien również umożliwiać podanie sygnału znamiennika do obydwu wejść mikrofonowych, ale z odpowiednią separacją, tak aby nie powodował sprzężeń akustycznych podczas normalnej pracy transpondera.

Tak mniej więcej wygląda skrócony opis urządzonka, ze swojej strony jestem w stanie wykonać montaż sterownika jak i jego uruchomienie, jednak już napisanie odpowiedniego programu przerasta moje możliwości, tak więc liczę w tej kwestii na pomoc Kolegów.

73!
Janek
SQ5NBR

Mini komputer do urządzeń QRP

Thu, 14 Oct 2010 21:39:29 +0000

Wielu Kolegów budując proste urządzenia QRP umieszcza w nich skalę do pomiaru częstotliwości. Dostępnych jest wiele ciekawych rozwiązań bazujących najczęściej na procesorze. Zastosowanie mikroprocesora oraz wyświetlacza LCD w takim module pozwala na realizację dodatkowych funkcji przydatnych podczas obsługi urządzenia takich jak:
- cyfrowy S_metr;
- cyfrowy SWR oraz pomiar mocy;
- konfiguracja radia (f.pcz., emisje, filtry,N/O, itd.);

W tym wątku proponuję dyskusję i realizację mini komputera pokładowego do urządzeń QRP wykonującego podstawowe pomiary oraz sterowanie całym radiem.
Konfiguracja sterownika:
- procesor ATmega8, LCD 2*16 znaków;
- 7 klawiszy sterujących, możliwość podłączenia enkodera;
- druk jednostronny pod termotransfer;

Na zdjęciach prototyp komputerka, schemat ideowy oraz projekt druku do wyprasowania. Sterownik może być wykorzystany do innych celów jako uniwersalny moduł mikroprocesorowy np nauki pisania programów.

Na schemacie była zła wartość rezystora R2, ma być 2k7. Przy wartości 1 k źle rozpoznawał klawisze funkcyjne.

  AT8_comp_all.JPG (Rozmiar: 259.89 KB / Pobrań: 10228)

  AT8comp_elementy.JPG (Rozmiar: 265.37 KB / Pobrań: 10718)

  AT8comp_druk.JPG (Rozmiar: 297.54 KB / Pobrań: 10230)

  AT8comp_sch_2.jpg (Rozmiar: 102.86 KB / Pobrań: 10429)

  AT8comp_schemat.pdf (Rozmiar: 47.45 KB / Pobrań: 2736)

  AT8comp_pcb.pdf (Rozmiar: 25.86 KB / Pobrań: 2483)

Interfejs USB_TRX

Sat, 09 Oct 2010 07:17:08 +0000

Moduł interfejsu do komunikacji pomiędzy komputerem, złącze USB a i procesorem syntezy np Oleg 9. Moduł posiada optoizolację na transoptorach oraz rozdzielone zasilania od strony PC i radia .
Widok modułu i schemat na zdjęciach. Transoptory SMD PC817C, da się zamontować również przewlekane.

Projekt druku w Sprint Layout 5.0

  usb_trx_sch.jpg (Rozmiar: 67.55 KB / Pobrań: 4536)

  usb_trx_up.JPG (Rozmiar: 398.62 KB / Pobrań: 4560)

  usb_trx_down.JPG (Rozmiar: 523.05 KB / Pobrań: 4326)

  usb_trx.LAY (Rozmiar: 56.94 KB / Pobrań: 1788)

HMGARST

Sun, 19 Sep 2010 10:26:55 +0000

Proszę o pomoc w projekcie Nadajnika do Amatorskiej Radiolokacji Sportowej w skrócie HMGARST.
W tej chwili jest już gotowy i przetestowany program, oraz rozrysowany schemat części cyfrowej. Potrzebuje by ktoś z kolegów wrysował w ten schemat część nadawczą na 80m o mocy 1-5W z możliwością skokowego odstrajania układu. Oraz pomocy podczas rysowania płytki w layoucie (doświadczenie z w.cz).
W załączeniu wszystkie pliki konieczne do przyłączenia się do projektu.

Zasady oczywiście takie same jak dla wszystkich otwartych projektów, wszystko publikujemy w postaci źródłowej na licencji GPL.

  ardf-beacon.jpg (Rozmiar: 124.39 KB / Pobrań: 2220)

  HMGARST.odt (Rozmiar: 6.99 KB / Pobrań: 1469)

  HMGARST.pdf (Rozmiar: 47.32 KB / Pobrań: 1484)

  ardf-beacon.rar (Rozmiar: 2.09 KB / Pobrań: 1331)

  ardf-beacon.sch.rar (Rozmiar: 1.95 KB / Pobrań: 1282)

  20100919-HMGARST-complet-files.rar (Rozmiar: 375.74 KB / Pobrań: 1407)

Sterownik przemiennika

Mon, 16 Aug 2010 09:33:40 +0000

Ależ się nam offtop zrobił, ale to dobrze, może będzie można wątek pociachać i fajny dział o programowaniu wyjdzie.

Jak obiecałem usiadłem w niedzielę do nauki bascoma.
I oto co mi wyszło z pod palców:

Kod:
'-------------------------------------------------------------------------------

'      REPEATER CONTROLER v.2.0.L

'      L - obsługa LCD

'      N - brak sygnalizacji zewnętrznej

'      D - sygnalizacja diodowa

'      SQ9MDD  2010

'

'      This program is free software; you can redistribute it and/or modify

'      it under the terms of the GNU General Public License as published by

'      the Free Software Foundation; either version 2 of the License, or

'      (at your option) any later version.

'

'      This program is distributed in the hope that it will be useful,

'      but WITHOUT ANY WARRANTY; without even the implied warranty of

'      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

'      GNU General Public License for more details.

'

'      You should have received a copy of the GNU General Public License

'      along with this program; if not, write to the Free Software

'      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

'      MA 02110-1301, USA.

'-------------------------------------------------------------------------------

$regfile = Attiny2313.def

$crystal = 4000000

$baud = 9600

$hwstack = 24

$swstack = 0

$framesize = 32

Config Portb = &B11111111

Config Portd = &B1001101

Portb = &B00000000

Portd = &B0110010

Rx_signal Alias Pind.1

Morsepin Alias Portb.0

Ptt Alias Portd.6

Beep_option_jumper Alias Pind.4

Ident_after_jumper Alias Pind.5

'zegar on

Enable Interrupts

Config Timer1 = Timer , Prescale = 64

Enable Timer1

'definicje stałych

Const Speed = 12

Const Czestotliwosc = 450

Const Kropka = Czestotliwosc / Speed

Const Kreska = 3 * Kropka

'definicje zmiennych

Dim Sendchar As String * 1

Dim Charcode As Byte

Dim Dataindex As Byte

Dim Charindex As Byte

Dim Nextcharindex As Byte

Dim Charstring As String * 12

Dim Stringlength As Byte

Dim Codelength As Byte

Dim Codeindex As Byte

Dim Codeelement As String * 1

Dim Sendcw As Bit

Dim Tx_flag As Bit

Dim Rx_flag As Bit

Dim Beep_flag As Bit

Dim Podtrzymanie_flag As Bit

Dim Rx As Bit

Dim Rxa As Bit

Dim Sekunda As Byte

Dim Minuta As Byte

Dim Countdown As Byte

Dim Beep_option As Bit

Dim Inputtekst As String * 6

Dim Ident_after_tx As Bit

Dim Sendcwinterwal As Byte

Dim Czaspodtrzymania As Byte

'konfiguracja zmiennych sterownika

Inputtekst = "SR5WM"     'znamiennik max 6 znaków jesli chcesz wiekszy zmien rozmiar zmiennej Inputtekst

Sendcwinterwal = 5       'czas automatycznego wysyłania znamiennika w minutach

Czaspodtrzymania = 4     'czas podtrzymania nosnej w sekundach

'Beep_option = 1

'Ident_after_tx = 1

'-------------------------------------------------------------------------------

'tutaj zaczynamy prace programu

'tutaj uruchamiam timer do odliczania wyłączania flag

On Timer1 Liczmy

Wait 3

'Uruchomienie Przemiennika Wysyłamy znamiennik

Sendcw = 1

If Beep_option_jumper = 1 Then

   Beep_option = 0       '0/1 beepek na koniec RX

Else

   Beep_option = 1

End If

If Ident_after_jumper = 1 Then

   Ident_after_tx = 0    '0/1 czy nadawac znamiennik na koniec kazdego tx-a  czy tylko co ustalony interwał czasowy

Else

   Ident_after_tx = 1

End If

'główna pętla programu

'-------------------------------------------------------------------------------

Do

'obsługa sygnału RX i ustawianie flagi RX i Beep

'-------------------------------------------------------------------------------

'jesli pin RX zwarty do masy

   If Rx_signal = 0 Then

'ustawiam bit pomocniczy

         Rx = 1

'jeśli po 20ms nadal wciśnięty

      If Rx = 1 And Rxa = 0 Then

         Rxa = 1

'ustawiamy flage jest RX

         Rx_flag = 1

      End If

'jeśli sygnał braku zajętości znika to

   Elseif Rxa = 1 Then

         Beep_flag = 1

         Rx_flag = 0

'zeruj obydwa bity pomocnicze

         Rx = 0 : Rxa = 0

      End If

'ustawianie flagi TX jesli ustawione flagi RX lub podtrzymanie

'-------------------------------------------------------------------------------

'ustawianie flagi podtrzymanie jesli zapalony RX

If Rx_flag = 1 Then

         Podtrzymanie_flag = 1

         Countdown = 0

End If

'ustawiamy flage TX jesli mamy RX-a lub dziala podtrzymanie

 If Rx_flag = 1 Or Podtrzymanie_flag = 1 Then

   Tx_flag = 1

 Else

   Tx_flag = 0

 End If

'ustawiamy port PTT jesli mamy flage tx

 If Tx_flag = 1 Then

 'wysterowanie nadajnika

    Ptt = 1

 'tutaj beep jesli koniec nadawania i beep_option enabled

    If Beep_flag = 1 And Rx_flag = 0 And Beep_option = 1 Then

    Waitms 150

      Sound Morsepin , Kropka , Czestotliwosc

      Beep_flag = 0

    End If

 Else

 'wysterowanie nadajnika

    Ptt = 0

 End If

'procedura wysylania znamiennika

'-------------------------------------------------------------------------------

If Sendcw = 1 Then

'uruchamiam sobie TX

Ptt = 1

'blokujemy timer na czas wysylania znamiennikabo chrypi2

 Stop Timer1

 Waitms 300

   Stringlength = Len(inputtekst)

'wlaczyc pin PTT tutaj

'tutaj przesuwamy się po ciągu znaków i będziemy odtwarzać każdą literę z osobna

   For Charindex = 1 To Stringlength

   Sendchar = Mid(inputtekst , Charindex , 1)

   Charcode = Asc(sendchar)

    Dataindex = Charcode - 48

    Charstring = Lookupstr(dataindex , Alfabet)

    Codelength = Len(charstring)

'ta pętla generuje kazda litere znaku

         For Codeindex = 1 To Codelength

               Codeelement = Mid(charstring , Codeindex , 1)

            If Codeelement = "." Then

'Zagraj kropke

               Sound Morsepin , Kropka , Czestotliwosc

            Else

'Zagraj kreske

               Sound Morsepin , Kreska , Czestotliwosc

            End If

            If Codeindex < Codelength Then

               Waitms Kropka

            End If

         Next Codeelement

'odstęp pomiedzy znakami 3 x kropka

      Waitms Kreska

'i wracamy do początku pętli po następną literę

   Next Charindex

'skonczylismy gasimy flaga nadawania znamiennika

'resetujemy lflagi

   Sendcw = 0

   Tx_flag = 0

   Sekunda = 0

'skonczylismy nadawac znamiennik odpalamy timer 1

   Start Timer1

   End If

'koniec pętli

Loop

'koniec programu

End

'obsługa

'-------------------------------------------------------------------------------

Liczmy:

Timer1 = 0

'tutaj proste naliczanie w sekundzie i cos (dla uproszczenia i skrocenia kodu uzyłem timera tc1/64 to daje 1s = 1,05S)

   Sekunda = Sekunda + 1

   If Sekunda = 60 Then

      Minuta = Minuta + 1

      If Minuta = 60 Then

         Minuta = 0

      End If

      Sekunda = 0

   End If

'jesli podtrzymanie na 1 a rx spadl zczynamy odliczanie do wylaczenia

   If Podtrzymanie_flag = 1 And Rx_flag = 0 Then

     Countdown = Countdown + 1

'jesli doszlismy do konca gas flagi

      If Countdown >= Czaspodtrzymania Then

         Podtrzymanie_flag = 0

         Tx_flag = 0

         Countdown = 0

'jesli zaznaczona flaga identylfikacji po odpuszczeniu tx to zagraj znamiennik

         If Ident_after_tx = 1 Then

            Minuta = Sendcwinterwal

         End If

      End If

'reset licznika jesli pojawi sie flaga rx w trakcie podtrzymania

   Elseif Podtrzymanie_flag = 1 And Rx_flag = 1 Then

      Countdown = 0

   End If

'okresowe wysyłanie znamiennika jesli przekroczono czas i nikt nie nadaje

   If Minuta >= Sendcwinterwal And Rx_flag = 0 Then

        Tx_flag = 1

        Sendcw = 1

        Minuta = 0

   End If

Return

'-------------------------------------------------------------------------------

Alfabet:

Data "-----"             '0  Znaki pokolei tak jak są ustawione w tablicy ASCII

Data ".----"             '1  przy wywoływaniu musimy tylko przestawić indeks o 48

Data "..---"             '2  ponieważ cyfra 0 ma kod ASCII 48

Data "...--"             '3

Data "....-"             '4

Data "....."             '5

Data "-...."             '6

Data "--..."             '7

Data "---.."             '8

Data "----."             '9

Data "."                 ': do generowania znamienników znaki specjalne nie są potrzebne

Data "."                 ';

Data "."                 '<

Data "."                 '=

Data "."                 '>

Data "."                 '?

Data "."                 '@

Data ".-"                'A  Literki

Data "-..."              'B

Data "-.-."              'C

Data "-.."               'D

Data "."                 'E

Data "..-."              'F

Data "--."               'G

Data "...."              'H

Data ".."                'I

Data ".---"              'J

Data "-.-"               'K

Data ".-.."              'L

Data "--"                'M

Data "-."                'N

Data "---"               'O

Data ".--."              'P

Data "--.-"              'Q

Data ".-."               'R

Data "..."               'S

Data "-"                 'T

Data "..-"               'U

Data "...-"              'V

Data ".--"               'W

Data "-..-"              'X

Data "-.--"              'Y

Data "--.."              'Z

Jest to bardzo prosty sterownik przemiennika, zrealizowany na ATTiny2313.
Funkcje które posiada:

- opcje konfigurujemy przed kompilacją programu
- podtrzymanie nośnej w sekundach
- beep po zdjęciu sygnału RX jako opcja
- identyfikacja cw co zadany okres czasu w minutach
- identyfikacja cw po każdym tx jako opcja

Obsługę czasów zrealizowałem na zegarze i przerwaniu od tegoż zegara.
Źródło które tutaj wkleiłem starałem się mocno skomentować by umożliwić kolegom szybką analizę i ewentualne poprawki. Całość została skompilowana i przetestowana na płytce testowej. W tym tygodniu uruchomię układ z tym programem w realnych warunkach.

Kod jest na licencji GPL, można kopiować modyfikować, umieszczać we własnych projektach sprzedawać itd...

2010.08.18 UPDATE

Poprawiłem w kodzie kilka oczywistych błędów, zmieniłem opcję beep i identyfikacja cw na obsługiwaną z dipswitcha.

Pracujący sterownik wersja bardzo mocno testowa:

  IMG00372-20100818-0013.jpg (Rozmiar: 364.68 KB / Pobrań: 6017)

2010.08.19 UPDATE

Kolega narysował schemat do mojego programu. W załączeniu poniżej.

  Sterownik_przemiennika.jpg (Rozmiar: 88.57 KB / Pobrań: 6520)

  repeater-controler-v2.0.N.zip (Rozmiar: 3.08 KB / Pobrań: 2033)

Monitor ramek APRS

Mon, 09 Aug 2010 10:30:03 +0000

Witam, po miesiącach obijania się w temacie hobby (praca mnie zaabsorbowała), postanowiłem powalczyć z programowaniem AVR-ów w Bascomie.
To moje pierwsze podejście do programowania AVR, napisałem monitor ramek do ARPS. Urządzenie ma za zadanie wyświetlać na panelu lcd 20x4 ramki które wyrzuca MiniTNC za pomocą łącza szeregowego.
Jako środowisko testowe użyłem kitu AVT 3500 i procesora 2313. Oczywiście 2kb miejsca na procesorze i kod w baskomie to straszna bieda. Ale na początek wystarcza.

Może koledzy podzielą się jakimiś ciekawymi programami (własnego autorstwa). Gdzie na przykładzie będzie można się czegoś nauczyć.

Środowisko testowe na zdjęciu.

A tutaj kod.

Kod:
'      SQ9MDD  2010

'

'      This program is free software; you can redistribute it and/or modify

'      it under the terms of the GNU General Public License as published by

'      the Free Software Foundation; either version 2 of the License, or

'      (at your option) any later version.

'

'      This program is distributed in the hope that it will be useful,

'      but WITHOUT ANY WARRANTY; without even the implied warranty of

'      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

'      GNU General Public License for more details.

'

'      You should have received a copy of the GNU General Public License

'      along with this program; if not, write to the Free Software

'      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

'      MA 02110-1301, USA.

Config Serialin = Buffered , Size = 15

Dim Na As String * 15

Dim Nb As String * 9

Dim Nc As String * 9

Dim Nd As String * 9

Dim Ma As String * 7

Dim Mb As String * 7

Dim Mc As String * 7

Dim Md As String * 7

Dim Whereis As Integer

Dim Zstart As Bit

Enable Interrupts

Cursor Off

'-----------------------------------------------------------------

Cls

Locate 1 , 1

Lcd "APRS MONITOR.v.0.02a"

Locate 2 , 1

Lcd "-------SQ9MDD-------"

Wait 5

Locate 4 , 1

Lcd "waiting for data..."

'-----------------------------------------------------------------

Do

  If Ischarwaiting() = 1 Then                               'jesli bufor nie jest pusty

    Input Na Noecho                                         'wczytuje dane z bufora znak stacji

                                                          ' jesli bufor dluzszy niz 14 znakow to!

      If Len(na) > 14 And Zstart = 1 Then

         Whereis = Instr(na , ">" )                         ' tutaj sprawdzam gdzie jest znak ">"

         Whereis = Whereis + 1                              'gmeranie kursorem na prawo i lewo

         Ma = Mid(na , Whereis , 4)                         'co ramke sprodukowalo wyciagam tu

         Whereis = Whereis - 3                              'wywalam jakies smieci z poczatku stringa nie wiem jak sie tam znalazly

         Na = Mid(na , 2 , Whereis)                         ' a tutaj wycinam caly znak bo wiem gdzie jest >

                                                               'obsluga typu trakera

         If Ma = "APK1" Then

            Ma = "TM-D700"

         Elseif Ma = "APND" Then

            Ma = "DIGINed"

         Elseif Ma = "APNU" Then

            Ma = "UIDigi"

         Elseif Ma = "APOT" Then

            Ma = "OT"

         Elseif Ma = "APNX" Then

            Ma = "TNC-X"

         Elseif Ma = "APU2" Then

            Ma = "UiView"

         Elseif Ma = "URQU" Then

            Ma = "VX-8"

         Elseif Ma = "APJI" Then

            Ma = "jAPRSI"

         Elseif Ma = "APJS" Then

            Ma = "javAPR"

         Elseif Ma = "APZW" Then

            Ma = "MAP27"

         Elseif Ma = "APN3" Then

            Ma = "KPC-3"

         Elseif Ma = "APK0" Then

            Ma = "TH-D7"

         Elseif Ma = "APTT" Then

            Ma = "TT.v.1"

         End If

         If Nb <> Na And Nb <> Na And Nc <> Na And Nd <> Na Then       ' jesli string dla drugiej lini inny niz dla pierwszej dodaj na szczyt listy zabezpieczenie przed wyswietlaniem tych samych powtorzonych ramek

            Cls                                             'czysc wyswietlacz

            Locate 1 , 1                                    'kursr do gory

            Lcd Na

               Locate 1 , 11                                'przesuwamy kursor o 6 znakow prze koniec lcd w pierwszym wierszu

               Lcd Ma                                       'Wyswietl Biezacy Znak Stacji

            Locate 2 , 1                                    'ustawianie kursora

            Lcd Nb ;

               Locate 2 , 11

               Lcd Mb     

            Locate 3 , 1

            Lcd Nc

               Locate 3 , 11

               Lcd Mc

            Locate 4 , 1

            Lcd Nd

               Locate 4 , 11

               Lcd Md

            Nd = Nc

            Nc = Nb

            Nb = Na

            Md = Mc

            Mc = Mb

            Mb = Ma

                                                   'przepisz biezacy znak do drogiej zmiennej

          End If

      End If

      Zstart = 1

  End If

Waitms 5                                                    '1,5msec potrzebuje wyswietlacz na realizacje $home

Loop

'-----------------------------------------------------------------

End

sq9mdd_monitor_1.jpg (Rozmiar: 101.8 KB / Pobrań: 3547)