Compteur de lettres alphabétiques
Soyez le premier à donner votre avis sur cette source.
Vue 6 459 fois - Téléchargée 649 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.
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.
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
- Compteur lettre
- Compteur lettre alphabet - Meilleures réponses
- Compteur lettres - Meilleures réponses
- Visual Basic / VB.NET : Compteur de lettres avec faux loading aidez moi sur les variables et donnez - Guide
- Visual Basic / VB.NET : Compteur de lettres et de mots au milieu d'une chaine de caractères - - Guide
- Compteur de lettres et mots ✓ - Forum - Delphi / Pascal
- Compteur de lettre ✓ - Forum - VB.NET
- Compteur de lettres - Forum - C / C++ / C++.NET
21 sept. 2012 à 19:15
@ 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
-
7801
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 9 août 2022
13221 sept. 2012 à 07:57
Si cela peut aider:
Majuscules:
Me.RichTextBox1.Text = Me.RichTextBox1.Text.ToUpper()
Minuscules:
Me.RichTextBox1.Text = Me.RichTextBox1.Text.ToLower()
@+ Le Pivert
20 sept. 2012 à 00:02
Merci pour tes encouragements.
J'ai vu aussi ton code pour le même programme c'est aussi bien fait.
:)
19 sept. 2012 à 21:26
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.