ATNEL tech-forum

Re: sterownik temperaturowy na Atiny13

2013-02-22T14:08:23+01:00

Ja osobiście użył bym do tego timera a później timery programowe ....... ale w bascomie to aż tak mocny nie jestem

Statystyki: Napisane przez Malutki_27 — 22 lut 2013, o 14:08

Re: sterownik temperaturowy na Atiny13

2013-02-22T12:46:51+01:00

ok w tym wypadku histereza nie bedzie potrzebna , ale mam pytanie jak napisać procedury :
- pikanie np. co sek ale bez funkcji zatrzymania programu typu wait1 ?
[syntax=basic4gl]set buzer
wait1
toggle buzer
waitms250[/syntax]
to mi zatrzyma program na sekundę i w tym czasie nie będzie pomiaru temperatury .

Statystyki: Napisane przez Marek S — 22 lut 2013, o 12:46

Re: sterownik temperaturowy na Atiny13

2013-02-22T11:26:16+01:00

Marek S napisał(a):

sprzętowa czy programowa jeśli programową to jak to zrobić ?

[syntax=basic4gl]
if zadana_temp < pomiar then
goto wylacz
else if zadana_temp - histereza >pomiar then
goto wlacz
[/syntax]

Statystyki: Napisane przez Malutki_27 — 22 lut 2013, o 11:26

Re: sterownik temperaturowy na Atiny13

2013-02-20T19:55:29+01:00

squeez napisał(a):

Napięcie referencyjne w Attiny13 to 1.1V lub VCC.

Poza tym przydało by cię zrobić jakąś histerezę, żeby na granicy temp. "nie pulsowało".

sprzętowa czy programowa jeśli programową to jak to zrobić ?
jeśli dobrze rozumiem
jeśli ustawie nap. ref na VCC to mogę mierzyć do Vcc a jak ustawie na 1,1 to do 1,1V ?

teraz coś takiego napisałem może ktoś łaskawie rzuci okiem i poprawi lub coś dopowie ?
[syntax=basic4gl]'$sim

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 12
$framesize = 8
Config Pinb.0 = Input 'wejscie przycisk
Config Portb.1 = Output 'led sygnalowa
Config Portb.2 = Output 'buzzer
Config Portb.3 = Output 'sterowanie '
Config Pinb.4 = Input 'wejscie pomiarowe
Config Pinb.5 = Input 'przycisk kalibracji
'zmienne potrzebne
Dim Wartosc As Word
Dim Wart_dc As Word
Dim Powtorz As Byte
Dim Kal As Word
Przycisk Alias Pinb.0
Led Alias Portb.1
Buzer Alias Portb.2
Sterowanie Alias Pinb.3
Pomiar Alias Pinb.4
Kalibracja Alias Pinb.5

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Set Buzer
Waitms 250 'pikanie poczatkowe
Toggle Buzer
Wait 250
Toggle Buzer
Buzer = 0
Powtorz = 0
'program glowny
Powtorz = 0
Do
Readeeprom Kal , 1
If Kalibracja = 0 Then Gosub Ustawienia 'skok do podprogramu kalibracja
Wart_dc = Getadc(2)
If Wart_dc = Wart_dc Then
Waitms 50

If Wart_dc > Wartosc And Powtorz > 6 Then
Gosub Dlugie
End If
If Wart_dc < Wartosc And Powtorz > 6 Then 'zakonczenie programu
Gosub Koniec
Incr Powtorz
End If
End If
Gosub Krotkie
Loop

Ustawienia: 'odzyt w danym momencie wartosci adc
Kal = Getadc(2) 'odczytanie wartosci ADC
If Kal = Kal Then 'procedura sprawdzania kalibracj
Wait 2
If Kal = Kal Then
Kalibracja = Kal
Writeeeprom Kal , 1 'wpisz wartosc zmiennej kalibracji

End If
End If

Krotkie: 'pikanie buzzerem krotkie i miganie led
Toggle Led
Toggle Buzer
Wait 250

Return
Dlugie: 'pikanie dlugie buzzerem
For Powtorz = 1 To 7
Toggle Led
Wait 250
Toggle Buzer
Next Wartosc
Return

Koniec: 'nie rob nic po zakoczeniu cyklu
Do
Loop[/syntax]

Statystyki: Napisane przez Marek S — 20 lut 2013, o 19:55

sterownik temperaturowy na Atiny13

2013-02-20T19:44:46+01:00

Myslę nad napisaniem takiego programu ktory po zmierzeniu temperatury zmienił by stan jakiegoś pinu na niski . Ale chciałbym dodać kalibracje czyli :
- naciskam przycisk jak uzyskam jakaś temp , procesor zapisuje w eeprom (jakaś temp referencyjna)
- puszczam przycisk procesor przechodzi do procedury odczytywania z eeprom temp. ref i powyżej włącza poniżej stan niski .
A pytanie następne jaki zakres napiec może mierzyć ATtiny13 ? oczywiście na pinie nie po dzielnikach .
Na razie napisałem coś takiego jako wstęp .
[syntax=basic4gl]

'$sim

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 12
$framesize = 8
Config Pinb.0 = Input 'wejscie przycisk
Config Portb.1 = Output 'led sygnalowa
Config Portb.2 = Output 'buzzer
Config Portb.3 = Output 'sterowanie '
Config Pinb.4 = Input 'wejscie pomiarowe
Config Pinb.5 = Input 'przycisk kalibracji
'zmienne potrzebne
Dim Wartosc As Word
Dim Wart_dc As Single
Dim Powtorz As Byte

Przycisk Alias Pinb.0
Led Alias Portb.1
Buzer Alias Portb.2
Sterowanie Alias Pinb.3
Pomiar Alias Pinb.4
Kalibracja Alias Pinb.5

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Set Buzer
Waitms 250 'pikanie poczatkowe
Toggle Buzer
Wait 250
Toggle Buzer
Buzer = 0
Powtorz = 0
'program glowny

Do
Set Led
If Kalibracja = 0 Then Gosub Ustawienia
Wartosc = 0
Wartosc = Wartosc + Getadc(2)
Waitms 50
Wart_dc = Wartosc '* 0.003046
'0.003046 = 14.18 (dobierane doświadczalnie) * 0.001074 / 5 '

If Wart_dc > 300 And Powtorz < 6 Then
Gosub Dlugie
End If
If Wart_dc > 300 And Powtorz >= 6 Then 'zakonczenie programu
Gosub Koniec
End If
Loop
Ustawienia: 'odzyt w danym momencie wartosci adc

Krotkie: 'pikanie buzzerem krotkie

Dlugie: 'pikanie dlugie buzzerem
For Powtorz = 1 To 7
Set Buzer
Wait 250
Toggle Buzer
Next Wartosc
Return

Koniec: 'nie rob nic po zakoczeniu cyklu
Do
Loop
[/syntax]

Kod wklejamy przy pomocy [syntax=basic4gl] - Zielony J.

Statystyki: Napisane przez Marek S — 20 lut 2013, o 18:46