Cara Membuat Garis Grafik dengan Rave Report pada Pemrograman Delphi

Rave Report merupakan salah satu komponen yang digunakan dalam pembuatan laporan dari program yang kita buat di Pemrograman Delphi. Ternyata Rave Report tidak hanya bisa menampilkan laporan berupa tabel saja, tetapi kita juga bisa menggunakan rave report untuk menyajikan data berbentuk grafik. Grafik-grafik yang bisa dibuat bisa berupa diagram-garis atau diagram batang.

Disini tidak akan diuraikan secara lengkap cara pembuatan diagram-garis atau diagram batang. Berikut hanya akan diuraikan bagaimana cara pembuatan garis grafik di laporan Rave Report. Namun dengan pemahaman tentang pembuatan garis tersebut, diharapkan dapat dikembangkan menjadi  diagram-garis atau diagram-batang yang angka-datanya dibaca secara dinamis dari tabel database. Berikut langkah-langkah yang dilakukan dalam pembuatan garis grafik dengan menggunakan Rave Report.

Langkah 1

Buka program Delphi , lalu tambahkan komponen RvSystem dari palette Rave, dan komponen Button dari pallete Standard.

Langkah 2

Kemudian buat sebuah procedure dengan cara mengetikkan nama procedurenya di bagian deklarasi private , seperti nampak pada gambar dibawah ini.

Langkah 3

Lanjutkan dengan mengetikkan kode implementasi procedure seperti nampak pada gambar dibawah ini.

Langkah 4

Tahap berikutnya adalah pembuatan Event agar procedure CetakGrafik di atas dikerjakan.
Dalam hal ini ada 2 (dua) buah event yang kita buat. Pertama milik komponen RvSystem1 yaitu event OnPrint , dan yang kedua milik komponen Button1 yaitu event OnClick.


Setelah OnPrint diklik dua-kali, maka akan tampil code sebagai berikut.

Langkah 5

Kita ketik diantara begin-end, seperti terlihat di bawah ini.

Langkah 6

Event yang kedua adalah event OnClick komponen Button. Cara pembuatannya sebagai berikut. Pilih komponen button pada Form, lalu klik dua-kali, maka akan tampil seperti di bawah ini.


Selanjutnya ketiklah diantara begin-end, sebagai berikut

Pengeditan program selesai. Kode program lengkap ditampilkan seperti tampak pada gambar di bawah ini.

Langkah 7

Kemudian program kita Run, maka tampil sebagai berikut. Kliklah button Cetak.

Tampillah menu pencetakan seperti ini. Kita klik tombol OK

Selanjutnya tampil preview laporan sebagai berikut.

Tampak pada gambar di atas garis vertikal dan garis horizontal.

Sampai disini uraian langkah pembuatan program. Tentunya program ini masih harus dikembangkan dan dilengkapi lagi sehingga dapat membuat grafik diagram-garis atau grafik diagram-batang pada laporan.
Selain itu perlu diperhatikan juga adanya perbedaan antara nilai sistem koordinat yang digunakan pada laporan dengan nilai sistem koordinat yang digunakan oleh diagram-batang. Untuk itu diperlukan fungsi untuk mentransformasikan nilai koordinat diagram-garis atau diagram-batang menjadi nilai koordinat laporan. Hal ini sudah pernah saya bahas pada tutorial sebelumnya yaitu Menggambar Diagram Garis dengan PHP.
Pengembangan berikutnya adalah angka-angka yang disajikan oleh diagram-garis atau diagram-batang bersumber dari tabel database. Mudah-mudahan pada kesempatan yang akan datang saya sajikan secara lebih lengkap.
Demikianlah tulisan tutorial ini. Ucapan terima kasih kepada pembaca yang telah meluangkan waktunya membaca tulisan ini. Semoga ada manfaatnya.


Sumber bacaan :  http://edn.embarcadero.com/article/30329

Read More

Buat Aplikasi ukurannya bisa autosize

Ass.wr.wb..

Alhamdullah bisa posting lagi neh, tadi da temen nanyain gmana sih caranya biar aplikasi yang kita buat bisa ngikut ma resolusi layar kita, umpama kita buat aplikasi dilaptop yang resolusinya gede, trus pas di jalankan di komputer yang resolusinya lebih kecil berakibat form yang kita buat sedemikian indahnya kan jadi ke potong, pokoknya gak bagus dah...

terus ta coba2 tanya ma om google alhamdullah ketemu walaupun mesti perbaiki koding lagi sih, yang penting ta sederhanakan dan bisa dimengerti ma temen2 dah...!!

OK, sebelum kita mulai belajar kita doa dulu dah, kalo perlu pakek cemilan juga boleh. ("bik kopinya 1 yaaa") ^_^ Temen2 bisa ikutin langkah dibawah ini :

1. Buat Sebuah Aplikasi baru.
2. Di dalam form ntu temen-temen bisa masukkan beberapa komponen seperti label, edit, button, combobox atau yang lainnya.
3. Setelah desain form yang kita buat jadi. di layar codingnya atau unitnya copi s\codding dibawah ini.
   
   procedure ubahukuran(Formnya: TForm; panjang, lebar: LongInt) ;
   begin
   with Formnya do
   Begin
   Scaled := True;
   AutoScroll := False;
   Position := poScreenCenter;
   Font.Name := 'Comic Sans MS';
   if (Screen.Width <> panjang) then
   begin
   Height:=LongInt(Formnya.Height)*LongInt(Screen.Height)div lebar;
   Width:=LongInt(Formnya.Width)*LongInt(Screen.Width)div panjang;
   ScaleBy(Screen.Width,panjang);
   end;
   end;
   end;
   
4. Setelah itu di Form Create atau form shownya, temen-temen tambahkan perintah untuk memanggil prosedur yang diatas dengan perintah " ubahukuran(Form1, 400, 320) ; ". dmana "Form 1" ntu nama formnya, "400" ntu panjang formnya dan yang "300" ntu untuk lebarnya.
5. Kalo sudah selesai, Aplikasi temen-temen bisa dijalankan.
6. Berikut coding lengkapnya. Selamat Mencoba. key...!! (dot_exe)

var
Form1: TForm1;
implementation
{$R *.dfm}

procedure ubahukuran(Formnya: TForm; panjang, lebar: LongInt) ;begin
with Formnya do
Begin
Scaled := True;
AutoScroll := False;
Position := poScreenCenter;
Font.Name := 'Comic Sans MS';
if (Screen.Width <> panjang) then
begin

Height:=LongInt(Formnya.Height) * LongInt(Screen.Height)div lebar;

Width:=LongInt(Formnya.Width) * LongInt(Screen.Width)div panjang;

ScaleBy(Screen.Width,panjang);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ubahukuran(Form1, 400, 320) ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

Read More

Menginstal Borland Pada Windows 7

Pagi-pagi bikin perut laper neh, sambil nunggu waktu makan ngeblog boleh juga neh, ^_^

berhubung sekarang musim windows 7, jadi banyak orang-orang pindah ke windows 7 juga. tapi masalahnya sekarang banyak temen2 delphier yang masih makek delphi 7 terkendala karena "kok delphi 7 gk bisa diinstall di win 7 yaaa...???"
melalui tulisan saya ini kita akan mengatasi gmana caranya biar delphi 7 bisa jalan di windows 7.
Okey sebelum kita mulai alangkah baeknya kita berdoa dulu deh sambil minum kopi sisa tadi malem juga boleh..!!!!! ^_^

Cara Instalasinya

• Pastikan anda install delphi pakek account anda yang Administrator (supaya bisa ngistall maskudnya)
• Install program Delphi 7 Anda. kalo yang belum punya bisa didownload disini
• Setelah selesai instalasi coba jalankan Delphi 7, pasti nemuin pesan error nyuruh ngubah nama file delphi32.$$$ jadi delphi32.dro di lokasi /program files/delphi directories . dan da debug yang perlu dirubah juga.
• Jadi masalahnya sebenarnya ada disini karena terlalu proteksinya maka directory Delphi juga ikut terproteksi.

Cara Perbaikinya:

1. Pastikan menjalankan perintah ini menggunakan administrator.
2. Buka properties directory pada c:/program files/borland. ato drive sistem anda.
3. Pada Tab awal hilangkan tanda cek pada Read-only attribute kemudian klik tombol Apply untuk mengaplikasikan perintah.
4. Buka tab securitynya
5. Berilah hak full akses untuk users yang anda pakai untuk directory c:/program files/borland.

