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

Нажмите для полного просмотра!

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

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

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

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

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

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

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

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

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

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

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

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Создание консольного приложения с текстовым меню. Доклад-сообщение содержит 11 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

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

Слайд 2

Описание слайда:

Пример простейшего 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.

Слайд 3

Описание слайда:

Процедуры модуля CRT Очистка ClrScr очистит весь экран ClrEol очистит текущую строку DelLine удалит строку, в которой находится курсор. InsLine очистит текущую строку целиком.

Слайд 4

Описание слайда:

Цвета Цвет фона TextBackground(color : Byte) Цвет выводимого текста Textcoloe(color : Byte) Функция Textattr: Byte

Слайд 5

Описание слайда:

Константы цветов

Слайд 6

Описание слайда:

Атрибуты текста

Слайд 7

Описание слайда:

Позиционирование Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущего окна. Функция WhereX: Byte вычислит положение курсора в текущем окне: его горизонтальную составляющую Функция WhereY : Byte вычислит положение курсора в текущем окне (или на экране): его вертикальную составляющую.

Слайд 8

Описание слайда:

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.Нажмите для продолжения.'); readln; end; Procedure punkt2; begin ClrScr; writeln('Процедура 2.Нажмите для продолжения.'); readln; end;

Слайд 9

Описание слайда:

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;

Слайд 10

Описание слайда:

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

Слайд 11

Описание слайда:

#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 { нажата клавиша } case punkt of 1:punkt1; 2:punkt2; 3:ch:=#27;{ выход } end; MenuToScr; end; until ch=#27;{ 27 - код } end.