Keyboard de Ascii e limites

Mensagem por **JoséQuintas** » 21 Abr 2013 17:58

Tem como enviar Keyboard de códigos Ascii?
E eu queria usar acima de 1.000, do mesmo jeito que já é feito com mouse.
Tem como? e qual o limite? (1024 ou sem limite)

Mensagem por **rochinha** » 21 Abr 2013 21:39

Amiguinho,

A tabela ASCII não é tão extensa assim, tenho pra mim que beira os 255 tipo de caracteres.

Dê uma idéia mais ampla do que pretende e talvez encontremos uma solução.

Imagem

Mensagem por **JoséQuintas** » 21 Abr 2013 23:04

Por exemplo enviar o F5.
Para mouse, inkey retorna acima de 1000.
Pensei em usar pra botões acima de 1000 também.

Acho que seria a mesma coisa pra enviar F5 (-6) ou um outro código ascii.
Então seria a função que envia o código Ascii ao invés de texto.
KEYBOARD só aceita string.

Mensagem por **JoséQuintas** » 21 Abr 2013 23:15

Achei
HB_KeyPut()

Código: Selecionar todos

PROCEDURE Main
   HB_KeyPut( 5000 )
   nInkey := Inkey(0)
   ? nInkey

Isso retorna 5000

Mensagem por **JoséQuintas** » 21 Abr 2013 23:22

Uma utilidade prática:
Perguntaram tempos atrás sobre colocar botões em tbrowse.
Isso facilita.
Só criar o botão, e em activate colocar o bloco, por exemplo: { || Key_Put( K_F1 ) }
A partir daí fica do jeito que todo mundo conhece, só tratar K_F1

Mensagem por **rochinha** » 22 Abr 2013 02:46

Amiguinho,

Interessante, desta forma não ficamos limitados a poucas teclas.

carlos_dornelas · Mensagem por **carlos_dornelas** » 22 Abr 2013 17:50

José, acho que um __Keyboard(5000) também resolveria.

Antonio Carlos