ATNEL tech-forum

Re: Menu jak rozbudować

2014-07-28T18:20:43+01:00

Kiedyś napisałem zdaje się dwupoziomowe (a może więcej) menu które miało obsługiwać centralę do bramy wjazdowej. Minus jest taki że menu zajmuje kilka kb kodu. Na pewno nie zmieści się w atmedze 8. Napisane na atmegę 128 i sprawowało się znakomicie jako samo menu. Dalej nie pisałem bo mi się nie chciało.

[syntax=basic4gl]'*************************************************************
'*********** Uniwersalny sterownik bramy wjazdowej ***********
'****************** AUTOR: Piotr Be***************************
'*************************************************************

'$sim
$regfile = "m8def.dat"
$crystal = 8000000
'$prog &HFF , &HE4 , &HDB , &H00 'fusy dla zegara 8MHz

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.0 , Rs = Portb.1

Deflcdchar 0 , 32 , 4 , 2 , 31 , 2 , 4 , 32 , 32 'strzałka w prawo - 0
Deflcdchar 1 , 2 , 4 , 14 , 17 , 17 , 17 , 14 , 32 'litera ó - 1
Deflcdchar 2 , 32 , 8 , 10 , 12 , 8 , 25 , 6 , 32 'literka ł - 2
Deflcdchar 3 , 2 , 4 , 14 , 16 , 16 , 17 , 14 , 32 'literka ć - 3
Deflcdchar 4 , 32 , 2 , 4 , 14 , 16 , 14 , 1 , 30 'literka ś - 4
Deflcdchar 5 , 32 , 2 , 4 , 15 , 2 , 4 , 15 , 32 'literka ź - 5
Deflcdchar 6 , 32 , 2 , 4 , 22 , 25 , 17 , 17 , 32 'literka ń - 6
Deflcdchar 7 , 32 , 14 , 1 , 15 , 17 , 15 , 4 , 2 'literka ą - 7

Cursor Off Noblink
Cls

Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Portb.7 = Output

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Set Portb
Set Portc
'Set Portd

W_gore Alias Pinc.1
Wykonaj Alias Pinc.2
W_dol Alias Pinc.3
Dioda Alias Portb.7
Obsluga Alias Pinc.0

Dim Niepotrzebna_zmienna As Eram Byte At &H00

Dim Pozycja_menu As Byte
Dim Ust_fabryczne As Bit
Dim Zapisz As Bit

Dim Jaka_brama As Byte
Dim Jaka_brama_eprom As Eram Byte

Dim Jaka_logika As Byte
Dim Jaka_logika_eprom As Eram Byte

Dim Czy_spowolnienia As Byte
Dim Czy_spowolnienia_eprom As Eram Byte

Dim Czy_spowolnienia_po_kr As Byte
Dim Czy_spowolnienia_po_kr_eprom As Eram Byte

Dim Czas_pracy_lewego As Byte
Dim Czas_pracy_lewego_eprom As Byte
Dim Czas_pracy_prawego As Byte
Dim Czas_pracy_prawego_eprom As Byte

Dim Czy_furtka As Byte
Dim Czy_furtka_eprom As Eram Byte

Dim Czy_opoznienia As Byte
Dim Czy_opoznienia_eprom As Eram Byte

Dim Sila_lewego As Byte
Dim Sila_lewego_eprom As Eram Byte
Dim Sila_prawego As Byte
Dim Sila_prawego_eprom As Eram Byte

Dim Czulosc_lewego As Byte
Dim Czulosc_lewego_eprom As Eram Byte
Dim Czulosc_prawego As Byte
Dim Czulosc_prawego_eprom As Eram Byte

Dim Czy_foto1 As Byte
Dim Czy_foto1_eprom As Eram Byte

Dim Zamk_po_foto1 As Byte
Dim Zamk_po_foto1_eprom As Byte

Dim Czas_po_foto1 As Byte
Dim Czas_po_foto1_eprom As Byte

Dim Fototest1 As Byte
Dim Fototest1_eprom As Eram Byte

Dim Czy_foto2 As Byte
Dim Czy_foto2_eprom As Eram Byte

Dim Fototest2 As Byte
Dim Fototest2_eprom As Eram Byte

Dim Czy_kr As Byte
Dim Czy_kr_eprom As Eram Byte

Dim Kr_moto1_ot As Byte 'krańcówka otwarcia motor 1
Dim Kr_moto1_ot_eprom As Eram Byte

Dim Kr_moto1_za As Byte 'krańcówka zamknięcia motor 1
Dim Kr_moto1_za_eprom As Eram Byte

Dim Kr_moto2_ot As Byte 'krańcówka otwarcia motor 2
Dim Kr_moto2_ot_eprm As Eram Byte

Dim Kr_moto2_za As Byte 'krańcówka zamknięcia motor 2
Dim Kr_moto2_za_eprom As Eram Byte

Dim Jaka_lampa As Byte
Dim Jaka_lampa_eprom As Eram Byte

Dim Rodzaj_migania As Byte
Dim Rodzaj_migania_eprom As Eram Byte

Dim Czy_elektrozamek As Byte
Dim Czy_elektrozamek_eprom As Eram Byte

Dim Lampka_info As Byte
Dim Lampka_info_epro As Eram Byte

Dim Zmienna_serwisowa As Word
Dim Zmienna_serwisowa_eprom As Eram Word

Dim Zlicz_cykle As Single 'liczy ilość cykli otwarcia i zamknięcia bramy
Dim Zlicz_cykle_eprom As Eram Single 'przechowuje wartość ilości cykli w pamięci eprom

Ust_fabryczne = 0
Set Dioda

Gosub Procedura_odczytu

Readeeprom Zlicz_cykle , Zlicz_cykle_eprom

If Obsluga = 0 Then Zlicz_cykle = 7300

If Zlicz_cykle = 7300 Then
Do
Reset Dioda
Home
Lcd "Konieczny serwis"
Locate 2 , 1
Lcd "tel. 883 *** **0"
Wait 1
Cls
Wait 1
Loop
End
End If

Do
If W_gore = 0 And Wykonaj = 1 And W_dol = 0 Then
Waitms 200
Gosub Menu
End If

Loop
End

Menu:
Pozycja_menu = 1 'ustawia wskaźnik menu na pozycję pierwszą
Home
Lcd " Menu g" ; Chr(2) ; Chr(1) ; "wne " 'wyświetla napis MENU GŁÓWNE
Bitwait W_gore , Set 'czeka na puszczenie przycisku UP

Do
If W_gore = 0 Then 'jeśli nacisnę UP to
Incr Pozycja_menu 'zwiększam wartość zmienne pozycja menu czyli poruszam się po menu w górę
End If
If W_dol = 0 Then 'jeśli jnacisnę przycisk DOWN to
Decr Pozycja_menu 'zmniejszam wartość zmiennej pozycja menu czyli poruszam się w dół
End If
If Pozycja_menu < 1 Then Pozycja_menu = 1 'zabezpieczam się przed wyjściem zmiennej poza ilość dostępnego menu
If Pozycja_menu > 18 Then Pozycja_menu = 18
Waitms 200

Select Case Pozycja_menu
Case 1:
Home
Lcd " Rodzaj bramy "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Typ_bramy 'skocz do podprogramu wybór typu bramy
End If
Case 2:
Home
Lcd " Logika "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Logika 'skocz do podprogramu wyboru logiki
End If
Case 3:
Home
Lcd " Kra" ; Chr(6) ; "c" ; Chr(1) ; "wki "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Krancowki 'skocz do ustawiania krańcówek
End If
Case 4:
Home
Lcd " Foto 1 "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Foto_nr1 'skocz do podprogramu ustawiania pierwszej linii fotokomorek
End If
Case 5:
Home
Lcd " Foto 2 "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Foto_nr2 'skocz do podprogramu ustawiania drugiej linii fotokomorek
End If
Case 6:
Home
Lcd " Op" ; Chr(1) ; Chr(5) ; "nienia "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Opoznienia 'skocz do podprogramu ustawiania opóźnień
End If
Case 7:
Home
Lcd " Czasy pracy "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Czasy_pracy 'skocz do podprogramu ustawiania czasów pracy
End If
Case 8:
Home
Lcd " Furtka "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Furtka 'skocz do podprogramu ustawiania furtki
End If
Case 9:
Home
Lcd " Si" ; Chr(2) ; "a "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Sila 'skocz do podprogramu ustawiania sił
End If
Case 10:
Home
Lcd " Czu" ; Chr(2) ; "o" ; Chr(4) ; Chr(3) ; " "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Czulosc 'skocz do podprogramu ustawiania czułości amperometrycznej
End If
Case 11:
Home
Lcd " Spowolnienia " 'skocz do podprogramu ustawiania spowolnień
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Spowolnienia
End If
Case 12:
Home
Lcd " Ust.lampki "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Ustawienia_lampki 'skocz do podprogramu ustawień lampki
End If
Case 13:
Home
Lcd " Elektrozamek "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Elektro_zamek 'skocz do podprogramu ustawień elektrozamka
End If
Case 14:
Home
Lcd "Ust.lampki info."
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Ustawienia_info 'skocz do podprogramu ustawień lamki informacyjnej
End If
Case 15:
Home
Lcd " Data i czas "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Ustawienia_czasu 'skocz do podprogramu ustawień czasu
End If
Case 16:
Home
Lcd " Informacje "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Informacje 'skocz do podprogramu wyświetlania informacji o sterowniku
End If
Case 17:
Home
Lcd " Ust.fabryczne "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Fabryczne 'skocz do podprogramu wyboru ustawień fabrycznych
If Ust_fabryczne = 1 Then
Ust_fabryczne = 0
Cls
Exit Do
End If
End If
Case 18:
Home
Lcd " Wyj" ; Chr(4) ; "cie "
If Wykonaj = 0 Then
Bitwait Wykonaj , Set
Gosub Wyjscie 'skocz do podprogramu wyboru wyjścia z ustawień
Zapisz = 0
Exit Do
End If
End Select
Loop
Return

Typ_bramy:
Do
If W_gore = 0 Or W_dol = 0 Then 'jeśli wciskam w dół to wybieram poprzedni typ bramy
Toggle Jaka_brama
Waitms 200
End If

If Jaka_brama < 100 Then 'jeśli wybrałem pierwszy typ bramy (1 skzrydłowa) i
Jaka_brama = 1
Locate 2 , 1
Lcd " 2 Skrzyd" ; Chr(2) ; "owa "
If Wykonaj = 0 Then 'jeśli nacisnę OK
Home
Lcd " Wybrano " 'to wyświetl w pierwszej linii napis WYBRANO
Exit Do 'i wyjdź z podmenu
End If
Else
Jaka_brama = 255
Locate 2 , 1
Lcd "Przes./1 Skrzyd."
If Wykonaj = 0 Then
Home
Lcd " Wybrano "
Exit Do
End If
End If
Loop
Gosub Czekacz 'podprogram zawiera wait 800
Gosub Czyszczenie_drugiej_linii 'podprogram zawiera wpisanie 10 pstychznaków w drugiej linii
Bitwait Wykonaj , Set 'czekaj na puszczenie przycisku OK
Waitms 100
Return

Logika:

Return

Spowolnienia:
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Czy_spowolnienia
Waitms 200
End If
If Czy_spowolnienia = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 Then
Locate 2 , 1
Lcd " Wybrano "
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
Loop
If Czy_spowolnienia = 255 Then
If Czy_kr = 255 Then
If Kr_moto1_ot = 255 Or Kr_moto1_za = 255 Or Kr_moto2_ot = 255 Or Kr_moto2_za = 0 Then
Home
Lcd " Po kra" ; Chr(6) ; "c" ; Chr(1) ; "wkach "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Czy_spowolnienia_po_kr
Waitms 200
End If
If Czy_spowolnienia_po_kr = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 Then
Locate 2 , 1
Lcd " Wybrano "
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
Loop
End If
End If
End If
Return

Czasy_pracy:

Return

Furtka:
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Czy_furtka
Waitms 200
End If
If Czy_furtka = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 Then
Locate 2 , 1
Lcd " Wybrano "
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
Loop
Return

Opoznienia:
If Czy_foto1 = 255 Then
Home
Lcd " Zamk.po foto 1 "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Zamk_po_foto1
Waitms 200
End If
If Zamk_po_foto1 = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 And Zamk_po_foto1 = 0 Then
Locate 2 , 1
Lcd "Zamk.po foto1 wy"
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
If Wykonaj = 0 And Zamk_po_foto1 > 0 Then
Locate 2 , 1
Lcd "Zamk.po foto1 w" ; ; Chr(2)
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
Loop

If Zamk_po_foto1 > 0 Then
Locate 2 , 1
Lcd " Wybierz czas "
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Locate 2 , 1
Lcd "Czas="
Do
If W_gore = 0 Then
Incr Czas_po_foto1
Waitms 200
End If
If W_dol = 0 Then
Decr Czas_po_foto1
Waitms 200
End If
If Czas_po_foto1 < 1 Then Czas_po_foto1 = 1
If Czas_po_foto1 > 50 Then Czas_po_foto1 = 50
Locate 2 , 6
Lcd Czas_po_foto1 ; "sek. "
If Wykonaj = 0 Then
Locate 2 , 1
Lcd "Ustaw.czas=" ; Czas_po_foto1 ; "s "
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
Loop
End If

End If
Return

Sila:

Return

Czulosc:

Return

Foto_nr1:
Gosub Wyswietl_tak_nie 'skocz do podprogramu wyświetlania w dolnej linii napisu NIE TAK
Do
If W_gore = 0 Or W_dol = 0 Then 'jeśli nacisnę w górę lub w dół to
Toggle Czy_foto1 'zmień wartość zmiennej na przeciwną czyli 0<=>255
Waitms 200
End If

If Czy_foto1 = 0 Then 'jeśli zmienna wyboru wł/wył foto1 = 0 czyli foto 1 wyłączone
Gosub Wyswietl_strzalke_nie 'wyświetl strzałkę na pozycji 2,1 a na pozycji 2,10 puste pole
Else
Gosub Wyswietl_strzalke_tak 'w przeciwnym razie na pozycji 2,1 puste pole a na 2,10 strzałkę
End If

If Wykonaj = 0 And Czy_foto1 = 0 Then 'jeśli foto1 wyłączone i nacisnę OK to
Locate 2 , 1 'znajduje pozycję 2,1
Lcd "Foto 1 wy" ; Chr(2) ; ". " 'wyświetla napis Foto 1 wył
Fototest1 = 0 'wyłącza fototest dla foto 1
Exit Do 'i wychodzi każe opuścić pętlę
End If
If Wykonaj = 0 And Czy_foto1 > 0 Then 'jeśli nacisnąłem OK i fototest włączony
Locate 2 , 1 'znajduję pozycję 2,1
Lcd "Foto 1 w" ; Chr(2) ; ". " 'wyświetlam Foto 1 wł.
Exit Do 'każę wyjść z pętli
End If
Loop
Gosub Czekacz 'podprogram zawiera waitms 800
Gosub Czyszczenie_drugiej_linii 'podprogram wpisuje 16 pustych znaków w drugiej linii

