ATNEL tech-forum 2015-01-06T18:51:04+01:00 https://forum.atnel.pl/feed.php?f=12&t=10073&mode 2015-01-06T18:51:04+01:00 2015-01-06T18:51:04+01:00 https://forum.atnel.pl/viewtopic.php?t=10073&p=112791#p112791 <![CDATA[Re: Pomoc przy programie]]>
Zamiast
[syntax=basic4gl]Readeeprom L , 395 'sprawdzamy czy przed restartem
If L > 0 Then
Set Portb.2 'led był załączony czy wyłączony
Else 'i ustawiamy ten sam stan po resecie
Reset Portb.2
End If[/syntax]
jest

[syntax=basic4gl]Readeeprom L , 15 'sprawdzamy czy przed restartem
If L > 0 Then
Pwm1b = 0 'led był załączony czy wyłączony
Else 'i ustawiamy ten sam stan po resecie
Pwm1b = 255
End If[/syntax]

Statystyki: Napisane przez miiik91 — 6 sty 2015, o 18:51

]]> 2015-01-06T15:28:53+01:00 2015-01-06T15:28:53+01:00 https://forum.atnel.pl/viewtopic.php?t=10073&p=112741#p112741 <![CDATA[Re: Pomoc przy programie]]>
Szukałem własnie w ten sposób, ale niczego nie znalazłem niestety

Tak jak wspomniałem autor niestety nie odpowiada, od dłuższego czasu.

Fragment odpowiedzialny za obsługę LED.
[syntax=basic4gl]Onled: 'zalaczenie z 30s rozjasnianiem leda
Do
If L < 255 Then
Incr Pwm1b
Waitms 100
L = Pwm1b
Else
Reset Portb.2
Writeeeprom L , 395
Exit Do
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Offled: 'wylaczenie z 30s sciemnianiem leda
Do
If L > 0 Then
Decr Pwm1b
Waitms 100
L = Pwm1b
Else
Set Portb.2
Writeeeprom L , 395
Exit Do
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Led:
Msg = Loc11 + Msg_ledgm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mz3 , 5
Readeeprom Gz3 , 6
Do
If Lewo = 0 Then
Incr Gz3
Waitms 200
End If

If Prawo = 0 Then
Incr Mz3
Waitms 200
End If

If Gz3 > 23 Then : Gz3 = 0 : End If
If Mz3 > 59 Then : Mz3 = 0 : End If
Locate 2 , 12
If Gz3 < 10 Then
Lcd "0" ; Gz3 ; ":" ;
Else
Lcd Gz3 ; ":" ;
End If

If Mz3 < 10 Then
Lcd "0" ; Mz3
Else
Lcd Mz3
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mz3 , 5
Writeeeprom Gz3 , 6
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Leda:
Msg = Loc11 + Msg_ledgm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mw3 , 11
Readeeprom Gw3 , 12
Do
If Lewo = 0 Then
Incr Gw3
Waitms 200
End If

If Prawo = 0 Then
Incr Mw3
Waitms 200
End If

If Gw3 > 23 Then : Gw3 = 0 : End If
If Mw3 > 59 Then : Mw3 = 0 : End If
Locate 2 , 12
If Gw3 < 10 Then
Lcd "0" ; Gw3 ; ":" ;
Else
Lcd Gw3 ; ":" ;
End If

If Mw3 < 10 Then
Lcd "0" ; Mw3
Else
Lcd Mw3
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mw3 , 11
Writeeeprom Gw3 , 12
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Led2:
Msg = Loc11 + Msg_ledgm2 ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Gz4 , 3
Do
If Lewo = 0 Then
Incr Gz4
Waitms 200
End If

If Prawo = 0 Then
Decr Gz4
Waitms 200
End If

If Gz4 > 23 Then : Gz4 = 0 : End If

Locate 2 , 12
If Gz4 < 10 Then
Lcd "0" ; Gz4 ; ":00"
Else
Lcd Gz4 ; ":00"
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Gz4 , 3

Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Led2a:
Msg = Loc11 + Msg_ledgm2 ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Gw4 , 9
Do
If Lewo = 0 Then
Incr Gw4
Waitms 200
End If

If Prawo = 0 Then
Decr Gw4
Waitms 200
End If

If Gw4 > 23 Then : Gw4 = 0 : End If

Locate 2 , 12
If Gw4 < 10 Then
Lcd "0" ; Gw4 ; ":00"
Else
Lcd Gw4 ; ":00"
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Gw4 , 9
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return[/syntax]

Warunek załączenia led

[syntax=basic4gl]Readeeprom L , 395 'odczyt stanu pwm
If Gz3 = Godziny Then 'warunek zalaczenia led noc
If Mz3 = Minuty Then
If L < 255 Then
Gosub Onled
End If
End If
End If
If Gw3 = Godziny Then 'warunek wylaczenia led noc
If Mw3 = Minuty Then
If L > 0 Then
Gosub Offled
End If
End If
End If

If Gz4 = Godziny Then 'warunek zalaczenia led dzien
If L < 255 Then
Gosub Onled
End If
End If
If Gw4 = Godziny Then 'warunek wylaczenia led dzien
If L > 0 Then
Gosub Offled
End If
End If[/syntax]

Odczyt z eeprom

[syntax=basic4gl]Readeeprom L , 395 'sprawdzamy czy przed restartem
If L > 0 Then
Set Portb.2 'led był załączony czy wyłączony
Else 'i ustawiamy ten sam stan po resecie
Reset Portb.2
End If[/syntax]

Statystyki: Napisane przez miiik91 — 6 sty 2015, o 15:28

]]> 2015-01-06T15:01:26+01:00 2015-01-06T15:01:26+01:00 https://forum.atnel.pl/viewtopic.php?t=10073&p=112731#p112731 <![CDATA[Re: Pomoc przy progrmie]]>
Z drugiej strony , trzeba się zastanowić czy ktoś będzie analizował cały kod, który jak widać krótki nie jest ;)

Z trzeciej strony "problem" jest opisany tak chaotycznie i pobieżnie, że ciężko na niego jakkolwiek zareagować :)

Kolor czerwony zdaje się jest zarezerwowany dla "Modulatorów" ....

Na stronie AUTOR wyraźnie zaznaczył że nie zgadza się na komercyjne wykorzystanie projektu ... To powinno wystarczyć. Z drugiej strony coś mi się wydaje, że nie bardzo Ci wolno czegokolwiek zakazywać skoro nie jesteś właścicielem.

Statystyki: Napisane przez acid3 — 6 sty 2015, o 15:01

]]> 2015-01-06T15:37:17+01:00 2015-01-06T14:42:28+01:00 https://forum.atnel.pl/viewtopic.php?t=10073&p=112718#p112718 <![CDATA[Pomoc przy programie]]>
Złożyłem sterownik do akwarium kolegi rabbit http://rabbit.elektroda.eu/sterownik-akwarystyczny/
Obrazek

Mam z nim problem, mianowicie led (PORTB.2) świeci mi zawsze po włączeniu zasilania, mimo że przed był zgaszony
Szukałem, zmieniałem niestety nie mogę sobie z tym poradzić. A autor niestety nie odpowiada

