-
Randhouse.
User deleted
CIAO DjNomade, SEMPRE INFINITE GRAZIE...IL PROCEDIMENTO DEL TERZO NUMERO è CORRETTO....COMUNQUE NEL CASO IL NUMERO FOSSE SAREBBE DISPAR AD ESEMPIO 169:2=84,5....SI TAGLIA LA VIRGOLA E IL NUMERO DOPO LA VIRGOLA...QUINDI IL RISULTATO SAREBBE 84....LA COSA STRANA E' CHE : CON LA SOMMA 292 SOMMA IMPOSTATA PER IL METODO DI ESEMPIO ...IL RISULTATO E' PERFETTO...CAMBIA SOLO IL TERZO NUMERO QUANDO AGGIUNGO ALTRE SOMME...NON CAPISCO...PER IL RESTO ANCHE LA NUOVA VARIAZIONE E' PERFETTA...SEI UN MITO....se ad esempio vai a controllare l'estrazione successiva 02.01.2013 [8633] quindi 02.02.2013 [8647] troaviamo la somma 180 che da questi numeri:35-09-22-71-19 invece col programma originale Delphi script ottengo questi numeri : 35-9-67-71-19...appunto cambia il terzo...TI DEVO DIRE SOLO GRAZIE...E' IL MINIMO . -
.
Sistemato il terzo numero........era una questione di parentesi......
riprendi il listato sopra e ricontrolla
Ciauz. -
Randhouse.
User deleted
Ciao sopra dove? non riesco a prendere la variazione del 3° numero . -
.
Riprendi l'ultimo listato che ti ho messo.... . -
Randhouse.
User deleted
L'ho preso, ma mi da sempre il terzo numero diverso...se devo togliere o aggiungere qualche parentesi dimmi dove che lo faccio....forse questo mi riesce . -
Randhouse.
User deleted
ME LO PUOI RIEALLEGARE PER FAVORE GIA' VARIATO ???? GRAZIE . -
.
ora da il 67 è questo il listato che dicevo SPOILER (clicca per visualizzare)Scrivi String(47,32)&"List. DjNomade",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
est=InputBox("Quante estrazioni vuoi controllare?",,30)
r=ScegliRuota
clp = 13' < - - - Colpi di gioco
ini=8631'EstrazioneFin - est
fin=EstrazioneFin
For n = ini To fin
If IndiceMensile(n)=1 Then
Messaggio DataEstrazione (n,1)&" List.Dj Nomade " ' < - - - - Numero estrazioni
a1=SommaEstratti(n,r)'292
a22=a1/5 '58
a2=FormatNumber(a22,0)
a3=100-a22
'a3=FormatNumber(a33,0)
c=a3*5 '208
d=Abs(a1-c) '292-208=84
e=Abs(d-5) '84-5 fisso=79
y=Abs(440-a1) 'fisso440-292=148
k=Abs(a1-y) '292-148=144
nu1=Fuori90(k+e) '223-90 43 1°ESTRATTO DA GIOCARE
x=Abs((k+e)-a2) '223-58=165
nu2=Fuori90(Abs(x-k)) '165-144=21 2°SECONDO ESTRATTO DA GIOCARE
g=x+e ' X(165)+E(79)=G 244
nu3=Fuori90((Abs(a1-g))/2)'295-244=48:2 24 3° ESTRATTO DA GIOCARE
h=a1+(k+e)'(292)+(223)=515
i= Abs(a1-(k+e)) '(292)-(223)=69
l=h+a2 '573
m=i+a2 '127
nu4=Fuori90(Abs(l-a1)) '573-292 = 11 4° ESTRATTO DA GIOCARE
nu5=Fuori90(Abs(a1-m))'(292) -1_MIN(127)= 165 FUORI 90 = 75
Scrivi "----------------------------------------------------------- "
Scrivi "Somma Estratti Ruota-"&siglaruota(r)&"---"&Format2(a1) ,1
ruote(1)=r' Ruota di verifica esito
ruote(2)=1
ruote(3)=2
ruote(4)=3
ruote(5)=4
ruote(6)=5
ruote(7)=6
ruote(8)=7
ruote(9)=8
ruote(10)=9
ruote(11)=10
ruote(12)=12
numeri1(1)=nu1
numeri1(2)=nu2
ImpostaGiocata 1,numeri1,ruote,posta,clp
numeri1(1)=nu1
numeri1(2)=nu3
ImpostaGiocata 2,numeri1,ruote,posta,clp
numeri1(1)=nu1
numeri1(2)=nu4
ImpostaGiocata 3,numeri1,ruote,posta,clp
numeri1(1)=nu1
numeri1(2)=nu5
ImpostaGiocata 4,numeri1,ruote,posta,clp
numeri1(1)=nu2
numeri1(2)=nu3
ImpostaGiocata 5,numeri1,ruote,posta,clp
numeri1(1)=nu2
numeri1(2)=nu4
ImpostaGiocata 6,numeri1,ruote,posta,clp
numeri1(1)=nu2
numeri1(2)=nu5
ImpostaGiocata 7,numeri1,ruote,posta,clp
numeri1(1)=nu3
numeri1(2)=nu4
ImpostaGiocata 8,numeri1,ruote,posta,clp
numeri1(1)=nu3
numeri1(2)=nu5
ImpostaGiocata 9,numeri1,ruote,posta,clp
numeri1(1)=nu4
numeri1(2)=nu5
ImpostaGiocata 10,numeri1,ruote,posta,clp
Gioca n
End if
Next
ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
ScriviResoconto 5
ScriviResoconto 6
ScriviResoconto 7
ScriviResoconto 8
ScriviResoconto 9
ScriviResoconto 10
ColoreTesto 2 :Scrivi String(37,32)&" Somme estratti x Randhouse",1
Scrivi String(47,32)&"List. DjNomade",1
ColoreTesto 0
End Sub. -
Randhouse.
User deleted
ESATTAMENTE...ORA DA IL 67 COME DA METODO...ORA POSSO INIZIARE A FARE LE RICERCHE...SENZA IL TUO AIUTO NON AVREI CORONATO IL MIO SOGNO...SPERIAMO BENE...E CHE LA FORTUNA CI ASSISTA...CONFRONTALO ANCHE TU NE VALE LA PENA.....GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE .