Arsip: [ask] Tentang penggunaan keybord atau key gan

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

more 8 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 8 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 8 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 8 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- tolong (cara buat program permutasi dan kompbinasi di delph)
by moena_blue in Hal umum tentang Pascal Indonesia more 13 years ago - Thanx ya
by jerry in Tip n Trik Pemrograman more 12 years ago - ngarahin penyimpanan ke server 2(buat nampilinnya)
by lela in Tip n Trik Pemrograman more 14 years ago - Exe dengan Parameter
by machomen in Hal umum tentang Pascal Indonesia more 15 years ago - Export data ke file
by tAtA in Tip n Trik Pemrograman more 14 years ago - Lazarus 0.9.20 (beta) Released!
by simba in onLinux more 14 years ago - Menampilkan image
by coolmib in Multimedia & Graphic Enhancement more 14 years ago - Bikin Program Anmtrian Bank
by krishy in Tip n Trik Pemrograman more 13 years ago - Bikin Laporan.....Kok Susah....
by awonk in MsSQL more 13 years ago - parameter harga software
by dinox in OOT more 14 years ago