PETIT LOGICIEL DE QUIZ

cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 8 févr. 2004 à 21:39
pondpond Messages postés 14 Date d'inscription mercredi 28 mai 2003 Statut Membre Dernière intervention 1 août 2005 - 17 janv. 2005 à 00:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20261-petit-logiciel-de-quiz

pondpond Messages postés 14 Date d'inscription mercredi 28 mai 2003 Statut Membre Dernière intervention 1 août 2005
17 janv. 2005 à 00:00
Mid(donnée, 2) sert à enlever un certain nombre de carractères apparaissant au début de la chaine donnée. Lorsque son argument est à 2, ce qui est le cas ici, la fonction renverra la varriable donnée sans son premier carractère.

Voici un petit exemple de son utilisation :
------------------------------------------------------------
Dim donnée as string

donnée = "123456"
debug.print Mid(donnée,3)
------------------------------------------------------------

Dans la fenêtre de debuggage de Vb est alors affiché
"12"

A noté que cette fonction possède aussi un 3ème argument facultatif qui correspond au nombre de carractères renvoyés après la coupure.

Voilà

Pour les commentaires, je suis vraiment désolé, mais je n'ai vraiment pas le temps pour me replonger dans cette source vu que je suis sur un autre projet et que mes études me prennent malheuresement énormément de temps. Mais je suis tout à fait prêt à répondre à d'autres questions de ce type sur des points particulier de cette source.

En espérant avoir été clair dans mon explication.
Merci de l'intérêt que vous portez à ma source.

Bonne Progr
buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
15 janv. 2005 à 21:45
D'accord avec toi kooper !! Enfin ce que je ne comprend toujours pas c'est : "Mid(donnée, 2)" : a qoui ça sert ? Comment ça marche ? Merci d'avance et dsl de te donner encore plus de boulot !!
kooper Messages postés 4 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 18 janvier 2005
15 janv. 2005 à 14:17
Salut Je suis debutant mais très debutant
Pourrais-tu stp ajouter des commentaires a ta source
pour mieux comprendre. Toujours si tu a le temps

Par avance merci
buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
7 janv. 2005 à 23:33
Enfin une source finie et sans bug !!
Merci de m'avoir débloqué, bonne continuation.
pondpond Messages postés 14 Date d'inscription mercredi 28 mai 2003 Statut Membre Dernière intervention 1 août 2005
6 janv. 2005 à 20:53
En fait, c'est très simple, il s'agit de lire le fichier.
C'est un fichier en mode texte.

Il lit les ligne deux par deux car on a sucessivement une question et sa réponse.

Line Input #1, donnée -> correspond à la lecture d'une ligne dans le fichier (la dernière non lue).

On stoque les résultats dans le tableau questions.
question(i,1) -> l'énoncé
question(i,2) -> la réponse

En espérant de t'avoir répondu correctement,
merci pour l'intérêt que tu portes à ma source,

Bonne Progr
buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
5 janv. 2005 à 20:48
Pourrais-tu stp expliquer ça:
Line Input #1, titre

Do

> i = i + 1
> Line Input #1, donnée
> questions(i, 1) = Mid(donnée, 2)
> Line Input #1, donnée
> questions(i, 2) = Mid(donnée, 1)

Loop Until EOF(1)

nbquestions = i

Close #1

J'ai pas compris ce qui est précédé d'un ">"
Merci d'avance !!
buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
3 janv. 2005 à 20:50
tu as une version antérieure à VB6 ou tu n'as pas VB nan ?
cs_guilOooo Messages postés 53 Date d'inscription vendredi 19 septembre 2003 Statut Membre Dernière intervention 19 novembre 2004
18 juin 2004 à 21:08
heu, j'ai essayé de télécharger le zip... Il me dit qu'il manque VB6FR.Dll pour éxécuter ce fichier ?
pondpond Messages postés 14 Date d'inscription mercredi 28 mai 2003 Statut Membre Dernière intervention 1 août 2005
8 févr. 2004 à 21:50
oui, dsl ...
Mais c'est une erreur qui est sur la capture mais que j'ai corrigé dans le questionnaire du zip.
Merci pour ton commentaire
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
8 févr. 2004 à 21:39
La capitale du Protugal c'est bien Lisbonne gros !
Corrige moi ça sinon le prog est pas mal si t'es débutant
7/10
Rejoignez-nous