Kamis, 2018-11-15, 3:08 PM
Coretan And-U
         Menyenangkan saat berbagi pengalaman
Welcome Guest | RSS
Site menu
Login form
Kategori CoretanKu
Pemrograman Delphi [6]
Database [1]
HP [0]
Elektro [2]
Puisi Ku [5]
Digital Imaging [0]
Kategori Download
Free File Aplikasi [5]
Free Project Downloads [5]
DOTA MAP Downloads [2]
Gratis tentunya
Kalender
Site friends
  • Bikin Web di uCoz
  • piere.dikti.net
  • piere-blog.blogspot.com
  • Main » Articles » Pemrograman Delphi

    Contoh Rectangle, Style, Color
    Contoh Rectangle, Style, Color

         Ini adalah contoh sederhana bagaimana menampilkan banyak rectangles dari berbagai macam warna, bentuk dan ukuran pada sebuah form yang di-maximized saat keadaan aktif. Yang menjadi pertanyaan pertama mungkin bagaimana menampilkan banyak rectangles dari berbagai macam warna bentuk dan ukuran??? Jawabannya tentu saja menerapkan fungsi random pada code-nya, dan TTimer component pada form tersebut. event handlers(penanganan kejadian) yang digunakan pun hanya 2, yaitu OnTimer pada TTimer dan OnActivate pada form...

         gimana?penasaran kan...   Nie Source code Komplitnya...

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

    type
      TForm1 = class(TForm)
        Timer1: TTimer;
        procedure Timer1Timer(Sender: TObject);
        procedure FormActivate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    var
      X, Y: Integer; // variabel x dan y adalah integer..

    //saat form dalam keadaan aktif maka.............
    procedure TForm1.FormActivate(Sender: TObject);
    begin
      WindowState := wsMaximized; //Ukuran form jadi maksimal
      Timer1.Interval := 50; //TTimer intervalnya jadiin 50
      Randomize; // prosedure sistem acak....
    end;

    // prosedurnya TTimer.. OnTimer...
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    // mengacak lebar layar pada variabel x 
      X := Random(Screen.Width - 10); 

    // mengacak panjang layar pada variabel y
      Y := Random(Screen.Height - 10);

      Canvas.Pen.Color := Random(65535); // sistem acak diset 65535
      case Random(5) of
        0: Canvas.Pen.Style := psSolid;
        1: Canvas.Pen.Style := psDash;
        2: Canvas.Pen.Style := psDot;
        3: Canvas.Pen.Style := psDashDot;
        4: Canvas.Pen.Style := psDashDotDot;
      end;
    // terakhir adalah nyiptain ractangle secara acak
      Canvas.Rectangle(X, Y, X + Random(400), Y + Random(400));
    end;

    end.




    saat dijalannin hasilnya liat sendiri ya... ^.^V

         HMmmm... n Buat sekedar info aja, source code diatas dapet dari iseng2 buka menu delphi help. so code-nya juga bisa di copy paste dari IDE delphi - delphi help yang ada di komputer kamu.. cari aja dari index delphi help, trus ketik rectangle.. trus pilih yang rectangle example.... Jreeenkk.. sama deh... 

    Klik disini buat download delphi project-diatas.. (rect.zip/include .exe/size 19.3 kb)
    Category: Pemrograman Delphi | Added by: ArtrashBoy (2009-06-19)
    Views: 9195 | Rating: 0.0/0 |
    Total comments: 0
    Only registered users can add comments.
    [ Registration | Login ]
    Pencarian
    Corentan Entry
    Smiley Face (8958)
    Pengulangan menggunakan "for" untuk tabel perkalian atau pertambahan (28756)
    Show or Hide Icon Desktop (11762)
    Menampilkan Nama, Bentuk dan Jumlah Font Text yg terinstal (10138)
    Contoh Rectangle, Style, Color (9194)
    Sekilas tentang OP AMP (10193)
    Tulisan Tanpa Makna "Malam PanjangKu" (10762)
    Tulisan Tanpa Makna "Me Vs Me" (8303)
    Tulisan Tanpa Makna "Forbiden Kingdom" (9031)
    Setetes pengertian Teknik Kendali (13650)
    Pengertian Database ato Basis Data (Dasar) (10231)
    Log off, shut down, restart ato reboot Pake delphi?? Bisa ko.. (9145)
    Mengolah TmediaPlayer delphi menjadi musik ato video player sederhana (64515)
    Statistics

    Total online: 1
    Guests: 1
    Users: 0
    Bookmark and Share
    Copyright © 2018, And-U Site
    Powered by uCoz