PROGRAMME DE CONJUGAISON D'UN VERBE EN PREMIER GROUPE (VB)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
30 mars 2011 à 09:08
mruserkarim
Messages postés91Date d'inscriptionlundi 28 février 2011StatutMembreDernière intervention18 août 2011
-
29 avril 2011 à 17:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 31 mars 2011 à 11:37
Et bien si c'est comme ça, je m'en alle !
refl
Messages postés4Date d'inscriptionmardi 8 août 2006StatutMembreDernière intervention26 septembre 2016 31 mars 2011 à 11:34
Domage: Le verbe "aller" n'est pas du premier groupe... ;o)
estGI
Messages postés9Date d'inscriptionsamedi 26 mars 2011StatutMembreDernière intervention13 juin 2011 30 mars 2011 à 20:54
Voilà! j'ai modifié le code! je pense que c'est mieux maintenant!!
J'ai uploadé le fichier Zip , l'autre fois ça n'a pas été uploadé car l'extension était .rar !! :p
Mercii encore une fois!
estGI
Messages postés9Date d'inscriptionsamedi 26 mars 2011StatutMembreDernière intervention13 juin 2011 30 mars 2011 à 20:35
@ghuysmans99: Je pense qu'il n'y a pas la peine de faire le test "If Len(Verbe) >= 4"
estGI
Messages postés9Date d'inscriptionsamedi 26 mars 2011StatutMembreDernière intervention13 juin 2011 30 mars 2011 à 20:34
Mercii pour vos remarques!! je vais essayer d'améliorer ce code ^^
cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 30 mars 2011 à 11:29
* Indente ton code !
* 6ème ligne : récupère le contenu du champ via txtVerbe.Text !
Private Sub cmdConjug_Click()
Dim Radical As String, Verbe As String
Verbe = Me.txtVerbe.Text If Len(Verbe) >4 And Right(Verbe, 2) "er" Then
Radical = Left(Verbe, Len(Verbe) - 2)
lblje.Caption = "Je " & Radical & "e"
[...]
Else
MsgBox "Vous devez entrer un verbe du premier groupe !", vbOKOnly, "Erreur!"
End If
End Sub
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 30 mars 2011 à 09:20
rep = MsgBox(...)
puisque tu n'exploites pas le résultat de la fonction, a savoir le bouton pressé dans la MsgBox...
et puisque de doute facon le resultat est connu d'avance, la MsgBox ne comprenant qu'un seul bouton...
il est inutile de placer
rep =
en tete de ta ligne et faire :
MsgBox "Vous devez entrer un verbe en premier groupe!", vbOKOnly Or vbExclamation, "Erreur!"
de toute facon, tu as déclaré cette variable (rep) A en tant que String, ce qui est incohérent avec le type de donnée renvoyé par MsgBox (vbMsgboxResult)
"Vous trouverez le programme en Zip!"
quel Zip ?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 30 mars 2011 à 09:08
l'instruction 'End' est à proscrire
utilises
Unload Me
dans ce programme ca ne change rien, mais c'est une bonne habitude a prendre que de l'oublier.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 30 mars 2011 à 09:08
dommage de recalculer n fois :
Left(verb, Len(verb) - 2)
29 avril 2011 à 17:42
au fait bonne idée
31 mars 2011 à 21:13
http://pastebin.com/xdqFt3NT
31 mars 2011 à 11:37
31 mars 2011 à 11:34
30 mars 2011 à 20:54
J'ai uploadé le fichier Zip , l'autre fois ça n'a pas été uploadé car l'extension était .rar !! :p
Mercii encore une fois!
30 mars 2011 à 20:35
30 mars 2011 à 20:34
30 mars 2011 à 11:29
* 6ème ligne : récupère le contenu du champ via txtVerbe.Text !
Private Sub cmdConjug_Click()
Dim Radical As String, Verbe As String
Verbe = Me.txtVerbe.Text If Len(Verbe) >4 And Right(Verbe, 2) "er" Then
Radical = Left(Verbe, Len(Verbe) - 2)
lblje.Caption = "Je " & Radical & "e"
[...]
Else
MsgBox "Vous devez entrer un verbe du premier groupe !", vbOKOnly, "Erreur!"
End If
End Sub
30 mars 2011 à 09:20
puisque tu n'exploites pas le résultat de la fonction, a savoir le bouton pressé dans la MsgBox...
et puisque de doute facon le resultat est connu d'avance, la MsgBox ne comprenant qu'un seul bouton...
il est inutile de placer
rep =
en tete de ta ligne et faire :
MsgBox "Vous devez entrer un verbe en premier groupe!", vbOKOnly Or vbExclamation, "Erreur!"
de toute facon, tu as déclaré cette variable (rep) A en tant que String, ce qui est incohérent avec le type de donnée renvoyé par MsgBox (vbMsgboxResult)
"Vous trouverez le programme en Zip!"
quel Zip ?
30 mars 2011 à 09:08
utilises
Unload Me
dans ce programme ca ne change rien, mais c'est une bonne habitude a prendre que de l'oublier.
30 mars 2011 à 09:08
Left(verb, Len(verb) - 2)