Saturday, April 14, 2012

Pengulangan dan Percabangan pada Delphi

2. Pengulangan dan Percabangan pada Delphi

Saya akan menjelaskan pemrograman delphi yang menjelaskan tentang perulangan dan percabangan.
Pertama-tama saya akan menjelaskan tentang program perulangan terlebih dahulu.



Berikut ini adalah alur dan logika program diatas.


unit Prog_perulangan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada butoon atau component yang diinginkkan. Pada program ini saya membuat 3 label, 2 edit.text, 2 button dan 1 memo. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 1 form, 3 label, 2 edit.text, 2 button dan 1 memo. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = PROGRAM PENGULANGAN
Label2 = Angka Awal
Label3 = Banyak Ulang
Edit1 = (Kosong)
Edit2 = (Kosong)
Button1 = WHILE – DO
Button2 = Cancel
Memo1=(Kosong)

 

Langkah yang kedua adalah klik 2x pada button While-Do, maka akan muncul isian codenya. Setelah muncul masukkan code yang ada dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var
E,F : Integer;
begin
Memo1.Clear;
E:= Strtoint(Edit1.Text);
F:= 1;
while F <> Strtoint(Edit2.Text) do
begin
Memo1.Lines.add('Perulangan ke- '+inttostr(F)+' = '+inttostr(E));
E:=E+1;
F:=F+1;
end;

end;


Fungsi dari button  
While-Do adalah untuk menampilkan perulangan.
Langkah yang ketiga adalah dengan cara yang sama seperti tadi, klik 2x pada button Cancel                                                                                                                                                 , dan masukkan code yang ada dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Application.MessageBox('Ingin keluar dari program ini ?','Konfirmasi',Mb_YesNo)=ID_Yes)
then
begin
Application.Terminate;
end;
end;

end.



Pada program yang kedua saya akan menjelaskan tentang program percabangan .


Berikut ini adalah alur dan logika program diatas.

unit Nilai_Mhs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada butoon atau component yang diinginkkan. Pada program ini saya membuat 4 label, 3 edit.text dan 3 button. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 1 form, 4 label, 3 edit.text dan 3 button. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :
Label1 = Hitung Grade Nilai Mahasiswa
Label2 = Nilai
Label3 = Grade
Label4 = Keterangan
Edit1 = (Kosong)
Edit2 = (Kosong)
Edit3 = (Kosong)
Button1 = OK
Button2 = HAPUS
Button3 = KELUAR



Langkah yang kedua adalah klik 2x pada button OK , maka akan muncul isian codenya. Setelah muncul masukkan code yang ada dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var
A : Integer;
begin
A :=Strtoint(Edit1.Text);
Edit2.Text:='';
Edit3.Text:='';
if A <= 30 then
   begin
   Edit2.Text:='E';
   Edit3.Text:='Gagal';
   end
else if A <=50 then
    begin
    Edit2.Text:='D';
    Edit3.Text:='Kurang';
    end
else if A <= 65 then
     begin
     Edit2.Text:='C';
     Edit3.Text:='Cukup';
     end
else if A <= 90 then
     begin
     Edit2.Text:='B';
     Edit3.Text:='Baik';
     end
else if A <= 100 then
     begin
     Edit2.Text:='A';
     Edit3.Text:='Sangat Baik';
     end
else if A >= 100 then
     begin
     Edit2.Text:='Error';
     Edit3.Text:='Error';
     end



end;

Fungsi dari button OK adalah sebagai output dari proses percabangan.
Langkah yang ketiga adalah dengan cara yang sama seperti tadi, klik 2x pada button HAPUS , dan masukkan code yang ada dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';

end;

Fungsi dari button HAPUS adalah menghapus isian field Output.

Langkah yang Keempat adalah membuat perintah keluar dari program. Caranya sama seperti sebelumnya, klik 2x pada button KELUAR . Dan saya akan membuat sebuah kondisi, dimana jika ingin keluar dari program tersebut akan muncul sebuah Messagebox, yang menyatakan ingin keluar dari program tersebut. Masukkan code dibawah ini :
procedure TForm1.Button3Click(Sender: TObject);
begin
if (Application.MessageBox('Apakah Ingin Keluar dari program ini ?','Konfirmasi',MB_YesNo)=ID_Yes)then
begin
Application.Terminate;
end;
end;

end.



Nama : Yudo Rahadyatmo
NPM : 57411634
Kelas : 1IA07

No comments:

Post a Comment

Related Posts Plugin for WordPress, Blogger...