Metodi Cabalistici

salvo50 · 21 Settembre 2018

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

Aline · 21 Settembre 2018

Ciao puoi mettere i numeri da giocare non capisco grazie

salvo50 · 21 Settembre 2018

Aline;n2131738 ha scritto:
Ciao puoi mettere i numeri da giocare non capisco grazie

Ciao

Palermo 47 - 48 - 49

salvo50 · 22 Settembre 2018

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

miky1979 · 22 Settembre 2018

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

salvo50 · 22 Settembre 2018

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

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

miky1979 · 22 Settembre 2018

Gentilissimo, grazie mille !

miky1979 · 26 Settembre 2018

Bravissimo, ieri sera 17 a Palermo

salvo50 · 26 Settembre 2018

miky1979;n2132404 ha scritto:
Bravissimo, ieri sera 17 a Palermo

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

salvo50 · 26 Settembre 2018

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

Cerca

Cerca

Metodi Cabalistici

salvo50

Advanced Member >PLATINUM PLUS<

Aline

Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

miky1979

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

miky1979

Super Member >PLATINUM<

miky1979

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi