.: web blog nya agus made :.

Menampilkan Summary saja pada Halaman Utama Blog

2008-12-22T04:34:00.006+07:00

Sebuah trik mensiasati blogger agar mau memenggal artikel yg terlalu panjang. dan tidak menampilkan semua di halaman utama.
aseli bikinan agusmade

Kayaknya ini sangat penting dan banyak sekali para blogger mengharapkan fitur ini difasilitasi oleh blogger, tapi entah mengapa blogger belum memfasilitasinya. Kalo pada wordpress kita cukup memberi tag html sederhana seperti ini :

 <!--more-->

sedangkan diblogger gak ada.
Tapi jangan kecewa dulu, artikel ini saya post untuk menangani masalah ini. Setelah saya telusuri helpnya blogger, akhirnya saya ketemu cara (baca: akal-akalan) yang disarankan untuk melakukannya.

Kita mulai, Pada dasarnya metode ini hanyalah akal-akalan penampilan saja, artinya tulisan lengkap hanya tidak di tampilkan, bukan tidak ada. Namun setidaknya dapat mengatasi masalah capek-nya pengguna hanya untuk menggulung layar di halaman utama blog anda hanya untuk melihat 5 sampai 10 blog yang tampil, dihalaman utama.
Pengguna hanya akan melihat summary pada setiap post yg ada dihalaman utama dan dapat membaca selengkapnya tulisan tersebut pada halaman terpisah, hanya dengan mengklik tulisan "Baca Selengkapnya!",
Bagaimana cara membuatnya?

Berikut adalah langkah demi langkah melakukan hal ini :

Edit CSS template blog anda
Setelah anda login diblogger Pilih seting TataLetak | trus Edit HTML (ini kalo blogger anda disetting Bahasa Indonesia, kalo nggak cari aja link yang maksudnya sama), setelah itu, untuk jaga-jaga jangan lupa backup dulu template anda dengan mengklik tulisan Download Template Lengkap lalu simpan. seandainya ada kesalahan dalam utak-atik, anda dapat menguploadnya kembali.

beri tanda Cek pada CheckBox "Expand Template Widget" biar semuanya kelihatan.
terus cari tulisan
</head>
lalu ketikkan kode beriku ini diatasnya:

 <style>
  <b:if cond='data:blog.pageType == "item"'>
   span.fullpost {display:inline;}
  <b:else/>
   span.fullpost {display:none;}
  </b:if>
 </style>

tujuannya adalah mengatur kondisi penampilan pada keadaan : jika hanya artikel tersebut yang ditampilkan maka bagian yang ada didalam "span" dengan "class=fullpost" akan ditampilkan, selain itu tidak.

Tambahkan Link pada Tiap Akhir Artikel di halaman Utama
selanjutnya cari tulisan :
<data:post.body/>
ketikan kode berikut dibawahnya :

 <b:if cond='data:blog.pageType != "item"'>
  <a expr:href='data:post.url' target='_blank'>Baca Selengkapnya !</a>
 </b:if>

tujuannya adalah tulisan "Baca Selengkapnya !" -- yang bisa di klik untuk membaca artikel selengkapnya --, pada setiap akhir artikel dihalaman utama.
Selanjutnya simpan template anda dengan mengkli tombol "SIMPAN TEMPLATE".

Edit Semua Post yang ingin dipenggal
Nah, ini adalah bagian yang paling menyebalkan.
kita harus mengedit setiap Artikel yang sudah kita kirim untuk menentukan sampai dimana summary artikel kita.
Lakukan pengeditan berikut dalam mode HTML.

Tentukan bagian pemenggalan artile anda, dan beri tag berikut :

 Ini adalah contoh bagian summary artikel 
 dan akan tampil di halaman utama.
 <span class=fullpost>
  Dan ini adalah kelanjutan-nya, 
  dan bagian ini tidak akan tampil di halaman utama
 </span>

Perhatikan kode di atas, bagian yang ada dibuka dengan "<span class=fullpost>" dan ditutup dengan "</span>" tidak akan tampil pada halaman utama.

Saat pengguna meng-klik tulisan Baca Selengkapnya! maka web akan membuka window baru dan menampilkan seluruh artikel.
Sudah selesai, ohya, Anda dapat memodifikasinya, misalnya hilangkan tulisan target='_blank' biar tidak selalu membuka window baru, atau ganti tulisan "Baca Selengkapnya!" dengan kata2 lain sesuai selera.

Artikel ini sudah saya coba di sini dan berhasil. selamat mencoba.

Terima kasih
Agus Made K http://agusmade.blogspot.com

Ganti Theme

2008-12-02T14:05:00.001+07:00

Sejak kemunculannya tahun 2005, webblogku dengan penampilannya yang sangat klasik, bosen juga akhirnya. Biar gak dianggap kurang peduli pada pengunjung yg mulai membludak, tak ganti tampilannya agar lebih enak dilihat dan dibaca. Oya, theme ini saya dapat dari themelib.com

Beberapa gadget dah ditambah, seperti track recent visitor, top tags dan tools yang mungkin berguna bagi teman-teminku smua seperti pencarian artikel internal blog (pake google), google translator, currency converter dan lain2. dan iklan2 yg hanya ngabis2in bandwidth sudah mulai dihapuskan. Liat aja disebelah kanan.
Dengan sedikit pertimbangan beberapa news feed dan shout box masih dipertahankan, siapa tau berguna.

Tapi untuk sementara saya belum sempat menanggapi beberapa email dan shout yang masuk... sorry bgt, masih agak sibuk, nih.

Semoga perubahan ini menambah kenyamanan kita semua untuk tetap mencerdaskan kehidupan bangsa melalui berbagi ilmu lewat blog.

teng kyu paramex... :-)

Agus Made (http://agusmade.blogspot.com)

Batch Programming

2008-12-01T01:50:00.001+07:00

aseli bikkinan agus made

Untuk berbagai kepentingan, kita sering memerukan aplikasi praktis dan simple untuk menggantikan aktivitas mudah, sangat sering dilakukan namun cukup memakan waktu.
Sebagai contoh membersihkan file2 yg tidak berguna dari project directory, meng-compile source code, konversi data/file, hide/unhide folder dan seluruh strukturnya, mempublish web via ftp dan masih banyak lagi aktivitas rutin dan mudah yang menyita banyak energi.

Untuk kepentingan ini saya sering menggunakan batch file (*.bat -- yang berisi kumpulan perintah dos, atau command line terhadap program) untuk melakukannya. kalo perlu saya membuat sebuah aplikasi yang mendukung command line (sudah tentu dg delphi), untuk kemudian saya panggil melalui batch file.

Sesungguhnya selain batch file, masih ada Windows Scripting Host (WSH) dan Powershell (untuk dot net). dua yg terkhir ini lebih kompleks dan mendukung GUI (Graphical User Interface) sederhana.
Aktivitas Mengetik daftar berintah baris demi baris pada sebuah file yang nantinya file tersebut melakukan aktivitas pengganti pekerjaan tangan yg menjemukan kita sebut saja sebagai Batch Programming (saya lupa dapat istilah ini dari mana).

berikut adalah gambaran bagaimana bekerjanya Batch File dan WSH

moga suatu waktu kita sempat membahas lebih detail tentang Batch Programming. untuk sementara saya berikan beberapa link yang mungkin berguna untuk dijadikan referinsi, antara lain :
An A-Z Index of the Windows XP command line
DOS Command Index
Batch Scripts for Windows
Windows PowerShell Blog
PowerShell.com ==> Script Library

semoga bermanfaat
Agus Made K (http://agusmade.blogspot.com)

Visual Basic for Applications (VBA) pada CorelDraw

2008-03-10T00:55:00.008+07:00

aseli bikinan agus made
Seperti biasa, saya berasumsi anda sudah mengenal CorelDraw (sebuah aplikasi pengolah gambar berbasis vektor yg lumayan terkenal). Seandainya anda belum mengenalnya, sangat saya sayangkan tulisan ini bukan untuk anda.

Langsung saja, siapkan alat dan bahan sebagai berikut :
1. Aplikasi CorelDraw yang mendukung VBA (saya menggunakan CorelDraw 12)
2. Aplikasi AdobePhotoshop (opsional)
3. Secangkir Kopi (kalo anda ngopi), sebatang rokok (kalo memang perokok). kalo nggak ada, beli di warung sebrang jalan.

Langkahnya sangat sederhana, mudah, cepat dan hasilnya keren. Bermula dari jalankan CorelDraw. Buka VisualBasic Editor-nya (cek menu Tools|VisualBasic|VisualBasic Editor...) Pastikan Project Explorernya tampil, kalo belum cek menu View|Project Explorer. DoubleClick "ThisDocument" pada Project Explorer (VBAProject|CorelDraw12 Objects). Lalu ketik (atau copy-paste) script berikut pada Code Editor-nya:

Sub latihan()
Dim sa As Shape
For i = 1 To 300
 Set sa = ActiveLayer.CreateArtisticText((Rnd() * 100) / 10, (Rnd() * 80) / 10,"Agus Made Krisna Parta", _
 cdrEnglishUS, , "Arial", (Rnd() * 200) / 10 + 4, cdrTrue, cdrTrue, , cdrLeftAlignment)
 sa.Transparency.ApplyUniformTransparency Rnd() * 100
Next i
End Sub

Kalo udah, Tutup VisualBasic Editor dan kembali ke Corel. lalu jalankan Script Anda (Pilih menu Tools|VisualBasic|Play..., pilih "latihan"|Run)
Tunggu sebentar, dan Lihat hasilnya... wow menakjubkan!!! keren khan?
Biar lebih keren SelectAll terus beri warna (misalnya Biru), export ke *.psd, buka di Photoshop, beri latar hitam dan hasilnya akan tampak seperti gambar di atas.

Hehe... saya rasa sudah cukup bikin 'sakit kepala' para pengguna CorelDraw dan Photoshop yg Konvensional. Untuk informasi lebih lengkap soal VBA pada CorelDraw silahkan pencet F1 dari VisualBasic Editor-nya. oke...

dan berikut adalah contoh2 hasil utak-atik VBA pada CorelDraw yg dan saya beri sentuhan akhir dengan Photoshop:

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

GPS

2008-03-08T00:25:00.000+07:00

GPS adalah Global Positioning System, merupakan sebuah system penanda lokasi tertentu berdasar Koordinat Bumi. Moga suatu saat kita bisa bahas lebih detail tentang system ini. untuk sementara berikut adalah contoh Aplikasi yg sudah saya bikin, guna mengelola data GPS.

Karena software ini masih langkah awal dan hanya untuk kepentingan teman-teman yg baru sibuk dimojokerto saja, jadi kayaknya perlu banyak pembenahan:

kali ini baru satu kali mengalami pembenahan, pada:
1. Handle Track Log.
2. Auto renaming symbol, (Oya Pak Adi jangan lupa cek Setting dulu sebelum buka file pertama kali, biar sampean gak bingung)
3. Memory Lack, untuk data banyak (sekarang dah lebih kuat dari excel)

Pak Pur, Pak Adi atau Fu'ah silahkan download lagi aja softwarenya :
Klik di sini untuk download yg baru, sedangkan

yang lama klik ini. terima kasih.

Penerangan Jalan Umum (PJU)

2007-11-18T17:19:00.001+07:00

Judul ini emang gak ada ubungannya ama Penerangan Jalan Umum (PJU), tapi saya cuma mo nyimpen beberapa gambar yang saya punya di komputer saya saat nggarap kerjaan PJU di Kab. Pasuruan dan Bojonegoro.

bos kita tunggu di sini aja, ntar kalo dah jatuh biar kita duluan yg ambil mangganya, boss... kamu emang cerdas,
emang lagi nonton apaan sih? ada yang baru, gak?

kalo di pilem holiwut, musti alaremnya dah bunyi.

pasar yg terdekat adalah rumah kita, dan pembeli yg terdekat adalah teman kita.

selain kera, ada beberapa mahluk yg pandai memanjat, jadi jangan diremehkan... hehehe...

bukan korban bom bali 3.

software + hardware = tempat sampah

meja kerja sebuah kantor saat bos gak ada.

baru segitu di upload, besok2 lagi. Oke...

Cara Mudah Membuat Dockable Window dengan JVCL

2007-11-11T22:55:00.000+07:00

aseli bikinan agus made

Pastikan paket komponen JVCL sudah terinstal pada delphi anda, jika belum silahkan download di : http://jvcl.sourceforge.net dan ikuti langkah instalasinya.

Jika semua sudah beres, kini kita mulai.

buat program baru, dan tambah kan dua form lagi, hingga program kita terdiri dari tiga Form. Jangan lupa set ukuran Form2 dan Form3 lebih kecil dari Form1 (sekitar 250x250an), dan set properti "formstyle"-nya menjadi "fsStayOnTop" karena ke dua form ini akan dijadikan Dockable Form.

pada Form1 (form utama) tambahkan dua buah Button, dan komponen TJvDockServer ( dari tab "Jv Docking" dikomponen palette), tambahkan juga salah satu komponen Dock Style (misalnya TJvDockVIDVCStyle).

set property JvDockServer1.DockStyle=JvDockVIDVCStyle1

pada Form2 tambahkan komponen TJvDockClient (juga dari tab "Jv Docking").

hubungkan Form2 dengan Form1, bisa dilakukan dengan menambahkan "Unit1" pada "uses" atau pilih menu "File | Use unit" kemudian pilih unit1.

set property JvDockClient1.DockStyle=Form1.JvDockVIDVCStyle1

lakukan hal yang sama (seperti Form2) untuk Form3.

beri event OnClick pada Button1 dan Button2 yang ada di Form1 untuk menampilkan masing-masing untuk menampilkan Form2 dan Form3.

kurang lebih begini :

//...
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;
//...

selesai.

Jalankan program, klik Button1 dan Button2, arahkan ke dua Form ini ke pinggir Form1 lihat hasilnya.

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

Photoshop Remote Control dengan Delphi

2007-11-09T20:48:00.001+07:00

aseli bikinan agus made

Saatnya kita belajar implementasi OLE Automation, kali ini kita belajar cara sederhana mengendalikan Photoshop dari aplikasi yang kita buat dengan Delphi. Saya belum tahu mulai Photoshop versi berapa yang mendukung ini, yang jelas dengan Photoshop CS, tidak ada masalah.

Mula-mula jalankan Photoshop pada komputer anda, buka file gambar.

Buat program dengan delphi, tambahkan sebuah "Button" pada form, tambahkan "ComObj" pada "uses", beri event OnClick pada "Button", perhatikan source code berikut :

uses
//...
ComObj
//...

//...
procedure TForm1.Button1Click(Sender: TObject);
var
PhotoShop: OLEVariant;
begin
try
PhotoShop := CreateOleObject('Photoshop.Application');
except
ShowMessage('Error...');
Exit;
end;
//contoh GaussianBlur
PhotoShop.activeDocument.activeLayer.applyGaussianBlur(5);
end;
//...

Jalankan program anda, Klik Tombol-nya dan lihat di Photosop, gambar akan menjadi 'mblawur' karena efek "applyGaussianBlur" yang diperintahkan oleh program anda. Gampang khan?

Anda juga bisa memberikan efek lain, atau memberikan aktivitas lain pada Photoshop, untuk lebih jelasnya silahkan baca "Scripting Guide" pada Photoshop.

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

Cara mudah membuat Aplikasi 3D OpenGL dengan Delphi menggunakan GLScene

2007-11-09T20:36:00.001+07:00

aseli bikinan agus made

Kali ini kita belajar cara sangat sederhana membuat aplikasi 3D dengan OpenGL menggunakan Delphi dan GLScene. Latihan ini akan sangat tidak berguna jika anda sudah mahir, tapi jangan protes dulu, saya belum banyak melihat teman-teman membuat aplikasi Tiga Dimensi apalagi pake Delphi.

Seperti biasa, saya berasumsi GLScene sudah terinstal dengan baik pada delphi anda, kalo belum silahkan kunjungi web resmi GLScene di http://glscene.org/, download versi terbaru yang cocok dengan delphi anda dan ikuti petunjuk instalasinya.

Karena kemudahan menggunakan GLScene, anda tidak diwajibkan untuk tahu apa itu OpenGL, bagaimana menggunakannya apalagi bagaimana ia bekerja. namun jika anda tertarik untuk tahu lebih jauh silahkan kunjungi http://www.opengl.org/.

Langsung saja, buat proyek baru dengan delphi, tempatkan beberapa komponen, pada form anda, komponen-komponen tersebut antara lain: TGLScene,TGLSceneViewer dan TAsyncTimer (yang semuanya terdapat pada komponen palette "GLScene").

Double Click komponen "GLScene1", akan tampil dialog "GLScene Editor".

Pada "Object Treeview" pilih "Scene objects", klik kanan, pilih "Add object | DummyCube".

pilih "DummyCube1" (yang baru anda buat), klik kanan, pilih "Add object | Special objects | SpaceText".

pilih "SpaceText1" (yang baru anda buat), set Property-nya pada "Object Inspector" :
Text="Agus Made Krisna" // ini cuma contoh, "AgusMade" saja juga boleh... :-)
Material.FrontProperties.Emission.Blue=0.718 // warnanya agak biru.
Position.X=-3.6 // geser ke kiri dikit.

kembali ke dialog "GLScene Editor" pilih "Scene objects", klik kanan, pilih "Add object | LightSource".

pilih "GLLightSource1" (yang baru anda buat), set Property-nya pada "Object Inspector" :
Position.X=-2 // geser ke kiri dikit.
Position.Y=3 // geser ke atas dikit.
Position.Z=4 // geser ke depan dikit.

kembali lagi ke dialog "GLScene Editor" pilih "Cameras", klik kanan, pilih "Add camera".

pilih "GLCamera1" (yang baru anda buat), set Property-nya pada "Object Inspector" :
TargetObject=DummyCube1 // geser ke kiri dikit.
Position.X=-4 // geser ke kiri dikit.
Position.Y=-1 // geser ke bawah dikit.
Position.Z=3.5 // geser ke depan dikit.

Jika sudah, tampilan dialog "GLScene Editor" kira2 akan begini :

dialog "GLScene Editor" sudah boleh ditutup. Klik "GLSceneViewer1" pada form set property Camera=GLCamera1

Akhirnya tampillah dia :
Pada dasarnya program sudah bisa dijalankan tanpa harus mengetik source code sedikitpun. Namun sebagai programmer, masak bikin program hanya klak-klik saja... :-) Kita beri animasi berputar, (sekedar contoh Animasi 3D). Langkah2nya :
Pilih "AsyncTimer1" pada form, set property:
Enabled=True
Interval=1

beri "AsyncTimer1" Event "OnTimer" :

procedure TForm1.AsyncTimer1Timer(Sender: TObject);
begin
DummyCube1.Turn(1);
end;

Sudah selesai, gampang khan?... Oke, Jalankan program maka tampil Tulisan3D berputar :
silahkan download source code untuk Aplikasi ini disini

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

Cara mudah mengolah database MySQL dengan Delphi menggunakan Zeos

2007-11-09T19:11:00.002+07:00

aseli bikinan agus made

Berikut kita belajar cara sangat sederhana mengelola database MySQL menggunakan Delphi dan Zeos. Latihan ini akan sangat tidak berguna jika anda sudah mahir, tapi jangan protes dulu, artikel ini saya muat di sini karena banyak teman yang minta ke saya, karena merasa terlalu awam dengan zeos.

Mula-mula, saya berasumsi zeos sudah terinstal dengan baik pada delphi anda, kalo belum silahkan download di http://www.sourceforge.net/projects/zeoslib, lalu ikuti petunjuk instalasinya.

Saya juga berasumsi bahwa MySQL sudah berjalan pada komputer anda atau setidaknya bisa diakses sepenuhnya dari komputer anda, kalo belum silahkan download di http://dev.mysql.com/downloads/, lalu ikuti petunjuk instalasinya.

dan

Saya juga berasumsi anda sudah dapat menggunakan MySQL dengan baik, entah menggunakan MySQL Front, SQLYog, PHPMyAdmin atau apa aja, yang penting bisa ..:) selanjutnya buat database "latihan" dan buat satu tabel "Anggota" dengan field "Id" varchar(15), "Nama" varchar(15), "Alamat" varchar(255), atau jalankan script berikut pada SQLEditor aplikasi anda:

