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 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 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 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Backup Database Postgresql
by delphi1st in Tip n Trik Pemrograman more 15 years ago - Membuat No Urut otomatis pada tabel lain
by ayojoe in Hal umum tentang Pascal Indonesia more 17 years ago - Database tersimpan ke format VCS
by kiki-Delphi in MySQL more 16 years ago - boolean
by brodien in MsSQL more 16 years ago - [ASK] Free compiler Borland Delphi
by bayzap in Enginering more 12 years ago - Tny ttg komponen edit??
by camp_sire in Tip n Trik Pemrograman more 14 years ago - Nanya function CMYK??
by iml_tony in Multimedia & Graphic Enhancement more 15 years ago - Project pdf
by yupi in Tutorial & Community Project more 15 years ago - multimedia pdf library freepascal linux
by batozai in Multimedia & Graphic Enhancement more 12 years ago - simpan otomatis
by Ayahe_Hasna in Paradox more 14 years ago