CULTURE GÉNÉRALE
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
2 avril 2005 à 12:35
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008 - 24 nov. 2005 à 15:28
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008 - 24 nov. 2005 à 15:28
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/30489-culture-generale
https://codes-sources.commentcamarche.net/source/30489-culture-generale
24 nov. 2005 à 15:28
24 nov. 2005 à 11:09
24 nov. 2005 à 11:08
24 nov. 2005 à 11:08
6 avril 2005 à 23:59
2 avril 2005 à 16:29
Private Sub Command1_Click()
Randomize Timer
MsgBox Int(100*Rnd()+1)
End Sub
2 avril 2005 à 13:51
2 avril 2005 à 13:40
Private Sub Command1_Click()
Randomize Timer
MsgBox 100*Rnd()+1
End Sub
2 avril 2005 à 12:57
En ce qui concerne la source, c'est vrai qu'il y a 3 noms différents car ce n'est pas moi qui ait réalisé l'application, je me suis contenté de rajouter certaines sources et modifier le code, j'ai rajouter les questions, réponses et rajouter les contrôles afin de rendre la feuillle graphiquement présentable. J'en profite encore une fois par le même occasion pour les remercier.
En ce qui concrne le nombre de questions aléatoires, malheureusement, je ne sais pas bien comment faire, c'est à dire que je ne connais pas trop bien le code à mettre
Encore merci pour ton commentaire.
2 avril 2005 à 12:35
Que nenni puisqu'il s'agit en fait du nombre de questions dans le fichier de questions. Soit. Pourquoi pas.
Mais regarde bien ton code pour lire ce fichier et déterminer les nombre de questions :
-------------------------
FichierINI = App.Path + "\Quiz1\Quiz1Q.ini"
Open FichierINI For Input As #1
Do While Not EOF(1)
Line Input #1, Nom
Nombre_E = Left(Nom, 2)
Loop
Close #1
-------------------------
S'il y a moins de 10 questions, ou plus de 99 questions, tu ne récupères pas le bon nombre, puisque ce nombre est borné à deux caractères.
Il faut absolument indenter ton code. C'est assez illisible.
Le questionnaire n'est absolument pas aléatoire puisque les questions défilent toujours dans le même ordre. (Pas de Rnd() ou de Randomize dans le code pour justifier du caractère aléatoire.
L'utilisation de CreateRoundRectRgn rend l'aspect de la feuille très sympathique.
petite curiosité programmistique, mais qui fonctionne quand même, merci VB :
pour(0).Caption = Val(bnd.Width / 6255 * 100)
pour(0).Caption ==> STRING
bnd.Width/6255*100 ==> Nombre
Val(Nombre) = Un Nombre
pour(0).Caption = Cstr(bnd.Width / 6255 * 100)
eût été plus logique
Question à choix multiple :
1 - Qui a développé ce logiciel ?
A - SDan
B - MARC DEBUREAUX
C - Serge CHEVAL
plusieurs noms circulent dans la source, sur des feuilles différentes ... Peux-tu éclaircir ?
Globalement, c'est quand même très bon. Ca fonctionne correctement, on apprend des choses en s'amusant, le graphisme est tout à fait correct. C'est une bonne source.