[syntax=basic4gl]'-------------------------------------------------------------------------------
'***************************STEROWNIK AKWARYSTYCZNY*****************************
'____________________________________by_________________________________________
'**********************************RABBIT***************************************
'-------------------------------------------------------------------------------
'***Dyrektywy dla kompilatora***
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 16000000
$lib "ds1307clock.lib"
$lib "mcsbyteint.lbx"
$lib "I2C_TWI.LBX"
$hwstack = 64
$swstack = 64
$framesize = 64
'-------------------------------------------------------------------------------
'***PORTY***
'-------------------------------------------------------------------------------
Config 1wire = Portc.1 'ds18b20
Config Sda = Portc.4 'ds1307
Config Scl = Portc.5 'ds1307
Config Portb = &B00111110
Config Portc.0 = Output
Set Portb.0
Reset Portb.2
Reset Portb.4 'lampa1 wyłączona
Reset Portb.5 'lampa2 wyłączona
Reset Portc.0 'lampa3 wyłączona
Set Portd.5
Set Portd.6
Set Portd.7
'-------------------------------------------------------------------------------
'***LCD***
'-------------------------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.1 , Db5 = Portd.2 , Db6 = Portd.3 , Db7 = Portd.4 , E = Portd.0 , Rs = Portc.3
Deflcdchar 0 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32 ' znak stopnia
Cls
Cursor Off
Lcd "Sternik"
Wait 2
Cls
'-------------------------------------------------------------------------------
'***PWM DLA LED i WENTYLATORA***
'-------------------------------------------------------------------------------
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
'Config Timer2 = Counter , Acync = Off , Compare = Disconnect , Prescale = 1
Dim L As Byte
L = 0
Pwm1a = 0
Pwm1b = 0
'Enable Interrupts
'Enable Timer1
'-------------------------------------------------------------------------------
'***Deklaracje***
'-------------------------------------------------------------------------------
Ok Alias Pind.6 'przyciski
Lewo Alias Pind.7
Prawo Alias Pind.5
Wyjdz Alias Pinb.0
Dim T1c As Integer
'Dim T2c As Integer
Dim T3c As Integer
Dim I As Integer 'zmienne do obsługi temp.
Dim S As Integer
Dim Z As Integer
Dim Tgrz As Integer
'Dim Hist As Integer
Dim T As String * 5
Dim Tnas As String * 5
Dim Sekundy As Byte 'zmienne zegara
Dim Minuty As Byte
Dim Godziny As Byte
'Dim Mzk1 As Byte 'zmienne karmnika
'Dim Gzk1 As Byte
'Dim Swk1 As Byte
'Dim Mwk1 As Byte
'Dim Skpom As Byte
'Dim Mkpom As Byte
Dim Menusel As Byte 'zmienna do case
Dim E As Byte 'stan lampy 2
Dim F As Byte 'stan lampy 1
Dim B As Byte 'stan lampy 3
Dim Kz As Byte
Dim Licznik As Byte
Dim G As Bit 'stan karmnika
'Dim B As Bit 'do wyswietlania odwrotnosci stanów portów lamp i grzalki
'Dim C As Bit
'Dim D As Bit
Dim A As Byte
Dim Msg As Word , Licznik1 As Byte
Dim Temp_str As String * 16 , Temp_str_bajty(17) As Byte At Temp_str Overlay
Dim Tablica(12) As Byte 'tablica odczytu z eeprom
Dim Mz1 As Byte At Tablica Overlay
Dim Gz1 As Byte At Tablica + 1 Overlay 'odczytuje po restarcie
Dim Gz4 As Byte At Tablica + 2 Overlay 'nastawione czasy
Dim Gz2 As Byte At Tablica + 3 Overlay 'załączania i wyłączania
Dim Mz3 As Byte At Tablica + 4 Overlay 'lamp
Dim Gz3 As Byte At Tablica + 5 Overlay
Dim Mw1 As Byte At Tablica + 6 Overlay
Dim Gw1 As Byte At Tablica + 7 Overlay
Dim Gw4 As Byte At Tablica + 8 Overlay
Dim Gw2 As Byte At Tablica + 9 Overlay
Dim Mw3 As Byte At Tablica + 10 Overlay
Dim Gw3 As Byte At Tablica + 11 Overlay
Dim Gz5 As Byte , Gw5 As Byte
'--------stałe z adresami łańcuchów w eepromie----------------------------------
Const Msg_czas = 18
Const Msg_osw = 35
Const Msg_grzalka = 52
Const Msg_l1z = 69
Const Msg_l1w = 86
Const Msg_l2z = 103
Const Msg_l2w = 120
Const Msg_ledz = 137
Const Msg_ledw = 154
Const Msg_menu = 171
Const Msg_mosw = 188
Const Msg_gms = 205
Const Msg_l1gm = 222
Const Msg_wlacz = 239
Const Msg_wylacz = 256
Const Msg_l2gm = 273
Const Msg_ledgm = 290
Const Msg_ugrz = 307
Const Msg_karm = 324
Const Msg_cur = 341
Const Msg_cdz = 358
Const Msg_zalkarm = 375
Const Msg_ledgm2 = 396
Const Msg_ledz2 = 413
Const Msg_ledw2 = 430
Const Msg_l3z = 451
Const Msg_l3w = 468
Const Msg_l3gm = 485
'-------------------------------------------------------------------------------
Const Loc11 = &H0000 ' 15 bit zgaszony locate 1,1
Const Loc21 = &H8000 ' 15 bit ustawiony locate 2,1
'-------------------------------------------------------------------------------
Const Ds1307w = &HD0 'stałe odczytu, zapisu ds1307
Const Ds1307r = &HD1
'===============================================================================
'ustawienia po restarcie
I2cinit 'magistrala i2c
Config Twi = 100000
Delay
'===============================================================================
'zmiana ds18b20 na 10bit'
'1wreset
'1wwrite &HCC
'1wwrite &H4E
'1wwrite &H00 '1bajt
'1wwrite &H00 '2bajt
'1wwrite &B00111111 '3bajt
'1wreset
'Enable Interrupts
'-------------------------------------------------------------------------------
Menusel = 1
G = 1
Readeeprom F , 16
If F = 1 Then 'sprawdza stan lampy 1
Set Portb.4 'przed resetem
Else 'i ustawia taki sam stan
Reset Portb.4
End If
Readeeprom E , 17
If E = 1 Then 'sprawdza stan lampy 2
Set Portb.5 'przed resetem
Else 'i ustawia taki sam stan
Reset Portb.5
End If
Readeeprom B , 450
If B = 1 Then 'sprawdza stan lampy 3
Set Portc.0 'przed resetem
Else 'i ustawia taki sam stan
Reset Portc.0
End If
Readeeprom L , 395 'sprawdzamy czy przed restartem
If L > 0 Then
Set Portb.2 'led był załączony czy wyłączony
Else 'i ustawiamy ten sam stan po resecie
Reset Portb.2
End If
'Readeeprom Kz , 447
'-------------------------------------------------------------------------------
'***WATCHDOG - zabezpieczenie przed zawieszeniem programu***
'-------------------------------------------------------------------------------
Config Watchdog = 2048 'reset wystąpi po 2048ms
Start Watchdog
'-------------------------------------------------------------------------------
'***Pętla główna***
'-------------------------------------------------------------------------------
Do
If Ok = 0 Then 'wejście do menu
Waitms 50
If Ok = 0 Then
Gosub Menu
End If
End If

If Lewo = 0 Then 'reczne zalaczenie lampy A
Waitms 50
If Lewo = 0 Then
Toggle Portb.4
Stop Watchdog
Bitwait Lewo , Set
Start Watchdog
End If
End If

If Prawo = 0 Then 'reczne zalaczenie lampy B
Waitms 50
If Prawo = 0 Then
Toggle Portb.5
Stop Watchdog
Bitwait Prawo , Set
Start Watchdog
End If
End If

If Wyjdz = 0 Then 'reczne zalaczenie lampy C
Waitms 50
If Wyjdz = 0 Then
Toggle Portc.0
Stop Watchdog
Bitwait Wyjdz , Set
Start Watchdog
End If
End If

Gosub Ds1307 'odczyt i wyswietlanie godziny


A = Sekundy Mod 10
If A = 0 Then
1wreset ' obsluga ds18b20
If Err = 1 Then ' brak ds omija procedure
Locate 1 , 11 '
Lcd "Error " '
'Set Portc.0
'Pwm1a = 0
Else '
1wwrite &HCC 'pominięcie odczytu ROMu
1wwrite &H44 '
Waitms 750 'dla 12bit
1wreset '
1wwrite &HCC 'pominięcie odczytu ROMu
1wwrite &HBE '

I = 1wread(2) 'przeliczanie temperatury do wyswietlenia
S = I * 10 ' 733/16 = 45,8125 --->> (733*10) \ 16 = 458
Shift S , Right , 4 ' przesunięcie o 4 bity w prawo = \16
T = Str(s) ' wynik jako łańcuch
T = Format(t , "0.0")

Locate 1 , 11 'wyswietla temperature
Lcd T ; Chr(0) ; "C"

Readeeprom Tgrz , 13 'odczyt nastawionej temperatury
'Hist = Tgrz - 8 'histereza grzalki
'If I >= Tgrz Then 'wylacz grzalke
'Set Portc.0
'End If
'If I < Hist Then 'zalacz grzalke
'Reset Portc.0
'End If

T1c = Tgrz + 8 'progi zadziałania wentylatora
'T2c = Tgrz + 16 '1*C=16
T3c = Tgrz + 16
Select Case I 'obsługa wentylatora
Case Is < T1c : Pwm1a = 0 'wylaczony
Case T1c To T3c : Pwm1a = 160 '50% org 180
'Case T2c To T3c : Pwm1a = 200 '75%
Case Is > T3c : Pwm1a = 190 '100% org, "255"
End Select
End If
End If

For Licznik = 1 To 12 'odczyt ustawien z eepromu
Readeeprom Tablica(licznik) , Licznik
Next Licznik

Readeeprom Gz5 , 448
Readeeprom Gw5 , 449

If Gz1 = Godziny Then 'warunek zalaczenia lampy 1
If Mz1 = Minuty Then
If F = 0 Then
Set Portb.4
F = 1
Writeeeprom F , 16
End If
End If
End If
If Gw1 = Godziny Then 'warunek wylaczenia lampy 1
If Mw1 = Minuty Then
If F = 1 Then
Reset Portb.4
F = 0
Writeeeprom F , 16
End If
End If
End If
If Gz2 = Godziny Then 'warunek zalaczenia lampy 2
If E = 0 Then
Set Portb.5
E = 1
Writeeeprom E , 17
End If
End If
If Gw2 = Godziny Then 'warunek wylaczenia lampy 2
If E = 1 Then
Reset Portb.5
E = 0
Writeeeprom E , 17
End If
End If

If Gz5 = Godziny Then 'warunek zalaczenia lampy 3
'If Mz1 = Minuty Then
If B = 0 Then
Set Portc.0
B = 1
Writeeeprom B , 450
End If
' End If
End If
If Gw5 = Godziny Then 'warunek wylaczenia lampy 3
'If Mw1 = Minuty Then
If B = 1 Then
Reset Portc.0
B = 0
Writeeeprom B , 450
' End If
End If
End If
' Readeeprom Mzk1 , 393
' Readeeprom Gzk1 , 394
'If Gzk1 = Godziny Then 'warunek zalaczenia karmnika
' If Mzk1 = Minuty Then
' If G = 1 Then
' Set Portb.3
' G = 0
' Gosub Wylkarm
' End If
' End If
'End If
'If Mwk1 = Minuty Then 'warunek wylaczenia karmnika
' If Swk1 = Sekundy Then
' If G = 0 Then
' Reset Portb.3
' End If
' End If
'End If
'If Mwk1 <> Minuty Then
' G = 1
'End If
Readeeprom L , 395 'odczyt stanu pwm
If Gz3 = Godziny Then 'warunek zalaczenia led noc
If Mz3 = Minuty Then
If L < 255 Then
Gosub Onled
End If
End If
End If
If Gw3 = Godziny Then 'warunek wylaczenia led noc
If Mw3 = Minuty Then
If L > 0 Then
Gosub Offled
End If
End If
End If

If Gz4 = Godziny Then 'warunek zalaczenia led dzien
If L < 255 Then
Gosub Onled
End If
End If
If Gw4 = Godziny Then 'warunek wylaczenia led dzien
If L > 0 Then
Gosub Offled
End If
End If

'If Portb.4 = 1 Then 'zmienne do wyswietlania stanów lamp i grzalki
'B = 0
'Else
'B = 1
'End If
'If Portb.5 = 0 Then
'C = 1
'Else
'C = 0
'End If
'If Portc.0 = 0 Then
'D = 1
'Else
'D = 0
'End If

Locate 1 , 7
Lcd "K:" ; Portb.3
Locate 2 , 1
Lcd "A:" ; Portb.4 ; " " ; "B:" ; Portb.5 ; " " ; "C:" ; Portc.0 ; " " ; "L:" ; Portb.2

Reset Watchdog
Loop
'-------------------------------------------------------------------------------
'***Podprogramy***
'-------------------------------------------------------------------------------
Menu: 'menu główne

Stop Watchdog
Bitwait Pind.6 , Set
Start Watchdog

Do

Msg = Loc11 + Msg_menu ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

If Prawo = 0 Then
Waitms 100
If Prawo = 0 Then
Incr Menusel
Waitms 250
If Menusel = 5 Then
Menusel = 1
End If
End If
End If

If Lewo = 0 Then
Waitms 100
If Lewo = 0 Then
Decr Menusel
Waitms 250
If Menusel = 0 Then
Menusel = 4
End If
End If
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Cls
Reset Watchdog
Exit Do
End If
End If

Select Case Menusel

Case 0:

Case 1:
Msg = Loc21 + Msg_czas ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Uczas
End If
End If

Case 2:
Msg = Loc21 + Msg_osw ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Menusw
End If
End If

Case 3:
Msg = Loc21 + Msg_grzalka ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Grzalka
End If
End If

Case 4:
Msg = Loc21 + Msg_karm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
'If Ok = 0 Then
'Waitms 50
'If Ok = 0 Then
'Gosub Karmnik
'End If
'End If

End Select
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Menusw: 'podmenu oswietlenie
Menusel = 1
Stop Watchdog
Bitwait Pind.6 , Set
Start Watchdog
Do

Msg = Loc11 + Msg_mosw 'napis menu oswietlenie
Gosub Display_msg

If Prawo = 0 Then 'obsluga przyciskow lewo,prawo,wyjdz
Waitms 100
If Prawo = 0 Then
Incr Menusel
Waitms 200
If Menusel = 11 Then
Menusel = 1
End If
End If
End If

If Lewo = 0 Then
Waitms 100
If Lewo = 0 Then
Decr Menusel
Waitms 200
If Menusel = 0 Then
Menusel = 10
End If
End If
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Cls
Menusel = 2
Stop Watchdog
Bitwait Wyjdz , Set
Start Watchdog
Exit Do
End If
End If

Select Case Menusel 'selektor menu

Case 0:

Case 1:
Msg = Loc21 + Msg_l1z 'zalacz lampe 1 o
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Lampa1
End If
End If

Case 2:
Msg = Loc21 + Msg_l1w 'wylacz lampe 1 o
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Lampa1a
End If
End If

Case 3:
Msg = Loc21 + Msg_l2z 'zalacz lampe 2 o
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Lampa2
End If
End If

Case 4:
Msg = Loc21 + Msg_l2w ' wylacz lampe 2 o
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Lampa2a
End If
End If

Case 5:
Msg = Loc21 + Msg_l3z 'zalacz lampe 3 o
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Lampa3
End If
End If

Case 6:
Msg = Loc21 + Msg_l3w 'wylacz lampe 3 o
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Lampa3a
End If
End If

Case 7:
Msg = Loc21 + Msg_ledz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Led
End If
End If

Case 8:
Msg = Loc21 + Msg_ledw ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Leda
End If
End If

Case 9:
Msg = Loc21 + Msg_ledz2 ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Led2
End If
End If

Case 10:
Msg = Loc21 + Msg_ledw2 ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Gosub Led2a
End If
End If
End Select
Reset Watchdog
Loop
Return
'===============================================================================
' podprogram wyświetlający łańcuch z eeprom na LCD
Display_msg:

If Msg.15 = 1 Then
Locate 2 , 1
Else
Locate 1 , 1
End If
Msg.15 = 0 ' zgaś 15 bit
Licznik1 = 0
Do
Incr Licznik1
Readeeprom Temp_str_bajty(licznik1) , Msg
Incr Msg
Loop Until Temp_str_bajty(licznik1) = 0 ' wyjdź z pętli jeżeli koniec łańcucha czyli 0
Lcd Temp_str
Reset Watchdog
Return
'-------------------------------------------------------------------------------
Uczas: 'podprogram ustawienie czasu
Msg = Loc21 + Msg_gms ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Do
Gosub Ds1307
If Lewo = 0 Then
Waitms 50
If Lewo = 0 Then
Gosub Godz
Waitms 300
End If
End If
If Prawo = 0 Then
Waitms 30
If Prawo = 0 Then
Gosub Minu
Waitms 300
End If
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Gosub Seku
Menusel = 1
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Cls
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
'Karmnik:
'Do
' Msg = Loc11 + Msg_cdz
' Gosub Display_msg
' Msg = Loc21 + Msg_cur
' Gosub Display_msg
'
' If Lewo = 0 Then
' Waitms 50
' If Lewo = 0 Then
' Gosub Karmnikzal
' End If
' End If
'
' If Prawo = 0 Then
' Waitms 50
' If Prawo = 0 Then
' Gosub Karmnikgodz
' End If
' End If
'
' If Wyjdz = 0 Then
' Waitms 100
' If Wyjdz = 0 Then
' Menusel = 4
' Cls
'Stop Watchdog
' Bitwait Wyjdz , Set
' Start Watchdog
' Exit Do
' End If
' End If
' Reset Watchdog
'Loop
'Return
'-------------------------------------------------------------------------------
'Karmnikzal:
' Msg = Loc11 + Msg_zalkarm ' flaga locate i adres łańcucha w eeprom
' Gosub Display_msg
' Stop Watchdog
' Bitwait Pind.7 , Set
' Start Watchdog
' Readeeprom Kz , 447
'Do
' Locate 2 , 1
' If Kz < 10 Then
' Lcd "na: 0" ; Kz ; "s" ; Spc(8)
' Else
' Lcd "na: " ; Kz ; "s" ; Spc(8)
' End If
'
' If Lewo = 0 Then
' Decr Kz
' Waitms 200
' End If
'
' If Prawo = 0 Then
' Incr Kz
' Waitms 200
' End If
'
' If Kz > 59 Then : Kz = 0 : End If
' If Kz < 0 Then : Kz = 59 : End If
'
' If Wyjdz = 0 Then
' Waitms 100
' If Wyjdz = 0 Then
' Writeeeprom Kz , 447
' Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
' Exit Do
' End If
' End If
' Reset Watchdog
'Loop
'Return
'-------------------------------------------------------------------------------
'Karmnikgodz:
' Msg = Loc11 + Msg_zalkarm ' flaga locate i adres łańcucha w eeprom
' Gosub Display_msg
' Bitwait Pind.5 , Set
'Do

