• 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

Lazarus Cek File Ada atau Tidak

Last Updated on 30 November 2014 By tommy Leave a Comment

Contoh kita mau membuat aplikasi menggunakan stand alone database seperti SQLite, sebelum program dijalankan file SQLite (contoh database.db) di cek terlebih dahulu apakah sudah ada atau belum, bila belum ada di tampilkan error, bila sudah ada program dijalankan seperti biasa.

Deklarasikan fungsi DBSQLite atau apapun nama yang anda inginkan, dibawah var paling atas

DBSQLite : string;

klik dua kali di form yang pertama dibuka sewaktu menjalankan aplikasi, tambahkan code

  DBSQLite:= 'database.db';
  if FileExists(DBSQLite) then
  begin
       SQLite3Connection1.Connected:=TRUE
  end
  else
  begin
       ShowMessage(DBSQLite+' tidak ditemukan');
       Application.terminate;
  end

Bila database tidak ditemukan muncul pesan error
database tidak ditemukan
lalu program di tutup (exit), bila database ditemukan program berjalan seperti biasa.

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

Instalasi Lazarus IDE di Fedora 20

Last Updated on 23 September 2014 By tommy Leave a Comment

Lazarus bisa dibilang merupakan versi open source dari Delphi, dan banyak aplikasi yang bisa diporting dari Delphi ke Lazarus. Lazarus tidak tersedia di repository Fedora 20, makanya harus di install manual.
Download Lazarus
64 Bit

wget http://softlayer-sng.dl.sourceforge.net/project/lazarus/Lazarus%20Linux%20x86_64%20RPM/Lazarus%201.2.4/fpc-src-2.6.4-140420.x86_64.rpm
wget http://softlayer-sng.dl.sourceforge.net/project/lazarus/Lazarus%20Linux%20x86_64%20RPM/Lazarus%201.2.4/fpc-2.6.4-1.x86_64.rpm
wget http://softlayer-sng.dl.sourceforge.net/project/lazarus/Lazarus%20Linux%20x86_64%20RPM/Lazarus%201.2.4/lazarus-1.2.4-0.x86_64.rpm

32 Bit

wget http://sourceforge.net/projects/lazarus/files/Lazarus%20Linux%20i386%20RPM/Lazarus%201.2.4/lazarus-1.2.4-0.i686.rpm/download
wget http://sourceforge.net/projects/lazarus/files/Lazarus%20Linux%20i386%20RPM/Lazarus%201.2.4/fpc-src-2.6.4-140420.i686.rpm/download
wget http://sourceforge.net/projects/lazarus/files/Lazarus%20Linux%20i386%20RPM/Lazarus%201.2.4/fpc-2.6.4-1.i686.rpm/download

ketiga file diatas harus di install sekaligus, gunakan YUM untuk menginstall ketiganya beserta dependency nya
64 Bit

yum localinstall fpc-2.6.4-1.x86_64.rpm  fpc-src-2.6.4-140420.x86_64.rpm  lazarus-1.2.4-0.x86_64.rpm

32 Bit

yum localinstall fpc-2.6.4-1.i686.rpm fpc-src-2.6.4-140420.i686.rpm lazarus-1.2.4-0.i686.rpm

Saat tulisan ini dibuat Lazarus terbaru adalah Lazarus 1.2.4 untuk informasi terudate kungjungi situs Lazarus. Nantikan tulisan selanjutnya mengenai Lazarus.

Untuk menjalankan lazarus dari terminal eksekusi

lazarus-ide

Filed Under: Lazarus Tagged With: Delphi, linux

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.2k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273k views
  • Cara Setting Wireless ZTE F609 Indihome 257.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.8k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.8k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 153.1k views
  • Cara Reset Password ZTE F609 Indihome 147.5k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 113.5k 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