Aku tidak iri ketika mereka menghabiskan waktu berdua.

Aku tidak iri ketika melihat mereka yang berpelukan mesra.

Aku tidak iri ketika mereka mengumbar kemesraan mereka.

Aku tidak iri ketika mereka membuat kayu bakar mereka dineraka.

Akan tetapi, kecemburuan ku membuncah  ketika melihat pasangan halal yang sedang bergandengan tangan, mata ku silau ketika melihat pasangan halal yang sedang berkendara, lidah ku kelu ketika melihat mereka berbicara dengan nada lembut, hatiku bergetar melihat mereka saling mencintai karena MU, melihat mereka membangun syurga mereka, syurga dunia dan akhirat.

Aku Ingin seperti mereka, aku ingin menjaga hatiku, aku ingin memenjarakan nafsuku, aku ingin menjernihkan pikiranku, Cukup sudah kesalahan yang ku buat di masa lalu, tak ingin ku mengulangnya lagi…..

aku ingin membangun syurgaku ya Rabb….

rizaru

1. Paket School-Net (min: 20 PC)

Harga : Rp. 5.890.000

Alat:

• 1 buah HUB 24 Port D-Link
• 1 buah Wireless Access Point  LINKSYS (Indoor Wifi)
• 1 buah Mikrotik Router
• Kabel UTP + RJ45 untuk 20 PC

Jasa:

• Instalasi jaringan PC (File Sharing /Printer Sharing)
• Instalasi Wifi Hot Spot
• Pengaturan Proxy
• Bandwith Management

1. Paket Hot Spot Café

Harga : Rp. 2.490.000

Alat :

• 1 buah Wireless Access Point  LINKSYS (Indoor Wifi)
• 1 buah Mikrotik Router

Jasa :

• Instalasi Wifi Hot Spot
• Pengaturan Proxy
• Bandwith Management

1. Paket Warnet

Harga : Rp. 3.450.000

Alat :

• 1 buah HUB 16 Port D-Link
• 1 buah Mikrotik Router
• Kabel UTP + RJ45 untuk 10 PC

Jasa :

• Instalasi Wifi Hot Spot
• Pengaturan Proxy
• Bandwith Management

Kami juga menjual PC untuk warnet, silahkan Hubungi Kami untuk Info lebih lanjut

1. Paket WAN (Wide Area Network)

Harga : CALL US

Alat :

• CALL US

Jasa :

• Instalasi WAN
• Pengaturan Proxy
• Bandwith Management

dari sawah turun ke kali

dari mana daangnya cinta

dari mata turun ke hati

Sebait pantun tersebut sudah sejak lama sudah dikenal. Sebuah bait yang menggambarkan bagamaina proses munculnya cinta. Dari sebuah pandangan mata kemudian memunculkan perasaan di hati. Mungkin karena berawal dari pandangan, maka muncullah istilah cinta pada pandangan pertama.

Kenapa harus ada kata “jatuh” sebelum kata “cinta”? Padahal dua kata itu sangat berlawanan maknanya. Kata “jatuh” beraura negatif. Siapa pun yang terjatuh pasti akan terluka atau merasakan rasa sakit. Sementara kata “cinta”, beraura positif. Siapa pun yang merasakannya pasti akan bahagia.

Kanapa kata “jatuh” dan “cinta” itu digabung? Apa mungkin untuk menggambarkan dua perasaan yang saling betolak belakang? Jika cinta seseorang berbalas cinta pula dari orang yang dicintainya, maka kisahnya akan berujung sebuah kebahagiaan. Namun sebaliknya, jika cinta seseorang bertepuk sebelah tangan, maka kisahnya mungkin berujung sebuah kesedihan yang mungkin akan berlanjut kisah pejuang cinta dengan semangat bahwa cinta harus diperjuangkan atau dengan kisah keikhlasan melepas sang pujaan dengan alasan bahwa cinta tak harus memiliki.

