Praktikum 1 TBO

Pengolahan untuk 2 buah string:

buat interface seperti gambar dibawah ini 

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

1.  untuk form namakan denganform1

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 sampaicheckbox3

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

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.