Java & Netbeans

unit nilai;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Etulis: TEdit;
    Epraktek: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Ehtulis: TEdit;
    Ehpraktek: TEdit;
    Label1: TLabel;
    Label6: TLabel;
    Emurni: TEdit;
    Egrade: TEdit;
    optpagi: TRadioButton;
    optsore: TRadioButton;
    chkoffice: TCheckBox;
    chkdual: TCheckBox;
    chkalma: TCheckBox;
    Eoffice: TEdit;
    Ealma: TEdit;
    Edual: TEdit;
    cmdhitung: TButton;
    cmdlagi: TButton;
    cmdkeluar: TButton;
    Ebiaya: TEdit;
    Etambahan: TEdit;
    Label8: TLabel;
    Label7: TLabel;
    Etotal: TEdit;
    Label9: TLabel;
    Button1: TButton;
    procedure EtulisKeyPress(Sender: TObject; var Key: Char);
    procedure EpraktekKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure optpagiClick(Sender: TObject);
    procedure optsoreClick(Sender: TObject);
    procedure chkofficeClick(Sender: TObject);
    procedure chkalmaClick(Sender: TObject);
    procedure chkdualClick(Sender: TObject);
    procedure cmdhitungClick(Sender: TObject);
    procedure cmdkeluarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n1,n2,h1,h2,m,t1,t2,t3,b1,b2,t : real;

implementation

{$R *.dfm}


procedure TForm1.EtulisKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13  then
    n1 := strtofloat(etulis.Text );
    h1 := n1 * 0.4;
    ehtulis.Text := floattostr(h1);
end;

procedure TForm1.EpraktekKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
    n2 := strtofloat(epraktek.Text );
    h2 := n2 * 0.6;
    ehpraktek.Text := floattostr(h2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  m := h1 + h2;
  emurni.Text := floattostr(m);

  if m > 85 then
     egrade.Text := 'A'
  else
    if m > 70 then
     egrade.Text := 'B'
     else
       egrade.Text := 'C';

end;
procedure TForm1.optpagiClick(Sender: TObject);
begin
  ebiaya.Text := '980000';
end;

procedure TForm1.optsoreClick(Sender: TObject);
begin
  ebiaya.Text :='1180000';
end;

procedure TForm1.chkofficeClick(Sender: TObject);
begin
if chkoffice.Checked = true then
  eoffice.Text := '350000'
else
  eoffice.Text := '0';
end;

procedure TForm1.chkalmaClick(Sender: TObject);
begin
  ealma.Text := '100000';
end;

procedure TForm1.chkdualClick(Sender: TObject);
begin
  edual.Text := '500000';
end;

procedure TForm1.cmdhitungClick(Sender: TObject);
begin
  t1 := strtofloat(eoffice.Text );
  t2 := strtofloat(ealma.Text );
  t3 := strtofloat(edual.Text );
  b1 := strtofloat(eoffice.Text );

  b2:= t1+t2+t3;
  t := b1+b2;

  etambahan.Text := floattostr(b2);
  etotal.Text := floattostr(t);
end;

procedure TForm1.cmdkeluarClick(Sender: TObject);
begin
  if (application.MessageBox ('Yakin keluar?','Info',mb_yesno)=idyes)   then
     close;
  
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 eoffice.Text :='0';
 ealma.Text :='0';
 edual.Text :='0';
end;

end.