Tampilkan postingan dengan label Delphi. Tampilkan semua postingan
Tampilkan postingan dengan label Delphi. Tampilkan semua postingan

Trik Agar Aplikasi Tidak Dapat Di Close lewat tombol close dan Alt+F4

16.24 AnSetWare

Bagi ada yang ingin membuat aplikasi dengan Delphi, namun tidak menghendaki pengguna untuk meng-close program dengan meng-klik icon close( icon silang yang biasanya berada di pojok kiri atas ) atau tidak menginginkan pengguna meng-close program dengan menekan Alt+F4, maka ini dapat menjadi salah satu cara untuk mengatasinya :
1. Buat aplikasi seperti biasa dengan Delphi
2. Pada Form utama dar program kita, cari event OnCloseQuery ubah eventnya menjadi :

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := false;
end;

3. Eeiit... tapi sebelum di run, kita buat dulu tombol untuk keluar dari program, yakni cukup dengan membuat Button1, lalu pada event OnClick – nya kita ubah menjadi :

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;

4. Nah.. sekarang program kita siap untuk di run...
5. Semoga bermanfaat...

Posted in

Mengatur Tampilan Tanggal dan Waktu di Delphi

21.49 AnSetWare

Berikut ini beberapa contoh cara menampilkan tanggal di delphi :

*) NOW()
untuk menampilkan waktu saat ini, bisa kita gunakan now(), dengan output berupa data bertipe date atau time, dengan cara penulisannya sesuai dengan pengaturan dari komputer kita masing-masing

contoh :

label1.caption := datetostr(now());
hasil : menampilkan tanggal saat ini , dengan penulisannya sesuai dengan pengaturan pada komputer kita masing-masing, kalo di komputerku tertulis 18/07/2010

label1.caption := timetostr(now());
hasil : hampir mirip dengan 'datetostr', namun kali ini menampilkan waktu, dengan penulisannya sesuai dengan pengaturan pada komputer kita masing-masing, kalo di komputerku tertulis 22:32:57


*) FORMATDATETIME('YYYY/MM/DD/HH/NN/SS',now)
FormatDateTime() ini digunakan untuk menampilkan tanggal dan waktu saat ini (now), namum dengan format penulisan yang dapat diatur sesuai dengan keinginan kita. Output dari FormatDateTime() ini adalah berupa data String.

Contoh:

FormatDateTime('yyyy/mm/dd',now)
hasil : 2010/07/18

FormatDateTime('yyyy-mm-dd',now)
hasil : 2010-07-18

FormatDateTime('dd-mm-yyyy',now)
hasil : 18-07-2010

FormatDateTime('dd-mmm-yyyy',now)
hasil : 18-Jul-2010

FormatDateTime('dd-mmmm-yyyy',now)
hasil : 18-Juli-2010

FormatDateTime('hh:nn:ss',now)
hasil : 22:47:35

catatan : Y = tahun, m = bulan, d = tanggal, h = jam, n = menit, s = detik

Posted in

Rumus Pangkat dan Akar di Delphi

16.34 AnSetWare

Kemarin aku sempet bingung waktu mau buat program yang melibatkan bilangan berpangkat. Namun setelah aku cari-cari dari berbagai sumber, baik dari sumber yang terpercaya maupun dari sumber yang tidak terpercaya, dan dengan coba-coba beberapa kali, akhirnya ketemu dech..

Ternyata caranya enggak susah kok..

  • Untuk pangkat dua (pangkat kuadrat) sich lumayan mudah, tinggal kita tulis SQR(angka), trus untuk akar kuadrat bisa pakai SQRT(angka).
  • Kalo untuk pangkat dari bilangan alami(biasanya dilambangkan e), penulisan pangkatnya menggunakan EXP(angka), dan untuk penulisan akarnya adalah dengan menuliskan EXP(1/angka)
  • Untuk pemangkatan dengan bilangan sembarang kita gunakan POWER, dengan syntaxnya adalah POWER(angka, pangkat), namun khusus untuk 'POWER' ,sebelum menggunakannya jangan lupa pada bagian 'uses' kita tambahkan 'Math'.

contoh :

Posted in
Baca Selengkapnya .......... >>>
Langganan: Postingan (Atom)