Listing Program Modifikasi Threeleaf Bentuk Kupu-Kupu (menggunakan delphi)

Bentuk Kupu-Kupu Terbalik

procedure TForm1.hreeleaf1Click(Sender: TObject);
var r,d,c,x,y,theta,thetf: real;
a,xc,yc:integer;
begin
 a:=100;xc:=300;yc:=200;
thetf:=0.0;
d:=25*PI;
theta:=d;
c:=1/a;
while (thetf<theta) do
begin
r:=a*sin(8*thetf)*cos(thetf);
x:=r*cos(thetf);
y:=-r*sin(thetf);
canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clpurple;
thetf:=thetf+c;
end;
end;
end.

                                                           Bentuk Kupu-Kupu Kecil

procedure TForm1.hreeleaf1Click(Sender: TObject);

var r,d,c,x,y,theta,thetf: real;

a,xc,yc:integer;

begin

 a:=100;xc:=300;yc:=200;

thetf:=0.0;

d:=25*PI;

theta:=d;

c:=1/a;

while (thetf<theta) do

begin

r:=a*sin(8*thetf)*cos(thetf);

x:=r*cos(thetf);

y:=r*sin(thetf);

canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clpurple;

thetf:=thetf+c;

end;

end;

end.

                                                            Bentuk Kupu-Kupu Besar

procedure TForm1.hreeleaf1Click(Sender: TObject);

var r,d,c,x,y,theta,thetf: real;

a,xc,yc:integer;

begin

 a:=300;xc:=300;yc:=200;

thetf:=0.0;

d:=25*PI;

theta:=d;

c:=1/a;

while (thetf<theta) do

begin

r:=a*sin(8*thetf)*cos(thetf);

x:=r*cos(thetf);

y:=r*sin(thetf);

canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clpurple;

thetf:=thetf+c;

end;

end;

end.

Read More

Ilmu Pengetahuan & Kebodohan (3)

1. Barangsiapa dimintai fatwa sedang dia tidak mengerti maka dosanya adalah atas orang yang memberi fatwa. (HR. Ahmad)
2. Orang yang paling pedih siksaannya pada hari kiamat ialah seorang alim yang Allah menjadikan ilmunya tidak bermanfaat. (HR. Al Baihaqi)
3. Apabila kamu melihat seorang ulama bergaul erat dengan penguasa maka ketahuilah bahwa dia adalah pencuri. (HR. Adailami)
4. Seorang ulama yang tanpa amalan seperti lampu membakar dirinya sendiri (berarti amal perbuatan harus sesuai dengan ajaran-ajarannya). (HR. Adailami)
5. Termasuk mengagugkan Allah ialah menghormati (memuliakan) ilmu, para ulama, orang tua yang muslim dan para pengemban Al-Qur'an dan ahlinya(1), serta penguasa yang adil. (HR. Abu Dawud dan Aththusi) 
6. Sesungguhnya Allah tidak menahan ilmu dari manusia dengan cara merenggut tetapi dengan mewafatkan para ulama sehingga tidak lagi tersisa seorang alim. Dengan demikian orang-orang mengangkat pemimpin-pemimpin yang dungu lalu ditanya dan dia memberi fatwa tanpa ilmu pengetahuan. Mereka sesat dan menyesatkan. (HR. Mutafaq 'alaih)
7. Sedikit ilmu lebih baik dari banyak ibadah. Cukup bagi seorang pengetahuan fiqihnya jika dia mampu beribadah kepada Allah (dengan baik) dan cukup bodoh bila seorang merasa bangga (ujub) dengan pendapatnya sendiri. (HR. Athabrani)
8. Maafkanlah dosa orang yang  murah hati, kekeliruan seorang ulama dan tindakan seorang penguasa yang adil. Sesungguhnya Allah Ta'ala membimbing mereka apabila ada yang tergelincir. (HR. Al Bukhari fii Al Adaab)
9. Saling berlakulah jujur dalam ilmu dan jangan saling merahasiakannya. Sesungguhnya berkhianat dalam ilmu pengetahuan lebih berat hukumannya daripada berkhianat dalam harta. (HR. Abu Na'im)

(1) Pengemban Al-qur'an dan ahlinya termasuk pembaca, penghafal, ahli tafsir, dan penegak ajaran al-qur'an.

Sumber : 1100 Hadist Terpilih (Dr. Muhammad Faiz Almath) 

Read More

Ilmu Pengetahuan & Kebodohan (2)

1. Kelebihan seorang alim (ilmuwan) terhadap seorang 'abid (ahli ibadah) ibarat bulan purnama terhadap seluruh bintang. (HR. Abu Dawud)
2. Barangsiapa merintis jalan mecari ilmu maka Allah akan memudahkan baginya jalan ke surga. (HR. Muslim)
3. Duduk bersama para ulama adalah ibadah. (HR. Adailami)
4. Apabila kamu melewati taman-taman surga, minumlah hingga puas. Para sahabat bertanya, "Ya Rasulullah, apa yang dimaksud taman-taman surga itu?" Nabi Saw menjawab, "Majelis-majelis taklim." (HR. Athabrani)
5. Apabila muncul bid'ah -bid'ah di tengah-tengah umatku wajib atas seorang 'alim menyebarkan ilmunya (yang benar). Kalau dia tidak melakukannya maka baginya laknat Allah, para malaikat dan seluruh manusia. Tidak akan diterima sodaqohnya dan kebaikan amalannya. (HR. Ar-rabii)
6. Barangsiapa ditanya tentang suatu ilmu lalu dirahasiakannya maka dia akan datang pada hari kiamat dengan kendali (dimulutnya) dari api neraka. (HR. Abu Dawud)
7. Seorang alim apabila menghendaki dengan ilmunya keridhoan Allah maka dia akan ditakuti oleh segalanya, dan jika dia bermaksud untuk menumpuk harta maka dia akan takut dari segala sesuatu. (HR. Adailami)
8. Yang aku takuti terhadap umatku ialah pemimpin-pemimpin yang menyesatkan. (HR. Abu Dawud)
9. Yang aku takuti terhadap umatku ada tiga perbuatan, yaitu kesalahan seorang ulama, hukum yang zalim, dan hawa nafsu yang diperturutkan. (HR. Asysyihaab)
10. Celaka atas umatku dari ulama yang buruk. (HR. Al Hakim) 

Sumber : 1100 Hadist Terpilih (Dr. Muhammad Faiz Almath)

Read More

Ilmu Pengetahuan & Kebodohan (1)

1. Tuntutlah ilmu, sesungguhnya menuntut ilmu adalah pendekatan diri kepada Allah Azza wajalla, dan mengajarkannya kepada orang yang tidak mengetahuinya adalah sodaqoh. Sesungguhnya ilmu pengetahuan menempatkan orangnya dalam kedudukan terhormat dan mulia (tinggi). Ilmu pengetahuan adalah keindahan bagi ahlinya di dunia dan di akhirat. (HR. Ar-rabii')
2. Wahai Aba Dzar, kamu pergi mengajarkan ayat dari Kitabullah lebih baik bagimu daripada shalat (sunnah) seratus rakaat, dan pergi mengajarkan satu bab ilmu pengetahuan baik dilaksanakan atau tidak, itu lebih baik daripada shalat seribu raka'at. (HR. Ibnu Majah)
3. Menuntut ilmu wajib atas tiap muslim (baik muslimin maupun muslimah). (HR. Ibnu Majah)
4. Tuntutlah ilmu dan belajarlah (untuk ilmu) ketenangan dan kehormatan diri, dan bersikaplah rendah hati kepada orang yang mengajar kamu. (HR. Athabrani)
5. Janganlah kalian menuntu ilmu untuk membanggakannya terhadap para ulama dan untuk diperdebatkan di kalangan orang-orang bodoh dan buruk  perangainya. Jangan pula menuntut ilmu untuk penampilan dalam majelis (pertemuan atau rapat) dan untuk menarik perhatian orang-orang kepadamu.  Barangsiapa seperti itu maka baginya neraka...neraka. (HR. Attirmidzi dan Ibnu Majah)
   
   
   
   
   

Sumber : 1100 Hadist Terpilih (Dr. Muhammad Faiz Almath)

Read More