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
- mengabungkan coding 2 modul ke 1 function di file .DLL
by CAHYADI_ONG in Tip n Trik Pemrograman more 14 years ago - Thank's...To..delphi-id....
by yadi in Hal umum tentang Pascal Indonesia more 15 years ago - Query
by slamet_linux in FireBird more 15 years ago - Mau tanya tentang form
by Kijokotopo in Hal umum tentang Pascal Indonesia more 16 years ago - Select ... like ....
by asepolin in Hal umum tentang Pascal Indonesia more 14 years ago - Delphi C#, Aspx dan .NET
by zones in Delphi.NET more 14 years ago - [HELP] security Table MyIsam ..
by rehmoe in MySQL more 16 years ago - pps,swf plugin
by brodien in Multimedia & Graphic Enhancement more 17 years ago - Tips koneksi Database yang handal
by DelphiExpert in Hal umum tentang Pascal Indonesia more 17 years ago - Print Nota
by reminder2k1 in Reporting more 15 years ago