PROGRAM GRADE

Program di buat menggunakan Delphi 7. Program ini adalah tentang menghitung kubus, yang di cari adalah luas, keliling dan volume. Program ini menggunakan label, edit, button, memo, panel dan image. Didalam program ini kita bisa menginput data pada Input nilai, data yang kita input bisa di lihat hasilnya pada pilihan hitung, kalau kita ingin mencari menghapus semua data maka pilih reset dan exit adalah untuk keluar dari program. Inputan yang di masukkan adalah berapa nilai yang ingin di masukkan, nilai yang di masukkan. Output yang di tampilkan adalah luas kubus, keliling kubus dan volume kubus. Berikut souce kodenya :

unit Grade;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, Buttons;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Panel1: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

ket:string;

nilai:integer;

begin

nilai:=StrToInt(edit2.Text);

ket:=edit3.Text;

case nilai of

90..100:ket:='A';

80..89:ket:='B';

70..79:ket:='C';

60..69:ket:='D';

0..59:ket:='E';

end;

if nilai > 100 then

begin

messageDlg('Pengisian tidak valid',mtWarning,[mbOK],0);

edit2.SetFocus;

edit2.Clear;

end;

edit3.Text:=ket;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

edit1.clear;

edit2.clear;

edit3.clear;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

application.Terminate;

end;

end.

Berikut Tampilan Output :

Bagi yang ingin mendownload silahkan klik Di Sini!!!