Текстік режимде жумыс

ЖОСПАР
Текстік режимде жұмыс
1. CRT модулінің процедуралары мен функциялары
2.TEXTBACKGROUND және TEXTCOLOR процедураларымен орнатуға болатын түс кодтарының шкаласы
        
        ЖОСПАР
Текстік режимде жұмыс
1. CRT модулінің процедуралары мен функциялары
2.TEXTBACKGROUND және TEXTCOLOR ... ... ... түс ... ... ... ... жұмыс
Экранда символдардың шығуы мен түзілуі монитордың видеоадаптерінің жұмысына байланысты болады. Компьютерде ... ... ... ... ... немесе графиктік режимде шығаруға болады.
Көптеген бағдарламаларда текстік мәліметтерді Read, Readln, Write, Writeln процедураларының көмегімен енгізу-шығару бағдарламаның көрнекі және ... ... ... ... ... ... Сондықтан Turbo Pascal-да текстік режимде жұмыс істеу үшін қолданылатын арнаулы функциялар мен процедуралар қарастырылған. Олар арнаулы CRT (Cathode Ray Tube display - ... - ... ... ... ... құрамында жазылған. Оларды текстік режимде жұмыс істеуге пайдалану үшін бағдарламаның басында CRT модулін USES қызметші сөзінде жазып кету керек. ... ғана ... CRT ... ... процедуралары мен функцияларын пайдалануға болады.
Текстік режим кодтық кестенің барлық символдарын экранға шығару үшін қолданылады. Текстік режимнің ең кішкене өлшем бірлігі ... ... ... Символдар бірнеше пиксельдерден (нүкте) құралады. Экранда символдар мен терезелердің әртүрлі шығу режимдерін компьютерде орнатылған адаптерлердің типтері анықтайды. Қазіргі ... ... ... ... да ... ... ... істеуге мүмкіндік береді.
1. CRT модулінің процедуралары мен функциялары
Текстік режимді орнату үшін TEXTMODE процедурасы қолданылады. Бағдарламалау барысында ... ... ... ... LASTMODE функциясымен білуге болады, мысалы:
TEXTMODE(X); //X - режим ... ... ... ... шығару
(Текстік режим нөмірлері мәндері монитор мен адаптерлер типтеріне байланысты қойылады (мысалы Х-ке 0, 1, 2, 3, 7 немесе Bw40, Co40, Bw80, Co80, Mono, Font8x8 ... ... ... ... ... тазалау үшін CLRSCR процедурасы қолданылады. Бұл процедура экранды немесе ағымдағы терезені тазалап, курсорды ... сол жақ ... ... ... ... тұрған жерден бастап қатардың аяғына дейінгі символдарды өшіру үшін CLREОL процедурасы ... ... ... ... қатардың барлығын өшіреді, нәтижесінде төменгі қатарлар жоғары бір позицияға жылжиды
INSLINE процедурасы курсор тұрған жерге бір бос қатар қояды, нәтижесінде кейінгі ... бір ... ... жылжиды
Экранда курсорды керекті жерге апарып қою үшін GOTOXY процедурасы қолданылады. Бұл процедура курсорды координаттары өзінде көрсетілген X және Ү ... ... ... ... ... Координаттарға тек бүтін сандар ғана беруге болады. Текстік режимде ... басы ... ... сол жақ ... бұрышын Х=1 және Ү=1 деп алады. Х-тің мәндері солдан оңға қарай, Ү-тің мәндері жоғарыдан төмен қарай өседі. X және Ү ең ... ... ... ... ... ... байланысты болады. Мысалы 80x25/CGA, EGA, CO80 адаптерлері үшін текстік режимде Хmах=80; Үmах=25.
GOTOXY( 10, ... Х=10, Ү= 15 ... ... қояды.
Курсордың тұрған жерін анықтау үшін WHERE функциясы қолданылады, жазылуы:
Write(WHEREX, WHERY);
//экранға курсор тұрған жердің ... ... ... ... ... ... ... басқаратын KEYPRESSED және READKEY логикалық функциялары қолданылады.
KEYPRESSED - Егер клавиатураның кез-келген клавишы басылса, онда функцияның мәні "ақиқат" болады мысалы төмендегі ... цикл ... ... ... басылғанша орындалады:
USES Crt;
Begin Clrscr;
Repeat
Writeln('TEXT-);
Until Key pressed; END.
READKEY - Егер Пернетақтадан берілген символ клавишы басылса, онда функцияның мәні ... ... ... ... ... цикл ... "д" символынан басқа символдар басылса қайталанып орындала береді, ал "д" символы басылған заматта тоқтайды:
USES Crt;
VARN:Char;
Begin Clrscr; N:='g';
Repeat
Writeln('TEXT');
Until ... ... ... ... ... ... немесе ағымдағы терезенің түстерін орнатуға болады, жазылуы:
TEXTBACKGROUND(M);
//экранды М нөмерлі түспен шығарады М - 0(қара)-ден 7(ақ ... ... ... көмегімен символдардың экранға шығатын түсі орнатылады, бағдарламада жазылуы:
TEXTCOLOR(M);
//тексті М нөмірлі түспен шығарады, М - 0(қара)-ден 15(ақ)-ке дейін өзгереді.
TEXTBACKGROUND және ... ... ... ... түс ...
шкаласы
0 - Қара
1 - Көк
2 - ... - ... - ...
5 - ... - ...
7 - Ақсұр
8 - Қapacұp
9 - Ашық көк
10 - Ашық жасыл
11- Ашық көгілдір
12 - Ашық қызыл
13- Ашық ... - ... - ... - ... ... процедурасы экранға символдардың жарығын азайтып шығару режимін орнату үшін ... ... ... ең төменгі жарық режимінде шығады
NORMVIDEO процедурасы символдардың қалыпты жағдайдағы жарық режимінде шығу режимін орнату үшін ... ... сөзі ... ... ... жарық режимінде шығады
HIGHVIDEO процедурасы экранға символдардың жарығын көбейтіп ... ... ... үшін қолданылады, жазылуы:
HIGHVIDEO;
Writeln('TEXT');
//ТЕХТ сөзі экранға ең жоғарғы жарық режимінде шығады
Текстік режимде кей жағдайларда бүкіл экран қажет ... бір ... ... ... ... тек қана сол ... аумағында жұмыс істеуге болады. Ол үшін экранға терезе шығаратын WINDOW процедурасы қолданылады. Бұл ... ... ... экранға өзінде берілген координаталар бойынша терезе шығарады, ... ... Ү1, Х2, ... ... ... ... диагоналының сол жақ жоғарғы төбесінің координаттары Х1, Ү1 болатын, ал оң жақ төменгі төбесінің координаттары Х2, Ү2 ... тік ... ... мысалы:
USES Crt;
VARXString;
BEGIN Textbackground(6);
WINDOW(5,8,25,21); Clrscr; Readln(X); END.
WINDOW процедурасы ... ... ... ... ол бүкіл экран секілді қарастырылып, курсор терезенің сол жақ жоғарғы ... ... ... Әрі қарай енгізілген символдар оңға қарай шығарылады. Терезенің оң жақ шекарасына жеткеннен кейін ... ... ... ... Ал ... ... ... оң жақ шекарасына жеткенде текст мазмұны жоғарыға қарай бір ... ... да, ... сол ... ... ... ... (текст айналып тұрады). Кей жағдайларда бұл процедураның параметрлерінің мәндері ретінде төмендегі стандартты функцияларды қолдануға болады:
X:=Lo(WindMin)+ 1;
X терезенің сол жақ ең ... ... ... меншіктейді.
Y:=Hi(WindMin)+ 1;
Ү терезенің сол жақ ең жоғарғы нүктесіндегі мәнін меншіктейді.
X:=Lo(WindMin)+ 1;
X терезенің оң жақ ең төменгі нүктесіндегі мәнін меншіктейді.
Y:=Lo(WindMax)+1;
Ү терезенің оң жақ ең ... ... ... меншіктейді.
Мысалы төмендегі процедураның орындалу нәтижесінде екінші шығатын терезе параметрлері Х1=15, Ү1=2, Х2=30, Ү2=12 мәндерін қабылдайды.
USES ... Clrscr; ... ... ... Div 2, ... Div 2);
Clrscr;
Readln(X); END.
CRT модулінің құрамына дыбыс шығару үшін қолданылатын келесі процедуралар кіреді:
Белгілі бір жиілікпен ... ... үшін SOUND ... ... ... X - ... анықтайтын бүтін шама.
Нота дыбыстарының жиіліктері
Октавалар :
Үлкен
Кіші
Бірінші
Екінші
До
131
262
523
1047
Ре
147
294
587
1174
Ми
165
330
659
1318
Фа ... ... ... ... ... ... үшін параметрсіз NOSOUND процедурасы қолданылады, жазылуы:
NOSOUND;
Дыбыстық сигналды белгілі бір уақыт бойы ... тұру үшін ... ... ... ... DELAY процедурасы қолданылады, жазылуы:
DELAY(T);
мұндағы: Т - ... ... ... ... ... ... үш ... көмегімен текстік режимде әртүрлі дыбыстық эффектілер жасауға болады (сиреналар, құстар әні, ... ... т.б.), ... ... бағдарламаның фрагментінің орындалу нәтижесінде кез-келген клавишаны басқанша кезек-кезек жеті нотаның дыбысы ... ... ... ... 587, 659, 698, 785, 880, ... ... ... K:=1 To 7 Do Begin
Sound(A[K]); Delay(800);
Nosound; Delay(300) End;
Until Keypressed;
END.
Сондай-ақ DELAY ... ... ... ... ... ... жылжытуда қолданылады. Ол үшін алдымен текстік объект циклдің бастапқы координаттарымен DELAY процедурасының көмегімен ... ... ... көрініп тұрады да CLRSCR процедурасымен өшіріледі. Циклдің ... ... жаңа ... ол тағы да жаңа ... ... уақыт көрініп тұрады да қайтадан өшіріледі, цикл аяқталғанша осындай процестер жүріп сырт көзге текстік ... ... бара ... болып көрінеді.
Пайдаланылған әдебиеттер:
* Б.Бөрібаев. Информатика және компьютер. Алматы, ... ... ... негіздері. Москва, 1987.
* А.И.Гусева. ТигЬоРазсаІ7.0-де бағдарламалау. Москва, 1996 ... Turbo Pascal тілі және ... ... ... Көмекші оқу құралы. Қызылорда, 2001 ж.
* О.Камардинов. Есептеуіш техника және ... ... В.Б. ... Turbo Pascal, ... ... Москва, 2001 ж.
* Қ.Сарыбасов. Бағдарламалау курсы. Алматы, "Мектеп" 1989ж.
* В.В.Фаронов. Turbo Pascal. Москва, 1999ж.
* В.Э.Фигурнов. IBM PC ... ... ... ... ... ... бағдарламалары және MS DOS,Windows-98 операциялық жүйелерінің анықтамалық мәліметтері.

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 8 бет
Бұл жұмыстың бағасы: 200 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Компьютерлік графиканың даму тарихы6 бет
35 / 10 кВ «Cунaлe» қocaлқы cтaнцияcын қaйтa құpу62 бет
Алакөл көліне қысқаша сипаттама21 бет
Алмагүл 35/10 кВ-тық қосалқы станциясын қайта құру50 бет
Блоктік шифрлеу8 бет
Турбо паскаль программалау тілінде графикалық объекттерді құру12 бет
Энергиямен қамтамасыз ету және автоматтандыру49 бет
Ғимаратты эксплуатациялаудың техникалық шешімдері7 бет
Қазақстанның салық жүйесі: қалыптасу кезеңдері және қазіргі кездегі жағдайының сипаттамасы9 бет
Turbo Pascal-дағы жолдық қатарлар15 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь