program kalkulator versi delphi2010 by riki darman(stmik-amik riau)

nah udah bosan ni dengan bahasa c++ dan java, kali ini ane bakalan coba buat program dari delphi. kali ini ane bakalan buat program kalkulator dengan menggunakan operan, awalnya sih bingung.. tapi berkat keponya ane ,program ane akhirnya bisa jan. semoga bermanfaat.
ini tampilan form calculatornya:

ini skripnya:
{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN SYMBOL_EXPERIMENTAL ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN UNIT_EXPERIMENTAL ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN OPTION_TRUNCATED ON}
{$WARN WIDECHAR_REDUCED ON}
{$WARN DUPLICATES_IGNORED ON}
{$WARN UNIT_INIT_SEQ ON}
{$WARN LOCAL_PINVOKE ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN TYPEINFO_IMPLICITLY_ADDED ON}
{$WARN RLINK_WARNING ON}
{$WARN IMPLICIT_STRING_CAST ON}
{$WARN IMPLICIT_STRING_CAST_LOSS ON}
{$WARN EXPLICIT_STRING_CAST OFF}
{$WARN EXPLICIT_STRING_CAST_LOSS OFF}
{$WARN CVT_WCHAR_TO_ACHAR ON}
{$WARN CVT_NARROWING_STRING_LOST ON}
{$WARN CVT_ACHAR_TO_WCHAR OFF}
{$WARN CVT_WIDENING_STRING_LOST OFF}
{$WARN XML_WHITESPACE_NOT_ALLOWED ON}
{$WARN XML_UNKNOWN_ENTITY ON}
{$WARN XML_INVALID_NAME_START ON}
{$WARN XML_INVALID_NAME ON}
{$WARN XML_EXPECTED_CHARACTER ON}
{$WARN XML_CREF_NO_RESOLVE ON}
{$WARN XML_NO_PARM ON}
{$WARN XML_NO_MATCHING_PARM ON}
unit calculator2;

interface

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

type
  Trikidarman = class(TForm)
    edithasil: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rikidarman: Trikidarman;
  _operator : string ;
  hasil,operand_1,operand_2:real;


implementation

{$R *.dfm}

procedure Trikidarman.Button10Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=3;
edithasil.Text:='3';
end;

procedure Trikidarman.Button11Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=4;
edithasil.Text:='4';
end;

procedure Trikidarman.Button12Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=5;
edithasil.Text:='5';
end;

procedure Trikidarman.Button13Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=6;
edithasil.Text:='6';
end;

procedure Trikidarman.Button14Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=7;
edithasil.Text:='7';
end;

procedure Trikidarman.Button15Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=8;
edithasil.Text:='8';
end;

procedure Trikidarman.Button16Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=9;
edithasil.Text:='9';
end;

procedure Trikidarman.Button1Click(Sender: TObject);
begin
operand_1:=0;
operand_2:=0;
_operator:='';
edithasil.Text :='0';
end;

procedure Trikidarman.Button2Click(Sender: TObject);
begin
_operator :='/';
end;

procedure Trikidarman.Button3Click(Sender: TObject);
begin
_operator :='*';
end;

procedure Trikidarman.Button4Click(Sender: TObject);
begin
_operator :='-';
end;

procedure Trikidarman.Button5Click(Sender: TObject);
begin
_operator :='+';
end;

procedure Trikidarman.Button6Click(Sender: TObject);
begin
if _operator='/' then
hasil:= operand_1 / operand_2
else if _operator ='*' then
hasil:= operand_1 * operand_2
else if _operator ='-' then
hasil:= operand_1 - operand_2
else if _operator ='+' then
hasil:= operand_1 + operand_2
else
hasil :=0;
edithasil.Text:=FloatToStr(hasil);
 



end;

procedure Trikidarman.Button7Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=0;
edithasil.Text:='0';
end;

procedure Trikidarman.Button8Click(Sender: TObject);
begin
 operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=1;
edithasil.Text:='1';
end;

procedure Trikidarman.Button9Click(Sender: TObject);
begin
operand_1 :=StrToFloat(edithasil.Text ) ;
operand_2:=2;
edithasil.Text:='2';
end;

end.

Share this post