Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Meniuri orizontale
- 1. Definirea meniului
- DEFINE MENU nume_meniu [MESSAGE mesaj]
- DEFINE MENU meniu_oriz MESSAGE problema1
- 2. Definirea actiunilor din cadrul meniului
- DEFINE PAD nume_opt OF nume_meniu PROMPT optiune [AT l,c][MESSAGE mesaj]
- nume_opt - un sir de caractere care identifica optiunea
- optiune - un sir de caractere care va fi afisat in cadrul meniului
- l,c - linia si coloana de la care apare optiunea
- mesaj - reprezinta un mesaj care va fi afisat pe ultima linie a ecranului in momentul selectarii optiunii
- DEFINE MENU MO
- DEFINE PAD O1 OF MO PROMPT "REZOLVARE PCTA"
- DEFINE PAD O2 OF MO PROMPT "REZOLVARE PCTB"
- DEFINE PAD O3 OF MO PROMPT "REZOLVARE PCTC"
- DEFINE PAD O4 OF MO PROMPT "IESIRE"
- 3. Stabilirea actiunilor de executare
- ON SELECTION PAD nume_opt OF nume_meniu comanda
- ON SELECTION PAD O1 OF MO DO PCTA
- ON SELECTION PAD O2 OF MO DO PCTB
- ON SELECTION PAD O3 OF MO DO PCTC
- ON SELECTION PAD O4 OF MO DO EXIT
- 4. Activarea meniului
- ACTIVATE MENU nume_meniu
- ACTIVATE MENU MO
- 5. Dezactivarea meniului
- DEACTIVATE MENU nume_meniu
- PROCEDURE EXIT
- CLOSE ALL
- DEACTIVATE MENU MO
- EXIT
- RETURN
- ENDPROC
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement