Latihan 2. Pemrograman Delphi

Buatlah Form seperti gambar di atas yang terdiri dari label, edit , button dan StrinGrid, Jika setelah selesai double klik pada form atau tepatnya pada gambar titik-titik. Dan buatlah koding sebagai berikut :

procedure TForm2.FormCreate(Sender: TObject);
begin
SG.RowCount := 0;
SG.ColCount := 8;
end;

langkah selanjutnya adalah membuat koding pada tombol OK, dengan cara double klik tombol OK lalu ketik Listing program berikut :

procedure TForm2.Button1Click(Sender: TObject);
var
tot, bobot, i,jumbot : integer;
IPK,totsks,totjumbot : real;
begin
sg.Cells[1,SG.RowCount -1]:= edit3.Text;
sg.Cells[2,sg.RowCount -1]:= edit4.Text;
sg.Cells[3,sg.RowCount -1]:= edit5.Text;
sg.Cells[4,sg.RowCount -1]:= edit6.Text;

if edit6.Text = 'A' then
Bobot := 4
else if edit6.Text = 'B' then
Bobot := 3
else if edit6.Text = 'C' then
Bobot := 2
else
Bobot := 1;

jumbot := bobot * strtoint(edit5.Text);
sg.Cells[5,sg.RowCount -1]:= inttostr(bobot);
sg.Cells[6,sg.RowCount -1]:= inttostr(jumbot);

for i := 0 to sg.rowcount-1 do
begin
totjumbot := totjumbot + strtoint(sg.Cells[6,i]);
totsks := totsks + strtoint(sg.Cells[3,i]);
sg.Cells[0,i] := inttostr(i+1);
end;

IPK := totjumbot/totsks;
edit7.Text :=floattostrf(IPK);
sg.RowCount := sg.RowCount + 1;
end;
end.

Materi yang berhubungan :

Latihan 1.Pemrograman Delphi

Latihan 2. Pemrograman Delphi

Latihan 3. Pemrograman Delphi

Latihan 4. Pemrograman Delphi

2 Responses

  1. Mau tanya Pak !
    Pada Projek Akademik dengan database Access yang kita bahas kemaren untuk mencari jumlah sksnya bagaimana ya Pak ?

    • var totsks : integer;
      begin
      totsks :=0;
      dbgrid.DataSource.DataSet.First;
      
      while not dbgrid.DataSource.DataSet.Eof do
      begin
      totsks := totsks + dbgrid.DataSource.DataSet.fieldbyname('sks').AsInteger;
      dbgrid.DataSource.DataSet.Next;
      end;
      edit1.Text := inttostr(totsks);
      end;
      

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: