Delphi

Menghitung Selisih Tanggal di Lazarus

Last Updated on 2 December 2014 By tommy Leave a Comment

Untuk mempermudah pemilihan tanggal kita akan menggunakan ZVDateTimeControls cara instalasinya bisa dilihat di wiki

Buat design aplikasi seperti gambar dibawah

Klik dua kali pada tombol Hitung edit biar tampilannya seperti dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
 
var
  sekarang : TDateTime;
  nanti : TDateTime;
  selisih : String;
 
begin
     sekarang := ZVDateTimePicker3.Date;
     nanti := ZVDateTimePicker4.Date;
     selisih := IntToStr(DaysBetween(nanti,sekarang));
     // hasilnya
     edit1.Text:= selisih;
 
end;

dibagian uses paling atas tambahkan dateutils sehingga menjadi, karena fungsi DaysBetween ada disana.

uses
  Classes, SysUtils, mysql55conn, sqldb, db, FileUtil, Forms,
  Controls, Graphics, Dialogs, DBGrids, DbCtrls, StdCtrls, ZVDateTimePicker, dateutils;

Jalankan aplikasi dengan menekan tombol F9

Membuat Aplikasi Konversi Kilobyte, Megabyte Ke Byte dengan Delphi

Last Updated on 3 February 2013 By tommy Leave a Comment

Versi Delphi yang saya gunakan adalah Delphi XE, tetapi aplikasi ini bisa berjalan di semua versi Delphi. Buat sebuah form baru, design seperti gambar dibawah

Tool Palette yang digunakan
2 buah TEdit
1 buah TCombobox
2 buah label

Klik dua kali pada sembarang tempat di form, lalu tambahkan script dibawah ini

// membersihkan edit1 dan edit2
edit1.Clear;
edit2.Clear;
//menambahkan isi combobox
ComboBox1.Items.Add('Byte');
ComboBox1.Items.Add('Kilobyte');
ComboBox1.Items.Add('Megabyte');

Kembali ke Design form, Label1 ubah property Caption menjadi = , Label2 ubah property Caption menjadi Byte. Klik Combobox1, klik dua kali pada pada events OnChange akan terbuka view code, dimana kita bisa menambahkan coding, tambahkan script dibawah ini

var
a1, a2 : integer;
begin
if ComboBox1.Text='Byte' then
begin
//edit2.Text := edit1.Text * 1;
a1 := StrToInt(Edit1.Text) * 1;
edit2.Text := IntToStr(a1);
end
 
else if ComboBox1.Text='Kilobyte' then
begin
a1 := StrToInt(Edit1.Text) * 1024;
edit2.Text := IntToStr(a1);
end
 
else if ComboBox1.Text='Megabyte' then
begin
a1 := StrToInt(Edit1.Text) * 1048576;
edit2.Text := IntToStr(a1);
end

Setelah selesai semuanya, jalankan aplikasi dengan menekan tombol F9 di keyboard

Download

Download “Konversi dengan Delphi”

konversi.zip – Downloaded 892 times – 178.00 B

Menghitung Usia/Umur dengan Delphi

Last Updated on 2 February 2013 By tommy Leave a Comment

Buat design aplikasinya seperti gambar dibawah ini

2 buah TLabel
1 buah TButton
1 buah datetimepicker
1 buah Tedit

klik dua kali pada tombol hitung, lalu masukkan script

var
umur, tl, ts: Integer;
begin
tl := Yearof(Now);
ts := YearOf(DateTimePicker1.Date);
umur := tl -ts;
edit2.Text := IntToStr(umur);

klik dua kali pada form, tambahkan script dibawah ini

edit2.clear

Jalankan aplikasi diatas dengan menekan tombol F9 di keyboard

Membuat Program Launcher dengan Delphi XE

Last Updated on 26 January 2013 By tommy Leave a Comment

Setelah di tulisan sebelumnya https://jaranguda.com/membuat-program-launcher-dengan-gambas/ kita menggunakan Gambas, maka sekarang kita akan mencoba membuat aplikasi yang sama, tentunya dengan menggunakan Delphi XE. Kita akan membuat program launcher untuk Registry Editor, Notepad, Task Manager dan WordPad Windows.

Bbuka Delphi Xe lalu klik New > VLC Forms Application – Delphi buat designnya seperti gambar dibawah ini

Tool Palette yang digunakan
4 TButton dan yang diubah adalah bagian Captionnya
klik dua kali pada RegEdit lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'c:\Windows\regedit.exe', nil, nil, SW_SHOWNORMAL) ;

