Cara Memaksimalkan Windows 7

Untuk memaksimalkan kinerja Windows 7 anda,

Membuat Button Ubah Warna

Untuk membuat button Ubah warna.Dengan itu kita bisa mengubah Font yang kita tuliskan pada komponen Edit atu label agar berubah menjadi warna yang kita inginkan.Caranya pertama kita ambil komponen button satu pada menu kemudian kita ganti Captionnya menjadi UBAH WARNA dan Namenya menjadi Btnubah.Jika sudah kita klik dua kali pada button tersebut dan kita masukkan source codenya seperti dibawah ini:

Membuat button CLOSE pada delphi7

Untuk membuat button Close pada delphi kita pertama memilih button satu kemudian kita gantiCaption dan Namanya.Misal Captionnya CLOSE dan Namenya Btnclose.Kalau sudah langsung kita masukkan source code sepert ini:

procedure TFLuasLingkaran.BtntutupClick(Sender: TObject);
begin
if(Application.MessageBox(‘Apakah Anda Yakin Ingin Mengakhiri Program Ini?’,’CLOSE’,MB_YesNo)=ID_Yes)then
begin
Application.Terminate;
end;
end;

Silahkan dicoba ya gan,semoga bermanfaat .Jangan lupa like dan comentnya 😀

KISAH SAFINAH (SAHABAT RASULULULLAH SAW) DAN SEEKOR SINGA

Asalamuallaikum wr wb.

(Kutipan Taushiyah Habib Muhammad bin Husein bin Ahmad Alhabsyi yang diterjemahkan oleh Habib Jindan bin Novel bin Salim, di Majelis Kwitang)

“Manakala menjalin hubungan yang erat, punya hubungan yang erat, punya koneksi yang kuat dengan orang-orang yang mulia dengan nabi Muhammad Shallallahu ‘Alaihi wa alihi washahbihi wasallam maka niscaya pasti dia selamat.

Hukum bagi orang yang meninggalkan sholat

Ketahuilah Bahwa yang termasuk dosa yang besar, yang termasuk dikatakan mungkar, dan perbuatan yang diharakam Allah SWT adalah meninggalkan ibadah sholat yang lima waktu yang telah diwajibkan oleh Allah SWT dengan sengaja.

Nabi Muhammad SAW berkata : Siapa orang yang meninggalkan sholat dengan sengaja aku tidak bertanggung jawab atasnya. ( Dari Abi Darda’ Ra diriwaatkan Ibnu Majah dan Baihaqi ).

Allah SWT sangat tidak suka dan murka kepada seseorang hambanya yang meninggalkan sholat
Nabi Muhammad SAW berkata : Siapa orang yang meninggalkan sholat dengan sengaja dia akan bertemu dengan Allah, Allah SWT dalam keadaan murka kepadanya
( Diriwayatkan At Thobroni dan sanadnya Hasan ).

Meperbanyak Istighfar

Salah satu ibadah yang sangat dianjurkan Allah SWT Istighfar, artinya minta ampun kepadanya dari semua dosa baik kecil atau pun besar dengan harapan semua dosa dan kesalahan kita diampunin Allah yang maha kuasa.
Dengan mengakui semua kesalahan kirta kepada yang menciptakn langit dan bumi beserta isinya, memperbanyak Istghfar perintah Allah
Allah SWT berfirman : Dan mohonlah ampunan kepada Allah sesungguhnya Allah Maha Pengampun lagi Maha Penyayang.( Al Muzzammil 20 )

Allah SWT juga berfirman kepada Rosulnya : Dan mohonlah ampunan bagi dosamu dan bagi (dosa) orang-orang mukmin, laki-laki dan perempuan ( Muhammad 19 )

Menyambung Silaturrahmi

Alhamudulillah atas nikmat yang diberikan Allah SWT kepada kita yang hingga pada saat ini umur kita masih dipanjangkan oleh Allah SWT
Hamba-hamba Allah Yang mencintai Sang Kholik mari bersama kita selalu menyambung silaturrahmi karena itu sangat penting dan sangat dianjurkan Allah dan Rosulnya.

