Comment créer une application de voyelle Compter en Visual Basic

Créez un nouveau projet Visual Basic en ouvrant Visual Basic et en choisissant " Créer un projet ..." dans le dialogue projet récent qui apparaît. Alternativement, vous pouvez allez dans le menu Fichier et choisissez « Nouveau projet. " Ce sera une application de base de Windows , donc il suffit de cliquer sur Suivant ou OK pour toutes les autres boîtes de dialogue qui apparaissent pour une configuration par défaut jusqu'à ce que vous êtes confronté à un formulaire vierge dans le concepteur graphique.
2

Ajouter un RichTextBox en faisant glisser le composant RichTextBox de la liste des composants dans votre formulaire . Faites glisser les bords de sorte qu'il prend le plus de la forme , mais laisser un espace au fond .
3

ajouter une étiquette en le faisant glisser à partir de la liste des composants et le placer sous la RichTextBox. Aller à la boîte de dialogue Propriétés , ce qui est en bas à droite de votre fenêtre par défaut. Trouvez la propriété de texte et remplacez -le sur " Count voyelle : " . " Étiquette" de Veillez à régler l'étiquette assez loin du côté droit de sorte que vous pouvez ajouter le nombre de voyelles dans le texte plus tard, sans le texte en cours d'exécution au large de la frontière de la fenêtre.
4

ajouter un bouton à partir de la liste des composants et placez-le à côté de l'étiquette de comptage des voyelles . Encore une fois , assurez-vous que vous donnez à votre place sur l'étiquette de trois ou quatre personnages à ajouter à cela pour votre compte de voyelle. Modifiez la propriété Text du bouton afin qu'il se lise «compter Voyelles " au lieu de "Button ".
5

Double-cliquez sur le bouton. Cela permettra d'ouvrir le code source de votre fenêtre et créer automatiquement une fonction d' événement d'être appelé lorsque le bouton est cliqué par l'utilisateur. Le nom de la fonction sera très similaire à " Button1_Click . " Tout le code ira à l'intérieur de cette fonction.
6

Entrez le code suivant.

Lettres Dim ( RichTextBox1.Text . longueur ) Comme Charletters = RichTextBox1.Text.ToUpper.ToCharArray ()

Dim count = 0

Pour chaque lettre lettersSelect Case casse des lettres «A», «E» , «I» ; , "O" , count " U" + = 1End SelectNext

Label1.Text = " nombre de voyelle :" + CStr (chiffre)

ligne allant par ligne, ce fonction crée un tableau de noms de personnages " des lettres. " il copie ensuite le texte de la RichTextBox , modifie la copie de sorte qu'il est tout en majuscule . Cela permettra de réduire le nombre de voyelles que vous devez rechercher pour que leurs versions majuscules.

Ensuite , un entier est créé pour garder le décompte des voyelles comme ils sont comptées.

Ensuite, l' code commence à passer par la liste de lettres , une par une , et vérifie chaque lettre pour voir si elle est une voyelle . Si c'est le cas, la variable count est augmenté d'une unité.

Enfin, l'étiquette de comptage de la voyelle est configurée pour imprimer le résultat.
7

Appuyez sur la flèche verte pour tester votre application.