• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

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
design selisih tanggal

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
selisih tanggal

Filed Under: Delphi, Lazarus Tagged With: Delphi, hitung

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
design konversi delphi

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
konversi delphi konversi delphi1 konversi delphi1

Download

Download “Konversi dengan Delphi”

konversi.zip – Downloaded 892 times – 178.00 B

Filed Under: Delphi Tagged With: convert, konversi, source code

Menghitung Usia/Umur dengan Delphi

Last Updated on 2 February 2013 By tommy Leave a Comment

Buat design aplikasinya seperti gambar dibawah ini
design umur delphi

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
program hitung usia delphi
hasil perhitungan usia

Filed Under: Delphi Tagged With: delpi xe, source code, umur

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
delphi design launcher
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
program launcher delphi xe

Filed Under: Delphi Tagged With: launcher, source code

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
odbcad32 di windows

Pada ODBC Data Source Administrator klik add
odbc source data administrator

Dibagian Wizard Create New Data Source scroll ke bawah dan pilih MySQL ODBC 5.2a Driver dan klik finish
create new data source'

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
konfigurasi odbc

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
design form delphi odbc

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

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

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

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.
dbgrid

Aplikasi sewaktu di run seperti gambar dibawah ini
formnya selesai
Sudah selesai tutorial menghubungkan ODBC MySQL dengan Delphi XE.

Source code

Filed Under: Delphi Tagged With: aplikasi, mysql, odbc, 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
design pemutar musik delphi

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
tampilan pemutar lagu mp3
Contoh tampilan aplikasi sewaktu memutar MP3
tampilan pemutar lagu mp3

Download source code :

Download “Pemutar Lagu Delphi”

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

Filed Under: Delphi Tagged With: aplikasi, pemutar mp3, source code

  • Go to page 1
  • Go to page 2
  • Go to Next Page »

Primary Sidebar

Pencarian

Tanya Jawab tentang DevOps SRE CPE, gabung di https://t.me/devopsindonesia

Terbaru

  • Cara Mengganti Port Screen Sharing macOS
  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway
  • Cara Force Delete Namespace di Kubernetes
  • Install PHP MariaDB di Mac Monterey

Komentar

  • mazda on Tutorial Lengkap Install Mail Server Postfix Dovecot MariaDB di CentOS 7
  • adi on Menggunakan Mikrotik Sebagai SSH Client
  • aris u on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Bowo on Cara Mematikan SSID Molecool Balifiber
  • aris on Solusi Simple Queue Mikrotik Tidak Berjalan

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.2m views
  • Password Terbaru ZTE F609 Indihome 784.5k views
  • Password Superadmin Huawei HG8245A 318.7k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273.1k views
  • Cara Setting Wireless ZTE F609 Indihome 257.2k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.9k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.8k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 153.4k views
  • Cara Reset Password ZTE F609 Indihome 147.6k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 113.6k views

Kategori

  • Delphi
  • dll
  • Gambas
  • Internet
  • Java
  • Lazarus
  • Linux
  • PHP
  • Review
  • Teknologi

Sponsor

kadal.id
carakami.com
kuotabisa.com
Untuk jadi sponsor, hubungi kita lewat halaman sponsor
© 2021. Jaranguda
  • Linux
  • PHP
  • Internet
  • Teknologi
  • Delphi
  • Gambas
  • Java