If Czy_foto1 = 255 Then 'jeśli wcześniej włączone zostało foto 1 to
Home
Lcd "Fototest foto 1 " 'wyświetl w pierwszej linii napis Fotottest foto 1
Gosub Wyswietl_tak_nie 'podprogram wyświetla w drugiej linii wyrazy NIE oraz TAK
Do
If W_gore = 0 Or W_dol = 0 Then 'jeśli nacisnąłem przycisk UP lub DOWN to
Toggle Fototest1 'zmień wartość zmiennej fototest na przeciwny
Waitms 200 'czekaj 200 ms
End If
If Fototest1 = 0 Then 'jeśli wartość zmiennej fototest1 = 0 czyli fototest wyłączony
Gosub Wyswietl_strzalke_nie 'podprogram wywietla strzałkę na pozycji 2,1
Else
Gosub Wyswietl_strzalke_tak 'w przeciwnym razie na pozycji 2,10
End If
If Wykonaj = 0 And Fototest1 = 0 Then 'jeśli nacisnięto OK i wybrano wyłączony fototest 1 to
Locate 2 , 1
Lcd " Fototest wy" ; Chr(2) ; " " 'wyświetl w dolnej linii że fototest 1 wyłączony
Exit Do 'wyjdź z pętli
End If
If Wykonaj = 0 And Fototest1 > 0 Then 'jeśli naciśnięto OK i fototest włączony to
Locate 2 , 1
Lcd " Fototest w" ; Chr(2) ; " " 'wyświetl napis że włączony
Exit Do 'wyjdż z pętli
End If
Loop
End If
Gosub Czekacz 'podprogram zawiera waitms 800
Gosub Czyszczenie_drugiej_linii 'podprogram wpisuje w drugiej linii 16 pustych znaków
Return

Foto_nr2:
Gosub Wyswietl_tak_nie 'skocz do podprogramu wyświetlania w dolnej linii napisu NIE TAK
Do
If W_gore = 0 Or W_dol = 0 Then 'jeśli nacisnę w górę lub w dół to
Toggle Czy_foto2 'zmień wartość zmiennej na przeciwną czyli 0<=>255
Waitms 200
End If

If Czy_foto2 = 0 Then 'jeśli zmienna wyboru wł/wył foto1 = 0 czyli foto1 wyłączone
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If

If Wykonaj = 0 And Czy_foto2 = 0 Then 'jeśli foto1 wyłączone 2 nacisnę OK to
Locate 2 , 1
Lcd "Foto 2 wy" ; Chr(2) ; ". "
Fototest2 = 0
Exit Do
End If
If Wykonaj = 0 And Czy_foto2 > 0 Then
Locate 2 , 1
Lcd "Foto 2 w" ; Chr(2) ; ". "
Exit Do
End If
Loop
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii

If Czy_foto2 > 0 Then
Home
Lcd "Fototest foto 2 "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Fototest2
Waitms 200
End If
If Fototest2 = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 And Fototest2 = 0 Then
Locate 2 , 1
Lcd " Fototest wy" ; Chr(2) ; " "
Exit Do
End If
If Wykonaj = 0 And Fototest2 > 0 Then
Locate 2 , 1
Lcd " Fototest w" ; Chr(2) ; " "
Exit Do
End If
Loop
End If
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Return

Krancowki:
Gosub Wyswietl_tak_nie 'podprogra wyświetla w drugiej linii napisy NIE TAK
Do
If W_gore = 0 Or W_dol = 0 Then 'jesli naciskamy up lub down
Toggle Czy_kr 'to zmieniamy na przemian wartość zmiennej
Waitms 200
End If
If Czy_kr = 0 Then 'jeśli krańcowki wychcemy wyłączyć
Gosub Wyswietl_strzalke_nie 'to wyświetl strzałkę na pozycji 2,1
Else
Gosub Wyswietl_strzalke_tak 'w przeciwnym razie na pozycji 2,10
End If
If Wykonaj = 0 And Czy_kr = 0 Then 'jeśli wybrano brak krańcówek i wciśniemy ok to
Kr_moto1_ot = 0 'wyłączamy wszystkie krańcówki
Kr_moto1_za = 0
Kr_moto2_ot = 0
Kr_moto2_za = 0
Locate 2 , 1
Lcd " Kra" ; Chr(6) ; "c" ; Chr(1) ; "wki wy" ; Chr(2) ; ". " 'wyświetla info że krańcówki wyłączone
Gosub Czekacz 'zawiera waitms 800
Gosub Czyszczenie_drugiej_linii 'wpisuje 16 znaków w drugiej linii
Exit Do
End If
If Wykonaj = 0 And Czy_kr = 255 Then 'jeśli krańcówki włączone
Locate 2 , 1
Lcd " Kra" ; Chr(6) ; "c" ; Chr(1) ; "wki w" ; Chr(2) ; ". " 'wyświetla informacje że są włączone
Exit Do
End If
Loop
Gosub Czekacz

If Czy_kr = 255 Then 'jeśli krańcówki zostały właczone to
Home
Lcd " Kr.moto 1 ot. "
Gosub Wyswietl_tak_nie 'wyświetla wyrazy NIE TAK w drugiej lini
Do
If W_gore = 0 Or W_dol = 0 Then 'jeśli naciskamy UP lu DOWN to
Toggle Kr_moto1_ot 'zmieniamy wartość znmiennej na przeciwny
Waitms 200
End If
If Kr_moto1_ot = 0 Then
Gosub Wyswietl_strzalke_nie 'wyświetla strzałkę na pozycji 2,1
Else
Gosub Wyswietl_strzalke_tak 'wyświetla srzałkę na pozycji 2,10
End If
If Wykonaj = 0 And Kr_moto1_ot = 0 Then
Gosub Wyswietl_kr_wyl
Exit Do
End If
If Wykonaj = 0 And Kr_moto1_ot = 255 Then
Gosub Wyswietl_kr_wl
Exit Do
End If
Loop
Gosub Czekacz

Home
Lcd " Kr.moto 1 za. "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Kr_moto1_za
Waitms 200
End If
If Kr_moto1_za = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 And Kr_moto1_za = 0 Then
Gosub Wyswietl_kr_wyl
Exit Do
End If
If Wykonaj = 0 And Kr_moto1_za = 255 Then
Gosub Wyswietl_kr_wl
Exit Do
End If
Loop
Gosub Czekacz

Home
Lcd " Kr.moto 2 ot. "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Kr_moto2_ot
Waitms 200
End If
If Kr_moto2_ot = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 And Kr_moto2_ot = 0 Then
Gosub Wyswietl_kr_wyl
Exit Do
End If
If Wykonaj = 0 And Kr_moto2_ot = 255 Then
Gosub Wyswietl_kr_wl
Exit Do
End If
Loop
Gosub Czekacz

Home
Lcd " Kr.moto 2 za. "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Kr_moto2_za
Waitms 200
End If
If Kr_moto2_za = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 And Kr_moto2_za = 0 Then
Gosub Wyswietl_kr_wyl
Exit Do
End If
If Wykonaj = 0 And Kr_moto2_za = 255 Then
Gosub Wyswietl_kr_wl
Exit Do
End If
Loop

End If
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
If Kr_moto1_ot = 0 And Kr_moto1_za = 0 And Kr_moto2_ot = 0 And Kr_moto2_za = 0 Then
Czy_kr = 0 'jeśli wszystkie krańcówki wybraliśmy na nie to wyłącza krańcówki ogólnie
Czy_spowolnienia_po_kr = 0
End If

Return

Ustawienia_lampki:
Do
If W_gore = 0 Or W_dol = 0 Then 'jeśli naciskamu UP lub DOWN to zmieniamy rodzaj lampki
Toggle Jaka_lampa 'z przerywaczem lub bez
Waitms 200
End If
Locate 2 , 1
If Jaka_lampa = 0 Then
Lcd " Z przerywaczem "
Else
Lcd " Bez przerywacza"
End If
Home
If Wykonaj = 0 Then
Lcd " Wybrano "
Exit Do
End If
Loop

If Jaka_lampa = 255 Then 'jeśli lampka jest bez przerywacza to
Gosub Czekacz
Home
Do
Lcd " Rodzaj migania " 'wybieramy rodzaj migania
If W_gore = 0 Or W_dol = 0 Then
Toggle Rodzaj_migania
Waitms 200
End If
Locate 2 , 1
If Rodzaj_migania = 0 Then
Lcd "Otwiera=Zamyka " 'jednakowe miganie przy zamykaniu i otwieraniu
Else
Lcd "Otwiera<>Zamyka " 'różne miganie przy zamykaniu i otwieraniu
End If
If Wykonaj = 0 Then
Home
Lcd " Wybrano "
Exit Do
End If
Loop
End If
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Return

Elektro_zamek:
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Czy_elektrozamek
Waitms 200
End If
If Czy_elektrozamek = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 Then
Locate 2 , 1
Lcd " Wybrano "
Gosub Czekacz
Gosub Czyszczenie_drugiej_linii
Exit Do
End If
Loop
Return

Ustawienia_info:

Return

Ustawienia_czasu:

Return

Informacje: 'wyświetla informacje o sterowniku
Locate 1 , 1
Lcd " Producent "
Locate 2 , 1
Lcd "Piotr "
Wait 1
Cls

Locate 1 , 1
Lcd "Piotr "
Locate 2 , 1
Lcd "tel. 883 *** **0"
Wait 1
Cls

Locate 1 , 1
Lcd " Orogramowanie "
Locate 2 , 1
Lcd "v1,1 beta "
Wait 1
Cls

Locate 1 , 1
Lcd " Wykonano dla "
Locate 2 , 1
Lcd "Peiter Automatic"
Wait 1
Cls
Return

Fabryczne: 'podprogram ustawień fabrycznych
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Ust_fabryczne
Waitms 200
End If
If Ust_fabryczne = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Wykonaj = 0 And Ust_fabryczne = 0 Then
Exit Do
End If
If Wykonaj = 0 And Ust_fabryczne = 1 Then
Locate 2 , 1
Lcd " Przywr" ; Chr(1) ; "cono "
Gosub Czekacz
Gosub Zapisane_zmienne_fabryczne
Gosub Procedura_zapisu
Exit Do
End If
Loop
Gosub Czyszczenie_drugiej_linii
Return

Wyjscie:
Home
Lcd " Zapisa" ; Chr(3) ; "? "
Gosub Wyswietl_tak_nie
Do
If W_gore = 0 Or W_dol = 0 Then
Toggle Zapisz
Waitms 200
End If
If Zapisz = 0 Then
Gosub Wyswietl_strzalke_nie
Else
Gosub Wyswietl_strzalke_tak
End If
If Zapisz = 0 And Wykonaj = 0 Then
Gosub Procedura_odczytu
Cls
Exit Do
End If
If Wykonaj = 0 And Zapisz = 1 Then
Gosub Czyszczenie_drugiej_linii
Home
Lcd " Dane zapisano "
Gosub Czekacz
Gosub Procedura_zapisu
Cls
Exit Do
End If

