Novità

AIUTO X MODIFICA LISTATO!!!!!!!

  • Creatore Discussione Creatore Discussione rob
  • Data di inizio Data di inizio
R

rob

Advanced Member >PLATINUM<
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) = 2:pt1(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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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
 
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
 
Ciauz
il lavoro immane che diceva Blackmore nell'altro post l'ho appena fatto io :D:D


Sub Main()

Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(3)
pt1(2) = 2:pt1(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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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):ok = 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) +
 
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)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 settembre 2026
    Bari
    05
    11
    16
    14
    71
    Cagliari
    45
    40
    73
    01
    53
    Firenze
    48
    50
    34
    45
    63
    Genova
    20
    72
    52
    75
    56
    Milano
    44
    59
    07
    49
    69
    Napoli
    38
    05
    68
    03
    87
    Palermo
    52
    14
    58
    90
    37
    Roma
    66
    06
    31
    10
    77
    Torino
    60
    70
    32
    10
    62
    Venezia
    26
    88
    64
    14
    04
    Nazionale
    62
    70
    01
    80
    55
    Estrazione Simbolotto
    Palermo
    06
    20
    41
    37
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto