Novità

Metodo fortissimo x ambata

solare

Advanced Member >PLATINUM<
Ciao Rubino, volevo chiederti, se è possibile. Potresti inserire nelle terzine anche la frequenza dei singoli numeri relativa alle ultime 18 estrazioni ?
Penso sia una cosa molto utile per ridurre i numeri da mettere in gioco.
Grazie e buona giornata
 

trivellatomariotretre33

Super Member >PLATINUM<
Ciao Rubino, complimenti per la compilazione del listato e grazie a Solare che lo ha trovato. Effettivamente il ragionamento di solare è valido mi riferisco alla frequenza dei numeri entro le 18 estrazioni precedenti.
 
R

Rubino

Guest
Le presenze le ho messo così, poi fatemi sapere

ho anche inserito come limite la data di fine estrazioni, così da far combaciare bene il fine mese e non avere già i dati del mese in corso
che possono rendere confusione.

per esempio: situazione esatta del listato a fine maggio, inserite l'estrazione 9636 al posto di quella che lo script presenta come default di oggi che è la 9642




Codice:
Option Explicit
Sub Main()
   Dim n,ru,p,est,d,es,i,f,j,retestratti,retidestr,XI,k,mm,aretritardi,aretidestr
   Dim nc,qe,mmaapp,Aanno,cusc,mmu,ne,sel,jh,conta,c,jk,kk,retfre,fine,z
   Dim ar(1),colpo(14)
   ru = InputBox("Ruota di gioco",,1)
   fine = InputBox("fino Estraz.n.",,EstrazioneFin)
   Scrivi "_____________________________________________________________________________"
   Scrivi "Ruota di " & NomeRuota(ru),1
   Scrivi "Ultima estrazione " & fine & " / " & DataEstrazione(fine),1
   Scrivi "_____________________________________________________________________________"
   ar(1) = ru
   '''
   For n = 8945 To fine
      es = n
      If IndiceMensile(n) = 1 Then
         conta = conta + 1
         mm = Mid(DataEstrazione(es),4,2)
         ReDim ambate(20,2),an(25)
         f = 0
         est = ""
         For p = 1 To 5
            est = est & Format2(Estratto(n,ru,p)) & "."
         Next
         d = DecinaCabalistica(Format2(Estratto(n,ru,1)))
         Scrivi "---------------------------------------------------------------------------------------------",1
         Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.Dec.Cab. da  " & d - 1 & "0" & " : " & d - 1 & "9",1
         ColoreTesto(0)
         ReDim nr(25),ambate(90)
         For es = n To n + 13
            mmu = Mid(DataEstrazione(es),4,2)
            If mmu <> mm Then Exit For
            If es > EstrazioneFin Then Exit For
            For i = 1 To 5
               If DecinaCabalistica(Estratto(es,ru,i)) = Int(d) Then
                  ne = Estratto(es,ru,i)
                  ambate(ne) = ambate(ne) + 1
                  f = f + 1
                  nr(f) = ne
               End If
            Next
         Next
         If f >= 2 Then
            Scrivi "con ripetuti..." & StringaNumeri(nr,".")
            sel = "" : j = 0:c = 1
            ReDim ab(25),bc(3)
            For jh = 1 To f
               '''controllo se già esiste
               For kk = 1 To c
                  If nr(jh) = ab(kk) Then
                     Exit For
                  End If
               Next
               '''aggiunge se nuovo
               If Int(ab(kk)) = 0 And Int(nr(jh)) <> Int(ab(kk)) Then
                  c = c + 1
                  ab(c) = nr(jh)
               End If
            Next
            ''prepara combinazione per nuovo mese con ultimi 3 non ripetuti da dx verso sx
            bc(1) = ab(c)
            bc(2) = ab(c - 1)
            bc(3) = ab(c - 2)
            an(1) = bc(1)
            an(2) = bc(2)
            an(3) = bc(3)
            '''carico numeri per prossimo mese arrays (an)
            sel = Format2(an(1)) & "." & Format2(an(2)) & "." & Format2(an(3))
            ''''''
            Scrivi "Senza Ripetuti " & StringaNumeri(ab,".") & "      Tot.Qt numeri.." & c - 1
            ColoreTesto(2)
            Scrivi "---> Ambate per gioco prossimo mese.." & MeseNome(mm + 1) & " ..." & sel,1
            '''verifica esito nel mese in corso
            ColoreTesto(1)
            Call VerificaEsitoTurbo(an,ar,n + 13,1,13,,,,retestratti,retidestr)
            If retestratti <> "" Then
               Scrivi "----> Uscito estratto..." & retestratti & "  al conc." & retidestr & " / " & DataEstrazione(retidestr) & "... colpo n." & retidestr -(n + 12)
               XI = 1
               colpo(retidestr -(n + 12)) = colpo(retidestr -(n + 12)) + 1
            Else
               If Mese(n) = Month(Date) And Anno(n) = Year(Date) Then
                  Scrivi " In creazione combinazione per New Mese ",1
               Else
                  If n > fine Then
                     Scrivi " Esito NEGATIVO  ",1
                     colpo(14) = colpo(14) + 1
                     Exit For
                  End If
                  colpo(14) = colpo(14) + 1
                  Scrivi "Attualmente NEGATIVO ",1
               End If
               ColoreTesto(0)
            End If
         End If
      End If
   Next
   ''''' riepilogo successi per ncolpo
   Scrivi
   ColoreTesto(2)
   Scrivi "Ruota di " & NomeRuota(ru),1
   Scrivi "Periodo da estraz.n.8946 " & DataEstrazione(8946) & " a  " & fine & " / " & DataEstrazione(fine),1
   ColoreTesto(0)
   Scrivi "Riepilogo successi per n.colpo di gioco",1
   For k = 1 To 13
      Scrivi "Colpo n." & Format2(k) & "...Successi..." & colpo(k),1
   Next
   Scrivi "----------   Negativi..." & colpo(14),1
   Scrivi "Combinazioni Totali rintracciate.." & conta,1
   Scrivi
   ColoreTesto(1)
   Scrivi "------Situazione Ciclica Mensile Ultimi Anni -------",1
   Scrivi "Elenca ultime uscite nel Mese degli ultimi anni",1
   ColoreTesto(0)
   ReDim atitoli2(5),avalori2(5)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " Estratti "
   atitoli2(2) = " Ruota "
   atitoli2(3) = " In gioco "
   atitoli2(4) = " UsciteAnniPrec."
   atitoli2(5) = " Pres.Totali 18E"
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,1,"center",1.4,5,"Cambria")
   avalori2(1) = StringaNumeri(an,".")
   avalori2(2) = SiglaRuota(ru)
   avalori2(3) = MeseNome(mm + 1)
   '''ricerca uscite estratti stesso mese nei 3 anni precedenti
   Call ElencoRitardiTurbo(an,ar,1,fine -(156*4),fine - 50,aretritardi,aretidestr)
   nc = UBound(aretritardi)
   Scrivi "Periodo:" & fine -(156*4) & " :  " & fine
   For qe = 1 To nc
      mmaapp = Mid(DataEstrazione(aretidestr(qe)),4,2)
      Aanno = Mid(DataEstrazione(aretidestr(qe)),7,4)
      If Int(mm + 1) = Int(mmaapp) Then
         cusc = cusc + 1
         Scrivi "Estratti In gioco " & StringaNumeri(an,".") & "  Mese.." & Int(mm + 1) & "...anno..." & Aanno & " Uscite..." & cusc,1
      End If
   Next
   avalori2(4) = cusc
   '''calcola presenze
   Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,fine - 18,fine)
   avalori2(5) = retfre
   Call AddRigaTabella(avalori2,Bianco_,"center",1)
   Call CreaTabella
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''' seconda tabella
   ReDim atitoli(4),avalori(4)
   ' preimposto i titoli delle colonne
   atitoli(1) = " Estratti Combin.Decina Cab. "
   atitoli(2) = " Ruota /  Rilevati "
   atitoli(3) = " Pres.Tot.18E "
   atitoli(4) = " Pres.Tot.36E "
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli,2,"center",1.4,5,"Cambria")
   avalori(1) = StringaNumeri(ab,".")
   avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
   '''calcola presenze
   Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 18,fine)
   avalori(3) = retfre
   Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 36,fine)
   avalori(4) = retfre
   Call AddRigaTabella(avalori,Bianco_,"center",1)
   ''''singoli numeri
   ReDim nn(1)
   For z = 2 To c
      nn(1) = Int(ab(z))
      avalori(1) = Format2(ab(z))
      avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
      Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 18,fine)
      avalori(3) = retfre
      Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 36,fine)
      avalori(4) = retfre
      Call AddRigaTabella(avalori,Bianco_,"center",1)
   Next
   Call CreaTabella
End Sub
 
Ultima modifica di un moderatore:

solare

Advanced Member >PLATINUM<
Grazie Rubino ho provato e funziona beneeee
Il tuo intervento……..magistrale...…...Grazie ancora
 

Alien.

Advanced Premium Member
Ciao riguardando gli script che per caso sarebbe il rragionamento anche per il 10elotto ?Grazie.
 

Serpico 90

Advanced Member
Buon giorno a tutti .....in merito a questo metodo ....avete per caso uno script o altro che ci possa far individuare la posizione determinata?
sarebbe la ciliegina sulla torta.
Grazie Solare, Grazie Rubino. Grazie a Salvo
siete bravi e molto altruisti
COMPLIMENTI A VOI.
Saluti
Serpico
 
R

Rubino

Guest
io ho fatto in questo modo

sul primo prospettino ho calcolato la frequenza totale per posizione dal 1946 ad oggi
ed ho messo il valore medio della frequenza globale dal 1946 ad oggi per ogni posizione

-- sotto tale valore è da considerarsi la terzina da porre in gioco nelle posizioni che si trovano sottomedia


chiedo vostro parere, immediato, perchè devo partire per qualche giorno, altrimenti lo può fare Salvo


Cattura.GIF
 
Ultima modifica di un moderatore:
R

Rubino

Guest
Codice:
Option Explicit
Sub Main()
Dim n,ru,p,est,d,es,i,f,j,retestratti,retidestr,XI,k,mm,aretritardi,aretidestr
Dim nc,qe,mmaapp,Aanno,cusc,mmu,ne,sel,jh,conta,c,jk,kk,retfre,fine,z
Dim ar(1),colpo(14)
ru = InputBox("Ruota di gioco",,1)
fine = InputBox("fino Estraz.n.",,EstrazioneFin)
Scrivi "_________________________________________________ ____________________________"
Scrivi "Ruota di " & NomeRuota(ru),1
Scrivi "Ultima estrazione " & fine & " / " & DataEstrazione(fine),1
Scrivi "_________________________________________________ ____________________________"
ar(1) = ru
'''
For n = 8945 To fine
es = n
If IndiceMensile(n) = 1 Then
conta = conta + 1
mm = Mid(DataEstrazione(es),4,2)
ReDim ambate(20,2),an(25)
f = 0
est = ""
For p = 1 To 5
est = est & Format2(Estratto(n,ru,p)) & "."
Next
d = DecinaCabalistica(Format2(Estratto(n,ru,1)))
Scrivi "---------------------------------------------------------------------------------------------",1
Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.Dec.Cab. da " & d - 1 & "0" & " : " & d - 1 & "9",1
ColoreTesto(0)
ReDim nr(25),ambate(90)
For es = n To n + 13
mmu = Mid(DataEstrazione(es),4,2)
If mmu <> mm Then Exit For
If es > EstrazioneFin Then Exit For
For i = 1 To 5
If DecinaCabalistica(Estratto(es,ru,i)) = Int(d) Then
ne = Estratto(es,ru,i)
ambate(ne) = ambate(ne) + 1
f = f + 1
nr(f) = ne
End If
Next
Next
If f >= 2 Then
Scrivi "con ripetuti..." & StringaNumeri(nr,".")
sel = "" : j = 0:c = 1
ReDim ab(25),bc(3)
For jh = 1 To f
'''controllo se già esiste
For kk = 1 To c
If nr(jh) = ab(kk) Then
Exit For
End If
Next
'''aggiunge se nuovo
If Int(ab(kk)) = 0 And Int(nr(jh)) <> Int(ab(kk)) Then
c = c + 1
ab(c) = nr(jh)
End If
Next
''prepara combinazione per nuovo mese con ultimi 3 non ripetuti da dx verso sx
bc(1) = ab(c)
bc(2) = ab(c - 1)
bc(3) = ab(c - 2)
an(1) = bc(1)
an(2) = bc(2)
an(3) = bc(3)
'''carico numeri per prossimo mese arrays (an)
sel = Format2(an(1)) & "." & Format2(an(2)) & "." & Format2(an(3))
''''''
Scrivi "Senza Ripetuti " & StringaNumeri(ab,".") & " Tot.Qt numeri.." & c - 1
ColoreTesto(2)
Scrivi "---> Ambate per gioco prossimo mese.." & MeseNome(mm + 1) & " ..." & sel,1
'''verifica esito nel mese in corso
ColoreTesto(1)
Call VerificaEsitoTurbo(an,ar,n + 13,1,13,,,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi "----> Uscito estratto..." & retestratti & " al conc." & retidestr & " / " & DataEstrazione(retidestr) & "... colpo n." & retidestr -(n + 12)
XI = 1
colpo(retidestr -(n + 12)) = colpo(retidestr -(n + 12)) + 1
Else
If Mese(n) = Month(Date) And Anno(n) = Year(Date) Then
Scrivi " In creazione combinazione per New Mese ",1
Else
If n > fine Then
Scrivi " Esito NEGATIVO ",1
colpo(14) = colpo(14) + 1
Exit For
End If
colpo(14) = colpo(14) + 1
Scrivi "Attualmente NEGATIVO ",1
End If
ColoreTesto(0)
End If
End If
End If
Next
''''' riepilogo successi per ncolpo
Scrivi
ColoreTesto(2)
Scrivi "Ruota di " & NomeRuota(ru),1
Scrivi "Periodo da estraz.n.8946 " & DataEstrazione(8946) & " a " & fine & " / " & DataEstrazione(fine),1
ColoreTesto(0)
Scrivi "Riepilogo successi per n.colpo di gioco",1
For k = 1 To 13
Scrivi "Colpo n." & Format2(k) & "...Successi..." & colpo(k),1
Next
Scrivi "---------- Negativi..." & colpo(14),1
Scrivi "Combinazioni Totali rintracciate.." & conta,1
Scrivi
ColoreTesto(1)
Scrivi "------Situazione Ciclica Mensile Ultimi Anni -------",1
Scrivi "Elenca ultime uscite nel Mese degli ultimi anni",1
ColoreTesto(0)
ReDim atitoli2(11),avalori2(11)
' preimposto i titoli delle colonne
atitoli2(1) = " Estratti "
atitoli2(2) = " Ruota "
atitoli2(3) = " In gioco "
atitoli2(4) = " UsciteAnniPrec."
atitoli2(5) = " Pres.Totali 18E"
atitoli2(6) = " 1.Pos.Fr.Sto "
atitoli2(7) = " 2.Pos.Fr.Sto "
atitoli2(8) = " 3.Pos.Fr.Sto "
atitoli2(9) = " 4.Pos.Fr.Sto "
atitoli2(10) = " 5.Pos.Fr.Sto "
atitoli2(11) = "MediaGlobTeoFreqPosiz"
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.4,5,"Cambria")
avalori2(1) = StringaNumeri(an,".")
avalori2(2) = SiglaRuota(ru)
avalori2(3) = MeseNome(mm + 1)
'''ricerca uscite estratti stesso mese nei 3 anni precedenti
Call ElencoRitardiTurbo(an,ar,1,fine -(156*4),fine - 50,aretritardi,aretidestr)
nc = UBound(aretritardi)
Scrivi "Periodo:" & fine -(156*4) & " : " & fine
For qe = 1 To nc
mmaapp = Mid(DataEstrazione(aretidestr(qe)),4,2)
Aanno = Mid(DataEstrazione(aretidestr(qe)),7,4)
If Int(mm + 1) = Int(mmaapp) Then
cusc = cusc + 1
Scrivi "Estratti In gioco " & StringaNumeri(an,".") & " Mese.." & Int(mm + 1) & "...anno..." & Aanno & " Uscite..." & cusc,1
End If
Next
avalori2(4) = cusc
'''calcola presenze
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,fine - 18,fine)
avalori2(5) = retfre
''''''''''''''''''''
ReDim apos(1)
apos(1) = 1
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
avalori2(6) = retfre
''''''''''''''''''''
apos(1) = 2
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
avalori2(7) = retfre
''''''''''''''''''''
apos(1) = 3
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
avalori2(8) = retfre
''''''''''''''''''''
apos(1) = 3
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
avalori2(8) = retfre
''''''''''''''''''''
apos(1) = 4
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
avalori2(9) = retfre
''''''''''''''''''''
apos(1) = 5
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
avalori2(10) = retfre
avalori2(11) = Int((fine-3949)/90*3)
Call AddRigaTabella(avalori2,Bianco_,"center",1)
Call CreaTabella
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
'''' seconda tabella
ReDim atitoli(4),avalori(4)
' preimposto i titoli delle colonne
atitoli(1) = " Estratti Combin.Decina Cab. "
atitoli(2) = " Ruota / Rilevati "
atitoli(3) = " Pres.Tot.18E "
atitoli(4) = " Pres.Tot.36E "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli,2,"center",1.4,5,"Cambria")
avalori(1) = StringaNumeri(ab,".")
avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
'''calcola presenze
Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 18,fine)
avalori(3) = retfre
Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 36,fine)
avalori(4) = retfre
Call AddRigaTabella(avalori,Bianco_,"center",1)
''''singoli numeri
ReDim nn(1)
For z = 2 To c
nn(1) = Int(ab(z))
avalori(1) = Format2(ab(z))
avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 18,fine)
avalori(3) = retfre
Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 36,fine)
avalori(4) = retfre
Call AddRigaTabella(avalori,Bianco_,"center",1)
Next
Call CreaTabella
End Sub
 
