Program pengolahan 2 string dengan delphi 7

Hallo apa kabar.. pada kesempatan kali ini saya akan sharing sedikit tentang program delphi 7. Kebetulan di mata kuliah saya Teori Bahasa Automata (TBO). Saya diminta untuk membuat sebuah program pengolahan 2 string inputan dengan delphi 7. Walaupun sudah setahun tidak otak atik delphi tapi alhamdulillah saya masih inget dikit2..

Oke langsung saja,  untuk membuat program visual  terlebih dulu kita harus buat dulu userinterfacenya. Jika ada yang belum paham tentang penggunaan elemen-elemen dalam delphi, saya sarankan untuk lebih banyak browsing dan membaca buku di perpus.

1. Langkah pertama :

buat interface seperti gambar dibawah ini

Nah kalau sudah dibuat, namakan elemen-elemen tersebut seperti yang saya lakukan .

1.  untuk form namakan dengan form1

2.  edittext bagian atas namakan dengan edit1

3.  edittext bagian bawah namakan dengan edit2

4. edittext dipaling atas sendiri bernama edit3 (untuk edit3 visible nya di false kan)

4. untuk checkbox namakan urut dari atas ke bawah mulai checkbox1 sampai checkbox3

5. untuk button –> button proses bernama button1 dan button ulangi bernama button2

6. memo –> bernama memo1

oke, akan saya jelaskan masing – masing fungsinya :

– untuk edit1 & edit2 digunakan menginputkan string yang akan diolah

– untuk edit3 digunakan untuk menampung sementara nilai string sebelum ditampilkan di memo. Akan digunakan pada saat procedur   pembalikan

– untuk memo1 digunakan dalam menampilkan hasil pengolahan string

button proces digunakan untuk mengeksekusi perintah yang telah dituliskan

button ulangi digunakan untuk mengosongkan nilai pada component, seperti edittext, checkbox dan memo

2. langkah berikutnya adalah coding.

untuk menampilkan lembar kerja dalam delphi dalam masing2 form. cukup hanya menekan f12 saja. Jika sudah ditekan f12 maka akan muncul lembar kerja, nah biar cepat aja langsung copy paste program dibawah ini

unit Unit1;

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;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
    Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure PanjangString;
procedure Pembalikan;
procedure penyambungan;
    procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var

Form1: TForm1;
u, v,uv : string;

implementation

{$R *.dfm}

procedure TForm1.PanjangString;

var
i : integer;
begin
u:=Edit1.Text;
v:=Edit2.Text;

if CheckBox3.Checked then
begin
Memo1.Lines.Add(‘|UV|=|U|+|V|=’+IntToStr(Length(u+v)));
end

else begin
Memo1.Lines.Add(‘|U| = ‘+IntToStr(length(u)));
Memo1.Lines.Add(‘|V| = ‘+IntToStr(length(v)));
end;
end;

procedure TForm1.Pembalikan;
var
panjangu, panjangv : integer;
i,j,total:integer;

begin

u:=Edit1.Text;
v:=Edit2.Text;

panjangv :=length(v);
panjangu :=length(u);
total:=length(u+v);

if CheckBox2.Checked then
begin
uv:=u+”+v;
Edit3.Text:=”;
for i := 0 to length(u+v) do
begin
Edit3.Text:=Edit3.Text+”+uv[total-i];
end;

Memo1.Lines.Add(‘hasil pembalikan string uv =’+Edit3.Text);
end

else begin
Edit3.Text:=”;
for i:= 0 to length(v) do
begin
Edit3.Text:=Edit3.Text+”+v[panjangv-i];
end;
Memo1.Lines.Add(‘hasil pembalikan string v=’+Edit3.Text);

Edit3.Text:=”;
for j:= 0 to length(u) do
begin
Edit3.Text:=Edit3.Text+”+u[panjangu-j];
end;
Memo1.Lines.Add(‘hasil pembalikan string u=’+Edit3.Text);
end;
end;

procedure TForm1.penyambungan;
begin
u:=edit1.text;
v:=edit2.text;

if CheckBox1.Checked then
begin
uv:=u+”+v;
Memo1.Lines.Add(‘hasil penyambungan string (uv) =’ + uv);
end

else
begin
Memo1.Lines.Add(‘tidak ada penyambungan string’);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PanjangString;
penyambungan;
Pembalikan;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=”;
Edit2.Text:=”;
Edit3.Text:=”;
Memo1.Text:=”;
CheckBox1.Checked:=false;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
refresh;

end;

end.

akan saya jelaskan masing – masing procedure nya :

1. Deklarasi procedure :

Untuk membuat sebuah procedure dalam delphi maka kita harus mendeklarasikan procedure tersebut dibagian class pada type

. untuk program diatas procedure yang digunakan adalah

    procedure Button1Click(Sender: TObject);
    procedure PanjangString;
    procedure Pembalikan;
    procedure penyambungan;
    procedure Button2Click(Sender: TObject);

1. Procedure PanjangString  : Procedure ini digunakan untuk mengukur panjang 2 buah string tersebut :

2. Procedure Pembalikan : digunakan untuk membalikan nilai string. bila checkbox2.checked:=true maka akan digabungkan dulu          string tersebut lalu dibalikan tapi jika false maka akan dibalikan setiap satu stringnya

3. Procedure penyambungan : procedure ini digunakan untuk menyambungkan kedua inputan string tersebut.

ketiga procedure tersebut adalah procedure yang kita buat sendiri, nah untuk mengeksekusi procedure tersebut maka kita perlu sebuah trigger. maka kita gunakan button proses. Pada saat button proces itu di click , maka ketiga procedure tersebut akan dijalankan, tergantung apakah checkbox pemicunya bernilai false atau true;

4. procedure button1.click : procedure ini berada dalam event saat button1 di click. Untuk berada dalam lembar kerjanya cukup double klik button tersebut

   procedure TForm1.Button1Click(Sender: TObject);
   begin
    PanjangString;
   penyambungan;
   Pembalikan;
   end;

5. Procedure button2.click : seperti halnya button1. procedure ini akan dijalankan apabila button2 di klik.

procedure TForm1.Button2Click(Sender: TObject);
  begin
   Edit1.Text:=”;
   Edit2.Text:=”;
   Edit3.Text:=”;
   Memo1.Text:=”;
   CheckBox1.Checked:=false;
   CheckBox2.Checked:=false;
   CheckBox3.Checked:=false;
   refresh;
  end;

perintah diatas digunakan untuk mengosongkan text atau nilai dalam elemen2 yang telah disebutkan.

Demikian saja penjelasan dari saya, sudah capek nulisnya. kalau tulisan ini bermanfaat tolong dikoment ya. Oh ya , kalau mau download program jadinya bisa didownload disini


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s