Bermacam-macam Format Tanggal di Delphi

Untuk menampilkan format tanggal di delphi dapat menggunakan sintaks yang dapat dipergunakan secara langsung
     
        FormatDateTime(format,var_tanggal);

Untuk lebih jelas, Buatlah sebuah Form baru dan desain seperti gambar di samping.




Lakukan klik ganda Format Tanggal dan Tambahkan Listing kode di bawah ini

Edit2.Text := FormatDateTime('dd-mmmm-yy hh:mm:ss',datetimepicker1.DateTime);
Edit3.Text := FormatDateTime('dd-mmmm-yy',datetimepicker1.DateTime);
Edit4.Text := FormatDateTime('dddd,dd-mmmm-yyyy',datetimepicker1.DateTime);

Selanjutnya jalankan program . Pertama - tama pilih tanggal di datetimepicker dan klik Button "Format Tanggal" dan hasilnya akan tampak seperti dibawah ini ..

Gax mau repot2 dari awal sampe akhir  ... silakan download di sini

Read More

Mengenal lebih dekat dengan Delphi 7

Mengenal Delphi
Delphi adalah suatu bahasa pemograman (development language) yang digunakan untk merancang suatu aplikasi program.

• Kegunaan Delphi

1. Untuk membuat aplikasi windows
2. Untuk merancang aplikasi program berbasis grafis
3. Untuk membuat program berbasis jaringan (client/server)
4. Untuk merancang program .Net (berbasis internet)

• Keunggulan Delphi

1. IDE (Integrated Development Environment) atau lingkungan pengembangan aplikasi sendiri adalah satu dari beberapa keunggulan delphi, didalamnya terdapat menu - menu yang memudahkan kita untuk membuat suatu proyek program.
2. Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada Delphi, maka secara otomatis akan dibaca sebagai sebuah program, tanpa dijalankan terpisah.
3. Mudah digunakan, source kode delphi yang merupakan turunan dari pascal, sehingga tidak diperlukan suatu penyesuain lagi.
4. Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi.

• Sejarah Borland Delphi

1. Delphi versi 1 (berjalan pada windows 3.1 atau windows 16 bit)
2. Delphi versi 2 (Berjalan pada windows 95 atau delphi 32 bit)
3. Delphi versi 3 (berjalan pada windows 95 keatas dengan tambahan fitur internet atau web)
4. Perkembangan selanjutnya diikuti dengan Delphi versi 4, 5 dan 6.
5. Versi terkini dari delphi adalahversi 7 dengan tambahan vitur .net dengan tambahan file XML

OOP (Object Oriented Programming)
OOP adalah metode pemograman dengan membentu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya. Hal itu bisa dilakukan dengan cara mendisain object untuk menyelesaikan masalah.

• Tiga unsur OOP

1. Encapsulation atau pemodelan
Encapsulation adalah konsep penggabungan data dengan operator. Dalam konsep pemodelan data dan operasi menjadi satu kesatuan yang disebut object. Encapsulation juga disebut dengan penyembunyian informasi (information hiding)
Contoh = ketika kita menyalakan sebuah TV kita tidak tahu apa yang terjadi  dengan  proses  dan  percakapan  antar  alat  yang  berhubungan dengan  TV  tersebut  sehingga  mampu  menampilkan  sebuah gambar.
Atau     =   ketika   melakukan klik pada subuah object dalam suatu aplikasi  program kita tidak tahu apa yang dilakukan program sehingga ditampilkan hasil yang sesuai.

Catatan     =  dari  dua  contoh  kasus  tersebut  terdapat  kesamaan  proses  mengenai information hiding yang tidak diketahui oleh user sampai hasil  ditampilkan.

2. Inheritance atau penurunan
Inherintance   adalah sebuah object yang dapat diturunkan menjadi object yang baru dengan tidak menghilangkan sifat asli dari object tersebut.

Contoh  = TV merupakan salah satu media elektronik yang dgunakan untuk  menampilkan gambar dengan tujuan untuk memberikan informasi kepada  konsumen.  Secara  umum  TV  memunyai  cara  kerja  yang sama dengan media elektronik yang lain dlam proses penyampaian informasi,   tetapi   mempunyai   sifat   yang   unik   yang   dapat membedakan dengan media electronik yang ada.
Atau     =  Dalam aplikasi program kita sering menggunakan command button,  untuk beberapa perintah yang berbeda.

3. Polymorphism atau Polimorfisme
Polymorphism merupakan penggunaan berbagai macam object yang berbeda tetapi secara fungsi bergantung pada satu object sebagai induk, dengan cara pelaksanaan   yang berbeda - beda.
Contoh     = TV dan radio adalah media electronik yang mempunyai sistem
yang sama tentang bagaimana meyebarkan suatu informasi, tetapi cara kerja dari masing - masing sistem pasti berbeda.

Read More

Menentukan Bilangan Ganjil dan Genap Di delphi 7

Ini adalah toturial bagi yang baru mempelajari pemrograman delphi. Toturial ini merupakan toturial sederhana yang saya buat karena saya baru di dlam dunia delphi.. :)

Ok langsung saja.Bilangan Ganjil adalah bilangan yang sisa pembaginya <> (tidak sama) dengan 0 sedangkan Bilangan genap sebaliknya. Jika di implementasikan ke dalam program akan seperti gambar di samping : 

Terdapat 6 label, 4 edit.text dan 1 button. Langkah - langkah yang harus dilakukan yaitu :