Loop
Return

Sprawdz_bledy:

Return

Liczba_cykli:

Writeeeprom Zlicz_cykle , Zlicz_cykle_eprom
Return

Zapis_liczby_cykli:

Return

Wyswietl_tak_nie:
Locate 2 , 1
Lcd " Nie Tak "
Return

Wyswietl_kr_wl:
Locate 2 , 1
Lcd " Kra" ; Chr(6) ; "c" ; Chr(1) ; "wka w" ; Chr(2) ; ". " 'wyświetlamy napis że krańcówki wyłączone
Return

Wyswietl_kr_wyl:
Locate 2 , 1
Lcd " Kra" ; Chr(6) ; "c" ; Chr(1) ; "wka wy" ; Chr(2) ; ". " 'wyświetlamy napis że krańcówki wyłączone
Return

Procedura_zapisu:
Reset Dioda
Gosub Czekacz
Writeeeprom Jaka_brama , Jaka_brama_eprom
Writeeeprom Jaka_logika , Jaka_logika_eprom
Writeeeprom Czy_spowolnienia , Czy_spowolnienia_eprom

Writeeeprom Czy_furtka , Czy_furtka_eprom
Writeeeprom Czy_foto1 , Czy_foto1_eprom
Writeeeprom Fototest1 , Fototest1_eprom
Writeeeprom Czy_foto2 , Czy_foto2_eprom
Writeeeprom Fototest2 , Fototest2_eprom
Writeeeprom Zamk_po_foto1 , Zamk_po_foto1_eprom
Writeeeprom Czas_po_foto1 , Czas_po_foto1_eprom
Writeeeprom Czy_kr , Czy_kr_eprom
Writeeeprom Kr_moto1_ot , Kr_moto1_ot_eprom
Writeeeprom Kr_moto1_za , Kr_moto1_za_eprom
Writeeeprom Kr_moto2_ot , Kr_moto2_ot_eprm
Writeeeprom Kr_moto2_za , Kr_moto2_za_eprom
Writeeeprom Jaka_lampa , Jaka_lampa_eprom
Writeeeprom Rodzaj_migania , Rodzaj_migania_eprom
Writeeeprom Czy_elektrozamek , Czy_elektrozamek_eprom
Set Dioda

Return

Procedura_odczytu:
Readeeprom Jaka_brama , Jaka_brama_eprom
Readeeprom Jaka_logika , Jaka_logika_eprom
Readeeprom Czy_spowolnienia , Czy_spowolnienia_eprom

Readeeprom Czy_furtka , Czy_furtka_eprom
Readeeprom Czy_foto1 , Czy_foto1_eprom
Readeeprom Fototest1 , Fototest1_eprom
Readeeprom Czy_foto2 , Czy_foto2_eprom
Readeeprom Fototest2 , Fototest2_eprom
Readeeprom Zamk_po_foto1 , Zamk_po_foto1_eprom
Readeeprom Czas_po_foto1 , Czas_po_foto1_eprom
Readeeprom Czy_kr , Czy_kr_eprom
Readeeprom Kr_moto1_ot , Kr_moto1_ot_eprom
Readeeprom Kr_moto1_za , Kr_moto1_za_eprom
Readeeprom Kr_moto2_ot , Kr_moto2_ot_eprm
Readeeprom Kr_moto2_za , Kr_moto2_za_eprom
Readeeprom Jaka_lampa , Jaka_lampa_eprom
Readeeprom Rodzaj_migania , Rodzaj_migania_eprom
Readeeprom Czy_elektrozamek , Czy_elektrozamek_eprom

Return

Czyszczenie_drugiej_linii:
'Waitms 800
Locate 2 , 1
Lcd " "
Return

Wyswietl_strzalke_nie:
Locate 2 , 1
Lcd Chr(0)
Locate 2 , 10
Lcd " "
Return

Wyswietl_strzalke_tak:
Locate 2 , 1
Lcd " "
Locate 2 , 10
Lcd Chr(0)
Return

Czekacz:
Waitms 800
Return

Zapisane_zmienne_fabryczne:

'************************************************************************************
'*** ustawienia fabryczne zmiennych *************************************************
'************************************************************************************

Jaka_brama = 1 'brama ustawiona na 2 skrzydłową
Jaka_logika = 1 'logika ustawiona na krok po kroku
Czy_spowolnienia = 0 'spowolnienia wyłączone
Czy_spowolnienia_po_kr = 0 'wyłaczone
Czy_furtka = 0 'furtka domyślnie wyłączona
Czy_foto1 = 255 'foto 1 włączone
Fototest1 = 0 'fototest1 wyłączony
Czy_foto2 = 0 'foto 2 wyłączone
Fototest2 = 0 'fototest 2 wyłączony
Zamk_po_foto1 = 0
Czas_po_foto1 = 4
Czy_kr = 0 'krańcówki wyłaczone
Kr_moto1_ot = 0 'Krańcówka Silnika 1 Na Otwarciu Wyłaczona
Kr_moto1_za = 0 'krańcówka silnika 1 na zamknięciu wyłaczona
Kr_moto2_ot = 0 'krańcówka silnika 2 na otwarciu wyłączona
Kr_moto2_za = 0 'krańcówka silnika 2 na zamknięciu wyłaczona
Jaka_lampa = 0 'lamka z przerywaczem
Rodzaj_migania = 0 'rodzaj migania jednakowy da zamykania i otwierania
Czy_elektrozamek = 0 'elektrozamek wyłączony
Return[/syntax]

