Subscribe:
Selamat Datang di Blog IT, Blog ini berisikan tentang Teknologi Informasi dan Komunikasi serta Gadge

Social Icons

Sample Text

Followers

Featured Posts

Kamis, 06 Desember 2012

Contoh Program Menggunakan Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم


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;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 ^^

0 komentar:

Poskan Komentar