PANDUAN MID GRAFIKA

1. Buka Delphi 7 yang telah terinstall di komputer anda.



2. klik form, pada menu properties anda ubah Height=480 dan Width=800
3. masukkan 4 Button (bagian atas program pilih standard dan pilih tool yang bertuliskan "OK") dengan caption masing-masing button (layer properties, caption)  "Layar bagi 8", "Bintang", "Bersih", "Exit"
4. double klik button "Exit" dan isikan coding "Close;" (tanpa tanda kutip)
5. double klik button "Bersih" dan isikan coding "Form1.Refresh; " (tanpa tanda kutip)
6. double klik button "Layar bagi 8" dan isikan coding berikut:

          canvas.MoveTo(400,0);
          canvas.LineTo(400,480);

          canvas.MoveTo(0,240);
          canvas.LineTo(800,240);

          canvas.MoveTo(200,0);
          canvas.LineTo(200,480);

          canvas.MoveTo(0,120);
          canvas.LineTo(800,120);

         canvas.MoveTo(600,0);
         canvas.LineTo(600,480);

         canvas.MoveTo(0,360);
         canvas.LineTo(800,360);
  
         penjelasan coding:
         canvas.MoveTo = menyatakan coding untuk titik awal membuat garis (Line) 
         canvas.LineTo = menyatakan coding untuk titik tujuan membuat garis (Line) 
         (400,0) = (x,y) = besar titik koordinat untuk meletakkan suatu titik awal maupun akhir
          perhatikan gambar berikut

          
     7.  double klik button "Bintang"
     8.  sebelum "begin", isikan coding berikut:
           var titik : array[0..5]of tpoint;
     9.  setelah "begin" isikan coding berikut:
          titik[0] := point(500,120);
          titik[1] := point(400,240);
          titik[2] := point(600,160);
         titik[3] := point(400,160);
         titik[4] := point(600,240);
         titik[5] := point(500,120);

         canvas.Pen.Color:=clWhite;
 
         canvas.Polyline(titik);

         canvas.Brush.Color:=clYellow ;
         canvas.FloodFill(500,170,canvas.Pixels[500,170],fssurface);

         canvas.Brush.Color:=clRed ;
         canvas.FloodFill(500,130,canvas.Pixels[500,130],fssurface);

         keterangan :
         untuk menentukan titik pewarnaan, letakkan titik koordinat tersebut di tengah-tengah kotak yang
         akan diberi warna
    10. semoga berhasil

Download project