Arsip: [ask] Tentang penggunaan keybord atau key gan

more 11 years ago
kepiss
ane punya masalah gini mas....
aku kan bikin aplikasi pemilu....
terus permasalahannya keteika ada dua tombol dipencet bersama jadi gak ada aksi gitu...
misal coding ane
procedure Tform1.keydown;
begin
if (key=74) and (key=75) then// ----->tidak ada aksi (74) untuk huruf J dan 75 untuk huru K
else
if key=74 then panel1.capton:=inttostr(strtoint(panel1.caption+1) else
if key=75 then panel2.Caption:=inttostr(strtoint(panel2.caption+1);
end;
dari coding di atas seharusnya ketika huruf J dan K dipencet maka panel1.caption dan panel2.caption tidak bertambah nilai tetapi
ketika salah satu huru J dan K di pencet maka panel1.Caption atau panel2.caption aka bertambah nilai.
tetapi ketika saya pencet Huruh J dan K kedua panel tetap bertambah nilai.....
mengatasi masalahnya gimana ya gan mas....berharap ada yang bisa membantu...
more 11 years ago
kepiss
wah gak ada yang bisa membantu diriku yaw....
apakah pertanyaan saya kurang jelas....???
para master master.....berikan saya petunjuk.... :) :?

more 11 years ago
galihiindra
@kepiss: ane punya masalah gini mas.... aku kan bikin aplikasi pemilu.... terus permasalahannya keteika ada dua tombol dipencet bersama jadi gak ada aksi gitu... misal coding anedicoba gandari coding di atas seharusnya ketika huruf J dan K dipencet maka panel1.caption dan panel2.caption tidak bertambah nilai tetapi ketika salah satu huru J dan K di pencet maka panel1.Caption atau panel2.caption aka bertambah nilai. tetapi ketika saya pencet Huruh J dan K kedua panel tetap bertambah nilai..... mengatasi masalahnya gimana ya gan mas....berharap ada yang bisa membantu...procedure Tform1.keydown; begin if (key=74) and (key=75) then// ----->tidak ada aksi (74) untuk huruf J dan 75 untuk huru K else if key=74 then panel1.capton:=inttostr(strtoint(panel1.caption+1) else if key=75 then panel2.Caption:=inttostr(strtoint(panel2.caption+1); end;
procedure Tform1.keydown;
begin
if (key=74) and (key=75) then key:=#0
else
if key=74 then panel1.capton:=inttostr(strtoint(panel1.caption+1) else
if key=75 then panel2.Caption:=inttostr(strtoint(panel2.caption+1);
end;

more 11 years ago
henry_sys
Bro.. yang saya tahu seberapa secepat apapun prosesor pada komputer selalu mengeksekusi perintah secara sequence(berurut). makanya combinasi key selalu dituliskan ctrl + B yang berarti tekan Ctrl dilanjutkan dengan B, untuk membuktikan coba saja bikin TEdit terus tekan tombol J dan k secara bersamaan hasilnya gimana
mestinya itu sudah menjawab.
klu ditanya kenapa klu ditekan J dan K selalu ada aksi, jawabanya pada
.....
else
If key=74 then bla.... else
if key = 75 then bla....

more 11 years ago
luckynvic
sepengetahuan sy untuk kombinasi 2 huruf tidak bisa bro, J+K, sebab event keydown yang kekirim tetap J dan K terpisah dan variable Key pasti hanya berisi satu nilai,
so baris
If (key=74) and (key=75) then ..
akan selalu false yg menyebabkan salah satu dari blok else yang dikerjakan.
coba deh lakukan debug programnya..
btw tujuan agar J+K tidak ada action apa ya?
more 11 years ago
kepiss
@luckynvic: sepengetahuan sy untuk kombinasi 2 huruf tidak bisa bro, J+K, sebab event keydown yang kekirim tetap J dan K terpisah dan variable Key pasti hanya berisi satu nilai, so barisowh begitu yaw mas.....berarti gak bisa ya..mengatasi agar dua buah keybord dipencet bersamaan. Tujuanya agar ketika peserta pemilu memencet dua buah tombol tidak bisa gitu kan.... kan ane bikin tombolnya pake micro controler....nha alat itu ada tombolnya ketika tombol itu di pencet maka akan menekan huruf di keybord Yauitu J dan K. gitu gan.......akan selalu false yg menyebabkan salah satu dari blok else yang dikerjakan. coba deh lakukan debug programnya.. btw tujuan agar J+K tidak ada action apa ya?If (key=74) and (key=75) then ..
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- help
by vandy in onLinux more 16 years ago - ada yang tahu? programing OOP di delphi
by alicool in OOT more 15 years ago - shoutbox-nya koq ngak autorefresh ya ????
by EkoIndri in Kritik & Saran more 17 years ago - Program Billing Hotel
by delphi1st in Tip n Trik Pemrograman more 17 years ago - update per jam..?
by nurez in Tip n Trik Pemrograman more 16 years ago - Keyboard Character?Help
by Durman in Hal umum tentang Pascal Indonesia more 15 years ago - Indahnya Quick Report :: Sample Program
by Tbawor in Free dan Gratis more 16 years ago - menyimpan gambar ke mysql via delphi 7 dan menampilkannya
by radithya in MySQL more 15 years ago - Tolong dong mas jelasin maksud coding ini.....
by kepiss in Tutorial & Community Project more 11 years ago - gabungin 2 komponen
by esafm in Tip n Trik Pemrograman more 15 years ago