Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 ha scritto:
Ciao a Tutti

Codice: 
'Sal a Me servirebbe uno script che cerchi il numero 45 In ogni estrazione
'sulle ruote che vanno da Cagliari a Torino deve trovarsi In 2 à - 3à o 4à
'Posizione e deve essere solo senza duplicati, se lo trova deve sottrarre
'o sommare i numeri isotopi che si trovano nella ruota precedente e nella
'ruota successiva se il numero isotopo è minore di 45 si somma se è maggiore
'si sottrae il 45, il numero ottenuto da questa somma/Differenza va giocato
'come Estratto determinato sulle posizioni laterali sulla ruota dove è stato
'il numero 45 e sulla sua ruota Diametrale
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,E3,Co
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,A1
   Dim Diam_A,Diam_C
   Dim Amba(1),Posta(10),Ruo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10250)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " Somma Diametrali Isotopi in ruote Consecutive proposto da Filippo1963 - SCRIPT Salvo50",1,,4,,3,,1
   Posta(6) = 1
   Posta(10) = 1
   For Es = Ini To FIn
      Co = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Call Ante(Es,R1,P1,A1,Co)
      If Co = 1 Then
         Caso = 0
         For R1 = 2 To 9
            For P1 = 2 To 4
               A = Estratto(Es,R1 - 1,P1)
               B = Estratto(Es,R1,P1)
               C = Estratto(Es,R1 + 1,P1)
               If A > 0 And B = 45 And C > 0 Then
                  Diam_A = Diametrale(A) : Diam_C = Diametrale(C)
                  Amba(1) = Fuori90(Diam_A + Diam_C)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 - 1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1 - 1,P2)
                     If E1 = A Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R1,P3)
                     If E2 = B Then
                        ColoreTesto 1
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 + 1) & " ",1,0
                  For P4 = 1 To 5
                     E3 = Estratto(Es,R1 + 1,P4)
                     If E3 = C Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E3) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(10) & "Il Diametrale di " & Format2(A) & " = " & Format2(Diam_A),1
                  Scrivi Space(10) & "Il Diametrale di " & Format2(C) & " = " & Format2(Diam_C),1
                  Scrivi Space(22) & Format2(Diam_A) & " + " & Format2(Diam_C) & " = " & Format2(Amba(1)),1
                  R2 = RuotaDiametrale(R1)
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub
Function Ante(Es,R1,P1,A1,Co)
   For R1 = 1 To 10
      For P1 = 1 To 5
         A1 = Estratto(Es,R1,P1)
         If A1 = 45 Then Co = Co + 1
      Next
   Next
End Function
Clicca per espandere...
Grazie Tantissimo Salvo50 lo provo subito
 
Ciao a Tutti
Riflettendoci nell'ultimo script, fare i diametrali non serve a niente, il risultato non cambia proprio perché dopo si fa la somma col fuori90, forse ho capito male e doveva essere fatto diversamente.

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,E3,Co
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,A1
   Dim Amba(1),Posta(10),Ruo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10250)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " Somma Isotopi in ruote Consecutive proposto da Filippo 1963 - SCRIPT Salvo50",1,,4,,3,,1
   Posta(6) = 1
   Posta(10) = 1
   For Es = Ini To FIn
      Co = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Call Ante(Es,R1,P1,A1,Co)
      If Co = 1 Then
         Caso = 0
         For R1 = 2 To 9
            For P1 = 2 To 4
               A = Estratto(Es,R1 - 1,P1)
               B = Estratto(Es,R1,P1)
               C = Estratto(Es,R1 + 1,P1)
               If A > 0 And B = 45 And C > 0 Then
                  Amba(1) = Fuori90(A + C)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 - 1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1 - 1,P2)
                     If E1 = A Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R1,P3)
                     If E2 = B Then
                        ColoreTesto 1
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 + 1) & " ",1,0
                  For P4 = 1 To 5
                     E3 = Estratto(Es,R1 + 1,P4)
                     If E3 = C Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E3) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(22) & Format2(A) & " + " & Format2(C) & " = " & Format2(Amba(1)),1
                  R2 = RuotaDiametrale(R1)
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub
Function Ante(Es,R1,P1,A1,Co)
   For R1 = 1 To 10
      For P1 = 1 To 5
         A1 = Estratto(Es,R1,P1)
         If A1 = 45 Then Co = Co + 1
      Next
   Next
