cara membuat program dengan foxpro 9.0

Object Name Caption/Text
Label1 Label1 Nilai 1
Label2 Label2 Nilai 2
Label3 Label3 Rata-rata
Label4 Label4 Grade
Edit1 enilai1 (kosongkan)
Edit2 enilai2 (kosongkan)
Edit3 erata (kosongkan)
Edit4 egrade (kosongkan)
Button1 bproses &Proses
Button2 bbersih B&ersih
Button3 bkeluar Kelua&r
Rancangan Form













procedure TForm3.bbersihClick(Sender: TObject);
begin
enilai1.Text:='';
enilai2.Text:='';
erata.Text:='';
egrade.Text:='';
end;

procedure TForm3.bkeluarClick(Sender: TObject);
begin
if (application.MessageBox('Ingin Keluar?','TANYA',mb_yesno)=idyes) then
close
end;

procedure TForm3.bprosesClick(Sender: TObject);
var a,b,c,d:real;
begin
a:=strtofloat(enilai1.Text);
b:=strtofloat(enilai2.Text);
c:=(a+b)/2;
erata.Text:=floattostr(c);

if c>80 then
egrade.Text:='A'
else if c>70 then
egrade.Text:='B'
else if c>60 then
egrade.Text:='C'
else
egrade.Text:='D';
end;




















LISTING PROGRAM:
procedure TForm4.FormActivate(Sender: TObject);
begin
cbnip.SetFocus;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
CBNIP.Items.Add('200910001');
CBNIP.Items.Add('200910002');
CBNIP.Items.Add('200910003');
CBNIP.Items.Add('200910004')
end;

procedure TForm4.cbnipClick(Sender: TObject);
begin
if cbnip.Text='200910001' then
nama.Text:='Verra'
else if cbnip.Text='200910002' then
nama.Text:='Melinda'
else if cbnip.Text='200910003' then
nama.Text:='Edwin'
else
nama.Text:='Anwar';
end;

procedure TForm4.r1Click(Sender: TObject);
begin
if r1.Checked=true then
gapok.Text:='5000000';
end;

procedure TForm5.r2Click(Sender: TObject);
begin
if r2.Checked=true then
gapok.Text:='3000000';
end;

procedure TForm4.r3Click(Sender: TObject);
begin
if r3.Checked=true then
gapok.Text:='1200000';
end;

procedure TForm4.c1Click(Sender: TObject);
var x,y:real;
begin
if c1.Checked=true then
x:=strtofloat(gapok.Text);
y:=x*0.3;
tunj.Text:=floattostr(y);
end;

procedure TForm4.c2Click(Sender: TObject);
var x,y:real;
begin
if c2.Checked=true then
x:=strtofloat(gapok.Text);
y:=x*0.1;
tunj.Text:=floattostr(y);
end;

procedure TForm4.bhitungClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(gapok.Text);
b:=strtofloat(tunj.Text);
c:=a+b;
gaber.Text:=floattostr(c);
end;

procedure TForm4.bexitClick(Sender: TObject);
begin
close
end;

procedure TForm4.bbersihClick(Sender: TObject);
begin
cbnip.Text:='PILIH';
nama.Text:='';
r1.Checked:=false;
r2.Checked:=false;
r3.Checked:=false;
gapok.Text:='';
c1.Checked:=false;
c2.Checked:=false;
tunj.Text:='';
gaber.Text:='';
end;

end.