Comments
belajar komputer

Contoh Program Menggunakan Delphi

Posted by at Friday, April 20, 2012
Contoh Program Menggunakan Delphi - Bagi kalian yang sedang mencari contoh program delphi, pas sekali jika kalian mengunjungi BLOGNYA SI IMIN. Postingan ini saya khususkan bagi mahasiswa BSI Purwokerto jurusan Manajemen Informatika semester 4. Oke langsung saja, buatlah Form di project kalian masisng-masing seperti gambar di bawah ini:

[3.JPG]

Dalam Form Di atas terdapat:
4 GroupBox
11 Label
10 EditText
6 Button
3 Memo (kalau yang ini bisa diganti dengan ListBox)

Pada Tombol IF-ELSE, masukkan coding seperti di bawah ini:

procedure TForm1.Button2Click(Sender: TObject);
var
A : Integer;
begin
A := StrToInt (Edit1.Text);
Edit2.Text := ' ';
Edit3.Text := ' ';
if A < 50 then
begin
Edit2.Text := 'Gagal';
Edit3.Text := 'E';
end
else if A < 65 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'D';
end
else if A < 75 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'C';
end
else if A < 85 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'B';
end
else if A <= 100 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'A';
end
else
begin
Edit2.Text := 'Salah Input';
Edit3.Text := 'Ulangi Lagi';
end;
end;

Pada bagian button Case-Of, masukkan koding seperti di bawah ini:
procedure TForm1.Button2Click(Sender: TObject);
var
B, C : Integer;
begin
B:= StrToInt(Edit4.text);
C:= StrToInt(Edit5.Text);
begin
case B of
1: Edit6.Text := 'Pecel Ayam dan ';
2: Edit6.Text := 'Ayam Bakar dan ';
3: Edit6.Text := 'Ayam Krispy dan ';
end;
case C of
4: Edit6.Text := Edit6.Text + 'Es Teh Manis';
5: Edit6.Text := Edit6.Text + 'Es Jeruk';
6: Edit6.Text := Edit6.Text + 'Es Cappucino';
end;
end;
end;

Pada button While-Do, masukkan coding seperti dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
F:=1;
while F <> StrToInt(Edit8.Text) do
begin
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
F:= F+1;
end;
end;

Pada button Repeat-Until, masukkan coding seperti di bawah ini : 

procedure TForm1.Button4Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
F:=1;
repeat
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
F:= F+1;
E:= E+1;
until F = StrToInt(Edit8.Text)
end;

Pada bagian button For-Do, masukkan coding seperti di bawah ini :

procedure TForm1.Button5Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
for F := 1 to StrToInt(Edit8.Text) do
begin
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
end;
end;

Pada bagian button Proses Array, masukkan coding seperti dibawah ini : 

procedure TForm1.Button6Click(Sender: TObject);
var
Data : array of array of integer;
Baris, Kolom : Word;
begin
SetLength(Data, StrToInt(Edit9.Text), //Panjang Dimensi 1
StrToInt (Edit10.Text)); //Panjang Dimensi 2
for Baris := 0 to StrToInt (Edit9.Text) - 1 do
  for Kolom := 0 to StrToInt (Edit10.Text) - 1 do
    Data[Baris, Kolom] := Baris + Kolom;
Memo2.Clear;
for Baris := 0 to StrToInt (Edit9.Text) - 1 do
  for Kolom := 0 to StrToInt (Edit10.Text) - 1 do
    Memo2.Lines.Add('['+ IntToStr(Baris) + ','+ IntToStr(Kolom)+'] = '+IntToStr(Data[Baris,Kolom]));
end;
end.

catatan:
Untuk Memo bisa diganti dengan Listbox, dan sesuaikan dengan codingnya..
Coba jalankan, bila masih error, silahkan komentar saja di postingan ini...

Selamat Mencoba dan Semoga Bermanfaat ^^

sumber: http://missshoppingholic.blogspot.com/2010/03/percabangan-perulangan-dan-array-pada.html


Artikel Terkait:

3 comments:

  1. thanks ada latihan nih ... belajar buat softwarenya ...

    ReplyDelete
  2. error gan, di bagian tombol If-Else.
    maksud dari coding di dalam tombol If-Else itu apa ya,

    ReplyDelete

©2012 BLOGNYA SI IMIN is powered by Blogger - Template designed by Stramaxon