Novità

Metodi Cabalistici

salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Codice: 
'Nome - Metodo Cabalistico 1A - Autore e script Salvo50
'Si dispongono gli estratti di una qualsiasi ruota
'(ma ci sono state più vincite nella ruota di Palermo)
'a due a due consecutivi anche il quinto col primo,
'di ogni coppia si raddoppia il più piccolo e si formano
'altri 5 numeri, si prosegue finchè tutti e 5 i numeri
'sono uguali, dopo si calcola più 1 e meno 1 di questo
'numero risultante e si fa la ricerca per ambo e ambata
'in terzina
Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,Es,OK,K,Ruo
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi
   Dim Amb(3),Ru(1),Posta(2)
   Scrivi Space(20) & " METODO CABALISTICO 1A - AUTORE E SCRIPT SALVO50"
   Posta(1) = 1
   Posta(2) = 1
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Ruo = InputBox("Inserisci la ruota (1 - 10) 12 per Nazionale ",Salvo50,7)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = Ruo To Ruo
         If R1 = 11 Then R1 = 12
         A1 = Estratto(Es,R1,1) : If A1 > 0 Then
         A2 = Estratto(Es,R1,2)
         A3 = Estratto(Es,R1,3)
         A4 = Estratto(Es,R1,4)
         A5 = Estratto(Es,R1,5)
         OK = 0
         K = 0
         For K = 1 To 20
            If A1 < A2 Then B1 = Fuori90(A1 * 2) Else B1 = Fuori90(A2 * 2)
            If A2 < A3 Then B2 = Fuori90(A2 * 2) Else B2 = Fuori90(A3 * 2)
            If A3 < A4 Then B3 = Fuori90(A3 * 2) Else B3 = Fuori90(A4 * 2)
            If A4 < A5 Then B4 = Fuori90(A4 * 2) Else B4 = Fuori90(A5 * 2)
            If A5 < A1 Then B5 = Fuori90(A5 * 2) Else B5 = Fuori90(A1 * 2)
            If(B1 = B2) And(B2 = B3) And(B3 = B4) And(B4 = B5) Then OK = 1
            If OK = 1 Then Exit For
            A1 = B1 : A2 = B2 : A3 = B3 : A4 = B4 : A5 = B5
         Next
         If OK = 1 Then
            Amb(1) = Fuori90(90 +(B1 - 1))
            Amb(2) = B2
            Amb(3) = Fuori90(B3 + 1)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            Scrivi
            Ru(1) = R1
            ImpostaGiocata 1,Amb,Ru,Posta,5,2
            Gioca Es
         End If
      End If
   Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Ciao a Tutti

Scusami, non avevo aggiornato l'archivio

Pa 15 - 16 - 17

per 5 colpi

e come dice l'amico ILeggend, non si garantisce alcuna vincita
 
Grazie per la previsione, ho convergenza con 15 a Palermo.... Se non chiedo troppo potresti fare un esempio come sei arrivato a questa previsione, grazie
 
miky1979;n2131789 ha scritto:
Grazie per la previsione, ho convergenza con 15 a Palermo.... Se non chiedo troppo potresti fare un esempio come sei arrivato a questa previsione, grazie
Clicca per espandere...

Ciao, come tanti altri, mi cimento a inventare dei metodi, personalmente mi diletto di più con la cabalistica

sono partito da una qualsiasi estrazione esempio l'ultima di Palermo e prendendo le coppie consecutive
raddoppio l'estratto più piccolo, finche alla fine resta un solo numero, poi faccio più e meno uno e quindi
restano 3 numeri consecutivi, partendo dall'estrazione 9000 l'ho provato con tutte le ruote e quella più
proficua è risultata la ruota di Palermo.

Palermo 36 84 05 01 19

quindi tra 36 è 84 raddoppio il più piccolo il 36 e procedo con 84 05, alla fine faccio pure 19 36 il
quinto con il primo

36 84 05 01 19
72 10 02 02 38
20 04 04 04 76
08 08 08 08 40
16 16 16 16 16 <-- alla fine è rimasto un solo numero

pronostico

15 16 17

Ho fatto lo script che questi calcoli fi fa in automatico

Nel primo script quello del post 1 si può scegliere in quale ruota fare i calcoli
invece questo fa i calcoli per tutte le ruote contemporaneamente


Codice: 
'Nome - Metodo Cabalistico 1B - Autore e script Salvo50
'Si dispongono gli estratti di una qualsiasi ruota
'(ma ci sono state più vincite nella ruota di Palermo)
'a due a due consecutivi anche il quinto col primo,
'di ogni coppia si raddoppia il più piccolo e si formano
'altri 5 numeri, si prosegue finchè tutti e 5 i numeri
'sono uguali, dopo si calcola più 1 e meno 1 di questo
'numero risultante e si fa la ricerca per ambo e ambata
'in terzina
Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,Es,OK,K
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi
   Dim Amb(3),Ru(1),Posta(2)
   Scrivi Space(20) & " METODO CABALISTICO 1B - AUTORE E SCRIPT SALVO50"
   Posta(1) = 1
   Posta(2) = 1
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A1 = Estratto(Es,R1,1) : If A1 > 0 Then
         A2 = Estratto(Es,R1,2)
         A3 = Estratto(Es,R1,3)
         A4 = Estratto(Es,R1,4)
         A5 = Estratto(Es,R1,5)
         OK = 0
         K = 0
         For K = 1 To 20
            If A1 < A2 Then B1 = Fuori90(A1 * 2) Else B1 = Fuori90(A2 * 2)
            If A2 < A3 Then B2 = Fuori90(A2 * 2) Else B2 = Fuori90(A3 * 2)
            If A3 < A4 Then B3 = Fuori90(A3 * 2) Else B3 = Fuori90(A4 * 2)
            If A4 < A5 Then B4 = Fuori90(A4 * 2) Else B4 = Fuori90(A5 * 2)
            If A5 < A1 Then B5 = Fuori90(A5 * 2) Else B5 = Fuori90(A1 * 2)
            If(B1 = B2) And(B2 = B3) And(B3 = B4) And(B4 = B5) Then OK = 1
            If OK = 1 Then Exit For
            A1 = B1 : A2 = B2 : A3 = B3 : A4 = B4 : A5 = B5
         Next
         If OK = 1 Then
            Amb(1) = Fuori90(90 +(B1 - 1))
            Amb(2) = B2
            Amb(3) = Fuori90(B3 + 1)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            Scrivi
            Ru(1) = R1
            ImpostaGiocata 1,Amb,Ru,Posta,5,2
            Gioca Es
         End If
      End If
   Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
miky1979;n2132404 ha scritto:
Bravissimo, ieri sera 17 a Palermo
Clicca per espandere...

Ciao a Tutti

Con tre numeri ed uscita al secondo colpo c'è un piccolo guadagno, ma non è sempre così.

Ho fatto altri 4 script, il primo invece di raddoppiare il numero più piccolo, raddoppio il più grande, è come per gli script gia postati, ne ho fatti 2, il primo con scelta ruota ed il secondo con ricerca in tutte le ruote.

Per il terzo script ho unito le due terzine ed ho fatto una sestina da giocare per ambo, terno, quaterna e cinquina, ed anche per questi ho fatto due script, terzo a scelta ruota ed il quarto per tutte le ruote, la ruota più proficua è risultata quella di Napoli con una quaterna


Primo script

