Contoh Program Menggunakan Delphi
Contoh Program Menggunakan Delphi - Bagi kalian yang sedang mencari contoh program delphi, pas sekali jika kalian mengunjungi H-Smart IT. 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]](http://1.bp.blogspot.com/_vF6whlq1Mr0/S52vHJ4hxxI/AAAAAAAAAFw/7TOpcfnzfTg/s1600/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 ^^
Post a Comment for "Contoh Program Menggunakan Delphi "