Contoh Program Kalkulator Sederhana pada Delphi

Berikut ini akan saya bagikan source code untuk membuat program Kalkulator Sederhana pada Delphi.
Source Codenya :


unit KalkulatorBiasa;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
var nilai:integer;
begin
nilai:=strtoint(edit1.text)+strtoint(edit2.Text);
edit3.text:=inttostr(nilai);
end;

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

procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.text:=' ';
edit3.text:=' ';
end;

procedure TForm1.Button3Click(Sender: TObject);

var nilai:integer;
begin
nilai:=strtoint(edit1.text)-strtoint(edit2.Text);
edit3.text:=inttostr(nilai);
end;

procedure TForm1.Button2Click(Sender: TObject);

var nilai:integer;
begin
nilai:=strtoint(edit1.text)*strtoint(edit2.Text);
edit3.text:=inttostr(nilai);
end;

procedure TForm1.Button1Click(Sender: TObject);

var nilai:real;
begin
nilai:=strtofloat(edit1.text)/strtofloat(edit2.Text);
edit3.text:=floattostr(nilai);
end;

procedure TForm1.Button5Click(Sender: TObject);

var nilai:integer;
begin
nilai:=strtoint(edit1.text) div strtoint(edit2.Text);
edit3.text:=inttostr(nilai);
end;

procedure TForm1.Button6Click(Sender: TObject);

var nilai:integer;
begin
nilai:=strtoint(edit1.text) mod strtoint(edit2.Text);
edit3.text:=inttostr(nilai);
end;

end.




Jika sudah dimasukkan source code seperti di atas maka ketika program dijalankan akan tampil seperti ini :

Sekian dari saya, semoga bermanfaat. Terima Kasih...

Untuk download programnya, silahkan download (DISINI)

Baca Selengkapnya »

Contoh Program Predikat Usia pada Pascal

Berikut ini akan saya bagikan source code untuk membuat program predikat usia pada Pascal :

program case_of_age;
uses crt;
var predikat:string;
usia:byte;
begin
clrscr;
write('TULISKAN USIA ANDA= ');
readln(usia);
case usia of
0..1:predikat:='BAYI';
2..11:predikat:='ANAK-ANAK';
12..17:predikat:='REMAJA';
18..23:predikat:='MENUJU DEWASA';
24..39:predikat:='DEWASA';
40..54:predikat:='USIA PERTENGAHAN';
55..64:predikat:='MENUJU PENUAAN';
else
predikat:='TUA';
end;
write('PREDIKAT USIA ANDA ADALAH= ',predikat);
readln;
end.

Sekian dari saya, semoga bermanfaat. :-)

Untuk download programnya, silahkan download (DISINI)

Baca Selengkapnya »

Contoh Program Stock Handphone pada Pascal

Kali ini saya akan membagikan source code untuk membuat program stock handphone pada Pascal.
Berikut ini source codenya :

program hape;
uses crt;
type stock=record
        nape,jenis,tipe:string;
        jml,hrg:longint;
     end;
var tanya:char;
    i,j:byte;
    fd:array[1..50] of stock;
procedure input;
 begin

  i:=1;
 repeat
 clrscr;
  gotoxy(20,1);write('=================================================');
  gotoxy(20,2);write('=== PROGRAM TAMBAH STOCK HANDPHONE PONSEL FSD ===');
  gotoxy(20,3);write('=================================================');
  gotoxy(10,5);write('Inputkan data ke-',i);
  gotoxy(10,7);write('Nama Handphone            : ');readln(fd[i].nape);
  gotoxy(10,9);write('Tipe                      : ');readln(fd[i].tipe);
  gotoxy(10,11);write('Jenis (Slide/Touch/Biasa) : ');readln(fd[i].jenis);
  gotoxy(10,13);write('Harga Satuan              : Rp. ');readln(fd[i].hrg);
  gotoxy(10,15);write('Jumlah Masuk              : ');readln(fd[i].jml);
  gotoxy(10,20);write('Apakah anda ingin input data lagi <Y/N> ? ');readln(tanya);
  inc(i);
  tanya:=upcase(tanya);
 until tanya='N';
 end;
 procedure tampil;
 begin
  gotoxy(15,1);writeln('======================================================');
  gotoxy(15,2);writeln('||              STOCK BARANG PONSEL FSD             ||');
  gotoxy(15,3);writeln('======================================================');
  gotoxy(12,6);writeln('--------------------------------------------------------------');
  gotoxy(12,7);writeln('| No | Nama Handphone | Tipe | Jenis | Harga/Satuan | Jumlah |');
  gotoxy(12,8);writeln('--------------------------------------------------------------');
  for j:=1 to i-1 do
  begin
   gotoxy(12,j+8);writeln('|');
   gotoxy(14,j+8);writeln(j,'.');
   gotoxy(17,j+8);writeln('|');
   gotoxy(19,j+8);writeln(fd[j].nape);
   gotoxy(34,j+8);writeln('|');
   gotoxy(36,j+8);writeln(fd[j].tipe);
   gotoxy(41,j+8);writeln('|');
   gotoxy(43,j+8);writeln(fd[j].jenis);
   gotoxy(49,j+8);writeln('|');
   gotoxy(52,j+8);writeln('Rp. ',fd[j].hrg);
   gotoxy(64,j+8);writeln('|');
   gotoxy(68,j+8);writeln(fd[j].jml);
   gotoxy(73,j+8);writeln('|');
  end;
  gotoxy(12,j+9);writeln('--------------------------------------------------------------');
  gotoxy(51,j+10);writeln('created by : J1F113038');
  end;
begin
 clrscr; input;
 clrscr; tampil;
readln;
end.

Sekian dari saya, semoga artikel ini bermanfaat.
Terima Kasih.

Untuk download programnya, silahkan download (DISINI)

Baca Selengkapnya »

Contoh Program Berat Badan Ideal pada Delphi

• Deskripsi Program
          Program ini adalah program penghitung berat badan ideal. Saat program ini dijalankan, pertama pengguna diminta untuk memasukkan tinggi badan, untuk melihat hasil berat badan ideal maka pengguna harus mengklik tombol Hitung pada program. Selain tombol hitung, pada program juga ada tombol Hapus dan tombol Tutup, tombol hapus berfungsi untuk mengosongkan kolom yang berisi tinggi badan dan hasil berat badan ideal pengguna tadi, sedangkan tombol tutup berfungsi untuk keluar dari program.

• Interface Program 

• Coding Program

  Nama Komponen	Event	Perintah
  Tombol1	OnClick	procedure TForm1.Tombol1Click(Sender: TObject); var berat:real; begin berat:=90/100*(strtofloat(edit1.Text)-100); edit2.Text:=floattostr(berat); end;
  Tombol2	OnClick	procedure TForm1.Tombol2Click(Sender: TObject); begin edit1.Clear; edit2.clear; end;
  Tombol3	OnClick	procedure TForm1.Tombol3Click(Sender: TObject); begin close; end;

   

•  Output

Gambar 1 Tampilan saat program dijalankan

Gambar 2 Tampilan ketika memasukkan nilai tinggi badan

 

Gambar 5.3 Tampilan setelah tombol Hitung di klik

 Gambar 5.4 Tampilan setelah tombol Hapus di klik

Untuk download programnya, silahkan download (DISINI)

Baca Selengkapnya »