contoh Proram untuk mencari total biaya yang dibayarkan untuk SPP

PEMROGRAMAN DASAR

KWITANSI PEMBAYARAN SPP

1.Konsep

            Proram ini untuk mencari total biaya yang dibayarkan untuk SPP

judul

hasil

Jml spp var

Jml spp ttp

unit PD;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit3: TEdit;

    GroupBox1: TGroupBox;

    Label4: TLabel;

    Label5: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    GroupBox2: TGroupBox;

    Button1: TButton;

    Label6: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  a, b, c:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 a:=StrToInt(Edit4.Text);

 b:=StrToInt(Edit5.Text);

 c:=a+b;

 label6.Caption:=IntToStr(c);

end;

end.

Hasil Run