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

LËp tr×nh b»ng Turbo Pascalvar Gd, Gm: integer; { Gd = Graphic Device } begin Gd:= detect; { Gm = Graphic Mode } InitGraph(Gd, Gm, ®−êng dÉn BGI); if graphresult grOk then begin write ( lçi khëi t¹o ®å ho¹); halt(1); end; end;1.2.2 Gi¶I thÝch ý nghÜa.C¸c tham sè trong thñ tôc InitGraph: Gd, Gm lμ hai tham biÕn, nhËn c¸c gi¸ trÞ lμ c¸c h»ng sè nguyªn, ®−îc ®Þnh nghÜa trong Unit Graph. Gd, Gm cã thÓ nhËn c¸c gi¸ trÞ nμo vμ ý nghÜa cña chCác tham số trong thủ tục InitGraph: Gd, Gm là hai tham...
Nội dung trích xuất từ tài liệu:
Lập trình bằng Turbo Pascal part 9 LËp tr×nh b»ng Turbo Pascalvar Gd, Gm: integer; { Gd = Graphic Device }begin Gd:= detect; { Gm = Graphic Mode } InitGraph(Gd, Gm, ®−êng dÉn BGI); if graphresult grOk then begin write ( lçi khëi t¹o ®å ho¹); halt(1); end;end; 1.2.2 Gi¶I thÝch ý nghÜa. C¸c tham sè trong thñ tôc InitGraph : Gd, Gm lμ hai tham biÕn, nhËn c¸c gi¸ trÞ lμ c¸c h»ng sè nguyªn,®−îc ®Þnh nghÜa trong Unit Graph. Gd, Gm cã thÓ nhËn c¸c gi¸ trÞ nμo vμ ýnghÜa cña chóng cã thÓ tham kh¶o trong Unit Graph. Tham sè ®−êng dÉn BGI: ph¶i thay b»ng ®−êng dÉn cô thÓ ®Õn th−môc BGI trong m¸y cña m×nh. Cã thÓ ®Ó cho Turbo Pascal tù ph¸t hiÖn vØ mμn h×nh vμ chän chÕ ®é®å häa thÝch hîp nhÊt. §ã lμ c¸ch khëi t¹o tù ®éng, b»ng c¸ch ®Æt Gd:=Detect nh− trong vÝ dô trªn. Lóc nμy kh«ng cÇn g¸n gi¸ trÞ cho Gm. Trong tr−êng hîp n¾m v÷ng thiÕt bÞ mμn h×nh hiÖn cã vμ c¸c chÕ ®é ®åho¹ t−¬ng øng, ta cã thÓ g¸n trùc tiÕp gi¸ trÞ cho Gd, Gm. VÝ dô: Gd:= VGA; Gm:= VGAHi ; Initgraph(Gd,Gm,C:TPBGI ); ...L−u ý kh«ng ®−îc viÕt trùc tiÕp Initgraph(VGA, VGAHi,C:TPBGI);Nh− thÕ sai có ph¸p v× c¸c Gd, Gm lμ tham biÕn chø kh«ng ph¶i tham trÞ. Sau khi gäi thñ tôc khëi t¹o ®å ho¹ cÇn kiÓm tra kÕt qu¶ xem viÖc khëit¹o cã thμnh c«ng hay kh«ng th«ng qua gäi hμm GraphResult. GraphResult: lμ hμm cã s½n trong Unit Graph. GraphResult tr¶ vÒ kÕtqu¶ lμ mét sè nguyªn. §ã lμ m· lçi khëi t¹o ®å ho¹. B¶ng sau ®©y cho biÕt gi¸ trÞ vμ ý nghÜa cña c¸c m· lçi ®å ho¹. Gi¸ trÞ sè Tªn h»ng Y nghÜa 0 thμnh c«ng grOk -1 ch−a khëi t¹o ®−îc grNoInitgraph -2 kh«ng cã phÇn cøng; grNotDetected -3 kh«ng cã c¸c tÖp ®iÒu khiÎn grFileNotFound ®å ho¹.NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 217 LËp tr×nh b»ng Turbo Pascal 1.2.3 §ãng thñ tôc ®å ho¹ Dïng thñ tôc chuÈn CloseGraph. Thñ tôc CloseGraph kh«ng cã tham sè. CloseGraph; T¸c dông: - Kh«i phôc l¹i chÕ ®é hiÓn thÞ ban ®Çu cña mμn h×nh tr−íc khi gäi khëi t¹o ®å ho¹; - Gi¶i phãng bé nhí ®· cÊp trªn heap lμm vïng nhí ®Öm ®å ho¹; - Gi¶i phãng vïng nhí chøa c¸c tr×nh ®iÒu khiÓn thiÕt bÞ, c¸c font ch÷ nÕu ®· xin cÊp ph¸t th«ng qua sö dông c¸c thñ tôc GraphGetMem, GraphFreeMem.1.3 Mét ch−¬ng tr×nh ®å ho¹ ®¬n gi¶n Ch−¬ng tr×nh sau ®©y khëi t¹o chÕ ®é ®å ho¹ vμ vÏ mét ®−êng chÐomμu vμng trªn mμn h×nh nÒn mμu xanh.program ve_hinh;uses crt,graph;BEGIN KhoiTaoDoHoa; SetBkColor(blue); SetColor(yellow); Moveto(0,0); Lineto(GetmaxX, GetmaxY); repeat until keypressed; closeGraph;END. Ta cã thÓ bæ xung thªm vμo th©n ch−¬ng tr×nh c¸c thñ tôc vÏ h×nh ch÷nhËt, ®−êng trßn , ®æi mμu nÐt vÏ ... Rectangle(100,100,200,200); SetColor(red); circle(200,150,50);1.4 Mµu s¾c, kiÓu nÐt vÏ, kiÓu t« nÒn.NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 218 LËp tr×nh b»ng Turbo Pascal Trong ch−¬ng tr×nh trªn ta gÆp hai thñ tôc SetBKColor vμ SetColor.§ã lμ hai thñ tôc ®Æt mμu nÒn vμ mμu nÐt vÏ. Ta cã thÓ chän c¸c mμu s¾ckh¸c nhau, thay ®æi c¶ bé mμu ®ang dïng th«ng qua c¸c thñ tôc thiÕt lËp mμus¾c. Ch−¬ng tr×nh trªn sÏ vÏ c¸c ®o¹n th¼ng, ®−êng trßn ... b»ng nÐt liÒnth«ng th−êng. Ta cã thÓ thay ®æi ®Ó nÐt vÏ thμnh ®−êng ®Ëm h¬n, ®−êng ®øtqu·ng, ®−êng chÊm g¹ch, chÊm chÊm ... §ã lμ kiÓu nÐt vÏ hay Line Style.Thñ tôc SetLineStyle cho phÐp thay ®æi kiÓu nÐt vÏ. Mét vÊn ®Ò kh¸c lμ t« mμu bªn trong mét ®−êng biªn ®ãng kÝn, vÝ dônh− h×nh ch÷ nhËt, h×nh trßn... Ta cã thÓ t« mμu b»ng mét mμu kh¸c v¬Ý mμu®−êng biªn (lμ mμu nÐt vÏ) vμ kh¸c víi mμu nÒn cña toμn mμn h×nh. H¬n n÷acã thÓ trang trÝ phÇn bªn trong nμy b»ng c¸c mÉu trang trÝ kh¸c nhau nh− c¸cchÊm ®iÓm r¶i ®Òu, c¸c ®−êng th¼ng song song, h×nh « l−íi... §ã lμ c¸c mÉunÒn hay FillPatern. C¸c thñ tôc SetFillPatern, SetFillStyle cho phÐp chänc¸c mÉu t« kh¸c nhau. Cã thÓ h¹n chÕ c¸c thao t¸c ®å ho¹ trong mét khung h×nh ch÷ nhËt gäilμ ViewPort. Kh¸i niÖm ViewPort cã phÇn gièng nh− Window trong chÕ ®év¨n b¶n. TÊt c¶ nh÷ng vÊn ®Ò trªn sÏ ®−îc tr×nh bμy kÜ h¬n trong phÇn m«itr−êng ®å ho¹.2. C¸c thñ tôc ®å ho¹ t ...