Delphi 7 ( Pra UTS )

Coding/Listing :



  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
etanggal.Enabled := true;
ejam.Enabled := true;
eno.Enabled := true;
esks.Enabled := true;
ejumlah.Enabled := true;
etobi.Enabled := true;
enama.Enabled := true;
cbgelombang.Enabled := true;
eharga.Enabled := true;
rbpagi.Enabled := true;
rbmalam.Enabled := true;
etambahan.Enabled := true;
etobay.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
etanggal.Enabled := false;
ejam.Enabled := false;
eno.Enabled := false;
esks.Enabled := false;
ejumlah.Enabled := false;
etobi.Enabled := false;
enama.Enabled := false;
cbgelombang.Enabled := false;
eharga.Enabled := false;
rbpagi.Enabled := false;
rbmalam.Enabled := false;
etambahan.Enabled := false;
etobay.Enabled := false;
end;

procedure TForm1.bersih;
begin
eno.Text := '';
esks.Text := '0';
ejumlah.Text := '0';
etobi.Text := '0';
enama.Text := '';
cbgelombang.Text := '--Silakan Pilih--';
eharga.Text := '0';
rbpagi.Checked := false;
rbmalam.Checked := false;
etambahan.Text := '0';
etobay.Text := '0';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cbgelombang.Items.Add('Gelombang 1');
cbgelombang.Items.Add('Gelombang 2');
cbgelombang.Items.Add('Gelombang 3');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
etanggal.Text := datetostr(now);
ejam.Text := timetostr(now);
end;

procedure TForm1.bbersihClick(Sender: TObject);
begin
aktif;
bersih;
eno.SetFocus;
etanggal.Enabled := false;
ejam.Enabled := false;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar.?!','Pesan', 4+32)=6) then
close;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
etobi.Text := floattostr(strtofloat(ejumlah.Text) * strtofloat(esks.Text));
end;


procedure TForm1.cbgelombangClick(Sender: TObject);
begin
if cbgelombang.Text = 'Gelombang 1' then
begin
eharga.Text := '1000000';
end
else if cbgelombang.Text = 'Gelombang 2' then
begin
eharga.Text := '2000000';
end
else
begin
eharga.Text := '2500000';
end;
end;

procedure TForm1.rbpagiClick(Sender: TObject);
begin
etambahan.Text := '0';
end;

procedure TForm1.rbmalamClick(Sender: TObject);
begin
etambahan.Text :='200000';
end;

procedure TForm1.bhitungClick(Sender: TObject);
begin
etobay.Text := floattostr(strtofloat(etobi.Text) + strtofloat(eharga.Text) + strtofloat(etambahan.Text));
nonaktif;
end;

end.