Lập trình bằng Turbo Pascal part 7

Hình 11.7: Chi tiết mức 3 các công việc 2.1 vμ 2.2 Đến đây ta thấy hầu nh− mọi công việc đã đủ đơn giản. Phần duy nhất cần lμm chi tiết thêm lμ mô đun 2.2.1 - xử lí khi gõ các phím mũi tên Up, Down.7.2.4 Chi tiết mức 4.
Nội dung trích xuất từ tài liệu:
Lập trình bằng Turbo Pascal part 7 LËp tr×nh b»ng Turbo Pascal 2.2.2: Xö lÝ khi gâ c¸c phÝm kh¸c. 2.1: VÏ b¶ng chän ban ®Çu 2.1.1.TÝnh 2.1.2.VÏ 2.1.3. ViÕt 2.1.4. Lμm chiÒu dμi, khung h×nh lÇn l−ît tªn næi bËt mét chiÒu réng. ch÷ nhËt víi c¸c môc môc chän mμu nÒn. chän. mÆc ®Þnh. 2.2: Xö lÝ gâ phÝm 2.2.1: Xö lÝ khi 2.2.2: Xö lÝ khi gâ c¸c phÝm kh¸c gâ mòi tªn lªn, xuèng H×nh 11.7: Chi tiÕt møc 3 c¸c c«ng viÖc 2.1 vμ 2.2 §Õn ®©y ta thÊy hÇu nh− mäi c«ng viÖc ®· ®ñ ®¬n gi¶n. PhÇn duy nhÊtcÇn lμm chi tiÕt thªm lμ m« ®un 2.2.1 - xö lÝ khi gâ c¸c phÝm mòi tªn Up,Down. 7.2.4 Chi tiÕt møc 4 . NÕu kÝ hiÖu i lμ sè thø tù cña môc chän hiÖn hμnh th× c«ng viÖc 2.2.1(xö lÝ khi gâ phÝm mòi tªn Up, Down) cÇn thùc hiÖn lμ nh− sau. 2.2.1.1: Lμm ch×m môc chän i cò tøc lμ hiÓn thÞ môc chän i b»ng mμu nÒn b×nh th−êng 2.2.1.2: CËp nhËt l¹i môc chän i míi. - G¸n i:= i + 1 / i:= i - 1 tuú theo gâ Up, Down. - Chó ý xoay vßng trßn khi: gâ phÝm m÷i tªn Up khi ®ang ë môc chän ®Ønh b¶ng (i=0) hay gâ mòi tªn Down khi ®ang ë môc chän ®¸y b¶ng (i = sè môc chän -1).NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 161 LËp tr×nh b»ng Turbo Pascal 2.2.1.3: Lμm næi bËt môc chän i míi. HiÓn thÞ môc chän i b»ng mμu chän. 2.2.1: Xö lÝ khi gâ mòi tªn lªn, xuèng 2.2.1.1. Lμm 2.2.1.2. CËp 2.2.1.3.Lμm ch×m môc nhËt môc chän næi môc chän chän cò míi míi H×nh 11.7: chi tiÕt møc 4 c«ng viÖc 2.2.1 Tãm l¹i, sau bèn b−íc chi tiÕt dÇn, c¸c c«ng viÖc ®· trë thμnh ®¬n gi¶n.ViÖc triÓn khai viÕt ch−¬ng tr×nh sö dông Turbo Pascal hay mét ng«n ng÷ lËptr×nh nμo ®ã chØ ®¬n thuÇn lμ chuyÓn tõng c«ng viÖc thμnh c¸c c©u lÖnh t−¬ngøng mét c¸ch m¸y mãc.7.3 Ch−¬ng tr×nh chi tiÕt. D−íi ®©y lμ ch−¬ng tr×nh t¹o b¶ng chän nhËn ®−îc sau khi triÓn khais¬ ®å trªn thμnh c¸c c©u lÖnh Turbo Pascal.uses crt;const max_SoMucChon = 8; {sè môc chän tèi ®a}type mang_string = array[0..max_SoMucChon-1] of string;var Ten_Muc_Chon: mang_string; {m¶ng c¸c tªn muc chän} So_Muc_Chon: word; {sè môc chän} Mau_nen, Mau_Chon: byte; Chon: integer; {danh so tu 0..(SoMucChon - 1),ESC = -1}Procedure NhapThamSoBangChon;{phÇn nhËp d÷ liÖu}begin So_Muc_Chon:=3; Ten_Muc_Chon[0]:= muc chon 1 ; Ten_Muc_Chon[1]:= muc chon 2 ; Ten_Muc_Chon[2]:= thoat ;End;Procedure KiemTraHoatDong;{kiÓm tra c¸c thao t¸c sö dông b¶ng chän}begin; case Chon ofNguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 162 LËp tr×nh b»ng Turbo Pascal 0: begin clrscr; gotoXY(1,1); writeln(ban da chon:, Chon); end; 1: begin clrscr; gotoXY(5,5); writeln(ban da chon:, Chon); end; 2: begin clrscr; gotoXY(10,10); writeln(ban da chon:, Chon); end; -1: begin clrscr; gotoXY(20,20); writeln(ban da chon thoat !); end; end; {case}end;function BangChon(x,y,SoMucChon:word;TenMucChon:mang_string; MauNen,MauChon: byte): integer; {vÏ b¶ng chän, xö lý thao t¸c chän}const esc=#27; {c¸c phÝm ®Ó chän} enter =#13; up = #72 ; down = #80;var rong: word; {chiÒu réng b¶ng = tªn môc chän dμi nhÊt} i: integer; {thø tù môc chän hiÖn t¹i}procedure LamNoiMucChon(i: integer); {lμm næi bËt môcchän} begin TextBackGround(MauChon); gotoXY(1,i+1); ClrEol; write(TenMucChon[i]); end;procedure LamChimMucChon(i:integer); {th«i lμm næi} begin TextBackGround(MauNen); gotoXY(1,i+1); clreol; write(TenMucChon[i]); end;procedure VeBangChon;var i: integer;begin {tinh chieu rong} rong:=length(TenMucChon[0]); for i:=1 to SoMucChon -1 do if rong < length(TenMucChon[i]) then rong:= length(TenMucChon[i]); window(x,y,x+rong,y+SoMucChon);NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi ...