Compteur de lettres alphabétiques

Soyez le premier à donner votre avis sur cette source.

Vue 5 684 fois - Téléchargée 572 fois

Description

Cette application permet de compter les lettres de l'alphabet utilisé dans un texte quelconque. Et ce quelque soit la casse utilisée.

Source / Exemple :


Public Class Form1
    Private Sub Calculer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculer.Click
        Dim i As Integer : Dim j As Integer : Dim ii As Integer : Dim t(0 To 26) As Integer
        Dim chartest As Char : Dim asc1 As Integer : Dim asc2 As Integer : Dim chr As Char
        Dim longtexte As Integer = RichTextBox1.TextLength
        For i = 0 To longtexte - 1
            For j = 1 To 26
                chartest = Convert.ToChar(64 + j)
                chr = RichTextBox1.Text.Chars(i)
                asc1 = Convert.ToInt32(chr)
                If asc1 >= 65 And asc1 <= 91 And chr = chartest Then
                    asc2 = Convert.ToInt32(chr) - 64
                    ii = asc2
                    t(ii) = t(ii) + 1
                    Me.Controls("label" & asc2).Text = Convert.ToString(t(ii))
                End If
            Next j
        Next i
        For i = 1 To 26
            If Me.Controls("label" & i).Text <> "0" Then
                Me.Controls("label" & i + 26).ForeColor = Color.DarkOrange
                Me.Controls("label" & i).ForeColor = Color.DarkOrange
            End If
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        RichTextBox1.Clear()
        For i = 1 To 26
            If Me.Controls("label" & i).Text <> "0" Then
                Me.Controls("label" & i + 26).ForeColor = Color.Black
                Me.Controls("label" & i).ForeColor = Color.Black
                Me.Controls("label" & i).Text = "0"
            End If
        Next
    End Sub
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox1.Text = RichTextBox1.Text.ToUpper
        RichTextBox1.Select(RichTextBox1.Text.Length, 0)
    End Sub
End Class

Conclusion :


Auparavant certaines études statistiques ont été faites pour connaître les lettres de l'alphabet les plus utilisées dans notre langage. Donc certaines applications de la sorte ont certainement beaucoup servi.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
24
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
21 janvier 2014

Bonjour,

@ Tout le monde : MAJ
@ LE PIVERT : Je te remercie pour la commande proposée.
@ ALPHA5 : Dorénavant on peut aussi utiliser la casse miniscule.

Bon week end :-)
Messages postés
6778
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 mai 2020
107
Bonjour,
Si cela peut aider:
Majuscules:
Me.RichTextBox1.Text = Me.RichTextBox1.Text.ToUpper()
Minuscules:
Me.RichTextBox1.Text = Me.RichTextBox1.Text.ToLower()

@+ Le Pivert
Messages postés
24
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
21 janvier 2014

Bonsoir Alpha5
Merci pour tes encouragements.
J'ai vu aussi ton code pour le même programme c'est aussi bien fait.
:)
Messages postés
74
Date d'inscription
jeudi 10 août 2006
Statut
Membre
Dernière intervention
24 mars 2013

Bonsoir Shaeks
Excellent travail
On regretera d'être obligé de taper le texte seulement en majuscule
bravo!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.