' Locate 2 , 1
' If Gzk1 < 10 Then
' Lcd "o: 0" ; Gzk1 ; ":" ;
' Else
' Lcd "o: " ; Gzk1 ; ":" ;
' End If
'
' If Mzk1 < 10 Then
' Lcd "0" ; Mzk1 ; Spc(7)
' Else
' Lcd Mzk1 ; Spc(7)
' End If
'
' If Lewo = 0 Then
' Incr Gzk1
' Waitms 150
' End If
'
' If Prawo = 0 Then
' Waitms 150
' Incr Mzk1
' End If

' If Gzk1 > 23 Then : Gzk1 = 0 : End If
' If Mzk1 > 59 Then : Mzk1 = 0 : End If
'
'If Wyjdz = 0 Then
' Waitms 100
' If Wyjdz = 0 Then
' Writeeeprom Mzk1 , 393
' Writeeeprom Gzk1 , 394
' Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
' Exit Do
' End If
' End If
' Reset Watchdog
'Loop
'Return
'-------------------------------------------------------------------------------
'Wylkarm:
'Readeeprom Kz , 447
'Skpom = Sekundy + Kz
' If Skpom > 59 Then
' Swk1 = Skpom Mod 60
' Mkpom = Skpom \ 60
' Mkpom = Minuty + Mkpom
' If Mkpom > 59 Then
' Mwk1 = Mkpom Mod 60
' Else
' Mwk1 = Mkpom
' End If
' Else
' Swk1 = Skpom
' Mwk1 = Minuty
' End If
'Return
'-------------------------------------------------------------------------------
Lampa1:
Msg = Loc11 + Msg_l1gm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mz1 , 1
Readeeprom Gz1 , 2
Do
If Lewo = 0 Then
Incr Gz1
Waitms 200
End If

If Prawo = 0 Then
Incr Mz1
Waitms 200
End If

If Gz1 > 23 Then : Gz1 = 0 : End If
If Mz1 > 59 Then : Mz1 = 0 : End If

Locate 2 , 12
If Gz1 < 10 Then
Lcd "0" ; Gz1 ; ":" ;
Else
Lcd Gz1 ; ":" ;
End If

If Mz1 < 10 Then
Lcd "0" ; Mz1
Else
Lcd Mz1
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mz1 , 1
Writeeeprom Gz1 , 2
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Lampa1a:
Msg = Loc11 + Msg_l1gm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mw1 , 7
Readeeprom Gw1 , 8
Do
If Lewo = 0 Then
Incr Gw1
Waitms 200
End If

If Prawo = 0 Then
Incr Mw1
Waitms 200
End If

If Gw1 > 23 Then : Gw1 = 0 : End If
If Mw1 > 59 Then : Mw1 = 0 : End If
Locate 2 , 12
If Gw1 < 10 Then
Lcd "0" ; Gw1 ; ":" ;
Else
Lcd Gw1 ; ":" ;
End If

If Mw1 < 10 Then
Lcd "0" ; Mw1
Else
Lcd Mw1
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mw1 , 7
Writeeeprom Gw1 , 8
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Lampa2: 'zalaczanie lampy 2
Msg = Loc11 + Msg_l2gm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Gz2 , 4

Do
If Lewo = 0 Then
Incr Gz2
Waitms 200
End If

If Prawo = 0 Then
Decr Gz2
Waitms 200
End If

If Gz2 > 23 Then : Gz2 = 0 : End If

Locate 2 , 12
If Gz2 < 10 Then
Lcd "0" ; Gz2 ; ":00"
Else
Lcd Gz2 ; ":00"
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Gz2 , 4
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Lampa2a:
Msg = Loc11 + Msg_l2gm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Gw2 , 10
Do
If Lewo = 0 Then
Incr Gw2
Waitms 200
End If

If Prawo = 0 Then
Decr Gw2
Waitms 200
End If

If Gw2 > 23 Then : Gw2 = 0 : End If

Locate 2 , 12
If Gw2 < 10 Then
Lcd "0" ; Gw2 ; ":00"
Else
Lcd Gw2 ; ":00"
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Gw2 , 10
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------

Lampa3:
Msg = Loc11 + Msg_l3gm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

'Readeeprom Mz1 , 1
Readeeprom Gz5 , 448
Do
If Lewo = 0 Then
Decr Gz5
Waitms 200
End If

If Prawo = 0 Then
Incr Gz5
Waitms 200
End If

If Gz5 > 23 Then : Gz5 = 0 : End If
'If Mz1 > 59 Then : Mz1 = 0 : End If

Locate 2 , 12
If Gz5 < 10 Then
Lcd "0" ; Gz5 ; ":00" ;
Else
Lcd Gz5 ; ":00" ;
End If

' If Mz1 < 10 Then
' Lcd "0" ; Mz1
'Else
' Lcd Mz1
'End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
'Writeeeprom Mz1 , 1
Writeeeprom Gz5 , 448
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Lampa3a:
Msg = Loc11 + Msg_l3gm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mw1 , 7
Readeeprom Gw5 , 449
Do
If Lewo = 0 Then
Decr Gw5
Waitms 200
End If

If Prawo = 0 Then
Incr Gw5
Waitms 200
End If

If Gw5 > 23 Then : Gw5 = 0 : End If
If Mw1 > 59 Then : Mw1 = 0 : End If
Locate 2 , 12
If Gw5 < 10 Then
Lcd "0" ; Gw5 ; ":00" ;
Else
Lcd Gw5 ; ":00" ;
End If

If Mw1 < 10 Then
Lcd "0" ; Mw1
Else
Lcd Mw1
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mw1 , 7
Writeeeprom Gw5 , 449
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Onled: 'zalaczenie z 30s rozjasnianiem leda
Do
If L < 255 Then
Incr Pwm1b
Waitms 100
L = Pwm1b
Else
Set Portb.2
Writeeeprom L , 395
Exit Do
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Offled: 'wylaczenie z 30s sciemnianiem leda
Do
If L > 0 Then
Decr Pwm1b
Waitms 100
L = Pwm1b
Else
Reset Portb.2
Writeeeprom L , 395
Exit Do
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Led:
Msg = Loc11 + Msg_ledgm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mz3 , 5
Readeeprom Gz3 , 6
Do
If Lewo = 0 Then
Incr Gz3
Waitms 200
End If

If Prawo = 0 Then
Incr Mz3
Waitms 200
End If

If Gz3 > 23 Then : Gz3 = 0 : End If
If Mz3 > 59 Then : Mz3 = 0 : End If
Locate 2 , 12
If Gz3 < 10 Then
Lcd "0" ; Gz3 ; ":" ;
Else
Lcd Gz3 ; ":" ;
End If

If Mz3 < 10 Then
Lcd "0" ; Mz3
Else
Lcd Mz3
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mz3 , 5
Writeeeprom Gz3 , 6
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Leda:
Msg = Loc11 + Msg_ledgm ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Mw3 , 11
Readeeprom Gw3 , 12
Do
If Lewo = 0 Then
Incr Gw3
Waitms 200
End If

If Prawo = 0 Then
Incr Mw3
Waitms 200
End If

If Gw3 > 23 Then : Gw3 = 0 : End If
If Mw3 > 59 Then : Mw3 = 0 : End If
Locate 2 , 12
If Gw3 < 10 Then
Lcd "0" ; Gw3 ; ":" ;
Else
Lcd Gw3 ; ":" ;
End If

If Mw3 < 10 Then
Lcd "0" ; Mw3
Else
Lcd Mw3
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Mw3 , 11
Writeeeprom Gw3 , 12
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Led2:
Msg = Loc11 + Msg_ledgm2 ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wlacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Gz4 , 3
Do
If Lewo = 0 Then
Incr Gz4
Waitms 200
End If

If Prawo = 0 Then
Decr Gz4
Waitms 200
End If

If Gz4 > 23 Then : Gz4 = 0 : End If

Locate 2 , 12
If Gz4 < 10 Then
Lcd "0" ; Gz4 ; ":00"
Else
Lcd Gz4 ; ":00"
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Gz4 , 3

Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Led2a:
Msg = Loc11 + Msg_ledgm2 ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg
Msg = Loc21 + Msg_wylacz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Gw4 , 9
Do
If Lewo = 0 Then
Incr Gw4
Waitms 200
End If

If Prawo = 0 Then
Decr Gw4
Waitms 200
End If

If Gw4 > 23 Then : Gw4 = 0 : End If

Locate 2 , 12
If Gw4 < 10 Then
Lcd "0" ; Gw4 ; ":00"
Else
Lcd Gw4 ; ":00"
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Gw4 , 9
Cls
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Grzalka:
Msg = Loc11 + Msg_ugrz ' flaga locate i adres łańcucha w eeprom
Gosub Display_msg

Readeeprom Tgrz , 13
Do
Z = Tgrz * 10
Shift Z , Right , 4 ' przesunięcie o 4 bity w prawo = \16
Tnas = Str(z) ' wynik jako łańcuch
Tnas = Format(tnas , "0.0")

If Tgrz < 160 Then
Locate 2 , 1
Lcd Spc(5) ; "0" ; Tnas ; Chr(0) ; "C" ; Spc(5)
Elseif Tgrz >= 160 Then
Locate 2 , 1
Lcd Spc(5) ; Tnas ; Chr(0) ; "C" ; Spc(5)
End If

If Tgrz > 512 Then : Tgrz = 512 : End If
If Tgrz <= 0 Then : Tgrz = 0 : End If

If Prawo = 0 Then
Waitms 30
If Prawo = 0 Then
Incr Tgrz
Waitms 30
End If
End If

If Lewo = 0 Then
Waitms 30
If Lewo = 0 Then
Decr Tgrz
Waitms 30
End If
End If

If Wyjdz = 0 Then
Waitms 100
If Wyjdz = 0 Then
Writeeeprom Tgrz , 13
Cls
Menusel = 3
'Stop Watchdog
'Bitwait Wyjdz , Set
'Start Watchdog
Exit Do
End If
End If
Reset Watchdog
Loop
Return
'-------------------------------------------------------------------------------
Ds1307: 'odczytaj i wyświetl godzinę
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte Sekundy , Ack
I2crbyte Minuty , Ack
I2crbyte Godziny , Nack
I2cstop

Sekundy = Makedec(sekundy) : Minuty = Makedec(minuty) : Godziny = Makedec(godziny)

'If Sekundy > 59 Then
'Sekundy = 0
'End If
'If Minuty > 59 Then
'Minuty = 0
'End If
'If Godziny > 23 Then
'Godziny = 0
'End If

Locate 1 , 1
If Godziny < 10 Then
Lcd "0" ; Godziny ; ":" ;
Else
Lcd Godziny ; ":" ;
End If

If Minuty < 10 Then
Lcd "0" ; Minuty
Else
Lcd Minuty
End If
Return
'-------------------------------------------------------------------------------
Seku:
Incr Sekundy
If Sekundy > 59 Then
Sekundy = 0
End If
Sekundy = Makebcd(sekundy)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte Sekundy
Return
'-------------------------------------------------------------------------------
Minu:
Incr Minuty
If Minuty > 59 Then
Minuty = 0
End If
Minuty = Makebcd(minuty)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 1
I2cwbyte Minuty
Return
'-------------------------------------------------------------------------------
Godz:
Incr Godziny
If Godziny > 23 Then
Godziny = 0
End If
Godziny = Makebcd(godziny)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 2
I2cwbyte Godziny
Return
'-------------------------------------------------------------------------------
'eeprom
'-------------------------------------------------------------------------------
$eeprom
' bajty od 0 do 17 zarezerwowane na ustawienia
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,

'Msg1:
Data "Ustaw czas " , ' to się zaczyna od adresu 18 do 34
'Msg2:
Data "Oswietlenie " , ' to się zaczyna od adresu 35 do 51
'Msg3:
Data "Wentylator " , ' to się zaczyna od adresu 52 do 68
'Msg4:
Data "LampaA zalacz o:", ' to się zaczyna od adresu 69 do 85
'Msg5:
Data "LampaA wylacz o:", ' to się zaczyna od adresu 86 do 102
'Msg6:
Data "LampaB zalacz o:", ' to się zaczyna od adresu 103 do 119
'Msg7:
Data "LampaB wylacz o:", ' to się zaczyna od adresu 120 do 136
'Msg8:
Data "Led N zalacz o: ", ' to się zaczyna od adresu 137 do 153
'Msg9:
Data "Led N wylacz o: ", ' to się zaczyna od adresu 154 do 170
'Msg10:
Data "Menu: ", ' to się zaczyna od adresu 171 do 187
'Msg11:
Data "Menu oswietlenie", ' to się zaczyna od adresu 188 do 204
'Msg12:
Data "<=G >=M", ' to się zaczyna od adresu 205 do 221
'Msg13:
Data "Lampa A <=G M=>", ' to się zaczyna od adresu 222 do 238
'Msg14:
Data "Wlacz o: ", ' to się zaczyna od adresu 239 do 255
'Msg15
Data "Wylacz o: ", ' to się zaczyna od adresu 256 do 272
'Msg16
Data "Lampa B <=G=>", ' to się zaczyna od adresu 273 do 289
'Msg17
Data "LED noc <=G M=>", ' to się zaczyna od adresu 290 do 306
'Msg18
Data "Ustaw wentylator", ' to się zaczyna od adresu 307 do 323
'Msg19
Data "Karmnik opcja ", ' to się zaczyna od adresu 324 do 340
'Msg20
Data "< czas dzialania", ' to się zaczyna od adresu 341 do 357
'Msg21
Data "godz.wlaczania >", ' to się zaczyna od adresu 358 do 374
'Msg22
Data "Zalacz karmnik ", ' to się zaczyna od adresu 375 do 391

Data 0 , 0 , 0 , 0 , ' rezerwacja od 392 do 395
'Msg23
Data "LED dzien <=G=>", ' to się zaczyna od adresu 396 do 412
'Msg24:
Data "Led D zalacz o: ", ' to się zaczyna od adresu 413 do 429
'Msg25:
Data "Led D wylacz o: ", ' to się zaczyna od adresu 430 do 446
Data 0 , 0 , 0 , 0 'dla karmnika 447, lampa c 448,449,450
'msg26:
Data "LampaC zalacz o:", '451 do 466
'msg27:
Data "LampaC wylacz o:", '468 do 484
'msg28:
Data "Lampa C <=G=>", '485 do 500

$data[/syntax]

Autor nie zezwala na komercyjne użytkowanie projektu, zwłaszcza oprogramowania, szczególnie w celach zarobkowych.

Może znajdzie się jakiś kolega i sprawdzi co jest nie tak.

Pozdrawiam i liczę na szybką odpowiedź

Statystyki: Napisane przez miiik91 — 6 sty 2015, o 14:42

]]>