AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 13 02:25:56
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 !

INVERSER ORDRE DES MOTS DANS UNE PHRASE AMELIORÉ ;)


Information sur la source

Catégorie :Texte Niveau : Initié Date de création : 01/06/2002 Date de mise à jour : 01/06/2002 01:07:12 Vu / téléchargé: 1 282 / 110
Auteur : DeAtHCrAsH Site perso
Ecrire un message privé
Note :
7 / 10 - par 2 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Comme son nom l'indique, ca inverse les mots dans une phrase ....
 

Source

  • Private Sub Command1_Click()
  • Text1.Text = RTrim(Text1.Text)
  • Text1.Text = Text1.Text & " "
  • Dim MotRes As String
  • Dim txt As String
  • Dim MyTab() As String
  • Dim MyTab2() As String
  • MyTab() = Split(Text1.Text, " ")
  • j = UBound(MyTab)
  • w = 0
  • Randomize
  • ReDim MyTab2(0 To 1)
  • For a = 0 To Len(Text1.Text) + 200
  • i = Int(Rnd * j)
  • For n = 0 To UBound(MyTab2)
  • If i = MyTab2(n) Then
  • MotRes = vbNullString
  • GoTo er
  • End If
  • Next n
  • If UBound(MyTab2) = w - 1 Then
  • ReDim Preserve MyTab2(0 To w + 20)
  • End If
  • MyTab2(w) = i
  • MotRes = MyTab(i)
  • txt = txt & " " & MotRes
  • w = w + 1
  • er:
  • Next a
  • txt = LTrim(txt)
  • Text2.Text = txt
  • Text1.Text = RTrim(Text1.Text)
  • End Sub 
Private Sub Command1_Click()

Text1.Text = RTrim(Text1.Text)
Text1.Text = Text1.Text & " "

Dim MotRes As String
Dim txt As String
Dim MyTab() As String
Dim MyTab2() As String
MyTab() = Split(Text1.Text, " ")

j = UBound(MyTab)

w = 0

Randomize

ReDim MyTab2(0 To 1)
For a = 0 To Len(Text1.Text) + 200

i = Int(Rnd * j)

For n = 0 To UBound(MyTab2)
 If i = MyTab2(n) Then
 MotRes = vbNullString
 GoTo er
 End If
Next n

If UBound(MyTab2) = w - 1 Then
ReDim Preserve MyTab2(0 To w + 20)
End If

MyTab2(w) = i
MotRes = MyTab(i)
txt = txt & " " & MotRes
w = w + 1
er:
Next a

txt = LTrim(txt)

Text2.Text = txt

Text1.Text = RTrim(Text1.Text)

End Sub

Conclusion

Merci pour tes remaqrques almandric ... Maintenant, le programme marche a tous les coups et il est bcp plus rapide :]
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de DeAtHCrAsH le 01/06/2002 01:17:55

Merci d'avance pour vos commentaires :]

signaler à un administrateur
Commentaire de kronprinz le 01/06/2002 19:54:17

quel est l'intérêt ?????

signaler à un administrateur
Commentaire de muad-dib le 01/06/2002 20:54:00

c la question que je me posais

signaler à un administrateur
Commentaire de DeAtHCrAsH le 01/06/2002 22:49:24

Serieux vous avez un cerveau ou pas ???
Vous etes vraiment trop con .... L'interet n'est pas le programme finale, mais l'apprenstissage et le travail qu'il y a eu sur ce code ...
Alors s'il vous plait arretez de vous moquez en faisant les grands car ce qu'un signe de jalousie .....
Respecter les codeurs et leur codes ...
Puis si c'est pour metre des commentaires pareil vous ferez mieux de la fermer ...

P.S : Et vous deux quel est l'interet de vos remarques ??? Vous servez vraiment a tchi bande de nul !

signaler à un administrateur
Commentaire de shivan le 02/06/2002 11:05:39

pas non plus obligé d'etre aussi bienlent dans tes paroles...
sinon, sympa... je connaissais meme pas la fonction split !!! ;-)

A+

signaler à un administrateur
Commentaire de Almandric le 03/06/2002 14:16:00

Plutôt que de faire ta boucle 'For a = 0 To Len(Text1.Text) + 200' et de tester à chaque fois si tu as déjà récuperer ce mot voila ce que je te conseil :
- Tu as une phrase de 5 mots
- 'Split' te retourne un tableau avec un index allant de 0 à 4 (ou de 1 à 5 peu importe)
- Tu fais un random compris entre 0 et 4 et tu obtiens to 1er mot.
- Jusque la pas de différence avec toi mais c'est maintenant que ca change.
- Tu reconstruit ton tableau en dégageant le mot que tu viens de tirer au sort et tu obtiens un tableau allant de 0 à 3
- Tu fais un random en modifiant le born supérieur à 3 et tu obitens ton 2 ème mot et tu es sur qu'il différent sans faire de test et sans rique de boucler des dizaines de fois pour rien.
Etc...

A+

signaler à un administrateur
Commentaire de Almandric le 03/06/2002 15:54:29

Oops, j'ai fais pleins de fautes.....

signaler à un administrateur
Commentaire de DeAtHCrAsH le 04/06/2002 18:47:00

Yep .. Bon conseil ... C'est ce que je voulais faire au debut, mais je n'ai pas trouver comment faire pour retirer un element du tableau ...
C'est ce que je suis en train de chercher ...
Sinon c'est clair que ca fera gagner bcp de temps sans faire boucler inutillement ...
:]
A++

signaler à un administrateur
Commentaire de Almandric le 04/06/2002 23:26:33

Moi je vois qu'une seule solution, il te faut un 2ème tableau temporaire...

signaler à un administrateur
Commentaire de jackky le 20/01/2003 17:41:32

salut, felicitation pour ton code yé vraiment super et pour ceux qui disent "a quoi ca sert " ben ceux la y doivent pas programmer beaucoup ou bien jaloux de ne pas avoir réussi ce code avant toi!
felicitantion , pitier c comme le gars qui dis "quel est l'intérêt ?????" plus haut lollll faut arreter de metre des critique negative car ya plus personne qui va mettre des sources, et pour l'interet de la chose c'est tres instructif et a la fois amusant! non! penser des fois plus loin que votre bout du nez! cette source a beaucoup a vous apprendre

pour ceux qui ne voient encore aucun interet a cette source penser a la cryptogrphie

bonne journée les copain

10/10

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,435 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.