Telefonino.net network
 
| 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 » |

Torna indietro   WinTricks Forum > Software > Software applicativo

Notices

Rispondi
 
Strumenti discussione
Vecchio 07-06-2005, 16.18.34   #1
Kjow
Gold Member
Top Poster
 
L'avatar di Kjow
 
Registrato: 04-01-2001
Loc.: Perugia
Messaggi: 3.797
Kjow promette bene
Rilevazione tasti premuti

Ciao a tutti,

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
Kjow non è collegato   Rispondi citando
Vecchio 09-06-2005, 18.23.19   #2
onairda
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)
  Rispondi citando
Vecchio 09-06-2005, 18.36.57   #3
onairda
Guest
 
Messaggi: n/a
il listato compilato

ecco l'eseguibile rinominalo in exe che è gia' pronto
  Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

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

Orario GMT +2. Ora sono le: 02.57.12.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.