End Function
 
Ciao a Tutti

Ciao Everita,

L'ho letto e riletto molte volte ma non sono riuscito a capire il procedimento, l'unica cosa che penso d'aver capito è che alla fine come pronostico ci sono 72 numeri.
Anche se fosse vero quello che dice l'autore che in quei 72 numeri ci sono i 5 estratti futuri, non è semplice azzeccarli.

Comunque anche a farlo per curiosità non posso perché come ho già detto, non ho capito il procedimento dei calcoli, cioè come ha fatto a ricavare i 72 numeri del pronostico.
 
Ultima modifica:
Ciao salvo ho visto un paio di errori nel ricavo dei numeri vertibili , puoi correggere li ho evidenziati in giallo Q.png

Sub Main
Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR,Rr
Dim A,B,C,D,E,F,G,Sp,FInR,FiRr,DeRr,CaRr,Est
Dim H(42),Ru(1),aNum,aNum1,aNum2
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10520)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
Call ScegliRange(Ini,FIn,Ini,FIn)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Scrivi Space(8) & " Il Quaterno Perpetuo Di Fedele Davenal Prima Parte - Script Salvo50",1,,4,,3,,1
Scrivi Space(8) & " Con Modifica Proposta da Ken ",1,,4,,3,,1

aNum = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,_
47,48,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)
aNum1 = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,47,48)
aNum2 = Array(0,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)

For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = IniR To FInR
If R1 = 11 Then R1 = 12
Rr = Estratto(Es,R1,3)
For P1 = 1 To 5
Est = Estratto(Es,R1,P1)
FiRr =(Figura(Rr))
DeRr =(Decina(Rr))
CaRr =(Cadenza(Rr))
Next
Ru(1) = R1
If SerieFreqTurbo(Es,Es,aNum,Ru,1) > 2 Then
If Not Gemello(Rr) And FiRr <> 9 And CaRr <> 9 And CaRr <> 0 And Rr > 10 Then
G = FiRr
A = DeRr : B = CaRr : E = FuoriX(G + A,9)
F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
'PRIMO GRUPPO
H(1) = G & A : H(2) = G & B : H(3) = G & C : H(4) = G & D : H(5) = G & E : H(6) = G & F
H(7) = Vert(H(1)) : H(8) = Vert(H(2)): : H(9) = Vert(H(3)) : H(10) = Vert(H(4))
H(11) = Vert(H(5)) : H(12) = Vert(H(6))
'SECONDO GRUPPO
H(13) = A & B : H(14) = A & C : H(15) = A & D : H(16) = A & E : H(17) = A & F : H(18) = Vert(H(3))
H(19) = Vert(H(14)) : H(20) = Vert(H(15)) : H(21) = Vert(H(16)) : H(22) = Vert(H(17))
'TERZO GRUPPO
H(23) = B & C : H(24) = B & D : H(25) = B & E : H(26) = B & F : H(27) = Vert(H(23))
H(28) = Vert(H(24)) : H(29) = Vert(H(25)) : H(30) = Vert(H(26))
'QUARTO GRUPPO
H(31) = C & D : H(32) = C & E : H(33) = C & F : H(34) = Vert(H(31)): H(35) = Vert(H(32)) : H(36) = Vert(H(33))
'QUINTO GRUPPO
H(37) = D & E : H(38) = D & F : H(39) = Vert(H(37)) : H(40) = Vert(H(38))
'SESTO GRUPPO
H(41) = E & F : H(42) = Vert(H(41))
'
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = Rr Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
If Es < FIn Then
Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,,,1
End If
Scrivi
Scrivi Space(12) & String(71,"-"),1
Scrivi Space(24) & "Almeno 3 degli estratti sono in questi numeri",1
Scrivi Space(12) & StringaNumeri(aNum1," ",True),1
Scrivi Space(12) & StringaNumeri(aNum2," ",True),1
Scrivi Space(12) & String(71,"-"),1
Scrivi