Ultima modifica di un moderatore:

Serpico 90

Advanced Member
Grazie Rubino.......ora ......solo studio.....e speriamo di poter "colpire e affondare" in posizione determinata
come al solito BRAVO e tante grazie ...
.buon fine settimana e buon riposo.
Saluti
Serpico
 

solare

Advanced Member >PLATINUM<
Ciao rubino, prendendo spunto dal tuo ultimo aggiornamento mi è venuta in mente una cosa, sempre che sia possibile.
Non sarebbe meglio fare la statistica delle posizioni considerando singolarmente i numeri anziché la terzina ?
 
R

Rubino

Guest
Codice:
Option Explicit
Sub Main()
Dim n,ru,p,est,d,es,i,f,j,retestratti,retidestr,XI,k,mm,aretritardi,aretidestr
Dim nc,qe,mmaapp,Aanno,cusc,mmu,ne,sel,jh,conta,c,jk,kk,retfre,fine,z,Sino,pp
Dim ar(1),colpo(14)
ru = InputBox("Ruota di gioco",,1)
fine = InputBox("fino Estraz.n.",,EstrazioneFin)
Scrivi "_____________________________________________ ____ ____________________________"
Scrivi "Ruota di " & NomeRuota(ru),1
Scrivi "Ultima estrazione " & fine & " / " & DataEstrazione(fine),1
Scrivi "_____________________________________________ ____ ____________________________"
ar(1) = ru
'''
For n = 8945 To fine
es = n
If IndiceMensile(n) = 1 Then
conta = conta + 1
mm = Mid(DataEstrazione(es),4,2)
ReDim ambate(20,2),an(25)
f = 0
est = ""
For p = 1 To 5
est = est & Format2(Estratto(n,ru,p)) & "."
Next
d = DecinaCabalistica(Format2(Estratto(n,ru,1)))
Scrivi "---------------------------------------------------------------------------------------------",1
Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.Dec.Cab. da " & d - 1 & "0" & " : " & d - 1 & "9",1
ColoreTesto(0)
ReDim nr(25),ambate(90)
For es = n To n + 13
mmu = Mid(DataEstrazione(es),4,2)
If mmu <> mm Then Exit For
If es > EstrazioneFin Then Exit For
For i = 1 To 5
If DecinaCabalistica(Estratto(es,ru,i)) = Int(d) Then
ne = Estratto(es,ru,i)
ambate(ne) = ambate(ne) + 1
f = f + 1
nr(f) = ne
End If
Next
Next
If f >= 2 Then
Scrivi "con ripetuti..." & StringaNumeri(nr,".")
sel = "" : j = 0:c = 1
ReDim ab(25),bc(3)
For jh = 1 To f
'''controllo se già esiste
For kk = 1 To c
If nr(jh) = ab(kk) Then
Exit For
End If
Next
'''aggiunge se nuovo
If Int(ab(kk)) = 0 And Int(nr(jh)) <> Int(ab(kk)) Then
c = c + 1
ab(c) = nr(jh)
End If
Next
''prepara combinazione per nuovo mese con ultimi 3 non ripetuti da dx verso sx
bc(1) = ab(c)
bc(2) = ab(c - 1)
bc(3) = ab(c - 2)
an(1) = bc(1)
an(2) = bc(2)
an(3) = bc(3)
'''carico numeri per prossimo mese arrays (an)
sel = Format2(an(1)) & "." & Format2(an(2)) & "." & Format2(an(3))
''''''
Scrivi "Senza Ripetuti " & StringaNumeri(ab,".") & " Tot.Qt numeri.." & c - 1
ColoreTesto(2)
Scrivi "---> Ambate per gioco prossimo mese.." & MeseNome(mm + 1) & " ..." & sel,1
'''verifica esito nel mese in corso
ColoreTesto(1)
Call VerificaEsitoTurbo(an,ar,n + 13,1,13,,,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi "----> Uscito estratto..." & retestratti & " al conc." & retidestr & " / " & DataEstrazione(retidestr) & "... colpo n." & retidestr -(n + 12)
XI = 1
colpo(retidestr -(n + 12)) = colpo(retidestr -(n + 12)) + 1
Else
If Mese(n) = Month(Date) And Anno(n) = Year(Date) Then
Scrivi " In creazione combinazione per New Mese ",1
Else
If n > fine Then
Scrivi " Esito NEGATIVO ",1
colpo(14) = colpo(14) + 1
Exit For
End If
colpo(14) = colpo(14) + 1
Scrivi "Attualmente NEGATIVO ",1
End If
ColoreTesto(0)
End If
End If
End If
Next
''''' riepilogo successi per ncolpo
Scrivi
ColoreTesto(2)
Scrivi "Ruota di " & NomeRuota(ru),1
Scrivi "Periodo da estraz.n.8946 " & DataEstrazione(8946) & " a " & fine & " / " & DataEstrazione(fine),1
ColoreTesto(0)
Scrivi "Riepilogo successi per n.colpo di gioco",1
For k = 1 To 13
Scrivi "Colpo n." & Format2(k) & "...Successi..." & colpo(k),1
Next
Scrivi "---------- Negativi..." & colpo(14),1
Scrivi "Combinazioni Totali rintracciate.." & conta,1
Scrivi
ColoreTesto(1)
Scrivi "------Situazione Ciclica Mensile Ultimi Anni -------",1
Scrivi "Elenca ultime uscite nel Mese degli ultimi anni",1
ColoreTesto(0)
ReDim atitoli2(13),avalori2(13)
' preimposto i titoli delle colonne
atitoli2(1) = " Estratti "
atitoli2(2) = " Ruota "
atitoli2(3) = " In gioco "
atitoli2(4) = " UsciteAnniPrec."
atitoli2(5) = " Pres.Totali 18E"
atitoli2(6) = " 1.Pos.Fr.Sto "
atitoli2(7) = " 2.Pos.Fr.Sto "
atitoli2(8) = " 3.Pos.Fr.Sto "
atitoli2(9) = " 4.Pos.Fr.Sto "
atitoli2(10) = " 5.Pos.Fr.Sto "
atitoli2(11) = "MediaGlobTeoFreqPosiz"
atitoli2(12) = " Pos.Prefer "
atitoli2(13) = " Pos.Prefer "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.4,5,"Cambria")
avalori2(1) = StringaNumeri(an,".")
avalori2(2) = SiglaRuota(ru)
avalori2(3) = MeseNome(mm + 1)
'''ricerca uscite estratti stesso mese nei 3 anni precedenti
Call ElencoRitardiTurbo(an,ar,1,fine -(156*4),fine - 50,aretritardi,aretidestr)
nc = UBound(aretritardi)
Scrivi "Periodo:" & fine -(156*4) & " : " & fine
For qe = 1 To nc
mmaapp = Mid(DataEstrazione(aretidestr(qe)),4,2)
Aanno = Mid(DataEstrazione(aretidestr(qe)),7,4)
If Int(mm + 1) = Int(mmaapp) Then
cusc = cusc + 1
Scrivi "Estratti In gioco " & StringaNumeri(an,".") & " Mese.." & Int(mm + 1) & "...anno..." & Aanno & " Uscite..." & cusc,1
End If
Next
avalori2(4) = cusc
'''calcola presenze
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,fine - 18,fine)
avalori2(5) = retfre
'''''Ritardista e/o frequentista Estratti e posizioni determinate
ReDim apos(1),posdet(5,2)
For pp = 1 To 5
apos(1) = pp
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
posdet(pp,1) = retfre
posdet(pp,2) = pp
Next
avalori2(6) = posdet(1,1)
avalori2(7) = posdet(2,1)
avalori2(8) = posdet(3,1)
avalori2(9) = posdet(4,1)
avalori2(10) = posdet(5,1)
''''''''''''''''''''
avalori2(11) = Int((fine - 3949)/90*3)
'''ritardista o frequentista
Call OrdinaMatrice(posdet,- 1)
avalori2(13) = posdet(3,2) & "." & posdet(4,2) & "." & posdet(5,2) & " Ritsta."
avalori2(12) = posdet(1,2) & "." & posdet(2,2) & " Freqsta."
'''
Call AddRigaTabella(avalori2,Bianco_,"center",1)
Call SetColoreCella(6,RGB(226,226,226),vbBlack)
Call SetColoreCella(7,RGB(226,226,226),vbBlack)
Call SetColoreCella(8,RGB(226,226,226),vbBlack)
Call SetColoreCella(9,RGB(226,226,226),vbBlack)
Call SetColoreCella(10,RGB(226,226,226),vbBlack)
Call SetColoreCella(12,RGB(255,185,151),vbBlack)
Call SetColoreCella(13,RGB(255,185,151),vbBlack)
Call CreaTabella
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''
'''' seconda tabella
ReDim atitoli(12),avalori(12)
' preimposto i titoli delle colonne
atitoli(1) = " Estratti Combin.Decina Cab. "
atitoli(2) = " Ruota / Rilevati "
atitoli(3) = " Pres.Tot.18E "
atitoli(4) = " Pres.Tot.36E "
atitoli(5) = " 1.Pos.Fr.Sto "
atitoli(6) = " 2.Pos.Fr.Sto "
atitoli(7) = " 3.Pos.Fr.Sto "
atitoli(8) = " 4.Pos.Fr.Sto "
atitoli(9) = " 5.Pos.Fr.Sto "
atitoli(10) = "MediaGlobTeoFreqPosiz"
atitoli(11) = " Pos.Prefer "
atitoli(12) = " Pos.Prefer "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli,2,"center",1.4,5,"Cambria")
avalori(1) = StringaNumeri(ab,".")
avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
'''calcola presenze
Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 18,fine)
avalori(3) = retfre
Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 36,fine)
avalori(4) = retfre
Call AddRigaTabella(avalori,Bianco_,"center",1)
''''singoli numeri
ReDim nn(1)
For z = 2 To c
nn(1) = Int(ab(z))
avalori(1) = Format2(ab(z))
avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 18,fine)
avalori(3) = retfre
Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 36,fine)
avalori(4) = retfre
'''''Ritardista e/o frequentista Estratti e posizioni determinate
ReDim apos(1),posdet(5,2)
For pp = 1 To 5
apos(1) = pp
Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,3950,fine,,apos)
posdet(pp,1) = retfre
posdet(pp,2) = pp
Next
avalori(5) = posdet(1,1)
avalori(6) = posdet(2,1)
avalori(7) = posdet(3,1)
avalori(8) = posdet(4,1)
avalori(9) = posdet(5,1)
''''''''''''''''''''
avalori(10) = Int((fine - 3949)/90)
'''ritardista o frequentista
Call OrdinaMatrice(posdet,- 1)
avalori(12) = posdet(3,2) & "." & posdet(4,2) & "." & posdet(5,2) & " Ritsta."
avalori(11) = posdet(1,2) & "." & posdet(2,2) & " Freqsta."
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(5,RGB(226,226,226),vbBlack)
Call SetColoreCella(6,RGB(226,226,226),vbBlack)
Call SetColoreCella(7,RGB(226,226,226),vbBlack)
Call SetColoreCella(8,RGB(226,226,226),vbBlack)
Call SetColoreCella(9,RGB(226,226,226),vbBlack)
Call SetColoreCella(11,RGB(255,185,151),vbBlack)
Call SetColoreCella(12,RGB(255,185,151),vbBlack)
Next
Call CreaTabella
End Sub
 