Allah SWT berkata : Dan berikanlah kepada keluarga-keluarga yang dekat akan haknya ( Al Israa’ 26 )
Allah SWT memuji orang yang mengikutin perintahnya untuk salingmenyambung satu sama lain

Dalam Ayatnya yang mulia Allah SWT Berkata :
Dan orang-orang yang menghubungkan apa-apa yang Allah perintahkan supaya dihubungkan, dan mereka takut kepada Tuhannya dan takut kepada hisab yang buruk. ( Ar Ra’d 21 )
Arti ayat Allah diatas yang dikatakan menghubungkan adalah silaturrahmi, jangan sampai kita melalaikan perintah yang mulia ini dari tuhan kita, banyak sekali dizaman sekarang orang-orang hanya mementingkan dirinya sendiri tidak ingat perintah Allah, tidak meperhatikan ayat Allah, sampai mereka melupakan ukhuwah islamiyah, Allah SWT sangat membenci orang–orang yang memutuskan silaturrahmi dan ancaman Allah bagi orang yang memutuskannya sangat pedih sekali dan meraka orang-orang yang dilaknat Allah SWT

TAWAKAL kepada ALLAH SWT

Seperti kita ketahui bersama wahai ummah Muhammadiyah didalam kehidupan kita penuh dengan ujian dan cobaan dari Allah ta’la, dan kita sebagai manusia harus siap menerima apapun keputusan Allah didalam perjalanan hidup kita, kita harus tawakkal dan berserah diri penuh kepadanya

Allah SWT berfirman : Sebab itu bertawakkalah kepada Allah, sesungguhnya kamu berada di atas kebenaran yang nyata ( An Naml 79 )

Kita bisa fahami dari ayat yang mulia diatas Allah SWT memerintahkan kepada kita untuk selalu bertawakkal kepada semua keputusannya, karena semua keputusan Allah adalah benar, nyata, dan mempunyai hikmah dibalik itu, dan Allah sangat menyukai orang-orang yang bertawakkal, seperti dalam firman nya

Alhabib Muhammad bin Taufiq bin Muhammad bin Syekh bin Muhammad bin Syekh bin Abdulloh bin Husein bin Abdulloh bin Husein

Alhabib Muhammad Syahab

 

Beliau seorang da’i Ilalloh yang telah mewaqafkan dirinya untuk membina dan mendidik umat untuk bertaqwa kepada Allah SWT dan mencintai Rasul-Nya Sayyidina Muhammad SAW. Atas maksud tersebut beliau mendirikan dan membina Majelis Taklim wat Tadzkir Al Anwar.

Alhabib Muhammad bin Taufiq bin Muhammad bin Syek

PROGRAM MENGHITUNG LUAS LINGKARAN DELPHI7

Untuk membuat program ini kita gunakan komponen 3 label 3 edit dan 1 button .

Berikut source codenya :

procedure TFLuasLingkaran.BtnhitungClick(Sender: TObject);
var x,d,y:integer;
var luas,r:real;
begin
{ // d:=StrToInt(Eddiam.Text);
//begin
//r:= d/2
//luas:=22/7*r*r;

//end;
//begin
r:=StrToInt(Edjari.Text);
if(r mod 7 = 0) then
begin
luas:=22/7*r*r;
end
else
begin
luas:=3.14*r*r;
end;
Edluas.Text:=FloatToStr(luas);
end; }
{ if (Edjari.Text=”) and (Eddiameter.Text=”) then
begin
showmessage(‘Masukkan Diameter atau Jari-Jari’);
{if ( Application.MessageBox(‘Masukkan Jari-Jari atau Diameter !’,’Luas Lingkaran’,MB_YesNo)=ID_Yes) then
begin
Create
end }
If Edjari.Text=” then
Begin
y:=Ceil(StrToFloat(Eddiameter.text));
r:=y/2;
If (y mod 7)=0 then
Begin
Luas:=(y*y*22/7/4);
end