Bagaimana Cara Membuat Aplikasi Kalkulator sederhana dengan Delphi7?

Berikut cara Membuat Aplikasi Kalkulator Sederhana dengan Delphi7.
1. Jalankan terlebih dahulu program Delphi7
2.Tambahkan Edit 2buah, Label 3buah, Button 4buah
3. Bentuk Menjadi sedemikian rupa

4. Tambahkan Kode
Kode untuk button1(Tambah) :

procedure TForm1.Button1Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button2(Kurang) :

procedure TForm1.Button2Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1-angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button3 (Kali) :

procedure TForm1.Button3Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1*angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button4(Bagi) :

procedure TForm1.Button4Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1/angka2;
label3.caption := floattostr(hasil);
end;

5. Jalankan program

Source Code dapat didownload DISINI

Contoh Procedure dan Function pada Delphi: Menghitung Volume Balok

Alhamdulillah, selamat datang di blog saya. Nah untuk kali ini saya akan menjelaskan contohnya. Saya tidak akan membuat contoh yang rumit, cukup kita aplikasikan ke program menghitung volume balok. Mugkin rekan-rekan dah bisa kalau tanpa procedure dan function, Nah sekarang akan saya jelasin membuat program menghitung volume dengan function dan procedure. Aplikasi ini juga sebagai bahan untuk tugas Struktur Data pada perkuliahan kami.

Ok sekarang buat formnya dulu, tampilanya kurang lebih sbb:

Objek          Name             Caption
Label1         Label1           panjang
Label2         Label2           lebar
Label3         Label3           tinggi
Label4         Hasil              Hasil
Button1       Btok              Hitung
Button2       Btlagi            Input
Button3       btSelesai       Selesai
Form1         Formbalok    Volume Balok

Objek         Name              Text
Edit1          edpanjang          –
Edit2          edlebar               –
Edit3          edtinggi              –

Listing Program
Untuk programnya perama kita buat procedure dulu,, yaitu bersih layar yang berfungsi membersihkan layar
Masuk ke code editor laludi bawahnya public ketikkan
Procedure bersihlayar;
Lalu di bawahnya implementation, dibawahnya tulisan hijau ketikkan program berikut:

procedure Tformbalok.Bersihlayar;
 begin
 edpanjang.Text:='';
 edlebar.Text:='';
 edtinggi.Text:='';
 edpanjang.SetFocus;
 end;
 function Volume(x,y,z:real):real;
 begin
 Volume:=x*y*z;
 end;

Program di tombol HITUNG
Double click button ok, lalu ketikkan program berikut:

procedure TFormbalok.btokClick(Sender: TObject);
var p,l,t,V:real;
begin
 p:=StrToFloat(edpanjang.Text) ;
 l:=StrToFloat(edlebar.Text) ;
 t:=StrToFloat(edtinggi.Text) ;
 V:= Volume(p,l,t);
 Hasil.Caption :='Volumenya adalah '+ FloatToStr(v)+'';
end;

Program di tombol INPUT

procedure TFormbalok.btlagiClick(Sender: TObject);
begin
Bersihlayar;
end;

Program SELESAI

procedure TFormbalok.btselesaiClick(Sender: TObject);
begin
close;
end;

Download Modul Panduan Delphi Lengkap

1. Pengenalan Delphi
Pada modul ini terdapat materi awal pengenalan Borland Delphi 7, mulai dari nama - nama komponen delphi yang ada di komponen pallete sampai dengan fungsi tiap komponen.

2. Koneksi Database Menggunakan Komponen ADO
Pada modul ini akan dibahas bagaimana cara koneksi database dan tabel menggunakan komponen ADO pada Delphi. Terdapat pengenalan fungsi komponen ADO dan properties yang harus diganti pada saat menggunakannya.

3. Pemanggilan Properties Pada Code Editor Delphi
Pada modul ini akan dibahas properties apa saja yang sering digunakan dalam pemanggilan pada code editor Delphi.

4. Pembuatan Prosedur Global Pada Delphi
Pada modul ini akan dibahas bagaimana cara membuat prosedur global pada Borland Delphi 7.

5. Contoh Source Code Program Data Barang Menggunakan Delphi
Pada modul ini akan dicontohkan bagaimana prosedur membuat sebuah form data barang mulai dari desain sampai dengan sintaks simpan, edit dan hapus

Modul dapat di download DISINI

PROGRAM DATA PEGAWAI

Program ini adalah tentang menghitung data pegawai, disini saya akan menerapkannya pada pemrograman delphi. Sebenarnya program ini tidak terlalu sulit, cara kerja dari program ini adalah kita hanya diminta untuk memasukan inputan nama pegawai, jam kerja dan gaji per jam. Setelah terisi semua data dan ketika kita klik button input maka data  yang kita inputkan akan tampil dalam stringgrid, ketika kita klik button clear maka data yang pernah kita masukkan di pilihan edit akan di bersihkan. Data yang tampil dalam stringgrid bisa kita hapus, tapi satu per satu dari bawah dan tidak langsung terhapus semuanya, caranya dengan mengklik button delete, dan button close untuk keluar dari program. Berikut Source codenya :

unit gaji;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, Grids;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Pegawai: TEdit;

    Jam: TEdit;

    Gj: TEdit;

    Button1: TButton;

    Button2: TButton;

    Panel2: TPanel;

    Panel3: TPanel;

    Button4: TButton;

    Button3: TButton;

    Timer1: TTimer;

    sg: TStringGrid;

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  var i,j,t,tb,jm,gj2,gj3,lembur,lembur2,pokok:integer;

  a:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

a:='Riyan Susilo Adji ';

sg.ColCount := 5;

sg.RowCount := 1;

sg.Cells[0,0]:='No';

sg.Cells[1,0]:='Nama Pegawai';

sg.Cells[2,0]:='Jam Kerja';

sg.Cells[3,0]:='Gaji';

sg.Cells[4,0]:='Total Gaji';

sg.ColWidths [0]:=30;

sg.ColWidths [1]:=80;

sg.ColWidths [2]:=80;

sg.Colwidths[3]:=60;

sg.colwidths[4]:=80;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if MessageDlg(' Apakah ingin anda input?', mtInformation, [mbYes, mbNO],0)= MRYES THEN

jm:=strtoint(Jam.text);

gj2:=strtoint(Gj.Text);

           if jm > 10 then

                    begin

                      lembur:=jm-10;

                      lembur2:=lembur*gj2*2;

                      pokok:=(jm-lembur)*gj2;

                      t:=lembur2+pokok;

                      end

                    else

                    begin

                      t:=jm*gj2;

                      lembur2:=0;

                    end;

sg.RowCount := sg.rowcount+1;

sg.cells[1,sg.RowCount-1]:= Pegawai.Text;

sg.Cells[2,sg.RowCount-1]:= Jam.Text ;

sg.Cells[3,sg.rowcount-1]:= Gj.Text ;

sg.cells[4,sg.RowCount-1] :=IntToStr(t);

for i:=1 to sg.RowCount-1 do

sg.Cells[0,i]:=inttostr(i);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

 sg.RowCount := sg.rowcount-1;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var 

i: Integer; 

begin 

Application.Title := a; 

Form1.Caption := a; 

for i := 1 to (length(a) - 1) do

a[i] := Application.Title[i + 1];

a[Length(a)] := Application.Title[1];

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Pegawai.Clear;

Jam.Clear;

Gj.clear;

end;

end.

Source Code juga bisa Download DISINI

PROGRAM GANJIL GENAP DELPHI

Program ini adalah tentang mengcari bilangan ganjil atau genap, disini saya akan menerapkannya pada pemrograman delphi. Sebenarnya program ini sangat sederhana karena cara kerja dari program ini adalah kita hanya diminta untuk memasukan inputan bilangan awal dan bilangan akhir. Ketika kita klik button ganjiil maka akan keluar bilangan ganjil di listbox, ketika kita klik button genap maka akan muncul button genap di listbox. Program ini menggunakan label, edit, button, panel dan listbox. Didalam program ini kita bisa menginput data pada input bilangan awal dan input bilangan akhir, data yang kita input bisa di lihat hasilnya pada listbox, kalau kita ingin menghapus semua data maka pilih bersih dan exit adalah untuk keluar dari program. Berikut Source codenya :

unit Ganjil_genap;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Panel2: TPanel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    ListBox1: TListBox;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

    a,b: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var x:Integer;

begin

a := strtoint(edit1.Text);

b := strtoint(edit2.Text);

listbox1.Items.clear;

for x:=a to b do

begin

if x mod 2=1 then

listbox1.Items.add(IntToStr(x));

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var y:Integer;

begin

a := strtoint(edit1.Text);

b := strtoint(edit2.Text);

listbox1.Items.clear;

for y:=a to b do

begin

if y mod 2=0 then

listbox1.Items.add(IntToStr(y));

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

listbox1.Items.clear

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo or MB_ICONQUESTION)=ID_Yes ) then

    begin

      close;

    end

end;

end.

Source Code juga bisa download DISINI

PROGRAM KUBUS

Program ini adalah tentang menghitung kubus, yang di cari adalah luas, keliling dan volume. Program ini menggunakan label, edit, button, memo, panel dan image. Didalam program ini kita bisa menginput data pada Input nilai, data yang kita input bisa di lihat hasilnya pada pilihan hitung, kalau kita ingin mencari menghapus semua data maka pilih reset dan exit adalah untuk keluar dari program. Inputan yang di masukkan adalah berapa nilai yang ingin di masukkan, nilai yang di masukkan. Output yang di tampilkan adalah luas kubus, keliling kubus dan volume kubus. berikut souce kodenya :

unit Kubus;

interface

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

type
  TForm1 = class(TForm)
    Hitung: TButton;
    Reset: TButton;
    Exit: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Panel2: TPanel;
    Image1: TImage;
    Label1: TLabel;
    procedure HitungClick(Sender: TObject);
    procedure ResetClick(Sender: TObject);
    procedure ExitClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses kubus4;

{$R *.dfm}

procedure TForm1.HitungClick(Sender: TObject);
 var p, l, t, lu, kel, vol:integer;
 w:tcolor;
begin
p:= StrToInt(Edit1.Text);
Memo1.Clear;
  Memo1.Font.Color := clblack;
lu:=p*p*6;
kel:=12*p;
vol:=p*p*p;
memo1.lines.add('Alas Kubus       = 6 x '+edit1.text +' x ' +edit1.text);
memo1.Lines.add('                         = ' +inttostr(lu));
memo1.Lines.add('Keliling Kubus   = 12 x ' + edit1.text);
memo1.Lines.add('                         = ' +inttostr(kel));
memo1.Lines.add('Volume Kubus  =  ' +edit1.text +' x ' +edit1.text +' x ' +edit1.text);
memo1.Lines.add('                         = ' +inttostr(vol));
end;

procedure TForm1.ResetClick(Sender: TObject);
begin
edit1.Clear;
Memo1.Clear;
end;

procedure TForm1.ExitClick(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Show;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 form2.Show;
end;



end.

Berikut Tampilan Output :

 
 





 

Untuk Source Codenya bisa juga download DISINI

Pengenalan IDE Delphi 7.0

Setelah kemarin kita memahami dan mempelajari pengertian dari Pemrograman Delphi, sekarang kitamulai mengenal tampilan pada Delphi yang biasa disebut dengan IDE.

Apa itu IDE? yuk mari kita mengenal IDE terlebih dahulu? ;-)

IDE (Integrated Development Environment) adalah program komputer yang memiliki beberapa fasilitas yang diperlukan dalam pembangunan perangkat lunak. Tujuan dari IDE adalah untuk menyediakan semua utilitas yang diperlukan dalam membangun perangkat lunak. :roll:

Delphi 7.0 merupakan software yang dirilis oleh  Borland Software Corporation tahun 2002. Delphi 7.0 adalah bahasa pemrograman yang  bekerja dibawah system operasi Windows (Under Windows) dan dapat memanfaatkan hampir semua fasilitas dan kecanggihan yang ada pada system operasi windows antaralain dapat mengakses database secara client-server ataupun stand alone, permainan/game, mengendalikan peralatan luar, pemrograman multimedia dan lain-lain. :)

IDE (Integrated Development Environtmen/Tampilan) dari Delphi 7.0 sangat mudah dipahami (user friendly) karena menggunakan menu dan tools-tools seperti aplikasi pada umumnya.

