Interaksi manusia dan komputer IMK3

Document Sample
Interaksi manusia dan komputer IMK3 Powered By Docstoc
					                                 MODUL 2
           MASUKAN DARI PENGGUNA DENGAN KEYBOARD


Tujuan :
1. Mampu membuat program yang meminta masukan pengguna dari keyboard
2. Mampu membuat program dengan mempergunakan komponen Delphi Edit
3. Mampu mempergunakan Edit Box dengan cepat


Teori :
Pengguna dapat berinteraksi dengan komputer menggunakan 2 cara yang paling
umum adalah menggunakan keyboard dan mouse. Biasanya mouse dipakai untuk
menunjukkan atau memindahkan ke suatu tombol dengan cepat. Keyboard juga
dapat digunakan untuk keperluan tersebut dan biasanya menggunakan tombol
TAB sampai berkali-kali sampai tombol yang diinginkan mendapat focus.
Pemakai dapat juga menggunakan keyboard untuk memilih sebuah tombol
(button) dengan menekan kombinasi Alt+Huruf di keyboard yang sesuai dengan
huruf digaris bawahi pada caption (teks yang tertulis).
Delphi menyediakan komponen-komponen standar yang dapat dipakai untuk
memasukkan data dari keyboard yaitu edit dan memo. Objek edit (TEdit)
mengijinkan satu baris teks sedangkan objek memo (TMemo) dapat menerima
beberapa baris teks.
Penggunaan objek TEdit mengambil kontrol edit standar windows ke dalam suatu
form. Kontrol edit ini digunakan untuk mengambil teks yang diketikkan oleh
pengguna.
Ketika hanya dipakai untuk menampilkan teks kepada pengguna, aturlah agar
pengguna dapat memilih teks tersebut dan meng-copy-kan ke clipboard. Jika
kemampuan untuk memilih tidak diperlukan, pakailah objek label dari pada
menggunakan objek edit.
Salah satu masalah yang sering dialami dalam menggunakan objek edit adalah
input focus. Dalam windows adalah mudah untuk menentukan mana jendela yang
sedang aktif. Hal ini dapat dilihat dengan menentukan jendela mana yang paling
depan atau dengan melihat Title Bar dari jendela tersebut karena warnanya akan
berbeda. Adalah tidak mudah untuk menentukan yang mana kotak edit yang
sedang aktif dari suatu form. Biasanya kita mencari kursor keyboard-nya ada
dikotak mana dengan menekan tombol TAB berulang kali untuk melihat
perubahan dilayar atau dengan menekan tombol keyboard, maka kotak edit yang
bersesuaian dengan tombol itu akan menjadi aktif.
Salah satu penyelesaiannya menggunakan kejadian (event) OnEnter atau OnExit
suatu objek. Kejadian OnEnter terjadi ketika suatu kontrol menerima input focus.
Sedangkan kejadian OnExit terjadi ketika input focus bergeser dari satu kontrol
ke kontrol yang lain.
Anda dapat melihat contoh form berikut ini :




Tatalaksana Praktikum :
Ikuti langkah-langkah berikut ini untuk mencoba membuat program “Program
Barang”
1. Buka Delphi dan buatlah form seperti gambar di atas.
2. Letakkan komponen-komponen yang dibutuhkan seperti gambar di atas.
3. Isi properties masing-masing komponen seperti yag diperlihatkan tabel
   berikut:
           Komponen                 Properties                  Value
     Form1                   Caption                    Program Barang
                             Name                       FBarang
     Label1                  Caption                    Nama Pelanggan
     Label2                  Caption                    Kode Barang
     Label3                  Caption                    Banyak Barang
     Label4                  Caption                    Bayar
     Label5                  Caption                    -
     Edit1                   Name                       EdNama
                             Text                       -
     Edit2                   Name                       EdKode
                             Text                       -
     Edit3                   Name                       EdBanyak
                             Text                       -
             Komponen              Properties                Value
     Edit4                  Name                     EdBayar
                            Text                     -
     Button1                Caption                  &Hitung
                            Name                     BtHitung
     Button2                Caption                  &Tutup
                            Name                     BtTutup


4. Selanjutnya kita akan menambahkan kode program pada tombol Button1
   (&Hitung) even OnClick sebagai berikut :
   procedure TFBarang.BtHitungClick(Sender: TObject);
   var banyak, harga, bayar : real;
   begin
        harga := 0;
        bayar := 0;
        banyak := strtofloat(EdBanyak.Text);
        case strtoint (EdKode.Text) of
          1 : harga := 10000;
          2 : harga := 15000;
          3 : harga := 20000;
        end;
        bayar := banyak * harga;
        EdBayar.Text := floattostr(bayar);
   end;


5. Kode pada tombol Button2 (&Tutup) even OnClick seperti berikut ini :
   procedure TFBarang.BtTutupClick(Sender: TObject);
   begin
     Application.Terminate;
   end;


6. Kode pada Edit1 (EdNama) even OnChange seperti di bawah ini :
   procedure TFBarang.EdNamaChange(Sender: TObject);
   begin
      Label5.Caption := 'Masukkan nama pelanggan';
   end;


7. Kode pada Edit1 (EdNama) even OnExit seperti di bawah ini :
   procedure TFBarang.EdNamaExit(Sender: TObject);
   begin
     Label5.Caption := '';
   end;


8. Simpan program dengan nama file ULatihan2 untuk Unit-nya dan PLatihan2
   untuk Project-nya.
Latihan :
1. Buatlah form seperti di atas.
2. Lengkapi form di atas degan memberikan keterangan untuk ada saat
   memasukkan kode barang dan banyak barang dan tombol hitung. Pilih
   huruf B pada kode barang agar anda dapat menggunakan kombinasi Alt+B
   dan kursor langsung menuju pada EdKode. Sedangkan untuk banyak barang
   pilihlah huruf K dan kursor langsung menuju ada EdBanyak setelah itu
   kursor langsung menuju ke Button1 (Hitung) tidak singgah lagi ke Bayar
   (EdBayar) apabila menggunakan TAB.

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:45
posted:7/3/2011
language:Indonesian
pages:4