Slots magic

Soyez le premier à donner votre avis sur cette source.

Vue 3 790 fois - Téléchargée 698 fois

Description

SLOTs GAME (JACKPOT)
L algo n est pas de moi ..Pris sur Plannet.com
pour crediter le jeu F1, POUR PLUS D INFOS Ntel2@hotmail.com
Suis Graphiste la vb c est un hoby alors TIREZ PAS SUR LE GRAPHISTE S.V.P

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
Ok MILLE et une excuses!
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
25 juin 2010 à 16:38
Ah, bah... oui, mais, jouer au malin avec "a)..Torture sucré ou torture sucrée ?...This is of the question..."
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.
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:29
OU EST passe le sucre?
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....
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
25 juin 2010 à 15:56
Bonjour,

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.
akisvb
Messages postés
20
Date d'inscription
mardi 24 février 2009
Statut
Membre
Dernière intervention
8 novembre 2011

25 juin 2010 à 08:05
a)..Torture sucre ou torture sucree?...This is of the question...
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
Afficher les 19 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.