Презентация «Создание консольного приложения с текстовым меню»
Смотреть слайды в полном размере 
Вы можете ознакомиться с презентацией онлайн, просмотреть текст и слайды к ней, а также, в случае, если она вам подходит - скачать файл для редактирования или печати. Документ содержит 11 слайдов и доступен в формате ppt. Размер файла: 65.83 KB
Pic.1
Создание консольного приложения с текстовым меню.
Pic.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 - …
Pic.3
Процедуры модуля CRT Очистка ClrScr очистит весь экран ClrEol очистит текущую строку DelLine удалит строку, в которой находится курсор. InsLine очистит текущую строку целиком.
Pic.4
Цвета Цвет фона TextBackground(color : Byte) Цвет выводимого текста Textcoloe(color : Byte) Функция Textattr: Byte
Pic.5
Константы цветов
Pic.6
Атрибуты текста
Pic.7
Позиционирование Процедура GotoXY(x, y : Byte) переместит курсор в заданную позицию в пределах текущего окна. Функция WhereX: Byte вычислит положение курсора в текущем окне: его горизонтальную …
Pic.8
uses Crt; uses Crt; const NORM=LightGray; { цвет невыделеного пункта } SEL=Green; { цвет выделенного пункта } N=3; var menu:array[1. . N] of string[12];{ названия пунктов меню } punkt:integer; …
Pic.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; …
Pic.10
![begin begin menu[1]:=' Действие 1 ‘; menu[2]:=' Действие 2 ‘; menu[3]:=' Выход '](/documents_6/118943a02a6469c36b77dc16212c5486/img9.jpg)
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 …
Pic.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; …
Если вам понравился сайт и размещенные на нем материалы, пожалуйста, не забывайте поделиться этой страничкой в социальных сетях и с друзьями! Спасибо!