• Jalankan Delphi (recomended delphi 7)  ,
• Desain program seperti diatas, boleh dibedakan tapi sesuaikan jumlah dan jenis objek.
• Klik button Cek dan ikuti listing program di bawah ini :

 //Buat variabel x,y, dan i tipe integer. 
 var x:Integer;
 var y:Integer;
 var i:Integer;

//lakukan loop untuk melooping bilangan awal sampai bilangan akhir
//dan lakukan if jika bilangan termasuk bil.Ganjil dan Bil. Genap
for  i:=x to y do
begin
     if i mod 2 = 1 then
      BilGanjil.Text := BilGanjil.Text + IntToStr(i)+','


  else
     BilGenap.Text := BilGenap.Text + IntToStr(i)+',';

end;

•  Listing lengkap program seperti di bawah ini :

procedure TForm2.Button1Click(Sender: TObject);
     var x:Integer;
     var y:Integer;
     var i:Integer;
begin
x:=StrToInt(EditBilAwal.Text);
y:=StrToInt(EditBilAkhir.Text);

for  i:=x to y do
begin
     if i mod 2 = 1 then
      BilGanjil.Text := BilGanjil.Text + IntToStr(i)+','


  else
     BilGenap.Text := BilGenap.Text + IntToStr(i)+',';

end;
end;

end.

Gax mau bersusah payah silakan download disini Full Program

Teriama kasih atas kunjungannya ..sukses selalu

Read More

Penghitungan Gaji Pegawai

Hai bro...kali ini ijinkan aku meshare toturial pembelajaran tentang delphi yaitu Sistem Penghitungan Gaji Pegawai. Tampilan lengkap progaram seperti di bawah ini :

Untuk memulai membuat program seperti diatas, langkah yang harus dilakukan

• Susun Desain program seperti diatas,
• Ikuti Listing Program dibawah ini, yang perlu ditambahkan hanya sript kode wrna merah

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Label10: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button2: TButton;
    Button3: TButton;
    INFO: TMemo;
    Label11: TLabel;
    Edit8: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure hapusdata(); //mendeklarasikan prosedure hapusdata
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
//mendeklarasikan variabel global
  jk,jabatan:string; //mendeklarasikan variabel jk dan jabatan bertipe string
  tunjangan,pajak,gjipokok,Total :double; //mendeklarasikan variabel jk dan jabatan bertipe double



implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
hapusdata(); //memanggil prosedure hapusdata
ComboBox1.ClearSelection; //mengembalikan kondisi comboBox seperti semula

end;
//membuat prosedure hapus data
procedure TForm1.hapusdata();
begin
Edit1.Clear;//menghapus data di edit1.text
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
ComboBox1.ClearSelection;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close; //menutup aplikasi program
end;

procedure TForm1.Button1Click(Sender: TObject);
var //mendeklarasikan variabel nip,nama,alamat,umur tipe string
nip,nama,alamat,umur:string;
begin
 nip :=Edit1.Text;//memberikan nilai dari edit1.text ke variabel nip
 nama:= Edit2.Text;
 alamat:= Edit3.Text;
 umur := Edit4.Text;


  Total := (tunjangan + gjipokok) - pajak;
  Edit8.Text := floattostr(Total);//mengubah nilai float ke string dan memberikanya ke edit8.text

  INFO.Lines.Add('NIP :'+nip+' Nama : '+nama+' Alamat : '+alamat
  +' Jenis Kelamin : '+jk+' Jabatan : '+jabatan+' Umur :'+umur+' tahun'
  +' Tunjangan : '+floattostr(tunjangan)+' Pajak : '+floattostr(pajak)
  +' Gaji Pokok : '+floattostr(gjipokok)+' Total Pendapatan : '+floattostr(total));
  hapusdata();//memanggil prosedure hapus data setelah button simpan diklick
  end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
    jk:='Perempuan';//memberikan data ke variabel jk saat radiobutton2 dklick
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
jk:='Laki - laki';
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.Text =('Ketua') then //membuat pengkondisian saat pilihan dari combobox dipilih
begin
      tunjangan :=2000000;
      gjipokok:= 5000000;
      pajak:= 0.05 * gjipokok;
      jabatan:='Ketua';
 end
else if Combobox1.Text =('Wakil Ketua') then
begin
      tunjangan :=1500000;
      gjipokok:= 4000000;
      pajak:= 0.04 * gjipokok ;
      jabatan :='Wakil Ketua';
 end
else if Combobox1.Text =('Sekretaris') then
begin
      tunjangan := 1200000;
      gjipokok:= 3000000;
      pajak:= 0.03 * gjipokok;
      jabatan := 'Sekretaris';
 end
else if Combobox1.Text =('Bendahara') then
begin
   tunjangan := 1000000 ;
      gjipokok:=2000000 ;
      pajak:= 0.02 * gjipokok;
      jabatan :='Bendahara';
  end
else if Combobox1.Text =('Anggota') then
begin
      tunjangan := 800000 ;
      gjipokok:=1500000;
      pajak:= 0.01 * gjipokok;
      jabatan := 'Anggota';
 end
else
begin
      tunjangan := 0;
      gjipokok:=0;
      pajak:= 0.01 * gjipokok;
      jabatan := 'Tidak ada';
   end;
  Edit5.Text := floattostr(tunjangan);
  Edit6.Text := floattostr(pajak);
  Edit7.Text := floattostr(gjipokok);
end;

end.

• Setelah selesai jalankan program dengan menekan tombol F9 icon play .
• Semoga Sukses..sampai jumpa di toturial berikutnya.

Tak mau bersusah payah download disini Full Program

Read More