Codice: 
'Nome - Metodo Cabalistico 1C -
'Si dispongono gli estratti di una qualsiasi ruota
'(ma ci sono state più vincite nella ruota di Palermo)
'a due a due consecutivi anche il quinto col primo,
'di ogni coppia si raddoppia il più grande e si formano
'altri 5 numeri, si prosegue finchè tutti e 5 i numeri
'sono uguali, dopo si calcola più 1 e meno 1 di questo
'numero risultante e si fa la ricerca per ambo e ambata
'in terzina
Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,Es,OK,K,Ruo,Clp
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi
   Dim Amb(3),Ru(1),Posta(2)
   Scrivi Space(20) & " METODO CABALISTICO 1C - AUTORE E SCRIPT SALVO50"
   Posta(1) = 1
   Posta(2) = 1
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Ruo = InputBox("Inserisci la ruota (1 - 10) 12 per Nazionale ",Salvo50,12)
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare la terzina ",Salvo50,4))
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = Ruo To Ruo
         If R1 = 11 Then R1 = 12
         A1 = Estratto(Es,R1,1) : If A1 > 0 Then
         A2 = Estratto(Es,R1,2)
         A3 = Estratto(Es,R1,3)
         A4 = Estratto(Es,R1,4)
         A5 = Estratto(Es,R1,5)
         OK = 0
         K = 0
         For K = 1 To 20
            If A1 > A2 Then B1 = Fuori90(A1 * 2) Else B1 = Fuori90(A2 * 2)
            If A2 > A3 Then B2 = Fuori90(A2 * 2) Else B2 = Fuori90(A3 * 2)
            If A3 > A4 Then B3 = Fuori90(A3 * 2) Else B3 = Fuori90(A4 * 2)
            If A4 > A5 Then B4 = Fuori90(A4 * 2) Else B4 = Fuori90(A5 * 2)
            If A5 > A1 Then B5 = Fuori90(A5 * 2) Else B5 = Fuori90(A1 * 2)
            If(B1 = B2) And(B2 = B3) And(B3 = B4) And(B4 = B5) Then OK = 1
            If OK = 1 Then Exit For
            A1 = B1 : A2 = B2 : A3 = B3 : A4 = B4 : A5 = B5
         Next
         If OK = 1 Then
            Amb(1) = Fuori90(90 +(B1 - 1))
            Amb(2) = B2
            Amb(3) = Fuori90(B3 + 1)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            Scrivi
            Ru(1) = R1
            ImpostaGiocata 1,Amb,Ru,Posta,Clp,2
            Gioca Es
         End If
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Secondo script


Codice: 
'Nome - Metodo Cabalistico 1D - Autore e script Salvo50
'Si dispongono gli estratti di una qualsiasi ruota
'(ma ci sono state più vincite nella ruota di Palermo)
'a due a due consecutivi anche il quinto col primo,
'di ogni coppia si raddoppia il più grande e si formano
'altri 5 numeri, si prosegue finchè tutti e 5 i numeri
'sono uguali, dopo si calcola più 1 e meno 1 di questo
'numero risultante e si fa la ricerca per ambo e ambata
'in terzina, per tutte le ruote
Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,Es,OK,K,Ruo,Clp
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi
   Dim Amb(3),Ru(1),Posta(2)
   Scrivi Space(20) & " METODO CABALISTICO 1D - AUTORE E SCRIPT SALVO50"
   Posta(1) = 1
   Posta(2) = 1
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9525)
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare la terzina ",Salvo50,4))
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A1 = Estratto(Es,R1,1) : If A1 > 0 Then
         A2 = Estratto(Es,R1,2)
         A3 = Estratto(Es,R1,3)
         A4 = Estratto(Es,R1,4)
         A5 = Estratto(Es,R1,5)
         OK = 0
         K = 0
         For K = 1 To 20
            If A1 > A2 Then B1 = Fuori90(A1 * 2) Else B1 = Fuori90(A2 * 2)
            If A2 > A3 Then B2 = Fuori90(A2 * 2) Else B2 = Fuori90(A3 * 2)
            If A3 > A4 Then B3 = Fuori90(A3 * 2) Else B3 = Fuori90(A4 * 2)
            If A4 > A5 Then B4 = Fuori90(A4 * 2) Else B4 = Fuori90(A5 * 2)
            If A5 > A1 Then B5 = Fuori90(A5 * 2) Else B5 = Fuori90(A1 * 2)
            If(B1 = B2) And(B2 = B3) And(B3 = B4) And(B4 = B5) Then OK = 1
            If OK = 1 Then Exit For
            A1 = B1 : A2 = B2 : A3 = B3 : A4 = B4 : A5 = B5
         Next
         If OK = 1 Then
            Amb(1) = Fuori90(90 +(B1 - 1))
            Amb(2) = B2
            Amb(3) = Fuori90(B3 + 1)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            Scrivi
            Ru(1) = R1
            ImpostaGiocata 1,Amb,Ru,Posta,Clp,2
            Gioca Es
         End If
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub


Terzo script

Codice: 
'Nome - Metodo Cabalistico 1E - Autore e Script Salvo50
'Si dispongono gli estratti di una qualsiasi ruota
'a due a due consecutivi anche il quinto col primo,
'di ogni coppia si raddoppia il più piccolo e si formano
'altri 5 numeri, si prosegue finchè tutti e 5 i numeri
'sono uguali, poi si fa più 1 e meno uno di questo numero
'risultante, per avere tre numeri consecutivi,
'dopo si fa lo stesso calcolo col numero più grande
'a formare un'altra terzina, unione delle due terzine a
'formare una sestina.
Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,Es,OK,K1,K2,Ruo
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi
   Dim C1,C2,C3,C4,C5,D1,D2,D3,D4,D5
   Dim G1,G2,G3,G4,G5,Clp
   Dim Ru(1),Sest(6),Post(5)
   Scrivi Space(20) & " METODO CABALISTICO 1E - AUTORE E SCRIPT SALVO50"


   Post(2) = 1
   Post(3) = 1
   Post(4) = 1
   Post(5) = 0.05 ' se questa riga va in errore, sostituire il punto con la virgola
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Ruo = InputBox("Inserisci la ruota (1 - 10) 12 per Nazionale ",Salvo50,6)
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare la sestina? ",Salvo50,6))
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = Ruo To Ruo
         'If R1 = 11 Then R1 = 12
         G1 = Estratto(Es,R1,1) : If G1 > 0 Then
         G2 = Estratto(Es,R1,2)
         G3 = Estratto(Es,R1,3)
         G4 = Estratto(Es,R1,4)
         G5 = Estratto(Es,R1,5)
         OK = 0
         K1 = 0
         A1 = G1 : A2 = G2 : A3 = G3 : A4 = G4 : A5 = G5
         For K1 = 1 To 20
            If A1 < A2 Then B1 = Fuori90(A1 * 2) Else B1 = Fuori90(A2 * 2)
            If A2 < A3 Then B2 = Fuori90(A2 * 2) Else B2 = Fuori90(A3 * 2)
            If A3 < A4 Then B3 = Fuori90(A3 * 2) Else B3 = Fuori90(A4 * 2)
            If A4 < A5 Then B4 = Fuori90(A4 * 2) Else B4 = Fuori90(A5 * 2)
            If A5 < A1 Then B5 = Fuori90(A5 * 2) Else B5 = Fuori90(A1 * 2)
            If(B1 = B2) And(B2 = B3) And(B3 = B4) And(B4 = B5) Then OK = 1
            If OK = 1 Then Exit For
            A1 = B1 : A2 = B2 : A3 = B3 : A4 = B4 : A5 = B5
         Next
         If OK = 1 Then
            C1 = G1 : C2 = G2 : C3 = G3 : C4 = G4 : C5 = G5
            K2 = 0
            For K2 = 1 To 40
               If C1 > C2 Then D1 = Fuori90(C1 * 2) Else D1 = Fuori90(C2 * 2)
               If C2 > C3 Then D2 = Fuori90(C2 * 2) Else D2 = Fuori90(C3 * 2)
               If C3 > C4 Then D3 = Fuori90(C3 * 2) Else D3 = Fuori90(C4 * 2)
               If C4 > C5 Then D4 = Fuori90(C4 * 2) Else D4 = Fuori90(C5 * 2)
               If C5 > C1 Then D5 = Fuori90(C5 * 2) Else D5 = Fuori90(C1 * 2)
               If(D1 = D2) And(D2 = D3) And(D3 = D4) And(D4 = D5) Then OK = 2
               If OK = 2 Then Exit For
               C1 = D1 : C2 = D2 : C3 = D3 : C4 = D4 : C5 = D5
            Next
            If OK = 2 Then
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
               Scrivi
               Ru(1) = R1
               Sest(1) = Fuori90(90 +(B1 - 1))
               Sest(2) = B2
               Sest(3) = Fuori90(B3 + 1)
               Sest(4) = Fuori90(90 +(D1 - 1))
               Sest(5) = D2
               Sest(6) = Fuori90(D3 + 1)
               EliminaRipetuti Sest
               ImpostaGiocata 1,Sest,Ru,Post,Clp
               Gioca Es
            End If
         End If
      End If
   Next
Next
ScriviResoconto
End Sub


Quarto script

Codice: 
'Nome - Metodo Cabalistico 1F - Autore e Script Salvo50
'Si dispongono gli estratti di una qualsiasi ruota
'a due a due consecutivi anche il quinto col primo,
'di ogni coppia si raddoppia il più piccolo e si formano
'altri 5 numeri, si prosegue finchè tutti e 5 i numeri
'sono uguali, poi si fa più 1 e meno uno di questo numero
'risultante, per avere tre numeri consecutivi,
'dopo si fa lo stesso calcolo col numero più grande
'a formare un'altra terzina, unione delle due terzine a
'formare una sestina. Ricerca per tutte le ruote
Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,Es,OK,K1,K2,Ruo
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi
   Dim C1,C2,C3,C4,C5,D1,D2,D3,D4,D5
   Dim G1,G2,G3,G4,G5,Clp
   Dim Ru(1),Sest(6),Post(5)
   Scrivi Space(20) & " METODO CABALISTICO 1F - AUTORE E SCRIPT SALVO50"


   Post(2) = 1
   Post(3) = 1
   Post(4) = 1
   Post(5) = 0.05 ' se questa riga va in errore, sostituire il punto con la virgola
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare la sestina? ",Salvo50,6))
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         G1 = Estratto(Es,R1,1) : If G1 > 0 Then
         G2 = Estratto(Es,R1,2)
         G3 = Estratto(Es,R1,3)
         G4 = Estratto(Es,R1,4)
         G5 = Estratto(Es,R1,5)
         OK = 0
         K1 = 0
         A1 = G1 : A2 = G2 : A3 = G3 : A4 = G4 : A5 = G5
         For K1 = 1 To 20
            If A1 < A2 Then B1 = Fuori90(A1 * 2) Else B1 = Fuori90(A2 * 2)
            If A2 < A3 Then B2 = Fuori90(A2 * 2) Else B2 = Fuori90(A3 * 2)
            If A3 < A4 Then B3 = Fuori90(A3 * 2) Else B3 = Fuori90(A4 * 2)
            If A4 < A5 Then B4 = Fuori90(A4 * 2) Else B4 = Fuori90(A5 * 2)
            If A5 < A1 Then B5 = Fuori90(A5 * 2) Else B5 = Fuori90(A1 * 2)
            If(B1 = B2) And(B2 = B3) And(B3 = B4) And(B4 = B5) Then OK = 1
            If OK = 1 Then Exit For
            A1 = B1 : A2 = B2 : A3 = B3 : A4 = B4 : A5 = B5
         Next
         If OK = 1 Then
            C1 = G1 : C2 = G2 : C3 = G3 : C4 = G4 : C5 = G5
            K2 = 0
            For K2 = 1 To 40
               If C1 > C2 Then D1 = Fuori90(C1 * 2) Else D1 = Fuori90(C2 * 2)
               If C2 > C3 Then D2 = Fuori90(C2 * 2) Else D2 = Fuori90(C3 * 2)
               If C3 > C4 Then D3 = Fuori90(C3 * 2) Else D3 = Fuori90(C4 * 2)
               If C4 > C5 Then D4 = Fuori90(C4 * 2) Else D4 = Fuori90(C5 * 2)
               If C5 > C1 Then D5 = Fuori90(C5 * 2) Else D5 = Fuori90(C1 * 2)
               If(D1 = D2) And(D2 = D3) And(D3 = D4) And(D4 = D5) Then OK = 2
               If OK = 2 Then Exit For
               C1 = D1 : C2 = D2 : C3 = D3 : C4 = D4 : C5 = D5
            Next
            If OK = 2 Then
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
               Scrivi
               Ru(1) = R1
               Sest(1) = Fuori90(90 +(B1 - 1))
               Sest(2) = B2
               Sest(3) = Fuori90(B3 + 1)
               Sest(4) = Fuori90(90 +(D1 - 1))
               Sest(5) = D2
               Sest(6) = Fuori90(D3 + 1)
               EliminaRipetuti Sest
               ImpostaGiocata 1,Sest,Ru,Post,Clp
               Gioca Es
            End If
         End If
      End If
   Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Sono da riprendere il terzo ed il quarto, perchè avevo dimenticato di togliere, il limite di sospendere la ricerca quando si presenta l'ambo, quindi il terzo ed il quarto sono da riprendere, togliendo il limite dell'ambo, anche la ruota di Palermo ha una quaterna
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto