Witam.
Problem tak jak w temacie, po prostu troche mnie to tym razem przerosło.
Ogólnie to działać ma to tak:
Wogóle nie wiem jak się do tego zabrać...
Co o tym myślicie?
Proszę o nieodsyłanie mnie do innych tematów i z góry zaznaczam: JUŻ SZUKAŁEM.
Problem tak jak w temacie, po prostu troche mnie to tym razem przerosło.
Ogólnie to działać ma to tak:
Code:
'Program do wytrawiarki natryskowej.
$regfile = "m8def.dat"
$crystal = 8000000
'Konfiguracja 1wire:
Config 1wire = Portb.0 'DS18B20
'Deklaracja zmiennych:
Dim Temperatura As Word
Dim Temperatura_trawienia As Word
Dim Czas_trawienia As Byte
'Konfiguracja LCD:
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
'Konfiguracja piów:
Config Portb.4 = Output
Config Portb.5 = Output
Grzalka Alias Portb.4 'Grzałka na 230V/Silnik na 12V włączane przez tranzystor->fototriac
Silnik Alias Portb.5
Config Portd.5 = Input
Config Portd.6 = Input
Config Portd.7 = Input
Plus Alias Portd.5 'Przyciski Plus/Minus/OK zwierane do masy.
Minus Alias Portd.6
Ok Alias Portd.7
'PROGRAM:
Do
'ustawienie czasu za pomocą przycisków Plus/Minus (od 0 do 100 min)
'po wciśnięciu OK ustawienie temp. za pomocą przycisków Plus/Minus (od 20 do 100*C)
'po wcisniśnięciu OK włącza grzałkę i czeka aż do osiągnięcia ustawionej temp. cały czas pokazując aktualną temp. i ustawiany czas trawienia.
'po osiągnięciu ustawionej temp. włącza silnik i rozpoczyna odliczanie. (cały czas pokazując aktualną temp. a ustawiony czas spada do zera.
'po skończeniu się czasu, wyłącza grzałkę i silnik, wyświetla koniec trawienia... i czeka na wyłączenie wtyczki z gniazdka ;D
Loop
End
Wogóle nie wiem jak się do tego zabrać...
Co o tym myślicie?
Proszę o nieodsyłanie mnie do innych tematów i z góry zaznaczam: JUŻ SZUKAŁEM.