Monday, 22 February 2016T2/22/2016 10:22:00 pm

MEMBUAT PERHITUNGAN LUAS SEGITIGA, LUAS LINGKARAN DAN OPERASI ARITMATIKA MENGGUNAKAN DELPHI

Salam blogger.....pada postingan kali ini saya akan share cara membuat perhitungan luas segitiga, luas lingkaran dan operasi aritmatika dengan menggunakan delphi. progam ini saya buat hanya dengan 1 form saja, sehingga memudahkan user untuk melakukan proses operasi aritmatika. jadi disini kita dapat melakukan perhitungan baik itu penjumlahan, pengurangan, perkalian dan pembagian, dan juga beberapa rumus untuk menghitung luas lingkaran dan luas segitiga. berikut ini contoh tampilan program operasi aritmatika yang saya buat.
Adapun teknik yang saya gunakan di program ini adalah INTtoSTR dan STRto INT, yaitu mengkonversi tipe data integer menjadi string dan mengkonversi data string menjadi integer. untuk proses penginputan data nya disini saya menggunakan edit text, secara default edit text, sehingga kita akan mengubah tipe data tersebut menjadi integer terlebih dahulu, agar pada saat proses pehitungan nya pada delphi tidak terjadi error. adapun komponen yang diperlukan untuk membuat program ini adalah ; edit text, button, spinedit, groupbox dan label, untuk membuat tampilannya silahkan sobat buat seperti pada gambar form di bawah ini :
Gambar diatas merupakan contoh tampilan form yang saya buat untuk  program operasi aritmatika, silahkan buat sesuai dengan kreasi sobat, jika tampilan form di delphi nya sudah sobat buat, maka selanjutnya tinggal menambahkan source code untuk menjalankan program tersebut. selanjutnya masukan source code dibawah ini kedalam form yang sudah sobat buat sebelumnya.

unit Uhitung;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button12: TButton;
    Edit5: TEdit;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button13: TButton;
    Label10: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    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;

implementation

{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
begin
label4.Caption:=IntToStr(StrToInt(edit1.Text) mod
StrToInt(edit2.Text));
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
label4.Caption:=IntToStr(StrToInt(edit1.Text) div
StrToInt(edit2.Text));
end;

procedure TForm1.Button12Click(Sender: TObject);
var alas,tinggi:integer;
luas:real;
begin
alas:=StrToInt(edit3.Text);
tinggi:=StrToInt(edit4.Text);
luas:=0.5*alas*tinggi;
label8.Caption:=FloatToSTr(luas);

end;

procedure TForm1.Button13Click(Sender: TObject);
const phi=3.14;
var jari2:integer;
luas:real;
begin
jari2:=StrToInt(edit5.Text);
luas:=phi * jari2 * jari2;
label12.Caption:=FloatToStr(luas);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
GroupBox1.BringToFront;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
GroupBox2.BringToFront;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
GroupBox3.BringToFront;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
GroupBox4.BringToFront;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Label4.Caption:=IntToStr(StrToInt(edit1.Text)+StrToInt(edit2.Text));
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
label4.Caption:=IntToStr(StrToInt(edit1.Text)-
StrToInt(edit2.Text));
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
label4.Caption:=IntToStr(StrToInt(edit1.Text)*StrToInt(edit2.Text));
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
label4.Caption:=FloatToStr(StrToFloat(edit1.Text)
/StrToFloat(edit2.Text));
end;

procedure TForm1.Edit10Change(Sender: TObject);
var
  Rp: string;
  Rph: Currency;
begin
  Rp := Edit10.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);
  edit10.Text := FormatCurr('#,###',Rph);
  edit10.SelStart := length(edit10.text);

end;

procedure TForm1.Edit6Change(Sender: TObject);
var
  Rp: string;
  Rph: Currency;
begin
edit8.Text:=edit6.Text;
  Rp := Edit6.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);

  edit6.Text := FormatCurr('#,###',Rph);
  edit6.SelStart := length(edit6.text);

end;

procedure TForm1.Edit7Change(Sender: TObject);
var
  Rp: string;
  Rph: Currency;
begin
edit9.Text:=edit7.Text;
  Rp := Edit7.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);

  edit7.Text := FormatCurr('#,###',Rph);
  edit7.SelStart := length(edit7.text);
end;

procedure TForm1.Edit8Change(Sender: TObject);
var
  Rp: string;
  Rph: Currency;
  a,b,c:real;
begin
  Rp := Edit8.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);
  edit8.Text := currtostr(Rph);
  edit8.SelStart := length(edit8.text);
  a:=strtofloat(edit8.Text);
b:=strtofloat(edit9.Text);
c:= a+b;
edit10.Text:=formatfloat('',c);
end;

procedure TForm1.Edit9Change(Sender: TObject);
var
  Rp: string;
  Rph: Currency;
  a,b,c:real;
begin
  Rp := Edit9.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);
  edit9.Text := currtostr(Rph);
  edit9.SelStart := length(edit9.text);
    a:=strtofloat(edit8.Text);
b:=strtofloat(edit9.Text);
c:= a+b;
edit10.Text:=formatfloat('',c);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit8.Hide;
edit9.Hide;
edit6.Enabled:=false;
edit7.Enabled:=false;
edit10.Enabled:=false;
GroupBox1.BringToFront;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
edit6.Text:=IntToSTr(StrToInt(spinedit1.Text)*5000);
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
edit7.Text:=IntToSTr(StrToInt(spinedit2.Text)*2000);
end;
end.

Jika sudah membuat source kode nya kita tingga sedikit merubah tampilan pada form di delphi agar terlihat mudah untuk digunakan, cara nya adalah geser groupbox 2 , 3 ,4 ke posisi groupbox 1 berada, sehingga menimpa groupbox yg lain menimpa groupbox 1, seperti contoh gambar dibawah ini

Selanjutnya tambahkan script " groupbox1.BringtToFront; " masing-masing pada button kalkulator, luas segitiga, luas lingkaran dan pesanan mengikuti groupbox yang sudah dibuat. fungsinya adalah jika button yang di samping di klik, maka otomatis groupbox yang dipanggil akan tampil di paling depan.

Demikian postingan yang dapat saya share kali ini, semoga dapat bermanfaat bagi sobat semua. jika sobat semua ingin mencoba contoh program yang saya buat seperti contoh diatas, sobat dapat mengunduh programnya pada link dibawah ini.
note : tunggu 5 detik dan  klik skip ad / lewati untuk melanjutkan proses unduhan

Terima kasih
Previous
Next Post »
0 Komentar untuk "MEMBUAT PERHITUNGAN LUAS SEGITIGA, LUAS LINGKARAN DAN OPERASI ARITMATIKA MENGGUNAKAN DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status