Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

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

ПРИМЕР ПРОСТЕЙШЕГО 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');
СОЗДАНИЕ КОНСОЛЬНОГО ПРИЛОЖЕНИЯ С ТЕКСТОВЫМ МЕНЮ. ПРИМЕР ПРОСТЕЙШЕГО CASE-МЕНЮUses Crt;Var n: Byte; procedure proc1; begin end; procedure proc2; ПРОЦЕДУРЫ МОДУЛЯ CRTОчистка	 ClrScr очистит весь экран   ClrEol  очистит текущую строку	 DelLine удалит строку, в ЦВЕТА Цвет фонаTextBackground(color : Byte) Цвет выводимого текстаTextcoloe(color : Byte)  Функция Textattr: Byte КОНСТАНТЫ ЦВЕТОВ АТРИБУТЫ ТЕКСТАTextAttr:=4; TextAttr:=16*Blue+White; ПОЗИЦИОНИРОВАНИЕ Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущего окна.Функция WhereX: Byte вычислит uses Crt;const   NORM=LightGray; { цвет невыделеного пункта } Procedure MenuToScr;{ вывод меню на экран }var i:integer;begin   ClrScr; begin   menu[1]:=' Действие 1 ‘;     menu[2]:=' #72:{ стрелка вверх }
Слайды презентации

Слайд 2 ПРИМЕР ПРОСТЕЙШЕГО CASE-МЕНЮ
Uses Crt;
Var n: Byte;
procedure proc1;

ПРИМЕР ПРОСТЕЙШЕГО CASE-МЕНЮUses Crt;Var n: Byte; procedure proc1; begin end; procedure

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  очистит

ПРОЦЕДУРЫ МОДУЛЯ CRTОчистка	 ClrScr очистит весь экран  ClrEol  очистит текущую строку	 DelLine удалит строку, в

текущую строку
 DelLine удалит строку, в которой находится курсор.
 InsLine  очистит текущую

строку целиком.

Звук
 Sound(hz : Word) включит звуковой сигнал с частотой hz Герц.
NoSound выключит звуковой сигнал


Слайд 4 ЦВЕТА
Цвет фона
TextBackground(color : Byte)
 Цвет выводимого текста
Textcoloe(color : Byte) 
Функция Textattr: Byte

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

Слайд 5 КОНСТАНТЫ ЦВЕТОВ

КОНСТАНТЫ ЦВЕТОВ

Слайд 6 АТРИБУТЫ ТЕКСТА
TextAttr:=4;
TextAttr:=16*Blue+White;

АТРИБУТЫ ТЕКСТАTextAttr:=4; TextAttr:=16*Blue+White;

Слайд 7 ПОЗИЦИОНИРОВАНИЕ
Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в

ПОЗИЦИОНИРОВАНИЕ Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущего

пределах текущего окна.
Функция WhereX: Byte вычислит положение курсора в текущем окне: его

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


Ожидание
Процедура Delay(ms : Word) приостановит исполнение программы на ms миллисекунд.

Функция ReadKey: Char возвращает значение символьного типа

Функция KeyPressed: Boollean возвращает значение истина , если нажата клавиша


Слайд 8 uses Crt;
const
NORM=LightGray; { цвет невыделеного

uses Crt;const  NORM=LightGray; { цвет невыделеного пункта }  SEL=Green;

пункта }
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;{ вывод меню на экран }
var i:integer;
begin

Procedure MenuToScr;{ вывод меню на экран }var i:integer;begin  ClrScr;

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
menu[1]:=' Действие 1 ‘;

begin  menu[1]:=' Действие 1 ‘;   menu[2]:=' Действие 2


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 GoToXY(x,y+punkt-1); write(menu[punkt]);
punkt:=punkt+1;
TextAttr:=SEl;
GoToXY(x,y+punkt-1); write(menu[punkt]);
TextAttr:=NORM;
end;


  • Имя файла: sozdanie-konsolnogo-prilozheniya-s-tekstovym-menyu.pptx
  • Количество просмотров: 126
  • Количество скачиваний: 0