Contoh Program Menggunakan Delphi - Bagi kalian yang sedang mencari contoh program delphi, pas sekali jika kalian mengunjungi infoproindo.blogspot.com . Baik supaya tidak terlalu lama langsung saja ksaya akan jelaskan di bawah ini :
![[3.JPG]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj43hme3F4iZgiAkkEmRyr0Y-BJtN2mM6pfEZheuUnTWXnv8P3-OJ3iXlSsklSFQ7sqnaL7G9EXrPLM7kJYepiX5Ed3xqSD9As8NkDn6cNjm977hGOgceTRvKXVIE1P5-FOiLLkeOIywk38/s400/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 kurang pas bisa di edit sendiri ya kawan,,,hahahahahah
Selamat Mencoba dan Semoga Bermanfaat ^^
+ komentar + 1 comment
waah boleh juga ini min, makasih sudah share...
Terimakasih power supply 30v 5a atas Komentarnya di Contoh Program Menggunakan Delphihttp://cody.id/produk/power-supply/power-supply-cody-3005dt/
Posting Komentar