Sekilas
Tentang Delphi.
Delphi
dikembangkan oleh Perusahaan Borland dari bahasa Pemrograman Pascal. Delphi
membagi program menjadi dua bagian yaitu bagian primer berupa file program yang
mengkordinisi keseluruhan program, file ini berekstensi *.dpr, sedangkan bagian
sekunder merupakan bagian yang melaksanakan tugas-tugas tertentu dan lazim
disebut unit (atau rutin) file ini berekstensi*.pas.
Mungkin
hanya itu sekilas dari Delphi……..agar tidak ngantuk karena membaca artikel ini
langsung saja sob….kita mulai membuat desain form tentang input output data.
Dibawah ini
adalah gambar desain awal pembuatan form nya…..
Aturlah
properties controlnya terlebih dahulu seperti pada tabel yang ada di bawah ini.
|
Nama Control
|
Properties
|
Nilai Pengaturan
|
|
GroupBox1
|
Caption
|
Input
Data
|
|
GroupBox2
|
Caption
|
Output
Data
|
|
Form
|
Caption
|
Program
Input dan Output
|
|
Text1
|
Caption
|
Kosongkan
|
|
Text2
|
Caption
|
Kosongkan
|
|
Text3
|
Caption
|
Kosongkan
|
|
Text4
|
Caption
|
Kosongkan
|
|
Text5
|
Caption
|
Kosongkan
|
|
Text6
|
Caption
|
Kosongkan
|
|
Text7
|
Caption
|
Kosongkan
|
|
Text8
|
Caption
|
Kosongkan
|
|
Button1
|
Caption
|
&Input
Data
|
|
Button2
|
Caption
|
&Ulang
|
|
Button3
|
Caption
|
&Close
|
Ketika Sudah di atur kita tinggal membuat kede program nya saja.
Selamat mencoba semoga dapat bermanfaat ya hehehe
Dibawah ini adalah listing program
tersebut.
Pertama Double klick Button1 dan
isikan listing program dibawah ini.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit8.Text:=edit4.Text;
edit7.Text:=edit3.Text;
edit6.Text:=edit2.Text;
edit5.text:=edit1.Text;
end;
begin
edit8.Text:=edit4.Text;
edit7.Text:=edit3.Text;
edit6.Text:=edit2.Text;
edit5.text:=edit1.Text;
end;
Kedua Double klick Button2 dan
isikan listing program dibawah ini.
procedure TForm1.BitBtn2Click(Sender: TObject);
beginedit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit1.SetFocus
end;
end.
beginedit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit1.SetFocus
end;
end.
Ketiga Double klick Button3 dan
isikan listing program dibawah ini.
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
begin
Close
end;
end.
end;
end.
Nah sobat ketika sudah
selesai mengetikan kodingnya sobat sobat jangan lupa save dulu project
nya di folder sobat nama Unit dan project nya bebas,,,,,asalkan jangan
ada spasi saja.
Jalankan programya sobat dengan menekan tombol F9 pada keyboard maka hasilnya adalah sebagai berikut :
