AIUTO X MODIFICA LISTATO!!!!!!!

[rob]

QUESTO FANTASTICO LISTATO DA UN METODO DEL BRAVISSIMO BLACKMORE E REALIZZATO DA DJ NOMADE,E' SOLO PER LA RUOTA DI VENEZIA</u> PERO' HA UNA STATISTICA RAGGUARDEVOLE,C'E' QUALCHE BUONA ANIMA CHE LO VORRA' MODIFICARE FACENDO IN MODO CHE SI POSSA FARE UNA PREVISIONE SU QUALSIASI DELLE 10 RUOTE??-IL METODO PURTROPPO CI DA' LA PREVISIONE SOLO QUANDO SU VENEZIA ESCE UN AMBO "ZERATO" ALLORA HO PENSATO (VISTA LA BONTA' DEL METODO) DI ESTENDERLO ANCHE ALLE 9 RUOTE RIMANENTI!!-GRAZIE ROB


Sub Main()
ColoreTesto 2 :Scrivi "____ METODO BY BLACKMORE *** LISTATO BY DJ NOMADE ____",1
ColoreTesto 2 :Scrivi "UNA CINQUINA DOPO L'USCITA DI UN AMBO ZERATO SU VENEZIA",1
ColoreTesto 2 :Scrivi "_____________ INIZIO RICERCA: 26-01-1990 ____________",1
ColoreTesto 2 :Scrivi "_______________FINE RICERCA: 25-06-2011 _______________",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(3)
pt1(2) = 2t1(3) = 0.50
clp = 9
ini = EstrazioneFin - 2202
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es

ruote(1) = 10
For p = 1 To 5
For p1 = p + 1 To 5
a = Estratto(es,10,p) : b = Estratto(es,10,p1)

'-------------------------------------------------------------------
ok = 0
If a = 10 And b = 20 Or a = 20 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,2) + 01):amb(2) = Fuori90(Estratto(es,10,2) + 08):amb(3) = Fuori90(Estratto(es,10,2) + 13):amb(4) = Fuori90(Estratto(es,10,2) + 40)::amb(5) = Fuori90(Estratto(es,10,2) + 63)k = 1
If a = 10 And b = 30 Or a = 30 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,2) + 01):amb(2) = Fuori90(Estratto(es,10,2) + 02):amb(3) = Fuori90(Estratto(es,10,2) + 03):amb(4) = Fuori90(Estratto(es,10,2) + 08)::amb(5) = Fuori90(Estratto(es,10,2) + 23)k = 1
If a = 10 And b = 40 Or a = 40 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,4) + 01):amb(2) = Fuori90(Estratto(es,10,4) + 13):amb(3) = Fuori90(Estratto(es,10,4) + 39):amb(4) = Fuori90(Estratto(es,10,4) + 62)::amb(5) = Fuori90(Estratto(es,10,4) + 68)k = 1
If a = 10 And b = 50 Or a = 50 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,3) + 01):amb(2) = Fuori90(Estratto(es,10,3) + 02):amb(3) = Fuori90(Estratto(es,10,3) + 25):amb(4) = Fuori90(Estratto(es,10,3) + 73)::amb(5) = Fuori90(Estratto(es,10,3) + 89)k = 1
If a = 10 And b = 60 Or a = 60 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,1) + 05):amb(2) = Fuori90(Estratto(es,10,1) + 12):amb(3) = Fuori90(Estratto(es,10,1) + 20):amb(4) = Fuori90(Estratto(es,10,1) + 24)::amb(5) = Fuori90(Estratto(es,10,1) + 77)k = 1
If a = 10 And b = 70 Or a = 70 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,4) + 09):amb(2) = Fuori90(Estratto(es,10,4) + 33):amb(3) = Fuori90(Estratto(es,10,4) + 39):amb(4) = Fuori90(Estratto(es,10,4) + 49)::amb(5) = Fuori90(Estratto(es,10,4) + 64)k = 1
If a = 10 And b = 80 Or a = 80 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,5) + 01):amb(2) = Fuori90(Estratto(es,10,5) + 02):amb(3) = Fuori90(Estratto(es,10,5) + 12):amb(4) = Fuori90(Estratto(es,10,5) + 25)::amb(5) = Fuori90(Estratto(es,10,5) + 53)k = 1
If a = 10 And b = 90 Or a = 90 And b = 10 Then amb(1) = Fuori90(Estratto(es,10,5) + 02):amb(2) = Fuori90(Estratto(es,10,5) + 04):amb(3) = Fuori90(Estratto(es,10,5) + 36):amb(4) = Fuori90(Estratto(es,10,5) + 74)::amb(5) = Fuori90(Estratto(es,10,5) + 84)k = 1
If a = 20 And b = 30 Or a = 30 And b = 20 Then amb(1) = Fuori90(Estratto(es,10,5) + 02):amb(2) = Fuori90(Estratto(es,10,5) + 06):amb(3) = Fuori90(Estratto(es,10,5) + 19):amb(4) = Fuori90(Estratto(es,10,5) + 35)::amb(5) = Fuori90(Estratto(es,10,5) + 41)k = 1
If a = 20 And b = 40 Or a = 40 And b = 20 Then amb(1) = Fuori90(Estratto(es,10,4) + 02):amb(2) = Fuori90(Estratto(es,10,4) + 05):amb(3) = Fuori90(Estratto(es,10,4) + 22):amb(4) = Fuori90(Estratto(es,10,4) + 27)::amb(5) = Fuori90(Estratto(es,10,4) + 47)k = 1
If a = 20 And b = 50 Or a = 50 And b = 20 Then amb(1) = Fuori90(Estratto(es,10,2) + 01):amb(2) = Fuori90(Estratto(es,10,2) + 05):amb(3) = Fuori90(Estratto(es,10,2) + 27):amb(4) = Fuori90(Estratto(es,10,2) + 39)::amb(5) = Fuori90(Estratto(es,10,2) + 5

 

[Roby]

Ciao Rob, questo listato l'hai preso dal sito di Enplein?
tutti i metodi all'interno del listato sono stati creati ad hoc per la ruota di Venezia, quindi se metti altre ruote i casi negativi saranno al 99%
Comunque basta fare così
Ruote (1) = 10
Togli il 10 (venezia) e metti il numero della ruota che vuoi
Ciao

Blackmore

 

[rob]

GRAZIE MILLE BLACKMORE,QUESTO MEDODO+LISTATO E' FANTASTICO!!!!

CIAO ROB

 

[DjNomade]

Ciauz
il lavoro immane che diceva Blackmore nell'altro post l'ho appena fatto io


Sub Main()

Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(3)
pt1(2) = 2t1(3) = 0.50
clp = 9
r=ScegliRuota
ruote(1)=r
ColoreTesto 2 :Scrivi "____ METODO BY BLACKMORE *** LISTATO BY DJ NOMADE ____",1
ColoreTesto 2 :Scrivi "UNA CINQUINA DOPO L'USCITA DI UN AMBO ZERATO SU "&NomeRuota(r),1
ColoreTesto 2 :Scrivi "_____________ INIZIO RICERCA: 26-01-1990 ____________",1
ColoreTesto 2 :Scrivi "_______________FINE RICERCA: 25-06-2011 _______________",1
Scrivi : ColoreTesto 0
ini = EstrazioneFin - 2202
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es


For p = 1 To 5
For p1 = p + 1 To 5
a = Estratto(es,r,p) : b = Estratto(es,r,p1)

'-------------------------------------------------------------------
ok = 0
If a = 10 And b = 20 Or a = 20 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,2) + 01):amb(2) = Fuori90(Estratto(es,r,2) + 08):amb(3) = Fuori90(Estratto(es,r,2) + 13):amb(4) = Fuori90(Estratto(es,r,2) + 40)::amb(5) = Fuori90(Estratto(es,r,2) + 63)k = 1
If a = 10 And b = 30 Or a = 30 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,2) + 01):amb(2) = Fuori90(Estratto(es,r,2) + 02):amb(3) = Fuori90(Estratto(es,r,2) + 03):amb(4) = Fuori90(Estratto(es,r,2) + 08)::amb(5) = Fuori90(Estratto(es,r,2) + 23)k = 1
If a = 10 And b = 40 Or a = 40 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,4) + 01):amb(2) = Fuori90(Estratto(es,r,4) + 13):amb(3) = Fuori90(Estratto(es,r,4) + 39):amb(4) = Fuori90(Estratto(es,r,4) + 62)::amb(5) = Fuori90(Estratto(es,r,4) + 68)k = 1
If a = 10 And b = 50 Or a = 50 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,3) + 01):amb(2) = Fuori90(Estratto(es,r,3) + 02):amb(3) = Fuori90(Estratto(es,r,3) + 25):amb(4) = Fuori90(Estratto(es,r,3) + 73)::amb(5) = Fuori90(Estratto(es,r,3) + 89)k = 1
If a = 10 And b = 60 Or a = 60 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,1) + 05):amb(2) = Fuori90(Estratto(es,r,1) + 12):amb(3) = Fuori90(Estratto(es,r,1) + 20):amb(4) = Fuori90(Estratto(es,r,1) + 24)::amb(5) = Fuori90(Estratto(es,r,1) + 77)k = 1
If a = 10 And b = 70 Or a = 70 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,4) + 09):amb(2) = Fuori90(Estratto(es,r,4) + 33):amb(3) = Fuori90(Estratto(es,r,4) + 39):amb(4) = Fuori90(Estratto(es,r,4) + 49)::amb(5) = Fuori90(Estratto(es,r,4) + 64)k = 1
If a = 10 And b = 80 Or a = 80 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,5) + 01):amb(2) = Fuori90(Estratto(es,r,5) + 02):amb(3) = Fuori90(Estratto(es,r,5) + 12):amb(4) = Fuori90(Estratto(es,r,5) + 25)::amb(5) = Fuori90(Estratto(es,r,5) + 53)k = 1
If a = 10 And b = 90 Or a = 90 And b = 10 Then amb(1) = Fuori90(Estratto(es,r,5) + 02):amb(2) = Fuori90(Estratto(es,r,5) + 04):amb(3) = Fuori90(Estratto(es,r,5) + 36):amb(4) = Fuori90(Estratto(es,r,5) + 74)::amb(5) = Fuori90(Estratto(es,r,5) + 84)k = 1
If a = 20 And b = 30 Or a = 30 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,5) + 02):amb(2) = Fuori90(Estratto(es,r,5) + 06):amb(3) = Fuori90(Estratto(es,r,5) + 19):amb(4) = Fuori90(Estratto(es,r,5) + 35)::amb(5) = Fuori90(Estratto(es,r,5) + 41)k = 1
If a = 20 And b = 40 Or a = 40 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,4) + 02):amb(2) = Fuori90(Estratto(es,r,4) + 05):amb(3) = Fuori90(Estratto(es,r,4) + 22):amb(4) = Fuori90(Estratto(es,r,4) + 27)::amb(5) = Fuori90(Estratto(es,r,4) + 47)k = 1
If a = 20 And b = 50 Or a = 50 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,2) + 01):amb(2) = Fuori90(Estratto(es,r,2) + 05):amb(3) = Fuori90(Estratto(es,r,2) + 27):amb(4) = Fuori90(Estratto(es,r,2) + 39)::amb(5) = Fuori90(Estratto(es,r,2) + 55)k = 1
If a = 20 And b = 60 Or a = 60 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,4) + 34):amb(2) = Fuori90(Estratto(es,r,4) + 35):amb(3) = Fuori90(Estratto(es,r,4) + 74):amb(4) = Fuori90(Estratto(es,r,4) + 79)::amb(5) = Fuori90(Estratto(es,r,4) + 85)k = 1
If a = 20 And b = 70 Or a = 70 And b = 20 Then amb(1) = Fuori90(Estratto(es,r,4) + 11):amb(2) = Fuori90(Estratto(es,r,4) + 24):amb(3) = Fuori90(Estratto(es,r,4) +

 

[Zagor]

Ragazzi , siete fantastici. Grazie

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)