Program Kalkulator Sederhana Menggunakan Delphi

Program Kalkulator Sederhana Menggunakan Delphi



Delphi merupakan salah satu program berbasis GUI yang bisa dibilang hampir sama persis dengan aplikasi pemrograman berbasis GUI lainnya yaitu Visual Basic. Berikut ini adalah salah satu contoh program sederhana Delphi, pengitung angka dengan menggunakan operator yang terdapat didalam combo box.
Label1 = Font 12, Caption Nilai
Label2 = Font 12, Caption Operator
Label3 = Font 12, Caption Nilai2
Label4 = Font 12, Caption Hasil
Edit1= Font 14, Text …….
Edit2= Font 14, Text …….
Edit3= Font 14, Text …….
Combobox1= Font 14, Text …….
button1= Font 12, Caption Proses
button2= Font 12, Caption Reset
button3= Font 12, Caption Exit
Source code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, math;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
AResult : double;
begin
AResult := 0;
if ComboBox1.Text =’^’ then
AResult := Power(StrToInt(Edit1.Text),StrToInt(Edit2.Text))
else if ComboBox1.Text =’+’ then
AResult := StrToInt(Edit1.Text)+StrToInt(Edit2.Text)
else if ComboBox1.Text =’-’ then
AResult := StrToInt(Edit1.Text)-StrToInt(Edit2.Text)
else if ComboBox1.Text =’/’ then
begin
if StrToInt(Edit2.Text) = 0 then
AResult := 0
else
AResult := StrToInt(Edit1.Text)/StrToInt(Edit2.Text);
end
else if ComboBox1.Text=’*’ then
AResult := StrToInt(Edit1.Text)+StrToInt(Edit2.Text);
Edit3.Text := FloatToStr(AResult);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=”;
Edit2.Text:=”;
Edit3.Text:=”;
ComboBox1.Text:=”;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
end.
Ini adalah output yang Sudah Jadi ,,,,,
Anda baru saja membaca artikel yang berkategori dengan judul Program Kalkulator Sederhana Menggunakan Delphi. Anda bisa bookmark halaman ini dengan URL http://wolleyku.blogspot.com/2012/10/program-kalkulator-sederhana.html. Terima kasih!
Ditulis oleh: Unknown - Selasa, 09 Oktober 2012

Belum ada komentar untuk "Program Kalkulator Sederhana Menggunakan Delphi"

Posting Komentar

Free Backlinks