Arsip: [ask] Tentang penggunaan keybord atau key gan

more 13 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 13 years ago
kepiss
wah gak ada yang bisa membantu diriku yaw....
apakah pertanyaan saya kurang jelas....???
para master master.....berikan saya petunjuk.... :) :?

more 13 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 13 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 13 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 13 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Form ajaib
by EkoIndri in Form Enhancement & Graphical Controls more 19 years ago - [ASK] Delphi 2009 + MySQL, report viewernya apa ya
by edoardputro in Lain-lain more 14 years ago - tampilan menu seperti office 2007
by musespratama in Form Enhancement & Graphical Controls more 13 years ago - ngambil tanggal untuk faktur otomatis
by khumaedy in Tip n Trik Pemrograman more 16 years ago - File Dll ?
by budi_bunga in Hal umum tentang Pascal Indonesia more 18 years ago - Select Case when then hasilnya masih salah
by onsir in MySQL more 17 years ago - Sory eror lagi ..
by Lembah_Tidar in Paradox more 17 years ago - mau tanya kirim baca data nich
by big_jamie in Tutorial & Community Project more 18 years ago - [warning] : Variable not have been initialized
by jajang in Tip n Trik Pemrograman more 16 years ago - MENAMPILKAN NILAI TIAP_TIAP PIKSEL BITMAP
by alfa1412 in Hal umum tentang Pascal Indonesia more 17 years ago