begin process at 2010 02 10 12:45:01
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

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

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


 Description

Ce code permet de faire défiler un texte dans la console, automatiquement et avec une vitesse donnée.

Source

  • '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
'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



 Sources du même auteur

Source .NET (Dotnet) ADDITIONNER, SOUSTRAIRE ET MULTIPLIER DEUX NOMBRES, EN ÉVITA...
Source avec une capture Source .NET (Dotnet) ASTUCE : FORM NON CARRE A PARTIR D'UNE IMAGE !!! (EH OUI C'E...

 Sources de la même categorie

Source avec Zip Source avec une capture AYOUBPAD2009 par ayoube2009
Source avec Zip Source avec une capture PILOTAGE D'AFFICHEURS LCD SUR PORT SÉRIE OU USB par mays
Source avec Zip Source avec une capture TRAITEMENT DE TEXTE RTF par zozo14
FORMATAGE D'UNE CELLULE EXCEL VIA UNE SYNTAXE HTML par 8Tnerolf8
Source avec Zip DÉFILEMENT TEXTE par mimiZanzan

 Sources en rapport avec celle ci

Source avec Zip CONTRÔLE MARQUEE POUR TEXTE DÉFILANT par VBsearch
Source avec Zip Source avec une capture MANIPULATION DE FICHIER TEXTES À "DEUX COLONNES" par MALIKcpp
Source avec Zip Source .NET (Dotnet) DÉFILEMENT HORIZONTAL DE TEXTE par chewbaka62
Source avec Zip LECTURE ET TRAITEMENT DE FICHIERS EXTERNES par jvuillaume
Source avec Zip JEUX D'ENREGISTREMENT DANS UN FICHIER par ouadou44

Commentaires et avis

Commentaire de chasseurdedemon le 18/06/2009 20:08:34

est-ce que tu peux me donne rle code pour le faire dans un texbox ? merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Défilement de texte dans un label [ par SnapFAB ] Bonsoir tout le monde,J'ai fait plusieurs recherche sur le site afin de trouver comment faire défiler du texte dans un label.J'ai télécharger plusieur Lecture des accents dans un fichier texte [ par megamario ] Bonjour,Je suis actuellement en lecture de fichier texte, ce texte me sert de base de donnée pour mes fichiers de langue (mon logiciel doit supporter lecture fichier texte [ par Guigar ] Bonjour a tousj'essai de faire un petit programme qui me permettrait de lire un fichier texte.Mon fichier est le suivant : d:/config.ini.Voila le code Lecture d'une ligne précise dans un fichier texte [ par aico79 ] Salut! je programme en Visual Basic Express 2008 et pour une application j'aimerais pouvoir lire une ligne précise dans un fichier texte. Mon fichier fait défiler un texte [ par bmithoun ] Bonjour tout le monde voici mon problème : Je veux faire défiler un texte de droite vers la gauche. J'ai déjà un code qui permet de le faire de gauche Faire défiler du texte dans une Cellule Excel [ par Golan2 ] Bonjour, J'espère ne pas vous embêter avec cette question a priori facile mais bien qu'ayant lu la littérature abondante à ce sujet sur différents s Ouverture/lecture dans un fichier texte Access VBA [ par mmmxtina ] Bonjour tout le monde,  j'ai un petit soucis, je ne sais pas comment ouvrir/lire dans un fichier texte (.txt). En fait ce fichier texte contient le co Richtextbox (Défilement du Texte) [ par Cpapy ] Bonjour,1) Comment positionner une ligne précise par exemple la 1000éme ligne du texte dans le MILIEU de la Richtextbox (Milieu de la partie du contro lecture en utilisant vb.net à partir d un fichier texte [ par jerusal ] salut svp ,j ai un probleme   en ce qui concerne les fichiers en vb.net  .comment je pourais faire la lecture d'un fichier texte  qui Moteur de lecture de fichier texte [ par pingui1 ] Bonjour à tous,Je suis plus ou moins débutant en Visual Basic. (Tant que cela se cantonne à des fonctions simples...) et je souhaiterais faire un mote


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,312 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales