PureBasic

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

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