Latihan 1. Pemrograman Delphi

Buatlah Form seperti diatas,

Langkah 1. Setelah selesai membuat form seperti gambar di atas, langkah selanjutnya adalah double klik Combobox1, lalu ketik listing program seperti berikut :

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
if combobox1.Text = 'II' then
Edit3.text := inttostr(10)
else if combobox1.Text = 'III' then
Edit3.text := inttostr(12)
else if combobox1.text ='IV' then
Edit3.text := inttostr(14);
end;

Langkah 2.  Selanjutnya adalah double klik pada edit4, lalu klik Properties klik Event, klik on key press, dan mengetikkan listing koding berikut :

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
var jumlah : integer;
begin
if key = #13 then
if strtoint(edit4.Text)  > strtoint(edit3.Text) then
begin
jumlah := strtoint(edit4.text) - strtoint(edit3.text);
edit5.Text := inttostr(jumlah);
end
else
edit5.Text := inttostr(0);
end;

Langkah 3.  Double klik pada edit6 rubah dari event  change dengan on key press seperti langkah 2, lalu ketik program berikut :

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
var honor : integer;
begin
if key = #13 then
honor := strtoint(edit5.text) * strtoint(edit6.Text);
edit7.Text := inttostr(honor);
end;

Materi yang berhubungan :

Latihan 1.Pemrograman Delphi

Latihan 2. Pemrograman Delphi

Latihan 3. Pemrograman Delphi

Latihan 4. Pemrograman Delphi

One Response

  1. Terima kasih pak…

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: