Discussion :

[mh_02]

Salut

j'ai 2 zone de text et 2 commandbutton


le but que j'ai pas pu le faire c'est

la 1ere zone de text je tape dedans une chaine de caractéres .

et le 1er button (se nome =chiffre pair ? )c'est il sert a chercher le 1er chiffre paire dans la chaine saisie et il e selection dans la zone de text et dans la 2éme zone de text il s'affiche la position du chiffre trouvé

dans le cas contraire il faut afficher un message adequate

avec le 2éme button se nome RAZ mais aucune idées !!!

[ouskel'n'or]

Hello,

Que cherches-tu ? Comment trouver le chiffre de la première zone de texte ?
Comment fairE uns RAZ ?

Pour la RAZ, tu fais Text1.text = ""

Pour rechercher la position alléatoire du chiffre dans la zone 1, tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Randomize
PositionDsZone1 = = Int((LongueurDuMotDansZone1 * Rnd) + 1)

Si c'est autre chose, tu dis

A+

[mh_02]

il faut lors dans le click sur cmdchiffrepair il selectione le chiffre pair trouvé dans la zone de text et affiche la position dans la 2émme zone de text

j'ai fai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub cmdchifpair_Click()
txtposition.Text = txtchaine.SelStart
End Sub

mais il faut la position du chiffre pair trouvé

[Amri_Daly]

salut,
pour chercher le chifre pair dans ta chaine tu doit la parcourir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
dim i as integer,c as string 
for i=1 to len(text1.text)
c=mid(text1.text,i,1)       ' isoler le caractère qui setrouve à la position i
if isnumeric(c) then     
     if (c mod 2) = 0 then    'nombre  pair
          text1.selstart=i
          text1.sellenght=1
          text2.text=text2.text & ", "  & i
     end if
end if
next

[mh_02]

ça marche il me donne tout les postion des chiffre pair y'a pas une solution qu'il me donne seulment la 1ere position et il selectione le chiffre trouvé non ??

[SfJ5Rpw8]

ben tu sort de la boucle for lorsque tu as trouvé par un exit for...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
...
if (c mod 2) = 0 then 'nombre pair
  text2.text= i
  Exit For
end if 
...

[mh_02]

merci :d Bonne année a tous