Conjugaison

Soyez le premier à donner votre avis sur cette source.

Vue 14 152 fois - Téléchargée 438 fois

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 !

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

a quand la version 2?
Messages postés
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005

Belgique
Messages postés
17
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
12 janvier 2005

Bon...ton code peut certes etre amélioré. Mais c'est déja un début !! J'ai moi meme programé un petit soft qui conjugue n'importe quel verbe du 1er et 2ieme groupe (les verbes réguliers)
Ecris moi si ca t'interesse. Je pourrais t'expliquer ca
PS: ou habites-tu en France ?
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
lol bilou ramène sa science
Le prog est pourri, point barre
apprend à programmer avant de combler le site de tes sources de cp
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
7
De sérieuses lacunes en programmation...
Afficher les 12 commentaires

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.