Scrivi Space(8) & "A=" & A & Space(3) & "B=" & B & Space(13) & "A = Decina 3° Estratto -- B = Cadenza 3° Estratto",1,,,1,3
Scrivi
Scrivi Space(6) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F & Space(9) & "E = G + A -- G = Figura 3° Estratto -- F = G + B",1,,,2,3
Scrivi
Scrivi Space(8) & "C=" & C & Space(3) & "D=" & D & Space(13) & "C = G + E -- D = G + F",1,,,1,3
Scrivi

'Visualizzazione primo gruppo sopra
Scrivi "Accoppiamento delle 7 cifre",1,0,,1
Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)),1,0,,2
Scrivi Sp & Format2(H(4)) & Sp & Format2(H(5)) & Sp & Format2(H(6)),1,0,,2
'Visualizzazione secondo gruppo sopra
Scrivi Space(1) & Sp & Format2(H(13)) & Sp & Format2(H(14)) & Sp & Format2(H(15)),1,0,,1
Scrivi Sp & Format2(H(6)) & Sp & Format2(H(17)),1,0,,1
'Visualizzazione terzo gruppo sopra
Scrivi Space(1) & Sp & Format2(H(23)) & Sp & Format2(H(24)) & Sp & Format2(H(25)),1,0,,2
Scrivi Sp & Format2(H(26)),1,0,,2
'visualizzazione quarto gruppo sopra
Scrivi Space(1) & Sp & Format2(H(31)) & Sp & Format2(H(32)) & Sp & Format2(H(33)),1,0,,1
'visualizzazione quinto gruppo sopra
Scrivi Space(1) & Sp & Format2(H(37)) & Sp & Format2(H(38)),1,0,,2
'visualizzazione sesto gruppo sopra
Scrivi Space(1) & Sp & Format2(H(41)),1,,,1
'Visualizzazione primo gruppo sotto
Scrivi "Vertibili Acc. delle 7 cifre",1,0,,1
Scrivi Sp & Format2(H(7)) & Sp & Format2(H(8)) & Sp & Format2(H(9)),1,0,,2
Scrivi Sp & Format2(H(10)) & Sp & Format2(H(11)) & Sp & Format2(H(12)),1,0,,2
'Visualizzazione secondo gruppo sotto
Scrivi Space(1) & Sp & Format2(H(18)) & Sp & Format2(H(19)) & Sp & Format2(H(20)),1,0,,1
Scrivi Sp & Format2(H(21)) & Sp & Format2(H(22)),1,0,,1
'visualizzazione terzo gruppo sotto
Scrivi Space(1) & Sp & Format2(H(27)) & Sp & Format2(H(28)) & Sp & Format2(H(29)) & Sp & Format2(H(30)),1,0,,2
'visualizzazione quarto gruppo sotto
Scrivi Space(1) & Sp & Format2(H(34)) & Sp & Format2(H(35)) & Sp & Format2(H(36)),1,0,,1
'visualizzazione quinto gruppo sotto
Scrivi Space(1) & Sp & Format2(H(39)) & Sp & Format2(H(40)),1,0,,2
'visualizzazione sesto gruppo sotto
Scrivi Space(1) & Sp & Format2(H(42)),1,,,1
Scrivi
EliminaRipetuti H
Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,2
Scrivi StringaNumeri(H," "),1,,,1
If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,3) = 1 Then
L3 = L3 + 1
Scrivi Space(13) & "TERNO",1,,,2,6
End If
If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,4) = 1 Then
L4 = L4 + 1
Scrivi Space(13) & "QUATERNA",1,,,2,6
End If
If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,5) = 1 Then
L5 = L5 + 1
Scrivi Space(13) & "CINQUINA",1,,,2,6
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
If L3 < 1 Then L3 = 0
If L4 < 1 Then L4 = 0
If L5 < 1 Then L5 = 0
Scrivi
Scrivi String(54,"O"),1,,,1,4
If Ruota = 11 Then
Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
Else
Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
End If
Scrivi
Scrivi " Nel periodo selezionato sono usciti " & Format2(L3) & " TERNI",1,,,1,4
Scrivi
Scrivi " Nel periodo selezionato sono uscite " & Format2(L4) & " QUATERNE",1,,,2,4
Scrivi
Scrivi " Nel periodo selezionato sono uscite " & Format2(L5) & " CINQUINE",1,,,1,4
Scrivi String(54,"O"),1,,,2,4
End Sub
 
