Reviseur

Soyez le premier à donner votre avis sur cette source.

Vue 4 549 fois - Téléchargée 331 fois

Description

Bon, d'accord, question originalité, 0, mais bon...
C'est un programme qui permet de faire réviser une liste de verbes irréguliers (anglais et allemands sont les deux seules langues disponibles dans le zip) présente sous forme de fichier .dat.
Il permet de faire vérifier vos réponses, de générer une liste aléatoire de verbes pris dans la liste, et d'afficher cette liste, avec des 'trous' à remplir.
Il est entièrement commenté.
Il offre de plus de la possibilité de modifier soi-même les listes, puis de les enregistrer sur le disque dur.

Conclusion :


Il se peut que des erreurs se soient glissées dans la copie des verbes. Dans ce cas, postez un commentaire.
Et naturellement, si vous avez des suggestions, des remarques ou tout autre chose, faites de même...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

Cette fonction n'est pas dispo sur VB5...
Voilà un code possible :

Public sub Split(str as String, sep as String, byref res())
dim i as integer
dim j as integer
dim n as integer
let n=0
let i=1
let j=InStr(i,str,sep)
while j>0
redim preserve res(0 to n)
let res(n)=mid(str,i,j-i-1)
let n=n+1
let i=j+1
wend
redim preserve res(0 to n)
let res(n)=mid(str,i,len(str)-i+1)
End sub

La syntaxe est pas la même, remplace partout où tu as
a = split(b,c)
par :
call split(b,c,a)
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

quand je lance le prog, un messag ed'erreur apparaît :

Erreur d'exécution
Procédure Sub ou Function non définie et quand on clique sur OK, ds la procédure

Sub LoadFile()
Dim canal As Integer 'Canal pour le fichier .dat
Dim res As String 'Tampon 1, transfert d'une ligne du fichier
Dim re2() As String 'Tampon 2, traitement de la ligne transférée
Dim i As Integer, j As Integer 'Pour les boucles For
Dim tOrd As Integer 'TabIndex (pour qu'il n'y ait pas de problèmes avec la touche Tab)

n = 0 'Aucune ligne chargée pour l'instant
canal = FreeFile 'Prendre un canal

cdl.ShowOpen
If cdl.filename = vbNullString Then End

Open cdl.filename For Input As canal 'Ouverture du fichier en lecture seule

ReDim tbl(0 To 300, 0 To 4) 'On initialise le tableau avec un gros chiffre

While Not EOF(canal) 'Parcourir le fichier jusqu'à sa fin ; pour chaque ligne du fichier :

Input #canal, res 'Transférer dans res
re2 = Split(res, ";") 'Séparer les différentes composantes de la ligne

le mot split est en surbrillance.
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

Split ? C'est quoi l'erreur ?
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

Hàjià!r,

par contre chez moi, ça ne fonctionne pas bien du tout, en effet, j'utilise la version 5.0 de Visual Basic et quand j'ouvre l'application et que je veux la faire fonctionner, un message d'erreur s'inscrit à l'écran et c'est au niveau du split que ça ne va pas.

qqun peut-il me dire ce qu'il faut gfaire pour éviter le split?

Merci d'avance. C 'est dommage car ça à l'air intéressant. Que de souvenir. Nostalgie quand tu nous tiens !
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

Il faut copier le dossier 'all' quelque part hors du zip puis ouvrir le fichier Project1.vbp...
Excuse-moi pour avoir répondu si tard, j'ai eu quelques problèmes côté navigateur internet ^^
++
Afficher les 20 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.