Basic - ZOCORRO!!! PULSAR F2

bueno, lo primero SALUDOS PARA TODOS...... Tengo un pequeño problema, haber si alguien me puede ayudar, estoy haciendo un programa en quickbasic, y me gustaria saber como hago para que pulsando F2 me haga por ejemplo buscar, no se me explico.... jeje weno hay va lo que he intentado

a$=input$(1)
if a$=chr$(0)+chr$(60) then
......
......
end if
.......

pos ahi la he deajado, haber si alguien me puede hechar una mano, muchas gracias a todo el mundo..... Un saludo

este es el fragmento de código que yo acostumbro:
'''Identificación de teclas
WIDTH 40, 25: CLS : COLOR 24, 7
PRINT "Toca cualq. tecla para conocer su código"
PRINT : COLOR 15, 4: LOCATE , , , 1, 31
FOR iii = 1 TO 10: DO: tecla$ = INKEY$
LOOP UNTIL tecla$ <> ""
Codigotecla% = CVI(tecla$ + CHR$(0))
PRINT Codigotecla%;
IF Codigotecla% < 255 AND Codigotecla% > 31 THEN
PRINT "-> "; CHR$(Codigotecla%)
ELSE PRINT "-> tecla de función"
END IF:
NEXT iii: SOUND 3333, 3: END
' ->=19712 repag=18688 supr=21248 <-=19200 avpag=20736 insert=20992
' arriba=18432 inicio=18176 abajo=20480 fin=20224 F1=15104 F2=15360 F3=15616
'F4=15872 F5=16128 F6=16384 F7=16640 F8=16896 F9=17152 F10=17408 F11=-31488
'F12=-31232
'ábaco: 1=20224 2=20480 3=20736 4=10200 5=no agarra hay que captarla con tecla
'definida por el usuario 6=19712 7=18176 8=18432 9=18688 0=20992

Weno pos eso, muchas gracias, hace un par de dias lo saque cogiendo solo el valor de la derecha......

DO
a$ = INKEY$
LOOP UNTIL a$ <> ""
f = ASC(RIGHT$(a$, 1)) 'Tomo el segundo valor ascii de las teclas de funcion.
if f=60 then F2 ......

no acabo de enteder eso con tantos numeros, pero we, muchas gracias
te mando un saludo

úsalo en un pequeño programa nuevo hasta donde dice :END

las demás líneas son los valores que te dará este programa de prueba de cada una de las teclas F1, F2, F3, etc, y en donde dice ábaco son las teclas del teclado de números de tu derecha, si te fijas esos renglones comienzan con un una comilla simple (') que es lo mismo que REM que pones al principio de un renglón de comentarios

___ojalá te resulte como tú quieres, saludos___

DO
a$ = INKEY$
Bien lo vas cojiendo, pero deberias controlar que nos te pulse la tecla "<" ya que se te ejecutara igual.
Esto es asi por que el codigo que tu ejecutas lee el primer caracter a la derecha, dando por echo que siempre hay dos y no siempre es asi.

Los Codigos de teclas basicos, (las letras, los numeros y algunos simbolos) solo retornan del inkey$ una cadena de un caracter y las teclas especiales (Teclas de Funcion, Cursores, etc) retornan dos, por lo que deberias modificar tu codigo para que antes de leer el primer caracter por la derecha, compruebe si es una tecla especial o no. por ejemplo.

DO
a$=inkey$
LOOP UNTIL a$ <> "" '(o LOOP WHILE a$="")
SELECT CASE LEN(a$)
CASE 1
' aquí controlaremos los casos de teclas normales

CASE 2
' aquí controlaremos solo las teclas especiales
f = ASC(RIGHT$(a$, 1)) 'Tomo el segundo valor ascii de las TF
IF f=60 THEN F2 ......
END SELECT

De esta manera podemos controlar exactamente la tecla que queremos pulsar.
Para quien quiera indagar mas les propongo que desarollen un programita que les presente el codigo o la pareja de codigos de las teclas que pulsan, y que prueben tambien con combinaciones como CTRL+FN1 o ALT+FN10 etc., si alguien lo quiere tengo preparada la lista de las teclas de Funcion con la combinaciones posibles de CTRL, ALT y Shift.

Espero no haberme alargado mucho y que os sirba de algo todo este rollo.

8-)