Kembali ke bagian awal, bahwa cinta itu berawal dari pandangan mata, maka biasanya, yang menyebabkan jatuh cinta adalah segala sesuatu yang bisa dirasakan secara fisik semisal ketampanan atau kecantikan, kecocokan sifat, dan sebagainya. Namun sudah menjadi sunnatullah bahwa segala sesuatu di dalam hidup ini pasti berubah-ubah. Maka penyebab jatuh cinta yang berupa fisik itu pastinya akan berubah pula. Yang cantik dan tampan, lambat laun akan hilang. sifat dan sikap pun mungkin akan berubah secara perlahan mengikuti situasi dan kondisi. Karenya mungkin jatuh cinta akan jauh lebih mudah daripada mempertahankannya.

Membangkitkan cinta mungkin kebalikan dari jatuh cinta. Jika jatuh cinta penyebabnya dari luar diri seseorang berupa apa yang dilihat atau dirasakan, maka membangkitkan cinta bersumber dari dalam diri seseorang tanpa terpengaruh apa yang dilihat dan apa yang dirasakan. Tak kan jatuh cinta seseorang yang tak menemukan keindahan dan merasakan keindahan. Sedangkan seseorang yang membangkitkan cinta akan selalu menemukan bahwa apa yang dilihatnya, apa yang dirasakannya adalah keindahan dan kebaikan. Jika tidak, dia akan berusaha untuk menjadikannya indah dan baik dengan cara yang indah dan baik pula.

Seandainya kita sudah bisa membangkitkan cinta, mungkin kita kan mudah untuk mengamalkan bait-bait ini …

aku mencintaimu, maka kau menjadi cantik

tak perlu lagi aku melirik

apalagi membidik

bila ada yang datang pun pasti kutampik

karena tak ada lagi ruang berbilik

di hatiku dan di waktuku yang terus berdetik

aku mencintaimu, maka kau terlihat anggun

membuatku selalu tertegun

menatapmu laksana tersiram embun

yang terkumpul dari ujung-ujung dedaun

pergi sudah gelisahku ke ilalang rimbun

yang tinggal hanya kebahagiaan menahun

aku mencintaimu, maka kau berparas jelita

tanpa perlu ada mahkota

tanpa perlu gaun para putri raja

tanpa perlu riasan pipi merona

karena apa yang kau punya

menenggelamkan segalanya

tak ingin aku mencintaimu karena kau cantik

karena sang waktu akan membuatmu menarik

tak ingin aku mencintaimu karena kau anggun

karena aku tak bisa menikmatinya lagi ketika mataku rabun

tak ingin aku mencintaimu karena kau berparas jelita

karena perjalanan masa kan segera memudarkannya

****

karena aku mencintaimu, maka kau menjadi tampan

tak perlu aku mengalihkan pandangan

apa lagi mengharap datangnya seorang pangeran

bila ada yang datang pun pasti kusingkirkan

karena tak ada lagi ruang yang tersisakan

di hatiku dan di waktuku yang terus berjalan

karena aku mencintaimu, maka kau terlihat sempurna

tanpa perlu kau mengenakan pakaian kebesaran raja

tanpa perlu kau bertahta di singgasana

tanpa perlu kau tinggal di istana

karena apa yang kau punya

ibarat dunia seisinya

karena aku mencntaimu, maka kau terlihat gagah

membuatku selalu terperangah

pandanganku seolah tak ingin berkedip atau pun pindah arah

hilang semua gundah gelisah

tersingkir jauh oleh air bah

bersamamu segalanya menjadi indah

tak ingin aku mencintaimu karena kau tampan

karena sang waktu akan membuatmu tak lagi rupawan

tak ingin aku mencintaimu karena kau sempurna

karena kesempurnaan bukanlah milik manusia

tak ingin aku mencintaimu karena kau gagah

karena perjalanan masa kan segera membuatnya punah

Yang ternyata sulit, tapi bukanlah mustahil…..

1. Buka aplikasi Flash anda,(Macromedia Flash atau Adobe Flash
2. Buatlah sebuah teks

1. Klik Modify –> Convert to symbol (tekan F8), pilih Movie Clip, Symbol Name : Teks

1. Klik Window –> Properties –> Filter (atau cara singkatnya pilih tab Filter,biasanya disebelah tab Properties)

1. Klik tanda + pada tab filter, pilih Blur. Jika tanda + tidak aktif maka pastika objek “Teks” terseleski terlebih dahulu. Atur nilai X = 100 dan Nilai Y = 0,pastikan tanda Gembok dalam keadaan tidak terkunci!

1. Insert Key Frame pada Frame 10 kemudian atur nilai Blur X=0 dan Blur Y=0
2. Test Movie (Ctrl+Enter)!!!
3. Modifikasi sesuai selera…… ini hanya sebuah metode, pengembangannya tergantung anda…

Tutorial dalam bentum dokumen dan File contoh dapat di download disini

Selamat mencoba…..!!!

please give a feed back!

Thanks….

pencarian pun dilanjutkan esok hari…
karena gak berhasil dengan bahasa indonesia akhirnya coba pake keyword english…
eh ketemu….

caranya gampang banget ternyata… tinggal tekan tombol power lebih lama dari biasanya….
jika gak berhasil juga kombinasikan dengan tombol yang mungkin
seperti power+menu atau power+enter.. nekannya agak lama sekitar 10 detik…
InsyaALLAH berhasil..

1. Download tools ActiveXperts SMS and Pager Toolkit dari http://www.activexperts.com.
2. Saya menggunakan ActiveXperts SMS and Pager Toolkit versi 4
3. Pastikan anda telah memiliki file ASmsCtrl.dll.
4. Register file tersebut dengan menggunakan command prompt. Dengan menggunakan perintah regsvr32 direktorikefile/ ASmsCtrl.dll.
5. Install componen ActiveXperts SMS and Pager Toolkit di delphi dengan cara. Buka aplikasi delphi,
   • pilih menu project,
   • klik Import Type Library,
   • Klik Add,
   • pilih file ASmsCtrl.dll,
   • klik install,
   • kemudian akan muncul project ‘dclusr.dpk’ klik yes.
6. Pilih komponen Timer yang terdapat pada Pallete System. Pilih komponen Combobox pada pallete standard, pilih 2 buah komponen button, pilih komponen edit, dan terakhir pilih komponen label secukupnya untuk memberi keterangan pada tiap komponen.
7. Pilih semua komponen diatas, susun sesuai selera anda, caption pada Button1 ganti denga Enable, sedangkan pada button2 ganti dengan Disable, kemudian letakkan button2 diatas button1.
8. Klik 2 kali form yang akan kita jadikan form utama.
9. Pada bagian private ketikkan perintah berikut
   private
   objGsmIn:IGsmIn; //membuat object baru untuk pembacaan SMS masuk
   objConstants : ISmsConstants;
   objGsmOut:IGsmOut; //membuat object baru untuk pengiriman SMS
10. Pada Procedure Tform2.FormCreate(Sender: TObject); ketikkan perintah sehingga lengkapnya seperti berikut
    procedure TForm2.FormCreate(Sender: TObject);
    var i:integer;
    begin
    Timer1.Enabled:=False;
    Button2.Visible:=False;
    objGsmIn := TGsmIn.Create(Application).DefaultInterface;
    objConstants := TSmsConstants.Create(Application).DefaultInterface;
    objGsmOut:=TGsmOut.Create(Application).DefaultInterface;
    for i:=1 to 10 do begin
    ComboBox1.Items.Add(‘COM’+IntToStr(i));
    end;
    end;
11. Klik ganda pada Button1 kemudian ketikkan program berikut :
    procedure TForm2.Button1Click(Sender: TObject);
    begin
    Timer1.Enabled:=True;
    Button2.Visible:=True;
    Button1.Visible:=False;
    end;
    12. Klik ganda pada Button2 kemudian ketikkan program berikut :
    procedure TForm2.Button2Click(Sender: TObject);
    begin
    Timer1.Enabled:=False;
    Button1.Visible:=True;
    Button2.Visible:=False;
    end;
12. Klik ganda pada Timer kemudian ketikkan listing program seperti berikut :
    procedure TForm2.Timer1Timer(Sender: TObject);
    var
    pengirim,pesan_terima:string;
    begin
    objGsmIn.Device:=ComboBox1.Text;
    objGsmIn.DeleteAfterReceive:=1;
    objGsmIn.Receive();
    if (objGsmIn.LastError=0) then begin
    Edit1.Text:=’All Message Has Been Receive’;
    objGsmIn.GetFirstMessage();
    pengirim:=objGsmIn.MessageSender;
    pesan_terima:=objGsmIn.MessageData;
    if (pesan_terima=’On’) then begin //pengecekan isi pesan
    objGsmOut.Device:=ComboBox1.Text;
    objGsmOut.MessageRecipient:=pengirim;
    objGsmOut.MessageData:=’Pesan anda teah diterima’;
    objGsmOut.Send();
    Edit1.Text:=objGsmOut.GetStatusDescription(objGsmOut.StatusCode);
    objGsmOut.Clear;
    objGsmIn.Clear;
    end else if (objGsmOut.LastError<>0) then begin
    Edit1.Text:=IntToStr(objGsmOut.LastError)+’
    ‘+objGsmOut.GetErrorDescription(objGsmOut.LastError);
    end;
    end else if (objGsmIn.LastError<>0) then begin
    Edit1.Text:=IntToStr(objGsmIn.LastError) +’ : ‘+objGsmIn.GetErrorDescription(objGsmIn.LastError);
    end;
    end;
13. Listing program secara lenkap seperti berikut
    unit Unit2;interfaceuses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls, ASmsCtrl_TLB;

    type
    TForm2 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    private
    objGsmIn:IGsmIn;
    objConstants : ISmsConstants;
    objGsmOut:IGsmOut;
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;

    implementation

    {$R *.dfm}

    procedure TForm2.FormCreate(Sender: TObject);
    var i:integer;
    begin
    Timer1.Enabled:=False;
    Button2.Visible:=False;
    objGsmIn := TGsmIn.Create(Application).DefaultInterface;
    objConstants := TSmsConstants.Create(Application).DefaultInterface;
    objGsmOut:=TGsmOut.Create(Application).DefaultInterface;
    for i:=1 to 10 do begin
    ComboBox1.Items.Add(‘COM’+IntToStr(i));
    end;
    end;

    procedure TForm2.Button1Click(Sender: TObject);
    begin
    Timer1.Enabled:=True;
    Button2.Visible:=True;
    Button1.Visible:=False;
    end;

    procedure TForm2.Button2Click(Sender: TObject);
    begin
    Timer1.Enabled:=False;
    Button1.Visible:=True;
    Button2.Visible:=False;
    end;

    procedure TForm2.Timer1Timer(Sender: TObject);
    var
    pengirim,pesan_terima:string;
    begin
    objGsmIn.Device:=ComboBox1.Text;
    objGsmIn.DeleteAfterReceive:=1;
    objGsmIn.Receive();
    if (objGsmIn.LastError=0) then begin
    Edit1.Text:=’All Message Has Been Receive’;
    objGsmIn.GetFirstMessage();
    pengirim:=objGsmIn.MessageSender;
    pesan_terima:=objGsmIn.MessageData;
    if (pesan_terima=’On’) then begin
    objGsmOut.Device:=ComboBox1.Text;
    objGsmOut.MessageRecipient:=pengirim;
    objGsmOut.MessageData:=’Pesan anda telah diterima’;
    objGsmOut.Send();
    Edit1.Text:=objGsmOut.GetStatusDescription(objGsmOut.StatusCode);
    objGsmOut.Clear;
    objGsmIn.Clear;
    end else if (objGsmOut.LastError<>0) then begin
    Edit1.Text:=IntToStr(objGsmOut.LastError)+’ : ‘+objGsmOut.GetErrorDescription(objGsmOut.LastError);
    end;
    end else if (objGsmIn.LastError<>0) then begin
    Edit1.Text:=IntToStr(objGsmIn.LastError) +’ : ‘+objGsmIn.GetErrorDescription(objGsmIn.LastError);
    end;
    end;

    end.

14. Download disni contoh aplikasinya disitu telah disertakan lib activeXpert nya hanya saja masih trial