PB_Key_Capital

[SPH]

Quel est le code de la touche MAJ (au dessus de shift gauche) ?
KeyboardPushed(#PB_Key_Capital) ?

je capte pas =/
marche sur un pc et pas sur l'autre !!

[Ar-S]

Théorie :
Tout dépend ce que tu veux faire.
Sur certain portables, la touche maj pour activer certains caractères est remplacé par Fn.
Tu peux nous en dire plus sur tes "différents pc"

[SPH]

Code : Tout sélectionner

  Touche.S = KeyboardInkey()
  If KeyboardPushed(#PB_Key_LeftShift) Or KeyboardPushed(#PB_Key_RightShift) Or KeyboardPushed(#PB_Key_Capital); 07/2018
    Touche = UCase(Touche)
  EndIf

Sur mon portable AMD A4 : ca marche
Sur mon i7, ca reste minuscule...

[Ar-S]

Essaye l'exemple de PB sur tes 2 ordis
Ici les maj sont (logiquement) automatiquement détecté. Je vois pas comment tu goupilles un code nécessitant KeyboardPushed(#PB_Key_LeftShift) pour mettre des maj.

Code : Tout sélectionner

If InitSprite() And InitKeyboard() And OpenScreen(800,600,32,"")
    Repeat
      FlipBuffers()
      ClearScreen(RGB(0, 0, 0))
      
      ExamineKeyboard()
            
      ; Efface le dernier caractère si la touche 'Back' est appuyée
      ;
      If KeyboardReleased(#PB_Key_Back)  
        FullText$ = Left(FullText$, Len(FullText$)-1)
      Else
        resultat$=KeyboardInkey()
        If FindString("1234567890 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzéèçàù", resultat$) ; Ajouter vos propres caractères valides ici
          FullText$ + resultat$
        EndIf ; Ajouter le nouveau texte à l'actuel (le cas échéant)
      EndIf

      ; Affiche le résultat
      ;
      If StartDrawing(ScreenOutput())
        DrawingMode(1)
        FrontColor(RGB(128, 255, 0))
        DrawText(20, 20, "Ecrivez un petit texte...:")
        DrawText(20, 40, FullText$)
        StopDrawing()
      EndIf
    Until KeyboardPushed(#PB_Key_Escape)
  EndIf