Sakit Ku Rindu

Menatap hari-hari yang ku lalui
Tentang apa yang ku rasakan
Berharap Kau Mengerti
Tentang Perasaan yang ku miliki

Terkadang Pikiran dan Hatiku
gk pernah sejalan tentang mu
Berpikir untuk pergi darimu
Berharap kau mengerti aku

Ku merindukanmu
meski kau selalu
tak peduli dengan apa yang kurasakan.
Ku merindukanmu
Meski kau selalu
tak pernah mengerti tentang perasaanku.

Ku berharap kau dapat pahami
apa yang aku ingini
tentang apa yang ku rasa.


by : B3175AN

Read More

Aku Pergi

selalu bersabar untukmu
selalu menantikanmu
kau yang ku sayang
dan kau yang ku cinta

Apa yang kamu pertahankan dari aku
apakah ini yang kamu katakan sayang

Aku ngak memaksa hatimu
untuk mengatak cinta pada ku
yang aku mau kamu
mngerti akan perasahaanku

tanda cinta yang kamu miliki
gk pernah aku rasakan
yang kurasa hanya sakit hati
yang selalu kau buat.

Biarkan aku pergi
pergi meninggalkanmu
karna kau tak menyangi aku


by : B3175AN

Read More

Aplikasi Operasi File

 

unit U_pert4;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    DriveComboBox1: TDriveComboBox;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    ColorDialog1: TColorDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