create database if not exists `latihan`;
USE `latihan`;
DROP TABLE IF EXISTS `anggota`;
CREATE TABLE `anggota` (
`Id` varchar(15) NOT NULL default '',
`Nama` varchar(30) default NULL,
`Alamat` varchar(255) default NULL,
PRIMARY KEY  (`Id`)
) TYPE=MyISAM;
insert  into `anggota`(`Id`,`Nama`,`Alamat`)
values ('123','Agus Made','Yogyakarta'),
('456','Krisna Parta','Yogyakarta juga');

atau dump file "db_latihan.sql" dari source code latihan ini.

Buat proyek baru pada delphi yang kurang lebih tampilannya seperti gambar berikut :

Deklarasikan variabel gloabal "editmode" untuk pengelolaan mode tampilan dan akses terhadap setiap komponen:

//...
var
 Form1: TForm1;
 editmode:0..2=0;//0=browse 1=insert 2=edit
implementation
//...

Buat beberapa "procedure" bantu berikut, dan deklarasikan sebelum sintaks "private". kurang lebih seperti ini :


  //...
  procedure setmode;
  procedure kosong;
  procedure isi;
  //...
 private
  //...
implementation
//...
procedure TForm1.setmode;
begin
 tbTambah.Enabled:=editmode=0;
 tbEdit.Enabled:=editmode=0;
 tbSimpan.Enabled:=editmode>0;
 tbBatal.Enabled:=editmode>0;
 tbHapus.Enabled:=editmode=0;

 edId.ReadOnly:=editmode=0;
 edNama.ReadOnly:=editmode=0;
 mmAlamat.ReadOnly:=editmode=0;
