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