Conjugaison
Description
Voila mon programme de conjugaison
genre : beshrelle
il conjugue : 10 verbes au présent
mais dans la deuxieme version je vais placer plusieur temps et beaucoups plus de verbe !
Voila si une personne connait une fonction bien meilleure pour conjuguer qu'il me la communique ;-)
merci
genre : beshrelle
il conjugue : 10 verbes au présent
mais dans la deuxieme version je vais placer plusieur temps et beaucoups plus de verbe !
Source / Exemple :
'Vous y tenez vraiement ? Private Sub Command1_Click() 'Conjugue le verbe Avoir : If txtVerbe = "avoir" Then result.AddItem "" & Label1.Caption & "" End If If txtVerbe = "avoir" Then result.AddItem "" & Label2.Caption & "" End If If txtVerbe = "avoir" Then result.AddItem "" & Label3.Caption & "" End If If txtVerbe = "avoir" Then result.AddItem "" & Label4.Caption & "" End If If txtVerbe = "avoir" Then result.AddItem "" & Label5.Caption & "" End If If txtVerbe = "avoir" Then result.AddItem "" & Label6.Caption & "" End If 'Ici pour le verbe être : If txtVerbe = "être" Then result.AddItem "" & Label7.Caption & "" End If If txtVerbe = "être" Then result.AddItem "" & Label8.Caption & "" End If If txtVerbe = "être" Then result.AddItem "" & Label9.Caption & "" End If If txtVerbe = "être" Then result.AddItem "" & Label10.Caption & "" End If If txtVerbe = "être" Then result.AddItem "" & Label11.Caption & "" End If If txtVerbe = "être" Then result.AddItem "" & Label12.Caption & "" End If 'Ici le verbe manger : If txtVerbe = "manger" Then result.AddItem "" & Label13.Caption & "" End If If txtVerbe = "manger" Then result.AddItem "" & Label14.Caption & "" End If If txtVerbe = "manger" Then result.AddItem "" & Label15.Caption & "" End If If txtVerbe = "manger" Then result.AddItem "" & Label16.Caption & "" End If If txtVerbe = "manger" Then result.AddItem "" & Label17.Caption & "" End If If txtVerbe = "manger" Then result.AddItem "" & Label18.Caption & "" End If 'Ici le verbe placer : If txtVerbe = "placer" Then result.AddItem "" & Label19.Caption & "" End If If txtVerbe = "placer" Then result.AddItem "" & Label20.Caption & "" End If If txtVerbe = "placer" Then result.AddItem "" & Label21.Caption & "" End If If txtVerbe = "placer" Then result.AddItem "" & Label22.Caption & "" End If If txtVerbe = "placer" Then result.AddItem "" & Label23.Caption & "" End If If txtVerbe = "placer" Then result.AddItem "" & Label24.Caption & "" End If 'ici le verbe jeter : If txtVerbe = "jeter" Then result.AddItem "" & Label25.Caption & "" End If If txtVerbe = "jeter" Then result.AddItem "" & Label26.Caption & "" End If If txtVerbe = "jeter" Then result.AddItem "" & Label27.Caption & "" End If If txtVerbe = "jeter" Then result.AddItem "" & Label28.Caption & "" End If If txtVerbe = "jeter" Then result.AddItem "" & Label29.Caption & "" End If If txtVerbe = "jeter" Then result.AddItem "" & Label30.Caption & "" End If 'Ici je laisse le verbe payer : If txtVerbe = "payer" Then result.AddItem "" & Label31.Caption & "" End If If txtVerbe = "payer" Then result.AddItem "" & Label32.Caption & "" End If If txtVerbe = "payer" Then result.AddItem "" & Label33.Caption & "" End If If txtVerbe = "payer" Then result.AddItem "" & Label34.Caption & "" End If If txtVerbe = "payer" Then result.AddItem "" & Label35.Caption & "" End If If txtVerbe = "payer" Then result.AddItem "" & Label36.Caption & "" End If 'Ici le verbe finir : If txtVerbe = "finir" Then result.AddItem "" & Label37.Caption & "" End If If txtVerbe = "finir" Then result.AddItem "" & Label38.Caption & "" End If If txtVerbe = "finir" Then result.AddItem "" & Label39.Caption & "" End If If txtVerbe = "finir" Then result.AddItem "" & Label40.Caption & "" End If If txtVerbe = "finir" Then result.AddItem "" & Label41.Caption & "" End If If txtVerbe = "finir" Then result.AddItem "" & Label42.Caption & "" End If 'Ici le verbe pouvoir : If txtVerbe = "pouvoir" Then result.AddItem "" & Label43.Caption & "" End If If txtVerbe = "pouvoir" Then result.AddItem "" & Label44.Caption & "" End If If txtVerbe = "pouvoir" Then result.AddItem "" & Label45.Caption & "" End If If txtVerbe = "pouvoir" Then result.AddItem "" & Label46.Caption & "" End If If txtVerbe = "pouvoir" Then result.AddItem "" & Label47.Caption & "" End If If txtVerbe = "pouvoir" Then result.AddItem "" & Label48.Caption & "" End If 'Le verbe : prendre If txtVerbe = "prendre" Then result.AddItem "" & Label49.Caption & "" End If If txtVerbe = "prendre" Then result.AddItem "" & Label50.Caption & "" End If If txtVerbe = "prendre" Then result.AddItem "" & Label51.Caption & "" End If If txtVerbe = "prendre" Then result.AddItem "" & Label52.Caption & "" End If If txtVerbe = "prendre" Then result.AddItem "" & Label53.Caption & "" End If If txtVerbe = "prendre" Then result.AddItem "" & Label54.Caption & "" End If 'Le verbe faire : (ps : bah c'est assez longt :p) If txtVerbe = "faire" Then result.AddItem "" & Label55.Caption & "" End If If txtVerbe = "faire" Then result.AddItem "" & Label56.Caption & "" End If If txtVerbe = "faire" Then result.AddItem "" & Label57.Caption & "" End If If txtVerbe = "faire" Then result.AddItem "" & Label58.Caption & "" End If If txtVerbe = "faire" Then result.AddItem "" & Label59.Caption & "" End If If txtVerbe = "faire" Then result.AddItem "" & Label60.Caption & "" End If ':d je fais une pause la :-$ End Sub Private Sub Command2_Click() result.Clear End Sub 'Je vous conseille le zip
Conclusion :
Voila si une personne connait une fonction bien meilleure pour conjuguer qu'il me la communique ;-)
merci
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.