Презентация Создание консольного приложения с текстовым меню

Смотреть слайды в полном размере
Презентация Создание консольного приложения с текстовым меню


Вашему вниманию предлагается презентация «Создание консольного приложения с текстовым меню», с которой можно предварительно ознакомиться, просмотреть текст и слайды к ней, а так же, в случае, если она вам подходит - скачать файл для редактирования или печати.

Презентация содержит 11 слайдов и доступна для скачивания в формате ppt. Размер скачиваемого файла: 65.83 KB

Просмотреть и скачать

Pic.1
Создание консольного приложения с текстовым меню.
Создание консольного приложения с текстовым меню.
Pic.2
Пример простейшего CASE-меню Uses Crt; Var n: Byte; procedure proc1; begin end; procedure proc2; beg
Пример простейшего CASE-меню Uses Crt; Var n: Byte; procedure proc1; begin end; procedure proc2; begin end; begin repeat ClrScr; WriteLn('Program 1 - 1'); WriteLn('Program 2 - 2'); WriteLn('Exit - 0'); Write('Select program: '); ReadLn(n); Case n of 1: proc1; 2: proc2; end; until n = 0; end.
Pic.3
Процедуры модуля CRT Очистка ClrScr очистит весь экран ClrEol очистит текущую строку DelLine удалит
Процедуры модуля CRT Очистка ClrScr очистит весь экран ClrEol очистит текущую строку DelLine удалит строку, в которой находится курсор. InsLine очистит текущую строку целиком.
Pic.4
Цвета Цвет фона TextBackground(color : Byte) Цвет выводимого текста Textcoloe(color : Byte) Функция
Цвета Цвет фона TextBackground(color : Byte) Цвет выводимого текста Textcoloe(color : Byte) Функция Textattr: Byte
Pic.5
Константы цветов
Константы цветов
Pic.6
Атрибуты текста
Атрибуты текста
Pic.7
Позиционирование Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущ
Позиционирование Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущего окна. Функция WhereX: Byte вычислит положение курсора в текущем окне: его горизонтальную составляющую Функция WhereY : Byte вычислит положение курсора в текущем окне (или на экране): его вертикальную составляющую.
Pic.8
uses Crt; uses Crt; const NORM=LightGray; { цвет невыделеного пункта } SEL=Green; { цвет выделенного
uses Crt; uses Crt; const NORM=LightGray; { цвет невыделеного пункта } SEL=Green; { цвет выделенного пункта } N=3; var menu:array[1. . N] of string[12];{ названия пунктов меню } punkt:integer; ch:char; x,y:integer; Procedure punkt1; begin ClrScr; writeln('Процедура 1. Нажмите <Enter> для продолжения. '); readln; end; Procedure punkt2; begin ClrScr; writeln('Процедура 2. Нажмите <Enter> для продолжения. '); readln; end;
Pic.9
Procedure MenuToScr;{ вывод меню на экран } Procedure MenuToScr;{ вывод меню на экран } var i:intege
Procedure MenuToScr;{ вывод меню на экран } Procedure MenuToScr;{ вывод меню на экран } var i:integer; begin ClrScr; for i:=1 to N do begin GoToXY(x,y+i-1); write(menu[i]); end; TextAttr:=SEL; GoToXY(x,y+punkt-1); write(menu[punkt]);{ выделим строку меню } TextAttr:=NORM; end;
Pic.10
begin begin menu[1]:=' Действие 1 ‘; menu[2]:=' Действие 2 ‘; menu[3]:=' Выход '
begin begin menu[1]:=' Действие 1 ‘; menu[2]:=' Действие 2 ‘; menu[3]:=' Выход '; punkt:=1; x:=5; y:=5; TextAttr:=NORM; MenuToScr; repeat ch:=ReadKey; if ch=#0 then begin ch:=ReadKey; case ch of #80:{ стрелка вниз } if punkt<N then begin GoToXY(x,y+punkt-1); write(menu[punkt]); punkt:=punkt+1; TextAttr:=SEl; GoToXY(x,y+punkt-1); write(menu[punkt]); TextAttr:=NORM; end;
Pic.11
#72:{ стрелка вверх } #72:{ стрелка вверх } if punkt>1 then begin GoToXY(x,y+punkt-1); write(menu
#72:{ стрелка вверх } #72:{ стрелка вверх } if punkt>1 then begin GoToXY(x,y+punkt-1); write(menu[punkt]); punkt:=punkt-1; TextAttr:=SEl; GoToXY(x,y+punkt-1); write(menu[punkt]); TextAttr:=NORM; end; end; end else if ch=#13 then begin { нажата клавиша <Enter> } case punkt of 1:punkt1; 2:punkt2; 3:ch:=#27;{ выход } end; MenuToScr; end; until ch=#27;{ 27 - код <Esc> } end.


Скачать презентацию

Если вам понравился сайт и размещенные на нем материалы, пожалуйста, не забывайте поделиться этой страничкой в социальных сетях и с друзьями! Спасибо!