Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!cs.utexas.edu!usc!ucsd!ames!haven!adm!news
From: OEYO8722%TREARN.BITNET@vm1.nodak.edu ( Hur AKDULGER)
Newsgroups: comp.lang.pascal
Subject: (none)
Message-ID: <24062@adm.BRL.MIL>
Date: 5 Aug 90 19:45:59 GMT
Sender: news@adm.BRL.MIL
Lines: 69



!> merhaba,
!>  benim sorunum tp55 in grafikleri ile ilgili. turbo pascal 55 kitabindan
!> aynen gecirdigim bir grafik program calismiyor ve su mesaji veriyor,
!>     BGI ERROR:GRAPHICS ARE NOT INITILAZIED(USE INITGRAPH)

Sevgili Cem,
karsilastigin sorunu cozdun mu bilmiyorum, fakat genede birseyler
soyleyerek sana azda olsa yardim edeyim.

1. Karsilastigin genellikle ilk defa grafik programi yazan (TurboC ve TPascal)
   her programcinin basina gelmistir. Don't worry I'll help you!

2. Simdi gelelim dersimize;
   Turbo Pascal Ver 4.0 ve daha buyuk versionlar icin graphic fonksiyonlari
   ve graphic procedure'larini (routines) kullanmak icin once Graphic Device'in
   initialize edilmesi gereklidir. Boylece bilgisayarina hangi device'ta
   calisacagini bildirmis olursun.

3. Simdi asagidaki program parcasi sana harikalar yaratacak ! *:-))

Uses Graph;

Var
   Gdrv, Gmod : Integer;
   X, Y, I    : Word;

Begin
  Gdrv := 9;    (* Veya VGA'de diyebilirsin, CONST tanimlidir kendisi *)
  Gmod := 2;    (* 640x480 pixel 16 renklik ekran saglar              *)
  InitGraph(Gdrv,Gmod,'');
  If Graphresult <> 0 Then Halt(1);                (* Device VGA degilse cik *)
  Rectangle(0,0,GetmaxX,GetmaxY);              (* Kocaman bir dikdortgen ciz *)
                                           (* Daha buyugunu cizemezsin zaten *)
  X := Trunc(GetmaxX / 2);
  Y := Trunc(GetmaxY / 2);
  Repeat
    Repeat
      I:= 10;                                                (* I'ye 10 tasi *)
      Setcolor(Random(16)+1);                 (* Dairenin rengi random olsun *)
      Circle(X,Y,I);           (* Ekranin ortasina I yaricapli daire cizelim *)
      I := I + 10;                   (* I'yi 10 artir, sonucu I'ye tasi -))  *)
    Until I > Y - 10;                  (* Ic ice renkli daireler cizsin diye *)
  Until Keypressed;
  CloseGraph;                     (* Ben genellikle bunu koyarim, sende koy! *)
End.                                                      (* Programin sonu  *)

4. Senin ne kadar programlama bildigini bilmedigim icin cok az biliyorsun kabul
   edip cok basit anlattim. Ukalalik ettigimi sanma lutfen.
   Simdi 'Gdrv' degiskeni hangi GraphicDriver'i kullanacagini belirtir.
   Ben (9) <VGA> verdim cunku okuildaki makinalarda (Best'ler) VGA karti var.
   Daha farkli Driverlar icin Graph Unit'in help'ini oku (CGA,EGA etc.)
   Pardon birde DETECT var; eger
   Gdrv := DETECT (* veya Gdrv := 0*)
   dersen Turbo Pascal install edilmis olan Graphic Device'i otomatik secer.

5. Gmod degiskini ise hangi mod'da calisacagini belirtir.
   (* tekrar help'i oku diyorum... cunku gec oldu eve gitmeliyim -))   *)

NOT: Uzun sureden beri PASCAL-L'den birsey gelmiyordu, boyle bir liste
     oldugunu bile unutmustum. Sadece sorunlariniza yazmak zorunda degilsiniz.
     Yazacaginiz programlar hakkinda da tartisabiliriz.

Cem'e NOT : Program copyright'lidir. Herkese veremezsin -))
            Baska sorun cikarsa (veya program calismazsa cunku kafadan yazdim)
            OEYO8722, OPRJ17 veya PROHVK35 makinalarina mail yollayabilirsin.

Hur Akdulger - OEYO8722, OPRJ17, PROHVK35 at TREARN