Asmaul Husna

Asmaul Husna

Pesan

Kebahagian itu karena adanya cinta,maka jika tanpa cinta kebahagiaan akan sirna,jika kebahagian sirna akan tampaklah kegalauan hati, karena hati pengendali raga, maka jikalau sakit hati, sakitlah semua, oleh karenanya perolehlah cinta, kemanakah mencari cinta,tak perlulah mencarinya,karena cinta ada di manapun kita berada, bukanlah kiranya mencari,tetapi perkenankanlah mendekatinya, mendekat kepada penguasa cinta,pemilik alam semesta & tentulah sang Maha Agung yg bersifat tak seperti makhluk-Nya ...

Pages - Menu

Tuesday, October 19, 2010

Membuat setting warna RGB dengan TrackBar dengan Delphi 7


1.
Buat desain form seperti di bawah ini
2.
Ada 3 objek TrackBar, 3 Label, 3 EditText dan 1 Shape







-->3. Ubah properti objek-objek tersebut
Nama objek
Properti
Nilai
Label 1
Caption
Red
Label2
Caption
Green
Label3
Caption
Blue
TrackBar1
Name
barRed
TrackBar1
Position
0
TrackBar1
Max
255
TrackBar2
Name
barGreen
TrackBar2
Position
0
TrackBar2
Max
255
TrackBar3
Name
barBlue
TrackBar3
Position
0
TrackBar3
Max
255
Edit1
Name
editRed
Edit1
Enable
False
Edit2
Name
editGreen
Edit2
Enable
False
Edit3
Name
editBlue
Edit3
Enable
False
Shape1
Brush, Color
clBlack
Shape1
Name
shapeWarna




-->

-->4. Ketik kode berikut pada bagian var di bawah Form1: TForm1;
red,green,blue:byte;

-->5. Kemudian pilih objek TrackBar1 atau barRed, pilih event OnChange pada Object Inspector


















-->Klik 2 kali pada kotak di sebelah tulisan OnChange
6.
Ketik kode berikut :
//red adalah posisi angka TrackBar1
red:=barRed.Position;
//isi dari edit1 adalah angka dari red
editRed.Text:=IntToStr(red);
//warna RGB objek shape berdasarkan red=barRed.Position
shapeWarna.Brush.Color:=RGB(red,green,blue);

-->7. Pilih objek TrackBar2 atau barGreen, pilih event OnChange pada Object Inspector
8.
Ketik kode berikut :
//green adalah posisi angka TrackBar2
green:=barGreen.Position;
//isi dari edit2 adalah angka dari green
editGreen.Text:=IntToStr(green);
//warna RGB objek shape berdasarkan green=barGreen.Position
shapeWarna.Brush.Color:=RGB(red,green,blue);
9. Pilih objek TrackBar3 atau barBlue, pilih event OnChange pada Object Inspector
10. Ketik kode berikut :
//green adalah posisi angka TrackBar2
blue:=barBlue.Position;
//isi dari edit3 adalah angka dari blue
editBlue.Text:=IntToStr(blue);
//warna RGB objek shape berdasarkan blue=barBlue.Position
shapeWarna.Brush.Color:=RGB(red,green,blue);
11. Berikut adalah listing keseluruhan
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
barRed: TTrackBar;
barGreen: TTrackBar;
barBlue: TTrackBar;
editRed: TEdit;
editGreen: TEdit;
editBlue: TEdit;
shapeWarna: TShape;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure barRedChange(Sender: TObject);
procedure barGreenChange(Sender: TObject);
procedure barBlueChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
red,green,blue:byte;
implementation
{Senin, 18 Oktober 2010, banjarbaru, Indonesia}
{$R *.dfm}
procedure TForm1.barRedChange(Sender: TObject);
begin
//red adalah posisi angka TrackBar1
red:=barRed.Position;
//isi dari edit1 adalah angka dari red
editRed.Text:=IntToStr(red);
//warna RGB objek shape berdasarkan red=barRed.Position
shapeWarna.Brush.Color:=RGB(red,green,blue);
end;
procedure TForm1.barGreenChange(Sender: TObject);
begin
//green adalah posisi angka TrackBar2
green:=barGreen.Position;
//isi dari edit2 adalah angka dari green
editGreen.Text:=IntToStr(green);
//warna RGB objek shape berdasarkan green=barGreen.Position
shapeWarna.Brush.Color:=RGB(red,green,blue);
end;
procedure TForm1.barBlueChange(Sender: TObject);
begin
//green adalah posisi angka TrackBar2
blue:=barBlue.Position;
//isi dari edit3 adalah angka dari blue
editBlue.Text:=IntToStr(blue);
//warna RGB objek shape berdasarkan blue=barBlue.Position
shapeWarna.Brush.Color:=RGB(red,green,blue);
end;
//Selamat Mencoba
end.
Huruf yang cetak tebal adalah kode yang diketik sebelumnya. Simpan dengan Save All, tekan F9 untuk menjalankan program. Unduh file di sini

0 komentar:

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Labels