MouLeT
Messages postés90Date d'inscriptionsamedi 11 octobre 2003StatutMembreDernière intervention27 juillet 2009
-
12 mars 2004 à 08:00
cs_neria
Messages postés319Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention16 février 2009
-
12 mars 2004 à 18:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_neria
Messages postés319Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention16 février 2009 12 mars 2004 à 18:46
Salut !
C'est vrai que le code n'est pas exeptionnel, mais le design est assez sympa !
Par contre il faudrait pouvoir arrêter les chiffres un par un et avec le clavier si possible ( je suis faineant :) ).
Il y a aussi une petite faute pardonnable :
If Label1.Caption Label2.Caption And Label2.Caption Label3.Caption And Label1.Caption = Label3.Caption Then
Peut se résumer en If Label1.Caption Label2.Caption and Label2.Caption Label3.Caption
Car si 1=2 et 2=3, 1 est forcement égal à 3
et puis au lieu de mettre : Timer1.Interval = 0
il suffit de mettre Timer1.Enabledr = False
Sinon vu la taille du code il n'est pas évident de trouver un bug !!!
Voila c'est tout !
@+ Neria
MouLeT
Messages postés90Date d'inscriptionsamedi 11 octobre 2003StatutMembreDernière intervention27 juillet 2009 12 mars 2004 à 08:00
Ceci est une prog de Débutant ,il faudrai aussi rajoute plusieurs chose car juste un peit Jackpot c'est pas vraiment dur...
12 mars 2004 à 18:46
C'est vrai que le code n'est pas exeptionnel, mais le design est assez sympa !
Par contre il faudrait pouvoir arrêter les chiffres un par un et avec le clavier si possible ( je suis faineant :) ).
Il y a aussi une petite faute pardonnable :
If Label1.Caption Label2.Caption And Label2.Caption Label3.Caption And Label1.Caption = Label3.Caption Then
Peut se résumer en If Label1.Caption Label2.Caption and Label2.Caption Label3.Caption
Car si 1=2 et 2=3, 1 est forcement égal à 3
et puis au lieu de mettre : Timer1.Interval = 0
il suffit de mettre Timer1.Enabledr = False
Sinon vu la taille du code il n'est pas évident de trouver un bug !!!
Voila c'est tout !
@+ Neria
12 mars 2004 à 08:00