var NamaFile:String;
Atribut:Integer;
{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
NamaFile:=edit1.Text;
Atribut:=FileGetAttr(NamaFile);
if Atribut and faReadOnly = faReadOnly then
checkbox1.Checked:=true
else
checkbox1.Checked:=false;
if Atribut and faHidden=faHidden then
checkbox2.Checked:=true
else
checkbox2.Checked:=false;
if atribut and faSysFile=faSysFile then
checkbox3.Checked:=true
else
checkbox3.Checked:=false
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin

if checkbox1.Checked = true then
atribut:=atribut or faReadOnly
else
atribut:=atribut and not faReadOnly;

if checkbox2.Checked=true then
atribut:=atribut or faHidden
else
atribut:=atribut and not faHidden;

if checkbox3.Checked = true then
atribut:=atribut or faSysFile
else
atribut:=atribut and not faSysFile;
FileSetAttr(NamaFile,Atribut);
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if application.MessageBox('Apakah Anda Ingin Keluar?','Warning',36)=idyes then
close;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
colordialog1.Execute();
form3.Color:=colordialog1.Color;
end;

procedure TForm3.FileListBox1Change(Sender: TObject);
begin
BitBtn1Click(self);
end;

end.

Read More

Aplikasi Operasi Teks

 

LIST IS AS FOLLOWS :

 

unit u_pert2;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Button3: TButton;
    Button4: TButton;
    ColorDialog1: TColorDialog;
    Button5: TButton;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=uppercase(edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Text:=lowercase(edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if application.MessageBox('Apakah Anda Ingin Keluar?','Warning',36)=idyes then
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
colordialog1.Execute();
form1.Color:=colordialog1.Color;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
colordialog1.Execute();
memo1.Font.Color:=colordialog1.Color;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
memo1.font.Name:=combobox1.Text;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
memo1.Font.Size:=strtoint(combobox2.Text);
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if combobox3.Text='Merah' then
memo1.Color:=clred
else if combobox3.Text='Biru' then
     memo1.Color:=clblue
     else memo1.Color:=clgreen;
end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
if combobox4.Text='Bold' then
memo1.Font.Style:=memo1.Font.Style+[fsbold]
else if combobox4.Text='Italic' then
memo1.Font.Style:=memo1.Font.Style+[fsitalic]
else if combobox4.Text='Underline' then
memo1.Font.Style:=memo1.Font.Style+[fsunderline]
else if combobox4.Text='Strikeout' then
memo1.Font.Style:=memo1.Font.Style+[fsstrikeout]
else
memo1.Font.Style:=memo1.Font.Style-[fsbold,fsitalic,fsunderline,fsstrikeout];
end;

procedure TForm1.ComboBox5Change(Sender: TObject);
begin
if combobox5.Text='Tengah' then
memo1.Alignment:=tacenter
else if combobox5.Text='Rata Kanan' then
memo1.Alignment:=taRightJustify
else
memo1.Alignment:=taLeftJustify;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items:=screen.Fonts;
combobox1.Text:='-PILIH FONTS-';
combobox2.Text:='-PILIH SIZE-';
combobox3.Text:='-PILIH BACK COLOR-';
combobox4.Text:='-PILIH STYLE FONT-';
combobox5.Text:='-PILIH POSITION TEXT-';
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
memo1.Font.Color:=clred;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
memo1.Font.Color:=clgreen;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
memo1.Font.Color:=clyellow;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
memo1.Font.Color:=clpurple;
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
memo1.Font.Color:=clblack;
end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
memo1.Font.Color:=clblue;
end;

end.

Read More

Game Menangkap Anjing

 

unit U_pert1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, GIFImg, pngimage, u_pert2;

type
  TBENSAN = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2Click(Sender: TObject);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4Click(Sender: TObject);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure aktif;
     procedure nonaktif;
  end;

var
  BENSAN: TBENSAN;

implementation

{$R *.dfm}

procedure TBENSAN.aktif;
begin
  image1.enabled:=true;
  image2.enabled:=true;
  image3.enabled:=true;
  image4.enabled:=true;
  image5.enabled:=true;
  button2.enabled:=true;
  image1.visible:=true;
  image2.visible:=true;
  image3.visible:=true;
  image4.visible:=true;
  image5.visible:=true;
end;

procedure TBENSAN.nonaktif;
begin
  image1.enabled:=false;
  image2.enabled:=false;
  image3.enabled:=false;
  image4.enabled:=false;
  image5.enabled:=false;
  edit1.Enabled:=false;
  button2.Enabled:=false;
end;

procedure TBENSAN.Timer1Timer(Sender: TObject);
begin
nonaktif;
timer1.enabled:=false;
edit1.Text:='0';
messagedlg('maaf anda kalah',mtinformation,[mbOk],0);
end;

procedure TBENSAN.Button1Click(Sender: TObject);
begin
timer1.Interval:=10000;
timer1.Enabled:=true;
Aktif;
end;

procedure TBENSAN.Button2Click(Sender: TObject);
begin
nonaktif;
timer1.Enabled:=false;
end;

procedure TBENSAN.Button3Click(Sender: TObject);
begin
if application.MessageBox('Apakah Anda Ingin Keluar?','Pesan',36)=idyes then
close;
end;

procedure TBENSAN.Edit1Change(Sender: TObject);
begin
if edit1.Text='100' then
begin
  nonaktif;
  timer1.Enabled:=false;
  application.MessageBox('Selamat Anda Menang','Pesan',64);
  edit1.Text:='0';
end;
end;

procedure TBENSAN.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
nonaktif;
end;

procedure TBENSAN.Image1Click(Sender: TObject);
begin
image1.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TBENSAN.Image2Click(Sender: TObject);
begin
image2.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TBENSAN.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Left:=random(left);
image1.Top:=random(top);
end;

procedure TBENSAN.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image2.Left:=random(left);
image2.Top:=random(top);
end;

procedure TBENSAN.Image3Click(Sender: TObject);
begin
image3.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TBENSAN.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image3.Left:=random(left);
image3.Top:=random(top);
end;

procedure TBENSAN.Image4Click(Sender: TObject);
begin
image4.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);

end;

procedure TBENSAN.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image4.Left:=random(left);
image4.Top:=random(top);
end;

procedure TBENSAN.Image5Click(Sender: TObject);
begin
image5.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TBENSAN.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image5.Left:=random(left);
image5.Top:=random(top);
end;

end.

Read More

Untuk Segala Sesuatu Ada Waktunya

      Untuk segala sesuatu ada masanya, untuk apapun di bawah langit ada waktunya.  

1. Ada waktu untuk lahir, ada waktu untuk meninggal, ada waktu untuk menanam, ada waktu untuk mencabut yang ditanam;
2. ada waktu untuk membunuh, ada waktu untuk menyembuhkan; ada waktu untuk merombak, ada waktu untuk membangun;
3. ada waktu untuk menangis, ada waktu untuk tertawa; ada waktu untuk meratap; ada waktu untuk menari;
4. ada waktu untuk membuang batu, ada waktu untuk mengumpulkan batu; ada waktu untuk memeluk, ada waktu untuk menahan diri dari memeluk;
5. ada waktu untuk mencari, ada waktu untuk membiarkan rugi; ada waktu untuk menyimpan, ada waktu untuk membuang;
6. ada waktu untuk merobek, ada waktu untuk menjahit; ada waktu untuk berdiam diri, ada waktu untuk berbicara;
7. ada waktu untuk mengasihi, ada waktu untuk membenci; ada waktu untuk perang, ada waktu untuk damai.
8. Apakah untung pekerja dari yang dikerjakannya dengan berjerih payah?   

Read More

Segala sesuatu sia-sia

Inilah perkataan Pengkhotbah, anak Daud, raja di Yerusalem.
        Kesia-siaan belaka, kata Pengkhotbah, kesia-siaan belaka, segala sesuatu adalah sia-sia. Apakah gunanya manusia berusaha dengan jerih payah di bawah matahari? Keturunan yang satu pergi dan keturunan yang lain datang, tetapi bumi tetap ada. Matahari terbit, matahari terbenam, lalu terburu-buru menuju tempat ia terbit kembali.

       Angin bertiup ke selatan, lalu berputar ke utara, terus-menerus ia berputar, dan dalam putarannya angin itu kembali. Segala sesuatu menjemukan, sehingga tak terkatakan oleh manusia; mata tidak kenyang melihat, telinga tidak puas mendengar. Apa yang pernah ada akan ada lagi, dan apa yang pernah dibuat akan dibuat lagi; tak ada sesuatu yang baru di bawah matahari. 

      Adakah sesuatu yang dapat dikatakan: "Lihatlah, ini baru!"? Tetapi itu sudah ada dulu, lama sebelum kita ada. Kenang-kenangan dari masa lampau tidak ada, dan dari masa depan yang masih akan datangpun tidak akan ada kenang-kenangan pada mereka yang hidup sesudahnya. Semua sungai mengalir ke laut, tetapi laut tidak juga menjadi penuh; ke mana sungai mengalir, ke situ sungai mengalir selalu.

 

Read More

Pengejaran hikmat adalah sia-sia

       Aku, Pengkhotbah, adalah raja atas Israel di Yerusalem.

      Aku membulatkan hatiku untuk memeriksa dan menyelidiki dengan hikmat segala yang terjadi di bawah langit. Itu pekerjaan yang menyusahkan yang diberikan Allah kepada anak-anak manusia untuk melelahkan diri.


     Aku telah melihat segala perbuatan yang dilakukan orang di bawah matahari, tetapi lihatlah, segala sesuatu adalah kesia-siaan dan usaha menjaring angin.

     Yang bongkok tak dapat diluruskan, dan yang tidak ada tak dapat dihitung.

      Aku berkata dalam hati: "Lihatlah, aku telah memperbesar dan menambah hikmat lebih dari pada semua orang yang memerintah atas Yerusalem sebelum aku, dan hatiku telah memperoleh banyak hikmat dan pengetahuan."

     Aku telah membulatkan hatiku untuk memahami hikmat dan pengetahuan, kebodohan dan kebebalan. Tetapi aku menyadari bahwa hal inipun adalah usaha menjaring angin,

      karena di dalam banyak hikmat ada banyak susah hati, dan siapa memperbanyak pengetahuan, memperbanyak kesedihan.  

Read More

Sayangku

Entah sampai kapan ku bisa bertahan
Menjaga kasih sayangku terhadapmu
Memendam rasa sakit
Karena kau bukan milikku
Ku tahu ku taq sempurna
Taq seperti yg kau minta

Aku telah berusaha jadi yg terbaik untukmu
Tapi apalah arti usahaku
Jika masa lalumu masih kau kenang
Yg kini menjadi penghalang
Hingga ku sulit masuk kedalam hatimu

Salahkah aku menyayangimu .?
Salahkah aku berharap memiliki hatimu .?
Semua perasaan ini tercipta untukmu
Hanya ingin dibalas dengan sebuah senyuman
Secuil perhatian, dan beribu pengertian

Munkinkah ku harus melupakanmu
Membuang harapan untuk memilikimu
Membuang semua rasa untukmu
Sepertinya ku taq mampu
Aku ingin bisa melihatmu bahagia
Menghapus setiap kesedihanmu
Melihat senyum termanis darimu

Karena arti menyayangimu adalah
Aku bahagia jika melihatmu bahagia
Meskipun tidak bersamaku
Walaupun sebenarnya
Hatiku menahan sakit karna taq bisa memilikimu

Sampai saatnya kamu mengerti
Aku menyayangimu selalu
Hingga saatnya kamu sadari
Sayangku hanya untukmu
  Mengertilah sayang

Read More

Lyla Ku Ben

Lyla naga

lyla naga

lyla naga

lyla naga

Read More

The Bards13

Video ini adalah kenangan diwaktu masa SMA
yang lucu n so cool..

klik disini untuk download.

Read More

Video Narsisss Abissss

Untuk download klik "Narsisss"

Read More

Aksi Video Lucu Cehin

Untuk download klik disini "cehin"

Read More

Aksi Video Lucu Okta

Okta

Untuk download klik disini "goyangan lucu"

Read More

Cheat Engine 60

Cheat Engine 60 adalah suatu software yang berfungsi untuk mengecheat jumlah uang yang ada pada game tersebut.
klik Download untuk mengunduh software ini.

Read More

Melankolis

Definisi 'melankolis' 

adjective

1. dl keadaan pembawaan lamban, pendiam, murung, sayu; sedih; muram: raut wajahnya yg -- itu membuat orang iba kepadanya

Read More