Tampilan Delphi 7.0 Mode Design Form

Tampilan Delphi 7.0 mode design kode

Bagian-bagian IDE Delphi 7.0

1. Menu bar

Baris menu Terletak paling atas pada IDE. Menu merupakan kumpulan perintah-perintah yang dikelompokkan dalam kriteria operasi yang dihasilkan.

2. Tool Bar

Kehadiran tombol-tombol speed pada toolbar akan sangat membantu dalam mempercepat  akses perintah. Sebab tombol speed berfungsi sama dengan perintah yang tersedia di dalam menu.

 3. Component Palette

Komponent/object untuk mendesain suatu aplikasi, komponen  dikelompokkan dalam beberapa kelompok dari standard, Additional, Win32 dan  seterusnya. Komponent dapat ditambah atau dihapus sesuai kebutuhan. Kita dapat menambah komponen dengan cara membuat sendiri atau mendownload dari internet. Komponen yang sering digunakan dalam aplikasi antara lain adalah Button(  ),  Edit (), Label().

4. Form

Tempat desain utama untuk membuat aplikasi, form akan menampilkan atau menampung Object atau komponen yang diletakkan padanya pada saat program dijalankan.

9. Object TreeView

Object TreeView akan menampilkan object-object yang diletakkan pada form.

10.  Object Inspector

Berisi properties dan event,  properties digunakan untuk mengatur object/komponen pada form seperti warna, letak, nama dan lain-lain sedangkan event adalah kejadian dalam object pada saat program dijalankan dan dapat diisi program.

11. Kode Program

Tempat untuk menulis program.

Yoha. . .kita harus mengenal IDE Delphi terlebih dahulu sebelum mengenal yang lain. . . :P (aplikasi dari yang akan dibuat menggunakan Delphi nanti maksudnya) .

Salam Senyuum. . . ^_*

Mengenal Variabel pada Delphi 7.0

Dalam pengolahan data sering diperlukan suatu tempat penyimpanan data sementara dalam memory, kelebihan dari penyimpanan dalam memory adalah pengaksesan data lebih cepat. Dalam Delphi 7.0 tempat penyimpaan data sementara tersebut disebut variabel.

1. Type Data

Type data adalah jenis data yang dapat disimpan dalam senuah variabel.

Macam-macam type data pada Delphi 7.0:

a. String

Variabel dengan type data string dapat menyimpan karakter bebas.

 

b. Integer

Variabel dengan type data Integer dapat menyimpan bilangan bulat dan tidak dapat digunakan untuk menyimpan bilangan pecahan. Macam-macam type data integer:

 

 c. Real

Variabel dengan type data Real dapat menyimpan bilangan pecahan. Macam-macam type data Real:

d. Boolean

Variabel dengan type data Boolean hanya dapat menyimpan True atau False

2. Deklarasi Varibel

Variable merupakan benda asing bagi Delphi 7.0, supaya Variabel dapat dikenal dan dapat digunakan dalam penyimpanan data variable tersebut harus dideklarasikan(dikenalkan) dengan perintah Var dan untuk memberi nama harus mengikuti aturan-aturan sebagai berikut:

1. Harus dimulai dengan karakter alfabet (huruf).
2. Harus unique (tidak boleh ada yang sama) pada ruang lingkup (scope) variable yang sama.
3. Maksimum 255 karakter, tetapi hanya 40 karakter pertama yang dianggap sebagai nama variabelnya (karakter ke-41 dan seterusnya diabaikan).
4. Beberapa karakter tidak diperbolehkan dipakai, misalnya karakter yang dipakai untuk

• operator (+, -, *, /, <, >, dan lain-lain).

3. Ruang lingkup Variabel

Variabel dalam Delphi 7.0 mempunyai wilayah hidup tergantung pendeklarasiannya. Ruang lingkup suatu variable dapat  hanya dapat wilayah satu  procedure atau  function, dapat juga menjangkau dalam satu unit dan dapat juga menjangkau dalam satu project.

Dari contoh diatas terdapat variable a, varibel b dan variabel c, variable tersebut memiliki jangkauan hanya dalam procedure  Button1Click,  apabila ada procedure lain yang akan digunakan harus dideklarasikan ulang pada procedure tersebut.