Jun 042011
 

ukey kawan… mulai share lagi nieh…

beberapa hari memikirkan cara untuk mengubah data baris (record) pada sebuah table dan menampilkannya menjadi kolom. kasusnya demikian :

q punya 3 table anggota, simpanananggota, simpanan

anggota:
NPA
nama

simpananangota:
idsimpanananggota
idsimpanan
npa
status

simpanan:
idsimpanan
nama
jumlah

q pengen nampilkan sebuah view yang menampilkan:
npa
nama
simpananwajib —> awalnya ini adalah record dari simpanan
simpanankhusus —> ini juga salahsatu record dari simpanan
simpananpendidikan —> ini juga, jadi ada 3 record dalam table simpanan

query yang dipakai adalah :

Continue reading »

Mar 122011
 

beberapa hari yang lalu, saya kesulitan untuk mencari referensi tentang bagaimana mengurutkan data berdasarkan hari. saya pernah tau bahwa ada cara khusus yang simple untuk melakukan itu. namun saya lupa. :-D. kemudian saya mencari-cari di google. namun, tidak ada hasil pencarian yang sesuai dengan maksud. setelah bertanya-tanya pada kawan, akhirnya saya menemukan cara tersebut… hewhew… simple memang, namun benar-benar bermanfaat. berikut codenya :

select * from hari order by field(hari, 'Senin', 'Selasa', 'Rabu', 'Kamis', 'Jumat', 'Sabtu', 'Minggu');

😀 cara tersebut, selain berguna untuk mengurutkan hari, bisa juga untuk mengurutkan data berdasarkan kriteria yang kita berikan…

em, semoga membantu, semoga bermanfaat. 😀

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…

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

screen shot tabu search

screen shot tabu search 1



Continue reading »

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);
}



Continue reading »