klik dua kali pada Notepad lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

klik dua kali pada Task Manager lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'C:\Windows\System32\taskmgr.exe', nil, nil, SW_SHOWNORMAL) ;

klik dua kali pada WordPad lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'c:\Windows\write.exe', nil, nil, SW_SHOWNORMAL) ;

proses coding telah selesai, sekarang jalankan program yang baru dibuat dengan menekan tombol F9 di keyboard. Hasil program yang dijalankan seperti gambar dibawah ini

Koneksi MySQL ODBC dengan Delphi XE Bagian 2

Last Updated on 18 January 2013 By tommy Leave a Comment

Tulisan ini adalah lanjutan dari Koneksi MySQL ODBC dengan Delphi XE Bagian 1.

Setelah selesai pembuatan databse di phpMyAdmin, sekarang kita lanjut ke penambahan database yang baru kita buat ke ODBC. Tekan lambang windows di keyboard + r untuk menampilkan run lalu ketik odbcad32 dan klik tombol OK

Pada ODBC Data Source Administrator klik add

Dibagian Wizard Create New Data Source scroll ke bawah dan pilih MySQL ODBC 5.2a Driver dan klik finish

Pada menu selanjutnya tambahkan data sesuai dengan waktu instalasi MySQL server dan juga pembuatan databasenya, disini biasanya menggunakan user root tetapi pada contoh saya menggunakan userdb, untuk pembaca gunakan username root dan password sesuai dengan password root mysql anda

Sekarang kita beralih ke Delphi, konfigurasi untuk database sudah selesai, waktunya bagian untuk memanggil dari dalam Delphi. Buat VLC Component baru dari Delphi dan tambahkan Pallete AdoConnection, DataSource, DBGrid, Adotable buat seperti gambar dibawah ini

Klik dua kali pada Adoconnection1, akan muncul tampilan seperti gambar dibawah ini

Klik Build dan pilih tab Connection. Dibagian use data source name pilih database yang tadi kita buat, di contoh kita buat namanya dbcontoh.

Wizard akan kembali ke tampilan awal sewaktu double klik pada pallet Adoconnection dan klik tombol OK

Klik pada AdoTable1 dan pada Object Inspector pada bagian Connection Pilih AdoConnection1, Connection > Login Prompt uncheck, Connection > Connected check. Table Name > pilih data, lalu Active > True. Pada DataSource1 pada dataset pilih Adotable1 dan Check pada Enable.

Klik DBGrid, pada Object Inspector bagian Data Source pilih DataSource1.

Aplikasi sewaktu di run seperti gambar dibawah ini

Sudah selesai tutorial menghubungkan ODBC MySQL dengan Delphi XE.

Source code

Membuat Pemutar Musik MP3 dengan Delphi

Last Updated on 18 January 2013 By tommy 1 Comment

Tutorial ini menggunakan Delphi XE, dan penggunaan di Delphi 7 atau versi lainnya seharusnya tidak ada masalah, karena tidak ada menggunakan komponen diluar bawaaan delphi.

Buat design aplikasi pemutar musik seperti gambar dibawah ini

Komponen yang digunakan
1 Mediaplayer
1 Tedit
1 Progressbar
1 timer
1 timage
1 timer
1 listbox
1 Opendialog
1 TLabel
setelah selesai mendesign, sekarang waktunya untuk menulis script agar aplikasi pemutar lagu tersebut dapat berjalan.
Klik dua kali pada tombol pilih mp3 dan ketik script dibawah ini

if OpenDialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
ListBox1.Items:=OpenDialog1.Files;
ProgressBar1.Max:=0;
MediaPlayer1.Close;
MediaPlayer1.FileName:=edit1.Text;
MediaPlayer1.Open;
ProgressBar1.Max:=MediaPlayer1.Length;
end;

Listbox berada di bawah tulisan Klik untuk memutar lagu : klik dua kali pada listbox dan tambahkan script

MediaPlayer1.Play;

lanjutkan dengan mengklik pada timer, tambahkan script dibawah ini

if ProgressBar1.Max<>0 then
ProgressBar1.Position:=MediaPlayer1.Position;
end;

untuk menyembunyikan Mediaplayer, klik dua kali pada form lalu tambahkan script

MediaPlayer1.Enabled:=False;

Jalankan program dengan menekan tombol F9 di keyboard. Tampilannya seperti gambar dibawah ini

Contoh tampilan aplikasi sewaktu memutar MP3

Download source code :

Download “Pemutar Lagu Delphi”

mp3-player.zip – Downloaded 1833 times – 178.00 B