Ciao a Tutti
Ciao Ken

Hai ragione, me ne ero già accorto e dovevo correggerlo all'origine ma mi è passato di mente
questo è corretto, appena posso correggo anche gli altri

Codice: 
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR,Rr
   Dim A,B,C,D,E,F,G,Sp,FInR,FiRr,DeRr,CaRr,Est
   Dim H(42),Ru(1),aNum,aNum1,aNum2
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10520)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Scrivi Space(8) & " Il Quaterno Perpetuo Di Fedele Davenal Prima Parte - Script Salvo50",1,,4,,3,,1
   Scrivi Space(8) & " Con Modifica Proposta da Ken ",1,,4,,3,,1
   aNum = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,_
   47,48,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)
   aNum1 = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,47,48)
   aNum2 = Array(0,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         Rr = Estratto(Es,R1,3)
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            FiRr =(Figura(Rr))
            DeRr =(Decina(Rr))
            CaRr =(Cadenza(Rr))
         Next
         Ru(1) = R1
         If SerieFreqTurbo(Es,Es,aNum,Ru,1) > 2 Then
            If Not Gemello(Rr) And FiRr <> 9 And CaRr <> 9 And CaRr <> 0 And Rr > 10 Then
               G = FiRr
               A = DeRr : B = CaRr : E = FuoriX(G + A,9)
               F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
               'PRIMO GRUPPO
               H(1) = G & A : H(2) = G & B : H(3) = G & C : H(4) = G & D : H(5) = G & E : H(6) = G & F
               H(7) = Vert(H(1)) : H(8) = Vert(H(2)):  H(9) = Vert(H(3)) : H(10) = Vert(H(4))
               H(11) = Vert(H(5)) : H(12) = Vert(H(6))
               'SECONDO GRUPPO
               H(13) = A & B : H(14) = A & C : H(15) = A & D : H(16) = A & E : H(17) = A & F : H(18) = Vert(H(13))'-----------------
               H(19) = Vert(H(14)) : H(20) = Vert(H(15)) : H(21) = Vert(H(16)) : H(22) = Vert(H(17)) '------------------
               'TERZO GRUPPO
               H(23) = B & C : H(24) = B & D : H(25) = B & E : H(26) = B & F : H(27) = Vert(H(23))
               H(28) = Vert(H(24)) : H(29) = Vert(H(25)) : H(30) = Vert(H(26))
               'QUARTO GRUPPO
               H(31) = C & D : H(32) = C & E : H(33) = C & F : H(34) = Vert(H(31)): H(35) = Vert(H(32)) : H(36) = Vert(H(33))
               'QUINTO GRUPPO
               H(37) = D & E : H(38) = D & F : H(39) = Vert(H(37)) : H(40) = Vert(H(38))
               'SESTO GRUPPO
               H(41) = E & F : H(42) = Vert(H(41))
               '
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = Rr Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               If Es < FIn Then
                  Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,,,1
               End If
               Scrivi
               Scrivi Space(12) & String(71,"-"),1
               Scrivi Space(24) & "Almeno 3 degli estratti sono in questi numeri",1
               Scrivi Space(12) & StringaNumeri(aNum1," ",True),1
               Scrivi Space(12) & StringaNumeri(aNum2," ",True),1
               Scrivi Space(12) & String(71,"-"),1
               Scrivi
               Scrivi Space(8) & "A=" & A & Space(3) & "B=" & B & Space(13) & "A = Decina 3° Estratto -- B = Cadenza 3° Estratto",1,,,1,3
               Scrivi
               Scrivi Space(6) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F & Space(9) & "E = G + A -- G = Figura 3° Estratto -- F = G + B",1,,,2,3
               Scrivi
               Scrivi Space(8) & "C=" & C & Space(3) & "D=" & D & Space(13) & "C = G + E -- D = G + F",1,,,1,3
               Scrivi
               'Visualizzazione primo gruppo sopra
               Scrivi " Accoppiamento delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)),1,0,,2
               Scrivi Sp & Format2(H(4)) & Sp & Format2(H(5)) & Sp & Format2(H(6)),1,0,,2
               'Visualizzazione secondo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(13)) & Sp & Format2(H(14)) & Sp & Format2(H(15)),1,0,,1
               Scrivi Sp & Format2(H(16)) & Sp & Format2(H(17)),1,0,,1
               'Visualizzazione terzo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(23)) & Sp & Format2(H(24)) & Sp & Format2(H(25)),1,0,,2
               Scrivi Sp & Format2(H(26)),1,0,,2
               'visualizzazione quarto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(31)) & Sp & Format2(H(32)) & Sp & Format2(H(33)),1,0,,1
               'visualizzazione quinto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(37)) & Sp & Format2(H(38)),1,0,,2
               'visualizzazione sesto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(41)),1,,,1
               'Visualizzazione primo gruppo sotto
               Scrivi "Vertibili Acc. delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(7)) & Sp & Format2(H(8)) & Sp & Format2(H(9)),1,0,,2
               Scrivi Sp & Format2(H(10)) & Sp & Format2(H(11)) & Sp & Format2(H(12)),1,0,,2
               'Visualizzazione secondo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(18)) & Sp & Format2(H(19)) & Sp & Format2(H(20)),1,0,,1
               Scrivi Sp & Format2(H(21)) & Sp & Format2(H(22)),1,0,,1
               'visualizzazione terzo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(27)) & Sp & Format2(H(28)) & Sp & Format2(H(29)) & Sp & Format2(H(30)),1,0,,2
               'visualizzazione quarto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(34)) & Sp & Format2(H(35)) & Sp & Format2(H(36)),1,0,,1
               'visualizzazione quinto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(39)) & Sp & Format2(H(40)),1,0,,2
               'visualizzazione sesto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(42)),1,,,1
               Scrivi
               EliminaRipetuti H
               Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,2
               Scrivi StringaNumeri(H," "),1,,,1
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,3) = 1 Then
                  L3 = L3 + 1
                  Scrivi Space(13) & "TERNO",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,4) = 1 Then
                  L4 = L4 + 1
                  Scrivi Space(13) & "QUATERNA",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,5) = 1 Then
                  L5 = L5 + 1
                  Scrivi Space(13) & "CINQUINA",1,,,2,6
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   If L3 < 1 Then L3 = 0
   If L4 < 1 Then L4 = 0
   If L5 < 1 Then L5 = 0
   Scrivi
   Scrivi String(54,"O"),1,,,1,4
   If Ruota = 11 Then
      Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
   Else
      Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
   End If
   Scrivi
   Scrivi " Nel periodo selezionato sono usciti " & Format2(L3) & " TERNI",1,,,1,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite " & Format2(L4) & " QUATERNE",1,,,2,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite " & Format2(L5) & " CINQUINE",1,,,1,4
   Scrivi String(54,"O"),1,,,2,4
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 febbraio 2025
    Bari
    72
    78
    23
    39
    06
    Cagliari
    18
    02
    32
    45
    07
    Firenze
    77
    37
    02
    57
    36
    Genova
    28
    24
    46
    21
    90
    Milano
    01
    85
    25
    39
    86
    Napoli
    26
    08
    90
    31
    34
    Palermo
    49
    81
    73
    87
    38
    Roma
    47
    74
    01
    11
    40
    Torino
    32
    41
    15
    07
    46
    Venezia
    33
    10
    59
    79
    30
    Nazionale
    03
    73
    16
    65
    04
    Estrazione Simbolotto
    Cagliari
    24
    15
    40
    05
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto