Inilah Jalan Ku » Page 13

Tips dan Trik DBgrid delphi : Memberi warna pada record yang aktif pada dbgrid

Feb 262011

ukey, setelah sekian lama g update… karena kesibukan… (sok sibuk nie :D) kali ini saya akan share tips n trick untuk customize dbgrid pada borland delphi 7. customize yang dimaksud adalah memebrikan warna pada record yang aktif di dbgrid tersebut.

hmm… gampang aja.. mudah, easy… 😀

cukup tambahkan aja kode berikut ini pada even DBGrid.OnDrawColumnCell.

codenya adalah :

type TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TCustomDBGridCracker(Sender) do if DataLink.ActiveRecord = Row - 1 then Canvas.Brush.Color := clRed else Canvas.Brush.Color := clWhite; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

yups.. coba diliat efek setelah ditambah kode itu… 😀

sekian kawan, jika ada yang ditanyakan, silakan lewat komen atau email… thanks…

source code program tabu search dengan borland delphi 7

IT 22 Responses »

Jan 292011

Uke, kali ini kita kembali ke Delphi :D. saya ingin berbagi sebuah source code tentang tabu search yang merupakan bagian dari study Artificial Intelligent atau kecerdasan buatan. emh… sebenarnya banyak yang bisa disampaikan tentang tabu search. apa itu, bagaimana kerjanya, serta implementasinya. namun saya asumsikan saja bahwa anda sampai ke tulisan ini setelah anda mengetahui tentang tabu search dan mencari source code applikasi tersebut. jika demikian, maka tidak perlu bagi saya untuk menjelaskan lebih jauh. 😀 langsung saja saya sajikan screen shot programnya serta source code nya. untuk pertanyaan, atau diskusi, bisa via comment atau email. 😀 screen shot app :

screen shot tabu search

source code software penghitung nilai resistor pada rangkaian seri paralel campuran dengan bahasa c++

IT Comments Off

Jan 272011

setelah kemarin saya upload sebuah program sederhana penghitung nilai resistor. maka kini saya share source code program penghitung nilai hambatan resistor pada rangakain seri, paralel, atopun campuran. wah, repot juga buat kasih penjelasan. gini ja wes, silakan anda coba dulu, setelah itu kalau ada yang kesulitan bisa ditanyakan via komen atau via email.

source code software penghitung nilai resistor pada rangkaian seri paralel campuran dengan bahasa c++ :

=========================begin===============================
#include
#include
#include

int menu,jumcampur,jumseri,jum,jumsp,jump,loop,z,y,x,n,i,j,m;
char menu1;
float resistor[100],serin[100],seripa[100],serip,a=1,b,Seri,atas,bawah=1,perrp,rp,tot,sp;

float seri()
{
printf(“Program untuk menghitung rangkaian Resistor Seri\n”);
printf(“jumlah res : “);scanf(“%d”, &jum);
for (loop=0; loop
{
printf (“masukkan nilai resistor ke %d: “,loop+1);
scanf(“%g”, &resistor[loop]);
Seri=Seri+resistor[loop];
}
printf(“Resistor Seri adalah %g\n”, Seri);
}

islam dan sains; Pembuktian AL QUR’AN : ada api di dasar lautan

Islami, Other Comments Off

Jan 052011

Subhanallah! Baru-baru ini muncul sebuah fenomena retakan di dasar lautan yang mengeluarkan lava, dan lava ini menyebabkan air mendidih hingga suhunya lebih dari seribu derajat Celcius. Meskipun suhu lava tersebut luar biasa tingginya, ia tidak bisa membuat air laut menguap, dan walaupun air laut ini berlimpah-ruah, ia tidak bisa memadamkan api.

Allah bersumpah dengan fenomena kosmik unik ini. Firman-Nya: “Ada laut yang di dalam tanahnya ada api” (Qs. Ath-Thur 6).

Nabi SAW bersabda: “Tidak ada yang mengarungi lautan kecuali orang yang berhaji, berumrah atau orang yang berperang di jalan Allah. Sesungguhnya di bawah lautan terdapat api dan di bawah api terdapat lautan.”

Ulasan Hadits Nabi :

Hadits ini sangat sesuai dg sumpah Allah SWT yang dilansir oleh Al-Qur’an pada permulaan Surah Ath-Thur, di mana Allah bersumpah (Maha Besar Allah yang tidak membutuhkan sumpah apapun demi lautan yang di dalam tanahnya ada api “al-bahrul masjur.” Sumpahnya:

“Demi bukit, dan kitab yang ditulis; pada lembaran yang terbuka; dan demi Baitul Ma’mur; dan atap yang ditinggikan (langit), dan laut yang di dalam tanahnya ada api, sesungguhnya azab Tuhanmu pasti terjadi, tidak seorangpun yang dapat menolaknya.” (Qs. Ath-Thur: 1-8)

Seorang Muslim dan Pemikirannya tentang Kebahagiaan

Dongeng, Islami Comments Off

Jan 032011

Sebelum menginjak pada siapa seorang muslim dan apa itu kebahagiaan, maka berpikir tentang pemikiran adalah jalan awalnya. Apa itu pemikiran dan bagaimana macamnya hal itu disebut. Malik bin Nabi, seorang Aljazair dalam tulisannya, musykilat al-Afkar fi al-`Alam al-Islami memberikan definisi yang bagus tentang apa itu pemikiran dan bagaimana macamnya. Dia membagi pemikiran dengan tiga tahap perkembangan. Tahap pertama; tahap benda-benda/ tahap materialism, tahap kedua; tahap dunia pribadi/ tahap eksistensialism, tahap ketiga; tahap pemikiran menyeluruh/ tahap yang bersifat ilahiyun.

Anda bertanya kenapa kita harus berpikir dulu, dan saya menjawab bahwa berpikir itu sangat diperlukan untuk proses menemukan. Ketika Anda masih tetap mendesak saya, maka saya akan menjawabnya dari sebuah ayat al-Qur`an –semoga hal ini menenangkan Anda-, Katakanlah, “Perhatikanlah apa yang ada di langit dan di bumi?” (QS. Yunus: 101). Hal ini penting bagi Anda, karena memperhatikan; hingga akhirnya, menghayati, mendalami, sampai juga memikirkan, adalah perintah Tuhan Anda kepada Anda. Saya tak perlu jauh-jauh sebenarnya, ketika Anda membaca tulisan ini, yaitu sebuah usaha sederhana dari berpikir, maka hal itu sudah disebutkan dalam al-Qur`an untuk Anda kerjakan, Bacalah! (QS. Al-`Alaq: 1).

Saya mohon, biarlah saya kembali mengulas apa itu tahap-tahap pemikiran, dan kenapa hal itu dibutuhkan di sini. Kebahagiaan adalah simbiosa –bagi saya- antara dua hal, psike-jiwa dan ratio-akal manusia, yang ditopang atas materi-jasad mereka. Bila Anda masih belum merasa lega, maka ada baiknya Anda perhatikan bagaimana setidaknya disebut lima kali posisi akal dalam al-Qur`an, dan juga beberapa kali penyebutan untuk menunjuknya sebagai proses berpikir. Al-Qur`an mendedikasikan dirinya untuk akal dengan adanya pelarangan minum khamr; segala hal yang memabukkan, karena dalam khamr tersebut posisi akal dipertaruhkan: seseorang tak mampu lagi membedakan mana baik mana buruk darinya.
Continue reading »

Older Entries Newer Entries