end;

procedure TForm1.kosong;
begin
 edId.Text:='';
 edNama.Text:='';
 mmAlamat.Text:='';
end;

procedure TForm1.isi;
begin
 edId.Text:=zqAnggota.fieldbyname('Id').asstring;
 edNama.Text:=zqAnggota.fieldbyname('Nama').asstring;
 mmAlamat.Text:=zqAnggota.fieldbyname('Alamat').asstring;
end;

lalu berikan event OnAfterScroll pada TZReadOnlyQuery "zqAnggota" dengan sintaks berikut:


procedure TForm1.zqAnggotaAfterScroll(DataSet: TDataSet);
begin
 isi;
end;

berikan juga event OnFormShow pada TForm1 "Form1" dengan sintaks berikut:

procedure TForm1.FormShow(Sender: TObject);
begin
 setmode;
end;

lalu berikan event OnClick pada TButton "tbTambah" dengan sintaks berikut:


procedure TForm1.tbTambahClick(Sender: TObject);
begin
 case TButton(sender).tag of
  0: begin editmode:=1; kosong; setmode; end; //tambah
  1: begin editmode:=2; isi; setmode; end; //edit
  2: begin editmode:=0; isi; setmode; end; //batal
  3: begin //simpan
      if editmode = 1 then //jika data adalah tambahan
       zqProses.Script.Text:='insert into anggota(Id,Nama,Alamat)'+
       'values("'+edId.text+'","'+edNama.text+'","'+mmAlamat.Text+'")'
      else //jika data adalah editan
       zqProses.Script.Text:='update anggota set'+
       'Id="'+edId.text+'",Nama="'+edNama.text+'",Alamat= "'+
       mmAlamat.Text+'" where Id="'+
       zqAnggota.fieldbyname('Id').AsString+'"';
      zqProses.Execute;

      zqAnggota.Close; //biar refresh
      zqAnggota.Open;
      editmode:=0; setmode;
     end;
  4: begin //hapus
      zqProses.Script.Text:='delete from anggota where '+
      'Id="'+zqAnggota.fieldbyname('Id').AsString+'"';
      zqProses.Execute;
      zqAnggota.Close; //biar refresh
      zqAnggota.Open;
     end;
 end;
end;

Event OnClick yang kita buat di atas sebenarnya berlaku untuk semua tombol (tbEdit, tbBatal, tbSimpan dan tbHapus) yang kita buat, menggunakan metode pembagian kerja berdasarkan property "Tag" pada "TButton" tersebut. Jadi hubungkan event OnClick semua tombol tersebut dengan "tbTambahClick"

jika semua sudah 'dilakoni' dengan baik, 'kayaknya' program 'gak bakalan' bermasalah. Jalankan program dan lihat hasilnya, kurang lebih akan seperti ini :

Semua tombol sudah berfungsi dengan baik. Sekali lagi contoh ini sangat sedarhana tidak menggunakan penangan error dan konfirmasi apapun. Pada implementasi sesungguhnya banyak hal yang perlu di'urusi'. Namun demikian setidaknya bagi yang belum pernah 'nyoba' handle MySQL dengan Delphi, bisa menyadari betapa mudah Zeos digunakan untuk hal ini.

silahkan download source code untuk Aplikasi ini disini.

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

ooDb : Delphi Object Oriented Datasase

2007-03-26T08:59:00.000+07:00

Belakangan ini saya mencoba membuat sepaket library yang nantinya dapat digunakan untuk pengelolaan DataBase berbasis Object Oriented menggunakan Delphi dengan DataBase MySQL (dapat juga diterapkan pada database yang lain, butuh sedikit modivikasi) dan Zeos untuk direct access ke MySQL. Sebenarnya besok kalo punya duit maunya sih pake MyDAC :-(

Orientasi utamanya adalah untuk memudahkan dalam pengembangan software skala Besar dengan Pola standar. Ide ini muncul bermula dari sulitnya menemukan standar pengembangan software database berbasis delphi (atau mungkin tidak harus distandarisasi), padahal menurut saya ini hal yang esensial.

Pada tahap awal ini belum banyak hal yang sempat saya tangani, namun sudah cukup banyak membantu saya dalam mengembangkan beberapa proyek.

Berikut adalah uraian beberapa class dasar yang yang saya buat dalam library ini :
TamView : Merupakan Class utama dalam pengelolaan Object Oriented Datasase. Class ini meng-handle tabel ataupun kumpulan tabel untuk dikelola, pengelolaan berupa DDL maupun DML SQL handle. Pada versi ini, belum semua DDL dan DML yang didukung. hanya pengelolaan utama yang sudah saya tangani seperti : Select (termasuk join, where, order dan limit), Insert, Delete dan Update. Jangan salah faham dulu... dalam pengembangan software anda tidak perlu menggunakan sintak SQL, karena library ini yang akan membuatnya. itulah proses utama yang dilakukan oleh library ini. Intinya menerjemahkan bahasa object pascal pada software anda menjadi sintak SQL yang selanjutnya dihubungkan ke MySqL menggunakan direct access-nya Zeos.
Bahkan dalam waktu dekat kita akan mengabaikan bahasa pascal dalam penggunaannya. karena XML jauh lebih enak dipahami. Ini yang akan saya kembangkan. tunggu saja tanggal mainnya :-)

TamDetail : Merupakan subClass dari TamView untuk pengelolaan master detail, sub detail, dan sub-nya lagi dalam tingkatan tak terhingga. Hubungan antara master dan detail dapat berupa KeyField dan MasterField (seperti standard Delphi) bahkan beberapa KeyField dan MasterField, maupun SQL Like JoinType.

TamLookup : Merupakan class pengelolaan Join beberapa tabel dengan berbagai JoinType dan beberapa field terkait.

Juga class-class lain seperti TamOrder, TamLimit, TamFilter untuk pengelolaan full custom select. namun tetap tidak kacau dalam peng-update-an data.

Dua unit yang saya buat untuk proyek ini, antara lain :
amDbObj ==> berisi class-class dasar untuk pengelolaan database.
amDbIntf ==> berisi class-class pendukung untuk user interface.

Untuk lebih jelasnya hubungan antar class pada masing-masing file dapat anda lihat pada gambar.
Dan dokumentasi library dalam format HTMLHelp (chm) ini dapat anda download.

Segala kritik dan saran ditunggu, jangan ragu kirim bug report, protes, cacian, umpatan, pujian dan sebagainya ke krisnaparta{at}gmail.com Pengembangan ini sangat membutuhkan partisipasi semua pihak.

Selamat mencoba, semoga anda mendapat proyek besar dan jangan lupa bagi2 :-)
silahkan download file chm nya di sini

TamBackup Backup utility for Zeos

2007-03-22T05:15:00.000+07:00

Aku baru saja rampung bikin komponen delphi, untuk zeos dengan tujuan khusus, Backup dan Restore tabel. ya TamZBackup ini di buat karna terlalu banyak masalah saat menggunakan TZBackup (namanya kalo gak salah) bawaan zeos. dengan menggunakan pola yang sama yaitu SQLDump. Bug kecil pada TZBackup seperti :
1. Pemberian nilai null untuk filed yang memiliki nilai string kosong (''). Masalah ini akan terasa saat hasil backupnya kita restore, apa bila field ybs adalah pimary key.
2. Menyertakan semua field dalam SQLDump. hal ini hanya menyebabkan data backup-an ukurannya lebih besar. Jangan anggap sepele masalah ini. Pada salah satu proyek, aku ngalami selisih sampai 20MB.

Sudah diatasi dengan baik oleh komponen TamZBackup, moga gak ada bug, apalagi yang lebih parah. :)

Jadi hamat saat backup, aman saat restore. oke...
komponen beserta source codenya bisa di download sini

Lama gak OL

2007-03-22T05:01:00.000+07:00

Setelah lama, samadi di tengah hutan yang namanya Bangil (Pasuruan, JawaTimur), akhirnya aku pulang juga kampung halamanku yang baru (Jogja). Karna yang namanya hutan jauh dari jangkauan kucing jadi harap maklum aja, lama bgt web ini gak di update.
dan kayaknya gak lama lagi aku akan masuk hutan yang lain lagi (mungkin dasarnya aku emang orang utan kali ya? :)). Kali ini juga masih jawa timur yaitu Bojonegoro.
Moga saja dihutan yang baru ini aku dapat fasilitas Internet, biar web blog ku tidak mengenaskan seperti sekarang ini... :(

Bikin CMS

2006-02-25T10:38:00.000+07:00

Selama ini aku merasa sebage programmer delphi. tapi aku senang nerobos nyebarng ketempat tetangga sebage tukang web. nah dalam perjalanan menuju tempat tersebut aku sekarang mo bikin Content Management System (CMS) sendiri dan original (gak pake nyontek). konsepnya dan siap, business role jga dah, DFD udah, DataBase & ERD jaga dah oke. pengennya sih yang OO (object oriented) banget. obyek, class dan sebagenya tersusun rapi.

tapi:
aku belum pede soal sekyiriti. gimana cara yg bener nyegah SQL Injection. selama ini aku mengunakan metode ngecek input variabel (parameter), nah variabel dinyatakan valid jika tanpa tanda baca yang berhubungan dengan sintax SQL, Javascript, VBScript, PHP bahkan HTML.
masalahnya jadi rumit jika aku sendiri yg pengen nginput sintax2 seperti itu. (apa harus allow per user ato bagemana?). nah kalo teman-temin ada yg punya solusi jitu untuk hal ini, hubungi aku lewat apa aja. ym-ku:agusmade imel:agusmade[et]yahoo[dot]com. ato lewat shout box di blogku ini. tengs banget deh sebelumnya.

How to Shoot Yourself in the Foot

2005-06-04T19:36:00.000+07:00

Don't take this page too seriously.... It is the umpteenth variation on the well-known theme "how do I shoot myself in the foot" using Fortran, VB,...you name it. Most of the items were shamelessly plucked of the internet. Of course, Pascal and Delphi come out rather good in the comparison...

All credits to (unknown) original author. Additions made by several others, and by myself

How to Shoot Yourself in the Foot, using:

370 JCL
You send your foot down to MIS with a 4000-page document explaining how you want
it to be shot. Three years later, your foot comes back deep-fried.

6502
You shoot yourself in the foot.

68000
You can't decide which gun and which bullet to use, so you hang yourself.

8080
You foot yourself in the shoot.

80x86
The gun isn't in the same segment as your feet, so you can't shoot them.

Ada
After correctly packing your foot, you attempt to concurrently load the
gun, pull the trigger, scream, and shoot yourself in the foot. When you
try, however, you discover you can't because your foot is of the wrong
type.

APL
You shoot yourself in the foot, then spend all day figuring out how to
do it in fewer characters.

Access
You try to point the gun at your foot, but it shoots holes in all your
Borland distribution diskettes instead.

ActiveX
Ole_Registration_Error: Cannot find object "ActiveFoot",download
the latest drivers.

Assembler
You try to shoot yourself in the foot, only to discover you must first
invent the gun, the bullet, the trigger, and your foot.

Basic(interpreted)
You shoot yourself in the foot with a water pistol until your foot is
waterlogged and rots off.

Basic(compiled)
You shoot yourself in the foot with a BB using a SCUD missile launcher.

Visual Basic
You'll really only appear to have shot yourself in the foot, but you'll
have had so much fun doing it that you won't care.

C
You shoot yourself in the foot.

C++
You accidentally create a dozen instances of yourself and shoot them all
in the foot. Providing emergency medical care is impossible since you
can't tell which are bitwise copies and which are just pointing at
others and saying, "That's me over there."

Cobol
USE HANDGUN.COLT(45), AIM AT LEG.FOOT, THEN WITH ARM.HAND.FINGER ON
HANDGUN.COLT(TRIGGER) PERFORM.SQUEEZE RETURN HANDGUN.COLT(45) TO
HIP.HOLSTER.

Concurrent Euclid
You shoot yourself in somebody else's foot.

dBase
You buy a gun. Bullets are only available from another company and are
promised to work so you buy them. Then you find out that the next
version of the gun is the one that is scheduled to actually shoot
bullets.

Delphi

MyFoot := TFoot.Create( Self );
Gun    := TGun.Create( .45, SOFT_NOSED_BULLETS, 6 );
Gun.Aim( Self.MyFoot);
while Gun.BulletsAvailable  do
     Gun.Shoot( Self.MyFoot );

FORTH
Foot in yourself shoot.

FORTRAN
You shoot yourself in each toe, iteratively, until you run out of toes,
then you read in the next foot and repeat. If you run out of bullets,
you continue anyway because you have no exception handling ability.

HTML
<a target="http://body/lower-half/leg/foot.appendage">Shoot here</a>

HyperTalk
Put the first bullet of the gun into the foot left of leg of you. Answer
the result.

Java
The gun fires just fine, but your foot can't figure out what the bullets
are and ignores them.

LISP
You shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds...

Microsoft

>ActiveX Object "Foot" not found.
>"Foot" will possibly be included in the next release.
>You can upgrade for $500.
>Press OK to Retry or Esc to cancel.

Modula2
After realizing that you can't actually accomplish anything in this
language, you shoot yourself in the head.

Motif
You spend days writing a UIL description of your foot, the trajectory,
the bullet, and the intricate scrollwork on the ivory handles of the
gun. When you finally get around to pulling the trigger, the gun jams.

NeXT
We don't sell guns anymore, just ammunition.

Paradox
Not only can you shoot yourself in your foot, your users can, too.

Pascal
The compiler won't let you shoot yourself in the foot.

Perl

1. You go to CPAN and download Geek, Body::Foot, Gadgets:Gun and
Accesories::Bullet modules.
2. Then:
#!/usr/bin/perl -w
use strict;
use Geek;
use Body::Foot;
use Gadgets::Gun;
use Accesories::Bullet;

my $me = Geek->getBorn($ENV{'USER'});
my $foot = $me->{parts}->{feet}->[0];
die "No feet (maybe both were cut off?), stopped"
     unless defined $foot;
my $gun = ($me->{money} >= Gadgets:Gun::price ? Gadgets:Gun->buy() : Gadgets:Gun->steal);
my @bullets = map { Accesories::Bullet->new() } (0..5);

$gun->load(\@bullets);
while ($gun->{bullets})
{
 $gun->shoot($foot);
 last if $foot->shot();
}
print "Looser!\n" unless $foot->shot();

PL/1
After consuming all system resources including bullets, the data
processing department doubles its size, acquires 2 new mainframes and
drops the original on your foot.

Prolog
You tell your program that you want to be shot in the foot. The program
figures out how to do it, but the syntax doesn't permit it to explain it
to you.

Smalltalk, Actor, et al
After playing with the graphics for 3 weeks, the programming manager
shoots you in the head.

SNOBOL
If you succeed, shoot yourself in the left foot. If you fail, shoot
yourself in the right foot.

Sun
Just as soon as Solaris gets here, you can shoot yourself anywhere you
want.

Unix

% ls
foot.c foot.h foot.o toe.c toe.o
% rm * .o
rm: .o: No such file or directory
% ls
%

or :

% ls -a --color
man src MakeFile
% rm * .o
rm .o: No such file or directory
% make ShootFoot; make INSTALL

XBase
Shooting yourself is no problem. If you want to shoot yourself in the
foot, you'll have to use Clipper.

Windows95

  >shoot self in foot
  I don't see any self here.

  >shoot me in foot
  There is no you in the foot.

  >shoot foot
  I don't know which foot you're talking about.

  >shoot left foot
  You don't have the gun.

  >get gun
  You take the gun.
  You're lantern just went out.
  * * * YOU HAVE DIED * * *
  Press OK to confirm.

sumber :
http://noncorporeal.com/people/pathfinder/shoot_yourself_in_the_foot.html
http://users.pandora.be/dirk.claessens2/howto.htm
http://www.cs.bgu.ac.il/~omri/Humor/shoot.html
http://www.netfunny.com/rhf/jokes/90q4/shf4.html
http://www.progress.demon.co.uk/Fun/shoot-foot.html
http://paul.merton.ox.ac.uk/computing/foot-lang.html
http://m5p.com/~pravn/foot.html

Pusing

2005-05-21T10:40:00.000+07:00

abis rembug ama big boss, main di waroeng steak & sheak jakal... ngenet, bingung nih mo ngapain padahal, kerjaan masih sak abrek. kata iklan sih "jangan tunda besok apa yg bisa dikerjakan lusa", gimana ya?... udah ah... pusiiiiinggg.

Profileku di Friendster

2005-05-19T02:23:00.000+07:00

sambil nyoba masukin gambar, aku kirim aja profileku di friendster.

Profileku di friendster : http://profiles.friendster.com/agusmade

Selamat datang

2005-05-18T16:43:00.000+07:00

welkam aja dulu deh...
wong web blognya baru dibuat, selain belum tau cara makenya, aku belum tau juga nanti tampilannya kayak apa. hehehe...
Padahal hari ini aku baru nyampe di jogja, setelah semingguan di lampung. tumben perjalanannya cepat, abis tumben sih naik bis "keramat jati", biasanya "putra remaja". biasanya jam 2an baru nyampe, sekarang jam 8 pagi nyampenya. kapok deh naik tuh bis, udah mahal, gak nyaman, lamban lagi. sekalipun bocor 10ribu karna lewat agen lain (puspa sari/puspa jaya pool bandar jaya), tapi gak pa2.