Ultima modifica di un moderatore:

Rosanna58

Member
Ciao a tutti,
ricercando le cadenze o le figure al posto delle decine cabalistiche si ottengono sempre buoni risultati. Qualcuno potrebbe modificare lo script inserendo la possibilita' di scelta? Anche la variazione dell'indice mensile e dell'estratto considerato portano diverse convergenze e abbinamenti per sorti superiori. Grazie per l'aiuto
 
R

Rubino

Guest
per cadenze e figure e decina naturali

Codice:
Option Explicit
Sub Main()
 Dim n,ru,p,est,d,es,i,f,j,retestratti,retidestr,XI,k,mm,aretritardi,aretidestr,scelta
 Dim nc,qe,mmaapp,Aanno,cusc,mmu,ne,sel,jh,conta,c,jk,kk,retfre,fine,z,Sino,pp
 Dim ar(1),colpo(14)
 ru = InputBox("Ruota di gioco",,1)
 fine = InputBox("fino Estraz.n.",,EstrazioneFin)
 scelta = InputBox("D=DecNat F=Fig  C=Cad  ",,"D")
 Scrivi "_____________________________________________ ____ ____________________________"
 Scrivi "Ruota di " & NomeRuota(ru),1
 Scrivi "Ultima estrazione " & fine & " / " & DataEstrazione(fine),1
 If scelta = "D" Then Scrivi "Richiesta Decina Naturale",1
 If scelta = "F" Then Scrivi "Richiesta Figure  ",1
 If scelta = "C" Then Scrivi "Richiesta Cadenze ",1
 Scrivi "_____________________________________________ ____ ____________________________"
 ar(1) = ru
 '''
 For n = 8945 To fine
  es = n
  If IndiceMensile(n) = 1 Then
   conta = conta + 1
   mm = Mid(DataEstrazione(es),4,2)
   ReDim ambate(20,2),an(25)
   f = 0
   est = ""
   For p = 1 To 5
    est = est & Format2(Estratto(n,ru,p)) & "."
   Next
   If scelta = "D" Then d = DecinaCabalistica(Format2(Estratto(n,ru,1)))
   If scelta = "F" Then d = Figura(Estratto(n,ru,1))
   If scelta = "C" Then d = Cadenza(Estratto(n,ru,1))
   Scrivi "---------------------------------------------------------------------------------------------",1
   ColoreTesto(1)
   If scelta = "D" Then Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.Dec.Cab. da " & d - 1 & "0" & " : " & d - 1 & "9",1
   If scelta = "F" Then Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.figura   ( " & d & " ) ",1
   If scelta = "C" Then Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.Cadenza. ( " & d & " ) ",1
   ColoreTesto(0)
   ReDim nr(90),ambate(90)
   For es = n To n + 13
    mmu = Mid(DataEstrazione(es),4,2)
    If mmu <> mm Then Exit For
    If es > EstrazioneFin Then Exit For
    For i = 1 To 5
     If scelta = "D" And DecinaCabalistica(Estratto(es,ru,i)) = Int(d) Then
      ne = Estratto(es,ru,i)
      ambate(ne) = ambate(ne) + 1
      f = f + 1
      nr(f) = ne
     End If
     If scelta = "F" And Figura(Estratto(es,ru,i)) = Int(d) Then
      ne = Estratto(es,ru,i)
      ambate(ne) = ambate(ne) + 1
      f = f + 1
      nr(f) = ne
     End If
     If scelta = "C" And Cadenza(Estratto(es,ru,i)) = Int(d) Then
      ne = Estratto(es,ru,i)
      ambate(ne) = ambate(ne) + 1
      f = f + 1
      nr(f) = ne
     End If
    Next
   Next
   If f >= 2 Then
    Scrivi "con ripetuti..." & StringaNumeri(nr,".")
    sel = "" : j = 0:c = 1
    ReDim ab(25),bc(3)
    For jh = 1 To f
     '''controllo se già esiste
     For kk = 1 To c
      If nr(jh) = ab(kk) Then
       Exit For
      End If
     Next
     '''aggiunge se nuovo
     If Int(ab(kk)) = 0 And Int(nr(jh)) <> Int(ab(kk)) Then
      c = c + 1
      ab(c) = nr(jh)
     End If
    Next
    ''prepara combinazione per nuovo mese con ultimi 3 non ripetuti da dx verso sx
    bc(1) = ab(c)
    bc(2) = ab(c - 1)
    bc(3) = ab(c - 2)
    an(1) = bc(1)
    an(2) = bc(2)
    an(3) = bc(3)
    '''carico numeri per prossimo mese arrays (an)
    sel = Format2(an(1)) & "." & Format2(an(2)) & "." & Format2(an(3))
    ''''''
    Scrivi "Senza Ripetuti " & StringaNumeri(ab,".") & " Tot.Qt numeri.." & c - 1
    ColoreTesto(2)
    Scrivi "---> Ambate per gioco prossimo mese.." & MeseNome(mm + 1) & " ..." & sel,1
    '''verifica esito nel mese in corso
    ColoreTesto(1)
    Call VerificaEsitoTurbo(an,ar,n + 13,1,13,,,,retestratti,retidestr)
    If retestratti <> "" Then
     Scrivi "----> Uscito estratto..." & retestratti & " al conc." & retidestr & " / " & DataEstrazione(retidestr) & "... colpo n." & retidestr -(n + 12)
     XI = 1
     colpo(retidestr -(n + 12)) = colpo(retidestr -(n + 12)) + 1
    Else
     If Mese(n) = Month(Date) And Anno(n) = Year(Date) Then
      Scrivi " In creazione combinazione per New Mese ",1
     Else
      If n > fine Then
       Scrivi " Esito NEGATIVO ",1
       colpo(14) = colpo(14) + 1
       Exit For
      End If
      colpo(14) = colpo(14) + 1
      Scrivi "Attualmente NEGATIVO ",1
     End If
     ColoreTesto(0)
    End If
   End If
  End If
 Next
 ''''' riepilogo successi per ncolpo
 Scrivi
 ColoreTesto(2)
 Scrivi "Ruota di " & NomeRuota(ru),1
 Scrivi "Periodo da estraz.n.8946 " & DataEstrazione(8946) & " a " & fine & " / " & DataEstrazione(fine),1
 ColoreTesto(0)
 Scrivi "Riepilogo successi per n.colpo di gioco",1
 For k = 1 To 13
  Scrivi "Colpo n." & Format2(k) & "...Successi..." & colpo(k),1
 Next
 Scrivi "---------- Negativi..." & colpo(14),1
 Scrivi "Combinazioni Totali rintracciate.." & conta,1
 Scrivi
 ColoreTesto(1)
 Scrivi "------Situazione Ciclica Mensile Ultimi Anni -------",1
 Scrivi "Elenca ultime uscite nel Mese degli ultimi anni",1
 ColoreTesto(0)
 ReDim atitoli2(13),avalori2(13)
 ' preimposto i titoli delle colonne
 atitoli2(1) = " Estratti "
 atitoli2(2) = " Ruota "
 atitoli2(3) = " In gioco "
 atitoli2(4) = " UsciteAnniPrec."
 atitoli2(5) = " Pres.Totali 18E"
 atitoli2(6) = " 1.Pos.Fr.Sto "
 atitoli2(7) = " 2.Pos.Fr.Sto "
 atitoli2(8) = " 3.Pos.Fr.Sto "
 atitoli2(9) = " 4.Pos.Fr.Sto "
 atitoli2(10) = " 5.Pos.Fr.Sto "
 atitoli2(11) = "MediaGlobTeoFreqPosiz"
 atitoli2(12) = " Pos.Prefer "
 atitoli2(13) = " Pos.Prefer "
 ' ' inizializzo la tabella
 SetTableWidth("90%")
 Call InitTabella(atitoli2,1,"center",1.4,5,"Cambria")
 avalori2(1) = StringaNumeri(an,".")
 avalori2(2) = SiglaRuota(ru)
 avalori2(3) = MeseNome(mm + 1)
 '''ricerca uscite estratti stesso mese nei 3 anni precedenti
 Call ElencoRitardiTurbo(an,ar,1,fine -(156*4),fine - 50,aretritardi,aretidestr)
 nc = UBound(aretritardi)
 Scrivi "Periodo:" & fine -(156*4) & " : " & fine
 For qe = 1 To nc
  mmaapp = Mid(DataEstrazione(aretidestr(qe)),4,2)
  Aanno = Mid(DataEstrazione(aretidestr(qe)),7,4)
  If Int(mm + 1) = Int(mmaapp) Then
   cusc = cusc + 1
   Scrivi "Estratti In gioco " & StringaNumeri(an,".") & " Mese.." & Int(mm + 1) & "...anno..." & Aanno & " Uscite..." & cusc,1
  End If
 Next
 avalori2(4) = cusc
 '''calcola presenze
 Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,fine - 18,fine)
 avalori2(5) = retfre
 '''''Ritardista e/o frequentista Estratti e posizioni determinate
 ReDim apos(1),posdet(5,2)
 For pp = 1 To 5
  apos(1) = pp
  Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
  posdet(pp,1) = retfre
  posdet(pp,2) = pp
 Next
 avalori2(6) = posdet(1,1)
 avalori2(7) = posdet(2,1)
 avalori2(8) = posdet(3,1)
 avalori2(9) = posdet(4,1)
 avalori2(10) = posdet(5,1)
 ''''''''''''''''''''
 avalori2(11) = Int((fine - 3949)/90*3)
 '''ritardista o frequentista
 Call OrdinaMatrice(posdet,- 1)
 avalori2(13) = posdet(3,2) & "." & posdet(4,2) & "." & posdet(5,2) & " Ritsta."
 avalori2(12) = posdet(1,2) & "." & posdet(2,2) & " Freqsta."
 '''
 Call AddRigaTabella(avalori2,Bianco_,"center",1)
 Call SetColoreCella(6,RGB(226,226,226),vbBlack)
 Call SetColoreCella(7,RGB(226,226,226),vbBlack)
 Call SetColoreCella(8,RGB(226,226,226),vbBlack)
 Call SetColoreCella(9,RGB(226,226,226),vbBlack)
 Call SetColoreCella(10,RGB(226,226,226),vbBlack)
 Call SetColoreCella(12,RGB(255,185,151),vbBlack)
 Call SetColoreCella(13,RGB(255,185,151),vbBlack)
 Call CreaTabella
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''
 '''' seconda tabella
 ReDim atitoli(12),avalori(12)
 ' preimposto i titoli delle colonne
 atitoli(1) = " Estratti Combinazioni "
 atitoli(2) = " Ruota / Rilevati "
 atitoli(3) = " Pres.Tot.18E "
 atitoli(4) = " Pres.Tot.36E "
 atitoli(5) = " 1.Pos.Fr.Sto "
 atitoli(6) = " 2.Pos.Fr.Sto "
 atitoli(7) = " 3.Pos.Fr.Sto "
 atitoli(8) = " 4.Pos.Fr.Sto "
 atitoli(9) = " 5.Pos.Fr.Sto "
 atitoli(10) = "MediaGlobTeoFreqPosiz"
 atitoli(11) = " Pos.Prefer "
 atitoli(12) = " Pos.Prefer "
 ' ' inizializzo la tabella
 SetTableWidth("90%")
 Call InitTabella(atitoli,2,"center",1.4,5,"Cambria")
 avalori(1) = StringaNumeri(ab,".")
 avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
 '''calcola presenze
 Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 18,fine)
 avalori(3) = retfre
 Call StatisticaFormazioneTurbo(ab,ar,1,,,,retfre,fine - 36,fine)
 avalori(4) = retfre
 Call AddRigaTabella(avalori,Bianco_,"center",1)
 ''''singoli numeri
 ReDim nn(1)
 For z = 2 To c
  nn(1) = Int(ab(z))
  avalori(1) = Format2(ab(z))
  avalori(2) = SiglaRuota(ar(1)) & " / " & MeseNome(mm)
  Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 18,fine)
  avalori(3) = retfre
  Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,fine - 36,fine)
  avalori(4) = retfre
  '''''Ritardista e/o frequentista Estratti e posizioni determinate
  ReDim apos(1),posdet(5,2)
  For pp = 1 To 5
   apos(1) = pp
   Call StatisticaFormazioneTurbo(nn,ar,1,,,,retfre,3950,fine,,apos)
   posdet(pp,1) = retfre
   posdet(pp,2) = pp
  Next
  avalori(5) = posdet(1,1)
  avalori(6) = posdet(2,1)
  avalori(7) = posdet(3,1)
  avalori(8) = posdet(4,1)
  avalori(9) = posdet(5,1)
  ''''''''''''''''''''
  avalori(10) = Int((fine - 3949)/90)
  '''ritardista o frequentista
  Call OrdinaMatrice(posdet,- 1)
  avalori(12) = posdet(3,2) & "." & posdet(4,2) & "." & posdet(5,2) & " Ritsta."
  avalori(11) = posdet(1,2) & "." & posdet(2,2) & " Freqsta."
  Call AddRigaTabella(avalori,Bianco_,"center",1)
  Call SetColoreCella(5,RGB(226,226,226),vbBlack)
  Call SetColoreCella(6,RGB(226,226,226),vbBlack)
  Call SetColoreCella(7,RGB(226,226,226),vbBlack)
  Call SetColoreCella(8,RGB(226,226,226),vbBlack)
  Call SetColoreCella(9,RGB(226,226,226),vbBlack)
  Call SetColoreCella(11,RGB(255,185,151),vbBlack)
  Call SetColoreCella(12,RGB(255,185,151),vbBlack)
 Next
 Call CreaTabella
End Sub
 
R

Rubino

Guest
controllate per cortesia che sia tutto giusto

e segnalate solo in caso di discrepanze riscontrate.

grazie
 

solare

Advanced Member >PLATINUM<
Ciao Rubino, io ho fatto delle prove è sembra essere perfetto.
Anche questo lo hai fatto diventare un capolavoro….Complimenti ancora...Buona serata
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto