UHF balon III

pokud bude počasí přát tak 7.11.2009 dojde k vypuštění stratosferického mikrobalonu. opět se bude jednat o sondu s tx na 433,9 MHz. Identifikace bude morse OK5TVR/AM. ostatní data budou předávána pomocí rozhraní RS232. celou sondu ovládá procesor ATMega8. ke stabilizaci vysílací frekvence bude péoužito termostatování.

čidla, které sonda ponese, teplota, vnitřní vnější, vlhkost, solární záření,

buhužel zatím poletí bez GPS při tomto testu jde o ověření možnosti přenosu dat a nově navrženého balonu.

Pokud by někdo chtěl být u startu nechť se ozve, zájemce rád uvítám.

K příjmu telemetrie používám přímací modul pro 433 Mhz s max 232 a software naprogramovaný ve visual basic pro výběr platných dat.

v nejpližších hodinách dám více informací na www.uhfbalon.blogspot.com

ATmega 8 ovládání RGB LED

V poslední době jsem začal zkoušet programovaní procesorů ATmega po prvních zkušenostech se jeví programovaní jednoduší. Pro progamování lze použít program BASCOM, který pracuje na bázi jazika Basic takže je vše poměrně rychlé a intuitivní. Návrhy na četné programotory lze nalézt na internetu tím nejednodušám je programátor na bázi paralerního portu.

první program je zde:
'********************************************************
'* ATmega 8 rizeni RGB led pomocí PWM *
'* *
'* Tomas Vlas *
'* ver. 2.0.0.0 *
'********************************************************

$regfile = "m8def.dat"
$crystal = 1000000

'nastavení OSC1 a OSC2 jako PWM
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1

'nastaveni A/D převodniku pro nastavení barvy
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'config AD

'pin C5 pro vyber manualni a automatické změn barvy
Config Portc.5 = Input

'proměné pro prevod HSV do RGB
Dim R As Byte
Dim G As Byte
Dim B As Byte

Dim R1 As Single
Dim G1 As Single
Dim B1 As Single

Dim H1 As Single
Dim H2 As Single
Dim H3 As Single
Dim H As Single
Dim F As Single
Dim P As Single
Dim Q As Single
Dim T As Single
Dim V As Single
Dim S As Single

Dim Ad As Word
Dim H4 As Single
Dim H5 As Single


'smycka pro nastaveni barev RGB diody
Do
'manualni nastaveni barvy
Ad = Getadc(3)
H4 = Ad * 0.345158
H4 = Int(h4)

'automaticke nastaveni barvy
H5 = H5 + 1
If H5 = 360 Then
H5 = 0
End If

'rozhodnuti maual automatika
If Pinc.5 = 1 Then H = H4
If Pinc.5 = 0 Then H = H5

' V a S proměné pro saturaci a odstín
V = 1
S = 1

'převod na RGB
H1 = H / 60
H3 = Int(h1)

F = H / 60
H2 = F

P = 1 - S
P = V * P

Q = H2 * S
Q = 1 - Q
Q = V * Q

T = 1 - H2
T = T * S
T = 1 - T
T = V * T


Select Case H3
Case 0:
R1 = V
G1 = T
B1 = P
Case 1:
R1 = Q
G1 = V
B1 = P
Case 2:
R1 = P
G1 = V
B1 = T
Case 3:
R1 = P
G1 = Q
B1 = V
Case 4:
R1 = T
G1 = P
B1 = V
Case 5:
R1 = V
G1 = P
B1 = Q
Case 6:
R1 = V
G1 = P
B1 = Q
End Select

'nastaveni promenych pro koparatory
R1 = R1 * 255
R = Round(r1)
G1 = G1 * 255
G = Round(g1)
B1 = B1 * 255
B = Round(b1)


Compare1a = R
Compare1b = G
Ocr2 = B

Waitms 100


Loop
End
_______________________________________________

APRS via TCP/IP

Dnes jsem dokončil výstup z měření solárního záření na radioamatérskou síť APRS. v síti je zobrazena napětí a jemu odpovídající záření ve W/m2

A/D převodník TLC 549

Pro měření solárního záření používám analogově digitální převodníl TLC 549, jedná se o 8-bitová převodník to znamená že dokáže rozlyšit 255 hodnot. pokud jako referenční napětí použijeme 5v je na jeden krok A/D převodníku 0,020 V.

A/D převodník je připojen k rozhraní RS232 a opbslužný program je napsán ve visual basic. v tomto programu se s výhodou používá všeobecně známá knihovna port.dll, které nám umožňuje přistup k jednotlivým linkám COM portu.

Zde je schéma zapojení A/D převodníku mezi piny REF+ a REF- je kondenzátor protože za referenční napětí je bráno 5V ze stabilizátoru 78l05, který není součástí schémetu, pokud bychom chtěli přesnot větší můžeme použit 10-bit A/D převodník či jako referenční napětí použít 2,5 voltu kdy na jeden krok ad převodníku odpovídá 0,010 v

Základní schéma obslužného programu je takovéto:

Function AD()
i = OPENCOM("COM1")
If i = 0 Then
i = OPENCOM("COM2")
End If
If i = 0 Then
chyba = RichTextBox2.Text
RichTextBox2.Text = chyba & Chr(13) & DateString & " " & TimeString & " " & "chyba com portu"
End If
TXD(0)
RTS(0)
DTR(0)
RTS(1)
DELAY(0.02)
RTS(0)
a = 0
b = 128
For n = 1 To 8
If DSR = 1 Then a = a + b
DTR(1)
DELAY(0.005)
DTR(0)
b = Int(b / 2)
AD = a
Next n
CLOSECOM() End Function