Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Ciao salvo50 , potresti cortesemente correggere questo script sul Byron creato da Robbe ?
Mi dà il seguente errore :
Errore script!
1024-Prevista istruzione
Linea : 81
Colonna : 0
Source: Errore di compilazione di Microsoft VBScript


Scrivi "==================== il BYRON di ROBBE ================================================================="
Dim ruota(1),ruote(1),numeri(2),posta(10),poste(2),n1(1),n2(1)
posta(1)=1 : posta(2)=1 : colpiambate=18 : colpiambo=18 : poste(1)=0 : poste(2)=1
numero=CInt(InputBox("Numero dell'estrazione che si vuole analizzare ?","ESTRAZIONE",8500))
ruotascelta=CInt(InputBox("La ruota che si vuole analizzare [01..11] ?","RUOTA",11))
EQ1=CInt(InputBox("Introduci il 1°estr.della 1^cinquina [1..90] ?","",90))
EQ2=CInt(InputBox("Introduci il 2°estr.della 1^cinquina [1..90] ?","",90))
EQ3=CInt(InputBox("Introduci il 3°estr.della 1^cinquina [1..90] ?","",90))
EQ4=CInt(InputBox("Introduci il 4°estr.della 1^cinquina [1..90] ?","",90))
EQ5=CInt(InputBox("Introduci il 5°estr.della 1^cinquina [1..90] ?","",90))
EQ6=CInt(InputBox("Introduci il 1°estr.della 2^cinquina[1..90] ?","",90))
EQ7=CInt(InputBox("Introduci il 2°estr.della 2^cinquina [1..90] ?","",90))
EQ8=CInt(InputBox("Introduci il 3°estr.della 2^cinquina [1..90] ?","",90))
EQ9=CInt(InputBox("Introduci il 4°estr.della 2^cinquina [1..90] ?","",90))
EQ10=CInt(InputBox("Introduci il 5°estr.della 2^cinquina [1..90] ?","",90))
estraz=numero
conta=0
Messaggio estraz
If ruotascelta=11 Then ruotascelta=12
r=ruotascelta
ruota(1)=ruotascelta
ruote(1)=11
a1=EQ1
a2=EQ2
a3=EQ3
a4=EQ4
a5=EQ5
b1=EQ6
b2=EQ7
b3=EQ8
b4=EQ9
b5=EQ10
ColoreTesto 0
Scrivi
Scrivi DataEstrazione (estraz)&" "& SiglaRuota (r)&" "& StringaEstratti (estraz,r)
Scrivi
Scrivi Format2(a1)& Space(4)& Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)&_
Format2(a5)
Scrivi Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)& Space(4)& Format2(b4)& Space(4)&_
Format2(b5)
conta=conta+1
s1=Fuori90(a1+a2+a3+a4+a5)
s2=Fuori90(a2+a3+a4+a5+b1)
s3=Fuori90(a3+a4+a5+b1+b2)
s4=Fuori90(a4+a5+b1+b2+b3)
s5=Fuori90(a5+b1+b2+b3+b4)
s6=Fuori90(b1+b2+b3+b4+b5)
sc=Fuori90(s1+s2+s3+s4+s5+s6)
nc=90-sc
xx=Fuori90(b1+nc)
numeri(1)=xx
n1(1)=xx
s7=Fuori90(b2+b3+b4+b5+xx)
sp=Fuori90(s4+s5+s6)
st=Fuori90(s6+s7)
yy=sp-st
If sp<st Then yy=(sp+90)-st
If yy=0 Then yy=90
numeri(2)=yy
n2(1)=yy
ColoreTesto 1
Scrivi
Scrivi "Somma delle somme delle prime sei colonne = "& sc
ColoreTesto 2
Scrivi
Scrivi "Primo Futuro Estratto = "& Format2(xx)
ColoreTesto 2
Scrivi
Scrivi "Quinto Futuro Estratto = "& Format2(yy)
Scrivi
ImpostaGiocata 1,numeri,ruota,posta,colpiambate,2
ImpostaGiocata 2,numeri,ruote,poste,colpiambo,2
Gioca estraz
Scrivi
ColoreTesto 2
Scrivi "==================== il BYRON di ROBBE ==============================================================="
Scrivi
ColoreTesto 0
ScriviResoconto

End Sub
 
salvo50 ha scritto:
Ciao a Tutti.

IL QUATERNO PERPETUO (prima parte) di FEDELE DAVENAL a cura di CARMINE TEDESCO




Il metodo è strutturato in 3 parti, però nonostante la base di partenza è sempre la stessa (l'esagono) alla fine risultano 3 metodi diversi, nelle estrazioni bisogna trovare un numero o più che appartenga a quei 48 numeri con sfondo verde nella prima immagine, e dice che bisogna scegliere l'estratto centrale cioè il terzo, solo se non cè questa condizione si possono prendere anche gli altri estratti, ma io nello script non ho seguito questa regola, praticamente li ho usati tutti non ho guardato se erano centrali o no, anche perchè ho notato che se devono uscire o no, avvengono in qualsiasi posizione.


Nel primo metodo vengono pronosticati 42 numeri, il DAVENAL dice che c'è sempre la QUATERNA, in questo script, dato che i numeri pronosticati sono moltissimi 42, io il controllo lo faccio solo per una estrazione (a colpo) e ho costatato che nonostante ci siano 42 numeri la quaterna non c'è sempre, i colpi negativi sono moltissimi, però dato che la CINQUINA paga molto di più della quaterna, ho inserito anche la ricerca della cinquina, e anche se si verificano molto meno casi della quaterna, diciamo che per quello che viene pagata la cinquina, non ce ne sono poche, 42 numeri sono troppi, però a volte dato che si verificano dei doppioni, questi 42 numeri si riducono anche a meno di 30, ho fatto un controllo visivo per vedere se qualche cinquina era uscita dove si erano i 42 numeri ridotti a meno di 30, ed ho trovato nella ruota di PALERMO estrazione 9024 del 02-07-2015, i 42 numeri ridotti (per via dei doppioni) a 27 numeri, ed era uscita la cinquina, non ho fatto altri controlli visivi.

Nello script alla seconda domanda si può inserire una sola ruota mettendo il rispettivo numero, 1 per Bari, 2 per Cagliari ecc... fino al 10, il numero 11 per tutte le ruote ed il numero 12 per la Nazionale.

Nell'output alla fine ho messo un resoconto per TERNI, QUATERNE E CINQUINE

La seconda e terza parte del metodo non li ho ancora fatti.


Vedi l'allegato 2190031


Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR
   Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,FInR
   Dim H(42),Ru(1)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   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
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            FiEst =(Figura(Est))
            DeEst =(Decina(Est))
            CaEst =(Cadenza(Est))
            If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
               G = FiEst
               A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : 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))
               '
               Ru(1) = R1
               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 = Est 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
               Scrivi Space(27) & "A=" & A & Space(3) & "B=" & B,1,,,1,3
               Scrivi
               Scrivi Space(24) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,,,2,3
               Scrivi
               Scrivi Space(27) & "C=" & C & Space(3) & "D=" & D,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
         Next
      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
Clicca per espandere...
Buongiorno , qualcuno può fare delle modifiche in questo listato .
Bisogna fare si che nella ricerca da mettere in gioco trovi estrazione con 3 o 4 numeri dei 48 e metta nel esagono il 3 estratto.
 
Ultima modifica:
Ciao a Tutti
Ciao Ken
Vedi se è quello che hai chiesto

Codice: 
Option Explicit
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,9000)
   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
 
  • Like
Reazioni: KEN
Ciao Ken

Il titolo di questo topic recita

Script su Metodi Cabalistici, Ciclometrici & C.​


Quindi

No statistica, no ritardi, no frequenze

In questo topic lo ripetuto più di una volta, naturalmente te non puoi saperlo, avresti dovuto leggere tutti i post che sono più di 700
quindi non te ne faccio una colpa, comunque se la tua richiesta la vuoi lasciare qua, fai pure, io non posso aiutarti.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 12 novembre 2024
    Bari
    66
    59
    34
    63
    60
    Cagliari
    41
    79
    87
    82
    90
    Firenze
    25
    43
    01
    40
    47
    Genova
    80
    66
    13
    87
    73
    Milano
    77
    45
    12
    10
    47
    Napoli
    49
    72
    70
    88
    29
    Palermo
    41
    24
    88
    47
    57
    Roma
    28
    26
    67
    89
    17
    Torino
    08
    46
    68
    53
    49
    Venezia
    09
    05
    06
    45
    26
    Nazionale
    52
    72
    36
    58
    74
    Estrazione Simbolotto
    Torino
    23
    43
    12
    08
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto