[Risolto] Tasto Blocco Maiuscole

[dex]

avete qualche idea come sapere se il Tasto Blocco Maiuscole è attivo?

[Gianluigi]

Prima di chiedere occorre fare una ricerca 

http://www.gambas-it.org/smf/index.php?topic=6419.msg44049#msg44049

[dex]

Sorry
avevo gia fatto la ricerca e non trovato nulla, evidentemente ho sbagliato le parole per la ricerca

[cogier]

Ho messo un esempio sulla 'Gambas Farm' oggi.

[Gianluigi]

Ho messo un esempio sulla 'Gambas Farm' oggi.

Usi lo stesso codice (SHELL "xset q | grep 'LED mask:'" TO sShellOutput) proposto da fsurfing 11 anni fa 

[Gianluigi]

Se poi l'intento è quello di scrivere il codice più corto allora questo è più corto e usa meno funzioni:

Codice: [Seleziona]

Public Sub Form_Open()

  Dim sRes As String

  Try Shell "xset q" To sRes
  If Val(Scan(sRes, "*LED mask:  *\n*")[1]) = 1 Then Message.Warning("Attenzione il Bloc Maiusc è attivato")

End

Per il codice completo:

Codice: [Seleziona]

Public Sub Main()

  Dim sRes As String

  Try Shell "xset q" To sRes
  Select Val(Scan(sRes, "*LED mask:  *\n*")[1])
    Case 0
      Print "Nessun led acceso"
    Case 1
      Print "Bloc Maiusc Attivo"
    Case 2
      Print "Bloc Num Attivo"
    Case 3
      Print "Bloc Maiusc + Bloc Num Attivi"
  End Select

End

[dex]

Ragazzi dopo molto impegno e sudore ho Risolto!

ho copiato il codice di Gianluigi  

in form Open

Codice: [Seleziona]

VediTasti

Codice: [Seleziona]

Public Sub VediTasti()

  Dim sRes As String

  Try Shell "xset q" To sRes
  Select Val(Scan(sRes, "*LED mask:  *\n*")[1])
    Case 0
      Print "Nessun led acceso"
    Case 1
      Print "Bloc Maiusc Attivo"
    Case 2
      Print "Bloc Num Attivo"
    Case 3
      Print "Bloc Maiusc + Bloc Num Attivi"
  End Select

End

Codice: [Seleziona]

Public Sub Form_KeyRelease()
  
  VediTasti
  
End

ps. non ditelo a Gianluigi 

[vuott]

Ragazzi dopo molto impegno e sudore ho Risolto!

...con Shell ?!

[dex]

ecco mi ero dimenticato che non dovevate dirlo nemmeno a Vuott

[Gianluigi]

ecco mi ero dimenticato che non dovevate dirlo nemmeno a Vuott

 

[Gianluigi]

Ragazzi dopo molto impegno e sudore ho Risolto!
...

  Mi è sorto un dubbio, non sono sicuro di come il comando xset crea l'output.
E se può accadere che in qualche distro invece di due spazi dopo LED mask: la shell ne restituisca in numero diverso, pertanto visto che Val() non tiene conto ne degli spazi ne degli zero forse conviene variare il codice di Scan così:

Codice: [Seleziona]

Val(Scan(sRes, "*LED mask:*\n*")[1])

 

[dex]

provato su ubuntu 18 e linux mint 16 funziona