|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
07-06-2005, 16.18.34 | #1 |
Gold Member
Top Poster
Registrato: 04-01-2001
Loc.: Perugia
Messaggi: 3.797
|
Rilevazione tasti premuti
mi servirebbe un programma che mi dica quale tasto è premuto all'istante con magari il relativo codice... es: premo a sulla tastiera e mi dice "a", premo shift e mi dice che sto premendo "shift", premo il tab e me lo dice... Non ho voglia/temo di farmelo... quindi se sapeste già dell'esistenza di una cosa simile ve ne sarei grato Ciao e grazie
___________________________________
S.: A, ui, ue, la fortuna viene a me; ui, ue, ua, la fortuna viene qua. F.: A, ue, ui, la fortuna non va lì. Mi scusi... Mercatino Usato |
09-06-2005, 18.23.19 | #2 |
Guest
Messaggi: n/a
|
listato in quick basic
CLS
DEF SEG = 0 LOCATE 4 PRINT " ÉÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT " º 128³Insert º" PRINT " º 64³Caps Lock º" PRINT " º 32³Num Lock º" PRINT " º 16³Scroll Lock º" PRINT " º 8³Alt º" PRINT " º 4³Ctrl º" PRINT " º 2³Left Shift º" PRINT " º 1³Right Shift º" PRINT " ÇÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄĽ" PRINT " º ³ TOTAL" PRINT " ÈÍÍÍÍ;" PRINT "Press enter to quit." DO check$ = INKEY$ a = PEEK(1047) LOCATE 1, 6: PRINT check$ IF check$ <> "" THEN xyz = ASC(check$) IF check$ <> "" THEN PRINT "codice asci", xyz aaa: LOCATE 14, 6: PRINT USING "###"; a IF a >= 128 THEN a.flag = 1 a = a - 128 ELSE a.flag = 0 END IF IF a >= 64 THEN b.flag = 1 a = a - 64 ELSE b.flag = 0 END IF IF a >= 32 THEN c.flag = 1 a = a - 32 ELSE c.flag = 0 END IF IF a >= 16 THEN d.flag = 1 a = a - 16 ELSE d.flag = 0 END IF IF a >= 8 THEN e.flag = 1 a = a - 8 ELSE e.flag = 0 END IF IF a >= 4 THEN f.flag = 1 a = a - 4 ELSE f.flag = 0 END IF IF a >= 2 THEN g.flag = 1 a = a - 2 ELSE g.flag = 0 END IF IF a >= 1 THEN h.flag = 1 a = a - 1 ELSE h.flag = 0 END IF SELECT CASE a.flag CASE 1 LOCATE 5, 5: PRINT "û" CASE 0 LOCATE 5, 5: PRINT " " END SELECT SELECT CASE b.flag CASE 1 LOCATE 6, 5: PRINT "û" CASE 0 LOCATE 6, 5: PRINT " " END SELECT SELECT CASE c.flag CASE 1 LOCATE 7, 5: PRINT "û" CASE 0 LOCATE 7, 5: PRINT " " END SELECT SELECT CASE d.flag CASE 1 LOCATE 8, 5: PRINT "û" CASE 0 LOCATE 8, 5: PRINT " " END SELECT SELECT CASE e.flag CASE 1 LOCATE 9, 5: PRINT "û" CASE 0 LOCATE 9, 5: PRINT " " END SELECT SELECT CASE f.flag CASE 1 LOCATE 10, 5: PRINT "û" CASE 0 LOCATE 10, 5: PRINT " " END SELECT SELECT CASE g.flag CASE 1 LOCATE 11, 5: PRINT "û" CASE 0 LOCATE 11, 5: PRINT " " END SELECT SELECT CASE h.flag CASE 1 LOCATE 12, 5: PRINT "û" CASE 0 LOCATE 12, 5: PRINT " " END SELECT LOOP UNTIL check$ = CHR$(13) |
09-06-2005, 18.36.57 | #3 |
Guest
Messaggi: n/a
|
il listato compilato
ecco l'eseguibile rinominalo in exe che è gia' pronto
|
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
[C] Catturare la pressione di alcuni tasti | Alhazred | Programmazione | 4 | 07-12-2007 01.06.28 |
tasti e cavi per accensione PC | JuSTeR | Hardware e Overclock | 6 | 08-09-2006 17.22.09 |
Mappatura tasti. | borgata | Windows 7/Vista/XP/ 2003 | 6 | 26-08-2005 11.30.38 |
Tastiera 109 tasti | fastdius | Hardware e Overclock | 2 | 23-08-2005 13.42.52 |
Game Pad da 6 a 8 tasti | tsubasa | Software applicativo | 0 | 16-02-2004 22.06.34 |