Differenze tra le versioni di "Individuare i tasti premuti della tastiera mediante le risorse esterne dichiarate in termios.h"

Versione delle 04:13, 31 mar 2017

Utilizzando alcune risorse dichiarate nel file header "/usr/include/termios.h", è possibile individuare i tasti premuti della tastiera.

E' necessario richiamare in Gambas la libreria dinamica condivisa: "libc.so.6"

Mostriamo un esempio pratico:

Library "libc:6"

Public Struct termios
  c_iflag As Integer
  c_oflag As Integer
  c_cflag As Integer
  c_lflag As Integer
  c_line As Byte
  c_cc[32] As Byte
  c_ispeed As Integer
  c_ospeed As Integer
End Struct

Private Const TCSANOW As Integer = 0
Private Const TCSADRAIN As Integer = 1
Private Const ICANON As Integer = 2
Private Const VTIME As Integer = 5
Private Const VMIN As Integer = 6
Private Const ECHO As Integer = 16
 
' int tcgetattr (int __fd, struct termios *__termios_p)
' Put the state of FD into *TERMIOS_P.
Private Extern tcgetattr(__fd As Integer, __termios_p As Termios) As Integer

' int tcsetattr (int __fd, int __optional_actions, const struct termios *__termios_p)
' Set the state of FD to *TERMIOS_P.
Private Extern tcsetattr(__fd As Integer, __optional_actions As Integer, __termios_p As Termios) As Integer


Public Sub Main()
 
 Dim b As Byte
 
  Do
    b = Getchar()
    Print "\rPremuto il tasto: " & Chr(b); "  -  Codice ASCII: "; b
  Loop
  
End


Private Function Getchar() As Byte
 
 Dim trm As New Termios
 Dim b As Byte
 Dim i As Integer
 Dim fl As File
  
  i = tcgetattr(0, trm)
  If i < 0 Then Error.Raise("Errore alla funzione 'tcgetattr()' !")
  
  With trm
    .c_lflag = .c_lflag And (Not ICANON)
    .c_lflag = .c_lflag And (Not ECHO)
    .c_cc[VMIN] = 1
    .c_cc[VTIME] = 0
  End With
  
  i = tcsetattr(0, TCSANOW, trm)
  If i < 0 Then Error.Raise("Errore alla funzione 'tcsetattr()' !")
  
  fl = Open "/proc/self/fd/0"
  Read #fl, b
  fl.Close
  
  With trm
    .c_lflag = .c_lflag Or ICANON
    .c_lflag = .c_lflag Or ECHO
  End With
   
  i = tcsetattr(0, TCSADRAIN, trm)
  If i < 0 Then Error.Raise("Errore alla funzione 'tcsetattr()' !")
  
  Return b
   
End