Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 06:46:18

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 728 membres
74 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 800 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RECHERCHE DE VOYELLES

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 31/12/2002 Date de mise à jour : 31/12/2002 19:13:38 Vu : 1 618

Auteur : Akram

Ecrire un message privé

Note :

1,00 / 10

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

ce petit code recherche le nombre de voyelles dans une chaine

Source

Dim i, j, compt As Integer
Dim chaine As String
Dim t1(5) As String
compt = 0
t1(0) = "a"
t1(1) = "e"
t1(2) = "h"
t1(3) = "i"
t1(4) = "o"
t1(5) = "u"
chaine = InputBox("taper votre chaine ici")
For i = 1 To Len(chaine)
For j = 0 To 5
If LCase((Mid(chaine, i, 1)) = t1(j)) Then compt = compt + 1
Next
Next
MsgBox ("le nombre de voyelles est:") & compt

Dim i, j, compt As Integer
Dim chaine As String
Dim t1(5) As String
compt = 0
t1(0) = "a"
t1(1) = "e"
t1(2) = "h"
t1(3) = "i"
t1(4) = "o"
t1(5) = "u"
chaine = InputBox("taper votre chaine ici")
For i = 1 To Len(chaine)
For j = 0 To 5
If LCase((Mid(chaine, i, 1)) = t1(j)) Then compt = compt + 1
Next
Next
MsgBox ("le nombre de voyelles est:") & compt

Conclusion

c mon premier code

Sources de la même categorie

UN CDBL QUI GERE LES OPTIONS REGIONAL CONCERANT LE SEPARATEU... par Nic0s

CONTRÔLE SIMPLE POUR CODE POSTAUX par radcur

ENREGISTRER LIRE ET MODIFIER/ÉCRIRE DANS UN FICHIER TEXTE AU... par IceTdrinker

VERIFIER L'ORTHOGRAPHE D'UN TEXTE, GRACE A L'UTILISATION DE ... par boutemine

MANIPULER LES CHAÎNES ET TRIER UNE LISTE DE NOMS par Lisa46

Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de mehdibou le 31/12/2002 21:07:36

h, hum...
et y, nan ? t'es raciste, tu veux pas de grecs ? lol ;)

Commentaire de VicoLaChips2 le 31/12/2002 23:39:09

Il préfère le h... (sourire)

Commentaire de Ouneufe le 04/01/2003 02:00:10

Tsss, y a beaucoup + court et rapide :
Une seule boucle suffit :

LchaineTotal=len(chaine)

for j=0 to 5
chaine=replace(chaine,t(j),"")
next

msgbox "le nombre de voyelle est :" & LchaineTotal-len(chaine)