niedziela, 28 czerwca 2015

Nadajnik APRS dla kierowcy Tira - 144,800 MHz

Od jakiegoś czasu chodziło mi po głowie wykonanie nadajnika do pracy APRS zasilanego bezpośrednio z instalacji elektrycznej ciężarówki z 24V.

Po wysłuchaniu wielu opowieści o perypetiach z przetwornicami samochodowymi stosowanymi przez kierowców, postanowiłem adoptować nadajnik Nokton NR4K3 który nie będzie musiał korzystać z przetwornic zamontowanych w aucie.

Poniżej Nadajnik z zamontowanymi wewnątrz dwiema przetwornicami
- 24V / 18V - PA
- 24V / 11V - logika, mcz itd.


Pierwsza przetwornica to Chiński zakup na EBAY-u za 3.60zł wraz z kosztami przesyłki, DC-DC LM2596 Step Down Adjustable Converter Power Supply
dedykowana dla mistrzów ulepków elektronicznych ARDUINO.

Druga przetwornica została wydłubana z ładowarki samochodowej od telefonu GSM (MC34063), pochodzi z rodzimego rynku i kosztowała coś w okolicach 1,50zł. Niestety produkt był tak badziewny, że wymagał najpierw naprawy, a dopiero później przeróbki aby uzyskać z niego 11V.


Nadajnik został wyposażony w testowy traker APRS oparty o stosunkowo tani układ Atmega328. Jak zwykle dla oszczędzenia sobie użerania z kablami, traker wylądował bezpośrednio w nadajniku.


Nadajnik oddaje ponad 10 Wat mocy wyjściowej, parametry pracy są jednakowe w przedziale napięć 21V do 30V. Zastosowany GPS to tani i sprawdzony Quectel_L80.

Nominowanym ochotnikiem z wyboru na testera został  Tomek SQ5SSY, który na dniach ma objeździć egzemplarz testowy. Zobaczymy czy nadajnik nie spłonie, i jak spisywać się będzie niskobudżetowy traker.

Gdyby ktoś był ciekaw co z tego wyjdzie - APRS.FI

01,07,2015
Póki co urządzenie działa poprawnie, pomijając fakt problemów z zasilaniem, jak się okazuje zastosowanie wtyku zapalniczki marnej jakości dość szybko się mści.


02.07.2015
SQ5SSY już w domu, urządzenie całe i zdrowe, wyniki pracy zadowalające.
Teraz czekam na rajd testera na południe Polski.

Jak widać trasa wymalowana w dość zadowalającym stopniu, mając na uwadze dość niski koszt całego przedsięwzięcia.

 Poniżej stacje dzięki którym zabawa był możliwa.


Małe poprawki w sofcie do trakera i można będzie temat uznać za zamknięty :)

Z rozpędu wykonałem jeden nadajnik z trakerem więcej, więc jeśli ktoś ma ochotę przygarnąć drugi eksponat testowy (zasilany z 24 volt ) zostając jednocześnie drugim testerem  to proszę o kontakt.

Preferowany kierowca jeżdżący systematycznie po Polsce.

sobota, 6 czerwca 2015

Nadajnik ATS100 ( REV2.4) na APRS/Pogodynkę


Ponieważ dostałem kilka pytań odnośnie przeróbki innych nadajników na pasmo amatorskie, postanowiłem raz na jakiś czas coś podpowiedzieć.
Tym razem padło na nadajnik ATS100


Ponieważ nie przypadł mi on osobiście do gustu, nie będę się nad nim szczególnie rozpisywał.
Dogłębnie uczynił to SQ6ADE - Link

Poniżej program w Bascom-ie, przeznaczony do przystosowania nadajnika na 144,800MHz.

' Program do testow nadajnika ATS100 rev.2.4
' PLL - MB15E03SL
' Mikrokontroler 89C51
' http://ssr.org.pl
'
$regfile = "REG51.dat"
$crystal = 11059000                                           ' zegar 11.059 MHz

Dim Tmp As Byte                                               ' zmienna odcinania nadawania po jednej rundzie
Dim C As Byte
Dim A As Byte

In8 Alias P0.0                                                ' pin 37  Wejscie IN8 , pullup , wyzwolenie przez podanie L
In7 Alias P0.1                                                ' pin 36  Wejscie IN7 , pullup , wyzwolenie przez podanie L
In6 Alias P0.2                                                ' pin 35  Wejscie IN6 , pullup , wyzwolenie przez podanie L
In5 Alias P0.3                                                ' pin 34  Wejscie IN5 , pullup , wyzwolenie przez podanie L
In4 Alias P0.4                                                ' pin 33  Wejscie IN4 , pullup , wyzwolenie przez podanie L
In3 Alias P0.5                                                ' pin 32  Wejscie IN3 , pullup , wyzwolenie przez podanie L
In2 Alias P0.6                                                ' pin 31  Wejscie IN2 , pullup , wyzwolenie przez podanie L
In1 Alias P0.7                                                ' pin 30  Wejscie IN1 , pullup , wyzwolenie przez podanie L

Err2 Alias P1.0                                               ' pin 40  Wy. ERROR U7 , H=napiecie na wyjsciu OK L=brak napiecia
Err1 Alias P1.3                                               ' pin 43  Wy. ERROR U5 , H=napiecie na wyjsciu OK L=brak napiecia
Ptt1 Alias P1.4                                               ' pin 44  Przycisk S1 ptt , L=zalaczone PTT
Led2 Alias P1.5                                               ' pin 1   LED LockDetect H=zgaszona , L=swieci
Azw Alias P1.7                                                ' pin 3   Antyzwiecha

Vco Alias P2.2                                                ' pin 20  Zasilanie MB15E03SL i VCO , H=wylaczone L=zalaczone
Led1 Alias P2.3                                               ' pin 21  +8V wzm. w.cz. + LED TX , H=zgaszona , L=swieci

Ps Alias P3.2                                                 ' pin 8   Standby MB15E03 pin12 , H=standby L=PLL ON
Pa Alias P3.3                                                 ' pin 9   zasilanie PA H=wylaczone L=zalaczone
Le Alias P3.4                                                 ' pin 10  MB15E03 pin 11 (LE)
Data Alias P3.5                                               ' pin 11  MB15E03 pin 10 (DATA)
Clk Alias P3.6                                                ' pin 12  MB15E03 pin 9 (CLOCK)
Ld Alias P3.7                                                 ' pin 13  Lock Detect MB15E03SL pin14 , H=brak synchro L=synchro OK

Declare Sub Mb_r
Declare Sub Mb_na
Declare Sub Zegarek1
Declare Sub Zegarek2
Declare Sub Le_pulse

P0 = &B11111111
Ld = 1
Ps = 1
Led1 = 1
Led2 = 1
Vco = 1
Pa = 1
Ptt1 = 1
Err1 = 1
Tmp = 1
Azw = 1

Set Clk
Set Data
Set Le

'-------------------------------------------------------------  glowna petla
Do
Azw = 0
If Tmp = 0 Then
 If Ptt1 = 0 Then                                             ' jesli PTT wlaczone idz dalej
  Vco = 0
  Ps = 0
  Led1 = 0
  Waitms 10                                                   ' czekaj 10 ms az zalapie VCO
  Gosub Mb_r
  Delay
  Gosub Mb_na
  Waitms 50                                                   ' odczekaj 50ms na synchro PLL
   Pa = 0
   Tmp = 1
 End If
End If
If Tmp = 1 Then
 If Ptt1 = 1 Then
  Vco = 1
  Ps = 1
  Led1 = 1                                                    ' wylacz LED PTT
  Pa = 1
  Tmp = 0
 End If
End If

Azw = 1
Loop
End

'-------------------------------------------------------------  koniec glownej petli

Mb_r:
 Restore Dat
 For A = 1 To 19
 Read C
  If C = 1 Then
   Gosub Zegarek1
  Else
   Gosub Zegarek2
  End If
 Next A
 Gosub Le_pulse
Return

Mb_na:
 Restore Dat1
 For A = 1 To 19
 Read C
  If C = 1 Then
   Gosub Zegarek1
  Else
   Gosub Zegarek2
  End If
 Next A
 Gosub Le_pulse
Return

Zegarek1:
 Reset Data
 nop
 Reset Clk
 nop
 Set Clk
 nop
 Set Data
Return

Zegarek2:
 Reset Clk
 nop
 Set Clk
 nop
Return

Le_pulse:
 nop
 Reset Le
 nop
 Set Le
 nop
 Set Data
Return

Dat:
Data 1 , 0 , 1 , 1 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1    

Dat1:
Data 0 , 0 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0