PROMPTEUR POUR PERMETTRE DE LIRE UN TEXTE QUI AVEC DÉFILEMENT AUTOMATIQUE.

'Dévellopé par CFP le 29/01/07 à 18h29, terminé à 19h15.
Imports System
Imports System.Windows.Forms

Module Main
  Sub Main()
    Dim Vitesse As Byte 'Vitesse de défilement
    Dim Texte As String 'Texte du prompteur
    Console.WriteLine("***Prompteur dévellopé par CFP. Permet de faire défiler un texte dans la console sans avoir à le faire défiler, d'où une lecture plus comfortable.***")
    Console.WriteLine()

    Console.WriteLine("Veuillez régler la vitesse de défilement (0-255).")
    Vitesse = CByte(Console.ReadLine())

    Console.WriteLine("Veuillez entrer votre texte (Entrez ""paste"" pour coller le texte contenu dans le presse-papier).") 'On utilise la commande paste pour simuler le support de Copier-coller.
    Texte = Console.ReadLine()

    If Texte = "paste" Then
      Dim TexteCopié As IDataObject = Clipboard.GetDataObject() 'Chargement du texte du presse-papier
      Texte = CType(TexteCopié.GetData(DataFormats.Text), String)
    End If

    Console.WriteLine("***Début du prompting***")
    Console.WriteLine("***Ctrl+C pour stopper***")

    For i As Long = 0 to Texte.Length - 1 'Boucle, 1 itération par caractère de la chaine.
      Console.Write(Texte.SubString(i, 1))
      System.Threading.Thread.Sleep(255-Vitesse)
    Next i
    Console.WriteLine() 'Pour terminer la chaine constituée par le texte.
    Console.WriteLine("Prompting terminé")
  End Sub
End Module