Dasar-Dasar Delphi / Entry Data Dasar-Dasar Delphi / Entry Data

Dasar-Dasar Delphi / Entry Data


Entry data dengan Edit

Lakukan hal-hal berikut ini 1. Tempatkan tiga buah label, tiga buah Edit dan dua buah Button 2. Isilah properti pada masing-masing objek sbb: Nama Komponen Properti Nilai Form1 Caption Entry Data 2 Name FmMain Label1 Caption Bilangan Pertama Name LblBil1 Label2 Caption Bilangan ke Dua Name LblBil2 Label3 Caption Hasil Perhitungan Name LblBil3 Edit1 Name EdBil1 Text (Kosongkan) Edit2 Name EdBil2 Text (Kosongkan) Edit3 Name EdHasil Text (Kosongkan) Button1 Caption &Kalikan Name btnKalikan Button3 Caption &Keluar Name btnKeluar 3. Double klik pada btnKalikan. Tuliskan perintah berikut procedure TfmMain.btnKaliClick(Sender: TObject); var hasil :integer; begin hasil := StrToInt(edBil1.Text) * StrToInt(edBil2.Text); edHasil.Text := IntToStr(hasil); end; 4. Kembali ke tampilan form, klik speed button Toggle Form/Unit. Double klik pada btnKeluar. Tuliskan perintah berikut procedure TfmMain.btnKeluarClick(Sender: TObject); begin close; end; 5. Simpanlah program. Pilih menu File, Save All. Gantilah Unit1 dengan Edit2, Project1 dengan Entry2 6. Jalankan program (RUN). Pilih menu Run, Run.

Sebagai mana telah di bahas sebelumnya, Edit adalah sebuah objek yang bisa menerima inputan dari keyboard. Hasil entry data melalui edit ini menghasilkan sebuah string yang akan disimpan dalam properti Text. Bagaimana kalau diinginkan untuk mengentry data berupa bilangan ? Untuk masalah ini jika masih tetap menggunakan edit, setelah melalukan proses entry data, maka datanya dirubah ke dalam bentuk bilangan dengan menggunakan fungsi StrToInt atau juga StrToFloat. Latihan pertama buatlah sebuah program yang akan menerima sebuah inputan berupa kalimat dan kemudian kalimat tersebut ditampilkan kembali melalui sebuah label dengan bentuk yang berbeda. Buatlah tampilan data seperti berikut ini Lakukan hal-hal berikut ini 1. Tempatkan Satu buah Edit, satu buah Label dan tiga buah Button

2.

3.

4.

5.

6. 7.

Isikan properti pada masing-masing komponen Nama Komponen Properti Nilai Form1 Caption Entry Data 1 Name FmMain Edit1 Name EdKalimat Text (Kosongkan) Label2 AutoSize False Caption (Kosongkan) Name lblHasil Button1 Caption &Ok Name btnOk Button2 Caption &Hapus Name btnHapus Button3 Caption &Keluar Name btnKeluar Double klik pada btnOk. Tuliskan perintah berikut procedure TfmMain.btnOKClick(Sender: TObject); begin lblHasil.Caption := edKalimat.Text; end; Kembali ke tampilan form, klik speed button Toggle Form/Unit. Double klik pada btnHapus. Tuliskan perintah berikut procedure TfmMain.btnHapusClick(Sender: TObject); begin edKalimat.Text:=''; lblHasil.Caption:=''; end; Kembali ke tampilan form, klik speed button Toggle Form/Unit. Double klik pada btnKeluar. Tuliskan perintah berikut procedure TfmMain.btnKeluarClick(Sender: TObject); begin close; end; Simpanlah program. Pilih menu File | Save All. Aturlah direktori tempat penyimpanan data gantilah Unit1 dengan Edit1, Project1 dengan Entry1 Jalankan program (RUN). Pilih menu Run, Run.

Latihan ke dua akan dibuat sebuah program untuk mengalikan dua buah bilangan yang dientrikan lewat keyboard dan kemudian hasilnya ditampilkan dalam sebuah label. Buatlah tampilan seperti berikut ini.

ARSys Software/AbdRohim

Hal: 1/8


Hal: 2/8



Latihan Kembangkanlah program kedua dengan menambahkan tombol-tombol sbb: • Tambah, Menambahkan bilangan pertama dan bilangan kedua • Kurang, Mengurangi bilangan pertama dengan bilangan kedua • Bagi, membagi bilangan pertama dengan bilangan kedua (pembagian dilakukan dengan menggunakan perintah DIV)

Text (Kosongkan) Caption Laki-laki Checked True Name rbLaki RadioButton2 Caption Perempuan Checked False Name rbPerempuan Button1 Caption &Proses Name btnProses BitButton Kind BkClose Name BbClose Simpanlah program ini. Klik File | Save All. Aturlah direktori ketempat penyimpanan anda. Gantilah Unit1 dengan Uradio, Project1 dengan Radio Double klik pada button Proses, tuliskan program berikut ini. procedure TfmMain.btnProsesClick(Sender: TObject); begin if rbLaki.Checked then lblHasil.Caption:='Hallo '+ edNama.Text + ' anda tampan sekali hari ini' else lblHasil.Caption:='Hallo '+ edNama.Text + ' anda cantik sekali hari ini' end; Simpan kembali program ini Klik File | Save Jalankan programnya klik Run | Run, Isikanlah sebuah nama kemudian tentukan jenis kelaminnya dan klik proses. Jika akan keluar klik Close. RadioButton1

4. 5.

6. 7. Entry data dengan Radio Button

Latihan Radio button merupakan sebuah bentuk entrian data untuk memilih satu pilihan dari beberapa pilihan, misalkan untuk entrian jenis kelamin, agama dan lain lain. Dalam entrian yang menggunakan radio button minimal harus ada dua buah radio button untuk dipilih salah satunya. Jika salah satu radio button dipilih maka radio button tersebut menjadi radio button yang terpilih atau aktif. Untuk menunjukan apakah radio button itu aktif atau tidak dapat diketahui pada properti Checked. Jika Checked bernilai true maka radio button itu aktif atau terpilih dan sebaliknya jika Checked bernilai false maka radi button itu tidak aktif atu tidak terpilih.

Buatlah program seperti tampilan berikut ini

Buatlah program berikut ini, bentuk tampilan seperti berikut ini :

Tempatkan pada form 2 buah label, 1 buah edit, 1 buah group box, 6 buah radio button, 1 buah button, dan satu buah bit button. Jika button proses di klik akan ditampilkan nama yang dientri pada edit dan agama yang sesuai dengan radio button yang dipilih.

Entry data dengan Check Box Check box merupakan sebuah bentuk entrian yang sifatnya optional bisa dipilih bisa juga tidak. Entrian ini biasanya menanyakan atau mengkonfirmasikan sesuatu, jika check box ini dipilih maka akan terdapat tanda ceklist yang menyatakan persetujuan atau meng- ya-kan, tetapi jika check box ini tidak dipilih maka akan dibiarkan kosong yang menyatakan tidak setuju atau menyatakan tidak. Untuk mengetahui apakan suatu check box dipilih atau tidak bisa dilihat dari properti Checked. Jika nilai checked bernilai true berarti checked tersebut terpilih dan sebaliknya jika bernilai false berarti checked tersebut tidak terpilih.

Ikuti langkah-langkah berikut ini 1. Buka aplikasi baru File | New Aplication 2. Tepatkanlah pada Form 3 Label, 1 Edit, 2 Radio button, 1 Button, 1 Bitbutton 3. Isilah properti pada masing-masing objek sbb: Nama Komponen Properti Nilai Entri data with radio button Form1 Caption bsDialog Border Style Name FmMain PoScreenCenter Position Label1 Caption Masukan nama anda Name lblNama Label2 Caption Jenis kelamin anda Name lblKelamin Label3 AutoSize False Caption (Kosongkan) Name lblHasil Warp true Edit1 CharCase CsUpperCase Name EdNama ARSys Software/AbdRohim

Hal: 3/8


Hal: 4/8



Buatlah program berikut ini, bentuk tampilan seperti berikut ini :

Properti DropDownCount

Items Name

Sorted

Style

Keterangan Jumlah baris pilihan yang akan ditampilkan pada kotak list box tersebut. Misalnya jumlah pilihan 10 buah nilai properti ini 5 maka akan ditampilkan 5 baris pilihan dan untuk memilih yang selanjutnya gunkan tombol ScrollBar Untuk memasukan sejumlah pilihan yang akan ditampilkan pada ComboBox ini. Properti ini berupa array of string yang diberi nomor mulai nol dan seterusnya. Harap diisi untuk mempermudah dalam penulisan program selanjutnya biasakan untuk edit ini menggunakan prefix ed. Contohnya cbFakultas. Bukan suatu keharusan untuk memberikan nama tetapi ini akan sangat penting dan sangan membantu dalam pembuatan programnya. Jika bernilai true akan melakukan pengurutan data pilihan yang berada pada Items dan sebaliknya jika bernilai false data pilihan yang ada di Item dibiarkan seperti apa adanya.. secara default nilai properti ini bernilai false. Menampilkan bentuk ComboBox yang telah ditentukan oleh delphi. Ada beberapa pilihan yang bisa dipilih untuk disesuaikan dengan kebutuhanya. Berikut ini keterangan dari properti style ini diambil langsung dari help on line delphi. Value CsDropDown

Ikuti 1. 2. 3.

langkah-langkah berikut ini Buka aplikasi baru File | New Aplication Tepatkanlah pada Form 1 Label, 1 Edit, 1 group box, 4 check box, 1 memo, 1 Button, 1Bitbutton Isilah properti pada masing-masing objek sbb: Nama Komponen Properti Nilai Entri data with Check Box Form1 Caption bsDialog Border Style fmMain Name poScreenCenter Position Label1 Caption Masukan nama anda Name lblNama Edit1 Name EdNama Text (Kosongkan) GroupBox1 Caption Mengambil Matakuliah praktikum Name gbMataKuliah CheckBox1 Caption Pemrograman Pascal Name cbPascal CheckBox2 Caption Logika Algoritma Name cbAlgo CheckBox3 Caption Pemrograman Cobol Name cbCobol CheckBox4 Caption Sistem Informasi Akuntansi Name CbSI0A Memo1 Name meKet Button1 Caption &Proses Name btnProses BitButton Kind BkClose Name bbClose 4. Simpanlah program ini. Klik File | Save All. Aturlah direktori ketempat penyimpanan anda. Gantilah Unit1 dengan UCekBox, Project1 dengan CekBox Double klik pada button Proses, tuliskan program berikut ini. Entry Data dengan ComboBox Secara mudah entry data dengan ComboBox bisa digambarkan memasukan data dari pilihan yang telah disediakan lewat sebuah menu pop-up. Bentuk dari ComboBox ditentukan lewat properti Style. Data yang telah dipilih lewat daftar pilihan akan disimpan pada properti text seperti pada Edit. Sebaiknya pada ComboBox ini saat properti Text diberikan nilai default sesuai dengan pilihan yang akan diberikan. Jadi singkatnya hasil dari ComboBox akan disimpan pada properti Text.

Text

Meaning Creates a drop-down list with an edit box for manually entered text. All items are strings of the same height. CsSimple Creates an edit box with a fixed list (list box) underneath. The length of the list is determined by the Height of the combo box. CsDropDownList Creates a drop-down list with no edit box; the user cannot enter text manually. All items are strings of the same height. CsOwnerDrawFixed Creates an owner-draw drop -down list with an edit box for manually entered text. Each item in the list is the height specified by the ItemHeight property. CsOwnerDrawVariable Creates an owner-draw drop -down list with an edit box for manually entered text. List items can have varying heights. Tempat menyimpan data hasil dari pilihan ComboBox

Entry data Tanggal dan Jam dengan DateTimePicker Komponen DateTimePicker adalah sebuah komponen yang berada pada komponen pallete Win32. sesuai dengan namanya komponen berfungsi untuk melakukan entry data yang berjenis tanggal dan jam. Pada saat mode tanggal akan ditampilkan tanggal dalam bentuk ComboBox yang akan menyerupai sebuah kalender lengkap dengan bulan dan tahunnya serta tombol skip untuk bulan dan tahunnya. User bisa langsung memilih tanggal yang dimaksud dengan mengklik tanggal yang ada dikalender tersebut. Secara default format tanggal (Nama bulan dan nama hari)dan jam (sistem 12 jam atau sistem 24 jam) pada komponen ini mengambil dari sistem komputer yang berada pada setting windowsnya. Namun demikian delphi juga memperbolehkan para programmer untuk mengset format tanggal dan jam yang tidak terkait dengan setting windows. Berikut ini beberapa properti yang paling sering digunakan dalam komponen DateTimePicker ini. Properti Keterangan calAlignment Mengatur posisi rapat kiri atau kanan dari kalender yang akan ditampikan. posisi kiri kanannya diambil dari ComboBox tanggal. Date Tanggal yang pertama kali akan tampil saat program dijalankan DateFormat Bentuk tampilan tanggal yang akn ditampilkan apakah akan lengkap atau pendek. Pengaturanya disesuaikan dengan aturan dari windows. DateMode Bentuk tampilan tanggal yang akan ditampilkan saat program dijalankan. Apakan tanggal akan ditampilkan dalam bentuk kalender atau dalam bentuk updown / spin Kind Mengatur entryan apakah Tanggal atau Jam MaxDate Tanggal terbesar yang bisa dientrykan. Akan aktif jika Kind = dtkDate Mindate Tanggal terkecil yang bisa dientrykan. Akan aktif jika Kind = dtkDate Name Harap diisi untuk mempermudah dalam penulisan program selanjutnya biasakan untuk edit ini menggunakan prefix dtp. Contohnya dtpTanggalLahir. Bukan suatu keharusan untuk memberikan nama tetapi ini akan sangat penting dan sangan membantu dalam pembuatan programnya.

Contoh entry data yang bisa menggunakan ComboBox adalah Jurusan dari setiap fakultas atau fakultas dari suatu universitas atau perguruan tinggi. Jadi biasanya pilihan yang disediakan sudah pasti

Berikut ini beberapa properti yang paling sering digunakan dalam komponen ComboBox ini. ARSys Software/AbdRohim

Hal: 5/8


Hal: 6/8



Contoh Program Buatlah program seperti berikut ini yang akan memberikan contoh tentang beberapa entry-an yang telah dibahas sebelumnya. Pada contoh ini akan diberikan bagaimana menmberikan nilai awal pada suatu entryan dan bagaimana mendapatkan hasil entryan tersebut.

Button1 BitBtn1 Memo1 BitBtn2

Lakukanlah langkah-langkah berikut ini: 1. Bukalah project baru 2. Tepatkanlah pada Form 2 buah GroupBox, 1 buah Panel 3. Isilah pada masing-masing properti sbb: Nama Komponen Properti Nilai Form1 Caption Entri data Border Style bsDialog Name fmEntryData Position poScreenCenter GroupBox1 Align alTop Caption Entry Data Panel1 Align alButtom BevelOuter bvLowered Caption (Kosongkan) GroupBox2 Align alClient Caption Data Hasil 4. Tempatkan pada GroupBox1 6 buah Label, 3 buah Edit, 1 buah DateTimePicker, 2 buah RadioButton, 1 buah ComboBox, 1 buah button dan 1 buah bitButton 5. Tempatkan pada GroupBox2 1 buah Memo 6. Tempatkan pada Panel1 1 buah BitBtn 7. Isilah pada masing-masing properti sbb: Nama Komponen Properti Nilai Label1 Caption Nim Label2 Caption Nama Label3 Caption Tempat Lahir Label4 Caption Tanggal Lahir Label5 Caption Jenis Kelamin Label6 Caption Jurusan Edit1 Name edNim Text (Kosongkan) Edit2 Name edNama Text (Kosongkan) Edit3 Name edTmpLhr Text (Kosongkan) DateTimePicker1 Name dtpTglLhr RadioButon1 Caption Laki Laki Checked True Name rbLakiLaki RadioButon2 Caption Perempuan Checked false Name rbPerempuan ComboBox1 Items Manajemen Informatika ARSys Software/AbdRohim

Hal: 7/8

Name Caption Name Kind Name Kind

Teknik Informatika Teknik Komputer cbJurusan &Hapus btnHapus bkOK mmHasil bkClose

8.

Double klik pada Button Hapus. Tuliskanlah program berikut ini: procedure T fmEntryData.btnHapusClick(Sender: TObject); begin edNim.Text := ''; edNama.Text := ''; edTmpLhr.Text := ''; dtpTglLhr.Date := NOW; rbLakiLaki.Checked := true; cbJurusan.Text := 'Manajemen Informatika'; ActiveControl := edNim; end;

9. 10.

Kembali pada form (tekan tombol F12 atau speedButton Toggle Form/Unit) Double klik pada BitBtn OK. Tuliskan program berikut ini. procedure TfmEntryData.bbOKClick(Sender: TObject); begin mmHasil.Clear; mmHasil.Lines.Add('Nim : '+edNim.Text); mmHasil.Lines.Add('Nama : '+edNama.Text); mmHasil.Lines.Add('Tempat Lahir : '+edTmpLhr.Text); mmHasil.Lines.Add('Tanggal Lahir: '+DateToStr(dtpTglLhr.Date)); if rbLakilaki.Checked then mmHasil.Lines.Add('Jenis Kelamin: Laki-laki') else mmHasil.Lines.Add('Jenis Kelamin: Perempuan'); mmHasil.Lines.Add('Jurusan : '+cbJurusan.Text); end;

11.

Simpanlah programnya dengan mengklik menu File | Save All atau tombol dengan EntryData dan Project1 dengan Entry4 Jalankanlah programnya.

12. 5.

6. 7.

pada SpeedBar. Gantilah Unit1

procedure TForm1.btnProsesClick(Sender: TObject); begin meKet.Clear; meKet.Lines.Add(edNama.Text+ ' mengambil mata kuliah praktikum'); meKet.Lines.Add(''); if cbPascal.Checked then meKet.Lines.Add(cbPascal.Caption); if cbAlgo.Checked then meKet.Lines.Add(cbAlgo.Caption); if cbCobol.Checked then meKet.Lines.Add(cbCobol.Caption); if cbSIA.Checked then meKet.Lines.Add(cbSIA.Caption); end; Simpan kembali program ini Klik File | Save Jalankan programnya klik Run | Run


Hal: 8/8