SLOTS MAGIC
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
-
21 juin 2010 à 22:47
akisvb Messages postés 20 Date d'inscription mardi 24 février 2009 Statut Membre Dernière intervention 8 novembre 2011 - 25 juin 2010 à 16:59
akisvb Messages postés 20 Date d'inscription mardi 24 février 2009 Statut Membre Dernière intervention 8 novembre 2011 - 25 juin 2010 à 16:59
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/51933-slots-magic
https://codes-sources.commentcamarche.net/source/51933-slots-magic
25 juin 2010 à 16:59
25 juin 2010 à 16:38
fô pas s'étonner...
Le surce ? peut-être ici : "JE te lirais avec plaisir et attention néanmoins" -:);
Très amicalement, ( >> Ici, c'est plus du sucre, c'est du miel..)
Us.
25 juin 2010 à 16:29
Suis Grec et en plus ca fait plus de 15 ans que j ai pas ecris en francais, et d autre part mon clavier est QWERTY avec des caracteres Greques..alors l orthographe....
25 juin 2010 à 15:56
a) ... Ouais, ouais... on joue le malin ? "sucrée", okay...
=
b) Bon, je ne vois pas où tu veux en venir avec la fonction Fibonacci, mais bon... En termes de remarque, ce n'est pas ça qui manque...
extrait :
- Déjà il manque End Function, (peut-être juste pb de recopie)
- Ensuite, La 1er fonction n'est pas très bien structurée au niveau du type de donnée. En effet, tu fais un appel en récurrence, donc le minimum c'est d'adapter les données. Fibonacci est un DOUBLE. Or, tu codes "Fibonacci = CInt(TxtFibonacci0.txt)" c'est à dire la conversion du texte en INTEGER. Donc tu demande à VB de convertir le TEXTE en INTEGER pour ensuite l'affecter à FIBONACCI qui lui est un DOUBLE. En réalité, en interne VB génère une erreur, et se démerde ensuite pour le reconvertir en DOUBLE... Donc, en toute logique il aurait fallut utiliser CDBL au lieu CINT... Au moins la conversion aurait été logique avec Fibonacci.
- Puis, "TxtFibonacci0.txt" et "TxtFibonacci1.txt" n'ont pas de sens dans une fonction... En effet, ta fonction ne peut-être appelée qu'avec le paramètre "X"... De plus, à quoi servent ces deux textes ici pour le calcul ?
- Ensuite, je ne vois pas quand l'appel en récurrence s'arrête... Il y aura un dépassement de pile...
- Et les valeurs négatives ne sont pas traitée... l'anecdotique remarque...
Bref, cette fonction "Fibonacci" sortie de son contexte n'est pas valide.
- La malheureuse fonction "Factoriel", qui elle semble fonctionner, est utile à quoi ici ? Elle n'est déjà jamais appelée avec Fibonacci...
- Même défaut de "typage" que ci-dessus, mais cette fois sur X... dans l'appel en récurrence.
Bref, je préfère de loin ma fonction "Fibonacci"... De plus j'évite l'appel par récurrence qui "mange" des ressources au processeur en terme de calcul et de pile...
=
Ma remarque sur "Select Case", n'est qu'une alternative plus simple et équivalente au code proposé... Ensuite, je ne vois pas où est pour toi le problème... Si tu penses que c'est mieux comme tu as fait, tu as surement des raisons plus "professionnelles"... Moi, c'était qu'une remarque de programmation. Polémique inutile.
=
c)
"(Je) Suis tenu par contrat et je ne peux divulgue mes sources.. je regarde des centaines de codes sources a mon temps perdu
le code modifier ci-dessus (fait par une certaine PAMELA REI) est le seul qui raproche MON travail... "
>> divulgué, ER ici.
>> a (mon temps), à avec un accent...
>> Oublie de la ponctuation après perdu...
>> modifier, é ici et non ER...
>> raproche, rapproche avec 2 p...
>> oubli ? du pronom personnel "se" et de la préposition "de" dans "qui (se) rapproche (de) MON travail..."
... à mon tour de faire le malin... -:);
=
d)
"de quelle pub tu parles? depuis quand PUB = MONOLOGUE ????"
Euh... ouais, ben il y a un certain niveau de lecture qui t'as échappé... Je faisais un tout petit trait d'humour en reprenant ta phrase : "Vais faire un tour sur ton site"... suivie de " -:); "
JE parlais de "PUB" pour mon site pour les lecteurs de VBF... (évidemment sans but lucratif)... C'était juste une invitation, rien de plus... J'espère que cela t'éclaira sur le sens à donner à mon propos. Quant à "MONOLOGUE", ben, j'ai du mal à te suivre... Tes messages s'adressaient bien à moi?
=
A part ça, je te sens pas chaud pour obtenir des remarques sur le codage. Cet espace, n'est pas dédié à une discussion de type FORUM, mais orienté sur la source... IL est préférable d'en rester là, pour ces hors sujets... JE te lirais avec plaisir et attention néanmoins.
Amicalement,
Us.
25 juin 2010 à 08:05
b)..J' utilise cet algo depuis plus de 10 ans ....
Public Function Fibonacci(X As Integer)As Double
if X= 0 then
Fibonacci = CInt(TxtFibonacci0.txt)
else ifX = 1 then
Fibonacci = CInt(TxtFibonacci1.txt)
else
Fibonacci = Fibonacci(X-2) + Fibonacci(X-1)
end if
Public Function Factorial(X As Integer)As Double
if X<0 then
factorial = 0
elseifX = 0 then
factorial = 1
else
factorial = X * factorial(X-1)
end if
end function
ce qui donne
F(3)=3*F(2)
F(2)=2*F(1)
F(1)=1*F(0)
F(0)=0*F(-1)
tout ca ....en bref...
dans Case select alors
bonus = 20 * bet... le "20" est ramplace par une variante qui sellon le in/out a valeur de 20 a 2000....
en fait TOUS les games type casino Retombent sur le % preregle
soit par BONUS soit PAR JACKPOT....
c)Suis tenu par contrat et je ne peux divulgue mes sources..
je regarde des centaines de codes sources a mon temps perdu
le code modifier ci-dessus (fait par une certaine PAMELA REI) est le seul qui raproche MON travail...
d) de quelle pub tu parles? depuis quand PUB = MONOLOGUE ????
amicalement
akis vb
24 juin 2010 à 22:34
Amicalement,
Us.
24 juin 2010 à 22:30
Bon, maintenant si tu veux le "sucre"... je n'en dirais pas plus. En revanche, si tu veux la "torture", je dirais que j'ai pris 5 min pour regarder le code... -:);
Disons que le code est fonctionnel, mais il y a pas mal de truc à changer pour plus de rigueur. La question est plutôt est-ce que cela t'intéresses ?... Tu disais "TIREZ PAS SUR LE GRAPHISTE S.V.P"... quoique à la rigueur, tu m'as fait qu'adapté le code d'un autre, si j'ai bien compris. Donc, bon... Mais, bon... Les graphistes sont rares et précieux, et je ne voudrais pas leur faire des misères en leur expliquant en long et en large le pourquoi du comment des lacunes du codage...
Amicalement,
Us.
24 juin 2010 à 20:52
24 juin 2010 à 20:25
donne moi un lien que je regarde ton boulot , et que je fasse aussi le prof un peu...
24 juin 2010 à 13:31
Ben, si tu veux d'autres remarques, puisse que tu as malencontreusement appuyer sur F1, je dirais que la police de caractère (fournie c'est très bien) pourrait être installée automatiquement si elle n'est pas déjà installée... Puisque dans mon cas, on obtient les caractères Wingets (ou un truc du genre), bref, pas les nombres attendus, mais un dessin d'une souris et autre graphe. Et une remarque de plus... et une... Ceci dit, ton application est bien programmée et bien structurée... Donc il n'y a en réalité pas grand chose à dire ou à faire... C'est un 10/10 bien mérité. S'il y avait que des sources comme cela sur VBF...
Amicalement,
Us.
24 juin 2010 à 12:35
Amicalement
akisvb
24 juin 2010 à 11:09
Ben, fô-croire... Ça t'en bouche un "coin" ?
Mais dès que je vois que je ne peux pas gagner, je regarde les modifications nécessaires pour que la machine (mon PC) comprenne bien que le seul gagnant possible ne peut être que son propriétaire... c'est à ce moment là, que je tripatouille, grattouille, chatouille, le code...
Je n'ai regardé qu'en diagonale, si tu veux plus de remarques... il suffit d'utiliser F1 (c'est la touche d'aide... bon choix F1 en définitive, mais une petite indication dans l'interface pourrait donner l'aide nécessaire).
Amicalement,
Us.
23 juin 2010 à 20:57
a la place de credit = credit + 200
if credit =<29800 then
credit = credit + 200
else
msgbox " CREDIT LIMITE A 30000 POINTS! " ,(met un vbcommecateplait)
exit sub
end if
...mais je me pose une question tout de meme.....t as vu ca....t as vu la case select ...c etait si dur que ca pour toi de trouver quelle touche credite le jeu?????
Amicalement
akisvb
23 juin 2010 à 16:07
23 juin 2010 à 15:25
Sinon, il y a une erreur qui se produit quand on se dit que la seule façon de gagner est d'utiliser la touche F1... En effet, la variable Credit est Interger et donc limité à 32768, or dans " Form_KeyDown" aucun test n'est fait sur "credit = credit + 200", ce qui engendre un bug... Ben, dans ces condition je ne serai jamais plus riche qu'un Interger... bah !
Amicalement,
Us.
23 juin 2010 à 14:23
23 juin 2010 à 13:06
Comment on insère le "coin"...? Graphiquement très bien... Dès que je peux insérer le coin, je te met 10/10.
Sur le code, ben j'ai vu en ouvrant un truc un peu choquant... SELECT CASE
Je cite :
Select Case bonusnr
Case 1
bonus = 20 * bet
Case 2
bonus = 20 * bet
Case 3
bonus = 20 * bet
Case 4
bonus = 20 * bet
Case 5
bonus = 20 * bet
Case 6
bonus = 20 * bet
Case 7
bonus = 20 * bet
Case 8
bonus = 20 * bet
Case 9
bonus = 20 * bet
etc...
Peut être remplacé par :
Select Case bonusnr
Case 1 to 9
bonus = 20 * bet
etc, pour les autres valeurs...
Amicalement,
Us.
22 juin 2010 à 07:51
21 juin 2010 à 22:47