| Author |
Message |
imunk |
| Location: |
|
Post subject: hitung interval waktu penekanan tombol keyboard?
 Posted: 14/Apr/2005 09:08
|
|
onUber-Skilled
Joined: 28-Mar-2005
Posts: 451
Status: Offline
|
|
sebelumnya makasih banyak buat mas2 yg sudah ngejelasin & ngejawab pertanyaan2 saya terdahulu. thanks a lot of all. 
saya pengen nanya lagi nih, gapapa ya mas...... 
saya pengen buat program untuk menghitung interval waktu yg dibutuhkan ketika tombol keyboard ditekan secara berurutan. 
misal gini :
saya ketik kata JAKARTA, dari penekanan tombol J sampe A waktunya dihitung, nah kira2 codingnya gimana ya. bisa gak pake TTimer, kalo bisa settingnya gimana ya? kan TTimer kan defaultnya detik sedangkan penekanan tombol mungkin satu kata bisa jadi diketik kurang dari 1 detik.
mudah2an pertanyaan saya yg gak tau keberapa kalinya ini bisa terjawab dan terselesaikan lewat forum ini.amin....... 
dan buat mas2 yg mau ngejawab saya ucapkan banyak terima kasih.
DELPHI INDONESIA is the best for me and all. |
|
|
| |
|
|
|
 |
|
kifmesoft |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 14/Apr/2005 09:47
|
|
onKnowledgeable
Joined: 02-Apr-2005
Posts: 176
Status: Offline
|
|
hi imunk
saya coba bantu kamu yaa.. 
gini..
kalo yang dipake itu komponen visual seperti EDIT, MEMO, BUTTON,
LISTBOX, dll...
maka, bisa dech manfaatin event OnKeyPress
disitu kan ada variable Key... terus gunakan fungsi TIME
jadi kayaknya belum perlu deh pake TTimer
terus... yang rumit menurutku jika kata JAKARTA sedang diketik
tombol J sampe A kemudian tiba-tiba A dihapus (pake BACKSPACE)
kan balik lagi ke J ....
kalo jumlah karakternya 1 maka mulailah ambil TIME.. simpan
karakter berikutnya juga ambil TIME lagi... dan simpan, begitu seterusnya
dari perkiraan logika itu, cobalah dulu memperkirakan codingnya...
kalo ada error, nanti bisa sharing lagi, ok  |
|
|
| |
|
|
|
|
|
imunk |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 14/Apr/2005 10:55
|
|
onUber-Skilled
Joined: 28-Mar-2005
Posts: 451
Status: Offline
|
|
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 14/Apr/2005 13:46
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
ikutan ahh..
dari penjelasannya, berhubung yang dihitung adalah lamanya waktu setelah menulis kata / kalimat, dan bukan antar huruf.... jadi.. biar codingnya lebih simple, pake timer aja...
timer dimulai dan berhenti ketika terjadi suatu event, misalnya tombol enter ditekan.
misalnya pake editbox, di OnKeyPress cukup cek penekanan tombol ENTER.
misalnya enter ditekan, cek keadaan timer.
Jika timer mati, reset variabel counter dan nyalakan timer...
Jika timer menyala, matikan timer dan tampilkan isi variabel counter...
ngerti kan maksudnya..???
trus timer bisa dirubah interval menjadi 1/1000 second..
rubah aja di object inspector-nya menjadi 1. (1000 = 1 detik) |
_________________
do i know you?
[ My Blog : http://www.monyetpinter.com ] [ My RPG Project : http://einarc.wordpress.com ] [ FJBex : http://www.fjbex.com ]
|
| |
|
|
|
|
|
kifmesoft |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 14/Apr/2005 17:06
|
|
onKnowledgeable
Joined: 02-Apr-2005
Posts: 176
Status: Offline
|
|
siiip! ZeAL
pake OnKeyPress atau OnChange kliatannya sama okenya,
tapi aku lebih suka pake OnChange,
soalnya kalo OnKeyPress kan yang ditekan bisa macam2 tuh..
permisalanmu oke juga ZeAL..
tinggal gimana imunk membuatnya dalam code, mudah2an oke.. |
|
|
| |
|
|
|
|
|
imunk |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 15/Apr/2005 08:06
|
|
onUber-Skilled
Joined: 28-Mar-2005
Posts: 451
Status: Offline
|
|
makasih sebelumnya buat mas2 yg sudah ngejawab...
mungkin sedikit saya luruskan permasalahannya....
yg dihitung bukan per kata/kalimat tapi perhuruf, jadi dari kata JAKARTA perhitungannya sbb:
J->A->K->A->R->T->A
penekanan tombol dari J ke A waktunya berapa?
penekanan tombol dari A ke K waktunya berapa?
penekanan tombol dari K ke A waktunya berapa?
penekanan tombol dari A ke R waktunya berapa?
penekanan tombol dari R ke T waktunya berapa?
penekanan tombol dari T ke A waktunya berapa?
gitu ceritanya mas....
nanti hasil dari interval waktu penekanan 2 tombol tersebut akan ditampilkan. |
|
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 15/Apr/2005 08:36
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
hmmm... diasumsikan cara gue yang dipake...
berarti di OnKeyPress check semua penekanan tombol untuk a..z, A..Z, 0..9..
Jika salah satu tombol tersebut ditekan, maka masukkan keadaan counter saat itu dan tombol yang ditekan kedalam variabel penampung....
buat aja variabel array 2 dimensi :
Penampung[i,1] untuk penampung counter. (counter di convert ke string dulu)
Penampung[i,2] untuk penampung karakter.
kenapa karakter ditampung juga?
sebab biar kita tau karakter apa yang ditekan pada waktu itu...
nanti yang didapat adalah lamanya waktu dari MULAI hingga tombol ditekan.
Kalo ingin tau lamanya waktu ANTARA karakter dan karakter, tinggal dikurangi dengan catatan sebelumnya...
jadi lebih lengkap kan..??
waktu antar karakter dapet dan waktu dari mulai juga dapet... |
_________________
do i know you?
[ My Blog : http://www.monyetpinter.com ] [ My RPG Project : http://einarc.wordpress.com ] [ FJBex : http://www.fjbex.com ]
|
| |
|
|
|
|
|
kifmesoft |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 15/Apr/2005 12:50
|
|
onKnowledgeable
Joined: 02-Apr-2005
Posts: 176
Status: Offline
|
|
|
Quote:
Jika salah satu tombol tersebut ditekan,
maka masukkan keadaan counter saat itu dan tombol yang ditekan
kedalam variabel penampung....
terus jika tombol yang ditekan dibatalkan pake "BACKSPACE" atau "DEL"
mundur lagi gitu ?? hehehe sederhana tapi rumit lho..
Quote:
kenapa karakter ditampung juga?
sebab biar kita tau karakter apa yang ditekan pada waktu itu...
misal kalo pake komponen TEdit, saya kurang setuju ZeAL
soalnya karakter tsb dah ditampung di properti TEXT...
Quote:
nanti yang didapat adalah lamanya waktu dari MULAI hingga tombol ditekan.
Kalo ingin tau lamanya waktu ANTARA karakter dan karakter,
tinggal dikurangi dengan catatan sebelumnya...
jadi lebih lengkap kan..??
SETUJUUUUUUU...
sebenarnya dia (mas Imunk) sdg bikin apa??
kayaknya yang deket2 sih bikin Fast Typing,
dan kalo nanti yang dihitung adalah waktu pada masing-masing kata,
yaaaa... menurutku sih, sebaiknya mulailah dengan logika
menghitung kata-kata dulu, kan dah ada Thread tentang
"iseng-iseng dengan kata-kata", bagus lhooo.. hahaha
Hasilnya dari seluruh yang diketikkan mungkin berupa :
- Jumlah Kata
- Jumlah Karakter
- dan Jumlah Waktunya |
|
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 18/Apr/2005 08:39
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
|
Quote:
terus jika tombol yang ditekan dibatalkan pake "BACKSPACE" atau "DEL"
mundur lagi gitu ?? hehehe sederhana tapi rumit lho..
ohohoho... Sesuai dengan yang gue bilang sebelumnya, yang dicek cuma 1..z,A..Z,0..9.
kan tombol Backspace dan del gak diperiksa.. dianggapnya lo masih mengetik huruf sebelumnya...
Atau...
kalo tombol BACKSPACE di tekan, kurangi aja posisi index array dengan 1...
Jadi counter sebelumnya akan ditimpa dengan yang baru...
Quote:
misal kalo pake komponen TEdit, saya kurang setuju ZeAL
soalnya karakter tsb dah ditampung di properti TEXT...
Bukan masalah ditampung dimana.. ini untuk menjawab pertanyaan, "Pada detik n, huruf apa yang ditekan?"
Kalo tetep pake properti text, dapet jawabannya gimana coba..??? (Kalo misalnya yang ditampung hanya detik penekanan saja...) |
_________________
do i know you?
[ My Blog : http://www.monyetpinter.com ] [ My RPG Project : http://einarc.wordpress.com ] [ FJBex : http://www.fjbex.com ]
|
| |
|
|
|
|
|
kifmesoft |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 18/Apr/2005 11:50
|
|
onKnowledgeable
Joined: 02-Apr-2005
Posts: 176
Status: Offline
|
|
Menghindari tombol BACKSPACE atupun DELETE sebenarnya dapat
kita lakukan dengan mudah bilamana kita menggunakan event OnChange
dan melihat panjang karakter pada properti TEXT.
Dengan demikian kita membutuhkan pencatat panjang karakter untuk
dibandingkan dengan panjang karakter yang terdapat pada properti TEXT.
Bila panjangnya tidak sama, maka tentulah kita dapat mengambil keputusan..
apakah itu berupa penambahan pencatatan waktu, ataukah menghilangkan
waktu dari karakter yang terakhir...
Quote:
kalo tombol BACKSPACE di tekan, kurangi aja posisi index array dengan 1...
Jadi counter sebelumnya akan ditimpa dengan yang baru...
saya kurang sependapat dengan hal tsb
jika tombol BACKSPACE ditekan, yang terhapus adalah karakter terakhir
dan pencatatan waktu terakhirlah yang akan siap untuk ditimpa, sedangkan
pencatat waktu sebelumnya tetap dipertahankan untuk dijadikan acuan
interval bagi karakter yang akan masuk berikutnya.. tidakkah demikian??
sebenarnya pada thread awal saya udah mengatakan bahwa ini bisa jadi
rumit jika pake BACKSPACE, ditambah lagi DELETE, bukankah DELETE dan
juga BACKSPACE dapat terjadi ditengah?
bagaimana dengan INSERT karakter ditengah?
iseng amat ya.. tapi ya memang spt itulah seharusnya yang diperkirakan
Tanpa bermaksud membuatnya jadi tambah pelik... maka sebaiknya
kita batasi aja menjadi simple...
seperti ini misalnya :
- Menggunakan komponen TEdit
- Pengetikkan karakter yg diijinkan 'A'..'Z', 'a'..'z'
- Penghapusan hanya boleh dilakukan pada karakter terakhir
- Tidak ada penyisipan karakter
(penambahan karakter hanya boleh sebagai karakter terakhir)
Jika pembatasan tsb dapat menimbulkan salah tangkep, maka
pembatasannya dapat disesuaikan
"Pembatasan tersebut berlaku mulai dari saat tulisan reply ini di posting
hinga batas waktu yang diinginkan oleh masing2 pembaca.." hehehe
Jika menggunakan batasan-batasan spt tersebut diatas, maka mungkin
kode berikut dapat dijadikan bahan perbandingan...
Code:
......
......
Var
WaktuKetik: Array[1..1000] Of TDateTime;
TotalWaktu: TDateTime;
PanjangAkhir: Integer;
Mulai: Boolean;
......
......
procedure TForm1.Edit1Change(Sender: TObject);
begin
If Length(Edit1.Text) = 1 Then
Begin
If Not Mulai Then
Begin
If Edit1.Text[1] In ['A'..'Z', 'a'..'z'] Then
Begin
PanjangAkhir:= 1;
WaktuKetik[PanjangAkhir]:= Time;
TotalWaktu:= 0;
lbInterval.Caption:= FormatDateTime('hh:nn:ss:zzz',
TotalWaktu);
Mulai:= True;
End
End
Else
Begin
TotalWaktu:= 0;
lbInterval.Caption:= FormatDateTime('hh:nn:ss:zzz',
TotalWaktu);
End;
End
Else If Length(Edit1.Text) > 1 Then
Begin
If Edit1.Text[Length(Edit1.Text)] In ['A'..'Z', 'a'..'z'] Then
Begin
If Length(Edit1.Text) > PanjangAkhir Then
Begin
Inc(PanjangAkhir);
WaktuKetik[PanjangAkhir]:= Time;
TotalWaktu:= TotalWaktu + (WaktuKetik[PanjangAkhir] -
WaktuKetik[PanjangAkhir - 1]);
lbInterval.Caption:= FormatDateTime('hh:nn:ss:zzz',
TotalWaktu);
End
Else
Begin
TotalWaktu:= TotalWaktu - (WaktuKetik[PanjangAkhir] -
WaktuKetik[PanjangAkhir - 1]);
Dec(PanjangAkhir);
lbInterval.Caption:= FormatDateTime('hh:nn:ss:zzz',
TotalWaktu);
End;
End;
End
Else Mulai:= False;
end;
......
......
Gudlak.. |
|
|
| |
|
|
|
|
|
ZeAL |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 18/Apr/2005 12:43
|
|
onProfessional
Joined: 07-Apr-2005
Posts: 763
Status: Offline
|
|
|
|
|
|
|
imunk |
| Location: |
|
|
Post subject: RE: hitung interval waktu penekanan tombol keyboard?
Posted: 21/Apr/2005 14:16
|
|
onUber-Skilled
Joined: 28-Mar-2005
Posts: 451
Status: Offline
|
|
hehe... maaf mas saya baru reply lagi.
wah gak nyangka mas2 disini baek2. makasih ya mas......
makasih juga buat mas yg sudah kasih source code nya
sudah running well. |
|
|
| |
|
|
|
|
|
|