Statystyki: Napisane przez matrix — 28 lip 2014, o 18:20

Re: Menu jak rozbudować

2014-07-28T17:20:57+01:00

Hmm... a może kolega by zrobił video tutoriala i rzucił na forum

Statystyki: Napisane przez slawek3000 — 28 lip 2014, o 17:20

Re: Menu jak rozbudować

2014-07-28T04:44:49+01:00

A jak tu dodać wyświetlacz , procesor , klawisze do obsługi itd... ten program też widziałem wcześniej ,tylko że kod wynikowy generuje jakiś dziwny

Statystyki: Napisane przez slawek3000 — 28 lip 2014, o 04:44

Re: Menu jak rozbudować

2014-07-27T20:41:34+01:00

Panowie do tego jest gotowe oprogramowanie wystarczy poczytać na forum MCS electronics
http://vimeo.com/25921689

Wiki do programu:
http://mat.midlight.eu/wiki/index.php/Simple_LCD_Menu_Main_Page#Video_Demo

link do forum z opisem:
http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=9883

Statystyki: Napisane przez pikczu — 27 lip 2014, o 20:41

Re: Menu jak rozbudować

2014-07-27T20:04:08+01:00

w zupełności wystarczy jak na pisałem wyżej ... nazwy zmiennych i typ mogą być dowolne wyświetlacz 16x4 , inicjowanie wyświetlaczy , procesorów to raczej umie
Dziękuje z góry za pomoc

Statystyki: Napisane przez slawek3000 — 27 lip 2014, o 20:04

Re: Menu jak rozbudować

2014-07-27T19:46:43+01:00

Tak jak napisał kolega wyżej, ile pozycji menu głónego ? Ile pozycji poszczególnych menu ?

Statystyki: Napisane przez matrix — 27 lip 2014, o 19:46

Re: Menu jak rozbudować

2014-07-27T19:41:33+01:00

w menu głównym 5 pozycji
w podmenu również 5 pozycji

Statystyki: Napisane przez slawek3000 — 27 lip 2014, o 19:41

Re: Menu jak rozbudować

2014-07-27T19:09:47+01:00

Zrobienie czegoś takiego według mnie wymaga świeżego podejścia do tematu.

Statystyki: Napisane przez matrix — 27 lip 2014, o 19:09

Re: Menu jak rozbudować

2014-07-27T19:04:04+01:00

No ok , ale jak zrobić np. menu 2.2 ;2.3;2.4 ?

Statystyki: Napisane przez slawek3000 — 27 lip 2014, o 19:04

Re: Menu jak rozbudować

2014-07-26T12:04:41+01:00

ok i co dalej ?

Statystyki: Napisane przez slawek3000 — 26 lip 2014, o 12:04

Re: Menu jak rozbudować

2014-07-26T09:15:28+01:00

Zacząć trzeba od tego że menu napisane jest nieoptymalnie. Na ten przykład po co napisane jest:
[syntax=basic4gl]Tast2:
If Menu > 1 Then 'Verhindert ausschweifung von Startscreen
If Menu < 100 Then 'Verhindert ausschweifung in Untermenü "Menupunkt x.1"
If Menu < 15 Then 'Verhindert hochzählen > 15 ; muss angepasst werden
Incr Menu
Cls[/syntax]

Przecież to samo można osiągnąć pisząc:
[syntax=basic4gl]Tast2:
If Menu >1 and Menu < 15 then
Incr Menu
Cls[/syntax]

3 Linie zastąpione jedną. Gdyby coś było pomiędzy ifami to te trzy linie miały by rację bytu a tak są zupełnie zbędne i można je zastąpić jedną.

Do tego po co w każdym menu to locate 2,1 ? Jakby to przemyśleć to można spokojnie zastąpić to jedną linią.

Statystyki: Napisane przez matrix — 26 lip 2014, o 09:15

Menu jak rozbudować

2014-07-26T12:15:49+01:00

Witam,
znalazłem taki kod w necie [syntax=basic4gl]'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 9600
$hwstack = 64
$swstack = 64
$framesize = 64
'-----------------------------------------------------------------
'konfiguracja wyświetlacza
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Initlcd
Cls
Cursor Off

Dim Menu As Integer 'Sprungadresse

Enable Interrupts
'-----------------------------------------------------------------------------
'hier bekommen die Ports einen selbst ernannten Namen. Meistens aus der
'Zeichnung entnommen dann hat man eine gute Wiedererkennung.
'Außerdem werden die Eigenschalten der Ports bestimmt (In/Ou)
S1 Alias Pind.3 : Ddrd.3 = 0 : Portd.3 = 1 'Taste [S] (Eingang)
S2 Alias Pind.2 : Ddrd.2 = 0 : Portd.2 = 1 'Taste [2] (Eingang)
S3 Alias Pind.1 : Ddrd.1 = 0 : Portd.1 = 1 'Taste [3] (Eingang)
S4 Alias Pind.0 : Ddrd.0 = 0 : Portd.0 = 1 'Taste [R] (Eingang)

'-------------------nur Startbedingung testen und ausgeben--------------------

Menu = 1

'----------------------------Hauptroutine-------------------------------------

Do

'Tasterabfrage mit Entprellung durch "Debounce"
Debounce S1 , 0 , Tast1 , Sub 'S1 ["S"] (Menu)
Debounce S2 , 0 , Tast2 , Sub 'S2 ["2"] (Hoch)
Debounce S3 , 0 , Tast3 , Sub 'S3 ["3"] (Runter)
Debounce S4 , 0 , Tast4 , Sub 'S4 ["R"] (Zurück)

If Menu = 1 Then
Locate 1 , 1
Lcd " Beispielmenu "
Locate 2 , 1
Lcd " Version 1.00 "
End If

'-------------------------Hauptmenu-------------------------------------------

If Menu = 10 Then 'Menupunkt 1 'Variablen Abfrage von Menu = x
Gosub Menu10
End If

If Menu = 11 Then 'Menupunkt 2
Gosub Menu11
End If

If Menu = 12 Then 'Menupunkt 3
Gosub Menu12
End If

If Menu = 13 Then 'Menupunkt 4
Gosub Menu13
End If

If Menu = 14 Then 'Menupunkt 5
Gosub Menu14
End If

If Menu = 15 Then 'Menupunkt 6
Gosub Menu15
End If

'----------------------------Untermenu----------------------------------------

If Menu = 100 Then 'Menupunkt 1.1
Gosub Menu100
End If

If Menu = 110 Then 'Menupunkt 2.1
Gosub Menu110
End If

If Menu = 120 Then 'Menupunkt 3.1
Gosub Menu120
End If

If Menu = 130 Then 'Menupunkt 4.1
Gosub Menu130
End If

If Menu = 140 Then 'Menupunkt 5.1
Gosub Menu140
End If

If Menu = 150 Then 'Menupunkt 6.1
Gosub Menu150
End If

Loop
'---------------------Ende der Hauptroutine-----------------------------------

'-----------------------------------------------------------------------------
'-----------------------------Tasterroutinen----------------------------------
Tast1:
Menu = Menu * 10 'Menu wird um Faktor 10 erhöht
'Wenn Menu größer als 150 wird Menu um Faktor 10 dividiert
If Menu > 150 Then 'Menu = "150" muss angepasst werden!
Menu = Menu / 10
End If
Cls 'Display wird gecleart
Return

Tast2:
If Menu > 1 Then 'Verhindert ausschweifung von Startscreen
If Menu < 100 Then 'Verhindert ausschweifung in Untermenü "Menupunkt x.1"
If Menu < 15 Then 'Verhindert hochzählen > 15 ; muss angepasst werden
Incr Menu
Cls
End If
End If
End If
Return

Tast3:
If Menu > 1 Then
If Menu > 10 Then
If Menu < 100 Then
Decr Menu
Cls
End If
End If
End If
Return

Tast4:
If Menu > 1 Then 'Verhindert Fehlfunktion Menu = 1 / 10
Menu = Menu / 10
Cls
End If
Return

'-----------------------------------------------------------------------------
'----------------------------Menupunkte---------------------------------------

'----------------------------Hauptmenu----------------------------------------

Menu10: 'gosub Menu10
Locate 2 , 1 'Springt in 1. Zeile an 1. Stelle des Display
Lcd "Menupunkt 1" 'Schreibt "Inhalt" auf Display; Variablenausgabe ohne " "
Return

Menu11:
Locate 2 , 1
Lcd "Menupunkt 2"
Return

Menu12:
Locate 2 , 1
Lcd "Menupunkt 3"
Return

Menu13:
Locate 2 , 1
Lcd "Menupunkt 4"
Return

Menu14:
Locate 2 , 1
Lcd "Menupunkt 5"
Return

Menu15:
Locate 2 , 1
Lcd "Menupunkt 6"
Return

'----------------------------Untermenu----------------------------------------

Menu100:
Locate 2 , 1
Lcd "Menupunkt 1.1"
Return

Menu110:
Locate 2 , 1
Lcd "Menupunkt 2.1"
Return

Menu120:
Locate 2 , 1
Lcd "Menupunkt 3.1"
Return

Menu130:
Locate 2 , 1
Lcd "Menupunkt 4.1"
Return

Menu140:
Locate 2 , 1
Lcd "Menupunkt 5.1"
Return

Menu150:
Locate 2 , 1
Lcd "Menupunkt 6.1"
Return

'-----------------------------------------------------------------------------
'-------------------------Programmende----------------------------------------
'-----------------------------------------------------------------------------[/syntax]

chciałbym go bardziej rozbudować tzn.np mamy Menupunkt 1 potem wchodzimy do Menupunkt 1.1 a mnie potrzeba dalej Menupunkt 1.2, Menupunkt 1.3 itd. jak to zrobić ?

Statystyki: Napisane przez slawek3000 — 26 lip 2014, o 05:46