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
Pengulangan dan Percabangan pada Delphi Pengulangan dan Percabangan pada Delphi Reviewed by yudo rahadya on 7:50 AM Rating: 5

1 comment:

  1. bang...assalamualaikum. Mohon bantuannya bang.Bagaimana caranya mengambil data pada cell stringgrid di tampilkan ke edit text. Dimana data tiap cell terpisah titik koma dalam edit text delphi. Perubahan yang terjadi adalah pada kolom saja sementara barisnya tetap. misalnya data dari cell stringgrid |2|3|4|6|7|...ditampilkan ke edit text menjadi 2;3;4;6;7;... tanda (...) merupakan array dinamis yang kita tidak tahu batasannya.Mohon dengan sangat bantuannya bang....

    ReplyDelete

Powered by Blogger.