Текстовий редактор на midletpascal-e, vr-online - безкоштовний електронний журнал для всіх


Після того, як ми підключили бібліотеку, не започатковано константи і оголошуються необхідні змінні. Зараз їх призначення, звичайно ж, тобі не зрозуміло, але по ходу написання коду все буде прояснюватися. Тепер створимо каркас програми. Він буде складатися з двох циклів repeat ... until, в першому з яких буде виводитися головне меню, а в другому, перевіряється, який пункт був вибраний і виконується відповідний код:

Тут немає нічого складного. Мінлива prov2 є умовою в першому циклі, і коли її значення буде true, то перший цикл закінчиться, і програма буде завершена. У першому циклі, за допомогою функції CreateCommand, створюється команда ОК після натискання на яку, буде виконуватися код відповідає обраному пункту меню. Потім, ми виводимо на екран меню, в заголовку якого знаходиться напис Creator, і після цього, за допомогою функції MenuAppendString, додаємо в меню наші пункти. Далі додаємо на форму раніше створену команду ОК. Якщо виникають питання по функціям та їх параметрами, то раджу звернутися до Help-у MidletPascal-я (краще російськомовному). Там все дуже добре і зрозуміло розписано і питання виникати не повинні. Коли нарешті з'явиться команди починається другий цикл, в якому, після затримки (зробленої, щоб споживач встигав вибрати потрібний пункт меню), йде перевірка обраної команди і пункту меню. Ось реалізацією коду кожного з пунктів меню, який треба буде записувати якраз замість трикрапки, ми зараз і займемося.
Почнемо з самого простого і реалізуємо вихід з програми за вибором пункту «Вихід». Наступний код записуємо на місце трикрапки, щоб він виконувався в другому циклі:

У першому рядку йде перевірка на вибраний елемент меню і натиснуту команду, і якщо був обраний пункт «Вихід» і натиснуто ОК, то виходимо з програми.
Тепер розглянемо код, що виконується при виборі пунктів «Про програму» і «Допомога». Вони абсолютно ідентичні, за винятком інформації, що виводиться на екран. Наступний код записується відразу ж, після реалізації виходу:

На початку так само перевіряється, який з пунктів меню був обраний, а потім реалізується потрібний код. Якщо був обраний пункт «Про програму (Допомога)», то очищаємо форму (про всяк випадок) і, за допомогою функції FormAddString, виводимо текст про програму (або допомога). Що б новий рядок відобразилася на екрані, викликаємо форму (ShowForm), тобто як би перемальовували її. Далі створюємо і відображаємо на екрані нову команду ОК. А в циклі відбувається затримка, щоб споживач міг прочитати написане і після натискання на ОК ми виходимо з цього циклу, тобто виходимо з цього пункту меню в головне меню.
Ну а тепер, дорогою кодер, починається найцікавіше. Зараз ми з тобою розглянемо створення нового файлу:

Схожі статті