Sekarang Delphi anda siap digunakan,

Semoga bermanfaat buat temen2 yah...^_^

Read More

Cara Membuat Timer pada Borland Delphi 7

Mula mula buatlah sebuat Form, lalu tambahkan dua buah label dengan nama label1 dan label2, dan sebuah Timer dengan nama Timer1,



setelah itu doble klik Timer lalu tuliskan perintah dibawah


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('dd MMMM yyyy',Now);
Label2.Caption:=FormatDateTime('hh:mm:ss',Now);
end;

kalo sudah, tekan menu Run lalu pilih Run atau tekan F9 pada keybord untuk menjalankan program dan liatlah hasilnya
selamat mencoba....!!!!

Read More

Animasi Teks Efek Mesin Ketik Pada Delphi

Sebelumnya kita telah belajar membuat efek blink pada teks, dan sekarang kita akan membuat efek mesin ketik pada Judul Form ataupun pada caption label. Namun sebelumnya kita perlu tahu dulu apa yang dimasud dengan efek mesin ketik. Efek Mesin Ketik maksudnya adalah efek pada teks yang akan muncul satu per satu seperti lagi di ketik. Efek ini kalau dikalangan website banyak digunakan untuk judul website atau blog, namun disini kita akan menggunakannya untuk caption label atau pun caption form sehingga saat dijalankan judul form atau label yang kita beri animasi ini akan muncul perhuruf seperti lagi di ketik. Oke kita langsung praktekkan yaaa,,, caranya yaitu :

1. Buka Program Delphi, Tentunya teman - teman sudah tahu. Kalau belum tahu ini caranya : Klik Start => All Programs => Borland Delphi => Delphi 7.0 (Kalau yang teman - teman gunakan versi 7, tapi untuk versi yang lain juga sama)

2. Tambahkan 1 buah komponen Timer dan atur property intervalnya menjadi 10

3.Klik 1X (satu kali) pada form kemudian tekan F12 pada keyboard, pada bagian var teman - teman ketikan listeing berikut :
var
n : integer;

4. Kemudian Kembali Form, klik 2x (dua kali) pada form, pada FormCreate ketikkan listing berrikut :
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=0;
end;

5.Kemudian kembali lagi ke from, pada komponen Timer klik 2x(dua kali) kemudian masukkan listing berikut ini :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
n:=n+1;
if n=1 then Form1.caption:='M';
if n=2 then Form1.caption:=Form1.caption + 'E';
if n=3 then Form1.caption:=Form1.caption + 'N';
if n=4 then Form1.caption:=Form1.caption + 'U';
if n=5 then Form1.caption:=Form1.caption + ' ';
if n=6 then Form1.caption:=Form1.caption + 'U';
if n=7 then Form1.caption:=Form1.caption + 'T';
if n=8 then Form1.caption:=Form1.caption + 'A';
if n=9 then Form1.caption:=Form1.caption + 'M';
if n=10 then Form1.caption:=Form1.caption + 'A';
if n=10 then timer1.enabled:=false;
end;

6. Jika Captionnya ingin bergerak secara berkisinambungan (terus menerus) maka dapat dilakukan dengan cara berikut :
pada listing
if n=10 then timer1.enabled:=false;
digantin dengan
if n=10 then
begin
Form1.caption:=' ';
n:=0;
end;
sehinggga menjadi :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
n:=n+1;
if n=1 then Form1.caption:='M';
if n=2 then Form1.caption:=Form1.caption + 'E';
if n=3 then Form1.caption:=Form1.caption + 'N';
if n=4 then Form1.caption:=Form1.caption + 'U';
if n=5 then Form1.caption:=Form1.caption + ' ';
if n=6 then Form1.caption:=Form1.caption + 'U';
if n=7 then Form1.caption:=Form1.caption + 'T';
if n=8 then Form1.caption:=Form1.caption + 'A';
if n=9 then Form1.caption:=Form1.caption + 'M';
if n=10 then Form1.caption:=Form1.caption + 'A';
if n=10 then
begin
Form1.caption:=' ';
n:=0;
end;
end;

Catatan :
Atur Kecepatan pergerakkan dengan mengganti property interval di timer.
Itu saja dulu mohon sarannya, kalau ada kesalahan mohon diberitahu dan dimaafkan karena saya juga masih dalam pembelajaran.

Read More