Metodo fortissimo x ambata

Rosanna58 · 27 Giugno 2019

Ciao Rubino, anch'io ho fatto delle prove ed e' perfetto! Grazie di cuore per l'aiuto

solare · 28 Giugno 2019

Spero che qualcuno se magari trova degli ottimi abbinamenti a questo metodo li condivida anche con noi tutti affamati di vincite che purtroppo tardano ad arrivare.
Grazie ancora al bravo Rubino.

solare · 28 Giugno 2019

Ciao Rubino, Ho notato che nella selezione decine naturali considera es. 60.....69 anziché 61...…...70.
60....69 dovrebbe far parte della decina cabalistica...

Rubino · 28 Giugno 2019

Facendo la scelta D
lo script esegue la decina cabalistica
se stampa in output decina naturale e' un errore di scrittura ma non di calcolo

lo script e' impostato sulla decina cabalistica come d accordo con solare fin dell inizio.

non esegue nessun calcolo sulla decina naturale

Ho inserito le figure e cadenze comenuovi calcoli

più tardi modifico le scritte errate in output.

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=DecCab 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 Cabalistica",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) - 1
   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

solare · 28 Giugno 2019

OK grazie

montecarlo7 · 28 Giugno 2019

Chi riesce può sempre nei limiti del possibile inserire una previsione, ringrazio in anticipo a ch potrà. Buona serata a tutti.

Rubino · 28 Giugno 2019

ormai siamo a fine mese, manca un colpo + 1 della prima estrazione del mese nuovo.

per questi 2 colpi a mio avviso c'è la terzina a GENOVA 73 74 78 che deve dare almeno 1 estratto, altrimenti chiuderà in negativo

avvenuta l'estrazione 1 del mese, si avranno le terzine per il mese nuovo.

poi non so, non ho guardato per il momento come fare previsioni precise con questo metodo.

sicuramente gli altri sono più preparati perchè il metodo lo conoscevano gia.

montecarlo7 · 28 Giugno 2019

Ti ringrazio di cuore per la risposta ok giochiamo queste ambate e poi attendiamo altre previsioni, un caro saluto Felice.

montecarlo7 · 28 Giugno 2019

Ti ringrazio Rubino per la tempestiva risposta, va bene allora attendiamo prox previsione. Un caro saluto Felice

solare · 28 Giugno 2019

Ciao montecarlo7, come ti ha già spiegato Rubino, l'unica terzina ancora vergine è 73-74-78. Io posso dire la mia constatazione che spesso esce l'ambo con uno dei laterali. In questo caso si potrebbe giocare 3 terzine. 72-73-74 / 73-74-75 / 77-78-79

Rubino · 28 Giugno 2019

se il ragionamento che ho fatto è giusto, e non risulterà negativa, questo al momento non lo sa nessuno

arriverà il 74 secco. o il suo laterale 75

probabile in 1 o 4 posizione

se deve sfogare l'ambo la quartina 72 75 71 74 è ottimale

boris · 29 Giugno 2019

Buongiorno, copiando il script si blocca a questo punto, chiedo se mi potete aiutare grazie
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)

Rubino · 29 Giugno 2019

Facendo copia e incollA ti si e' formato uno spazio nella parola fine della riga
che hai postato.
togli quel blank

Penso che il motivo sia quello altrimenti non saprei

ricordo inoltre che per avere tutti i dati giusti in Output e' necessario. Impostare l archivio sull ultima estrazione del mese.

in questo caso e' maggio

si hanno le previsioni che interessano giugno

cosi dopo l estrazione di questa sera bisognera' spostare l archivio al 30 giugno
per avere le terzine in previsione per luglio

boris · 29 Giugno 2019

ringazio per la risposta, non ho dimestichezza col computer e codici script, ho spaziometria aggiornato,
....quel toglio blank...... non so cosa togliere . funzionano quelle precedenti va bene cosi se è difficile
buona giornata

Rubino · 29 Giugno 2019

Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,f ine,,apos)

per boris

come si vede in mezzo alla parola fine c e uno spazio
devi eliminare lo spazio vuoto che si è formato con Il copia incolla

boris · 30 Giugno 2019

capito, grazie Rubino

Asot · 2 Luglio 2019

Ciao a rubino e solare, visto che di script non ne capisco Nulla chiedo gentilmente se qualcuno può mettere le previsioni per ambate per il mese di luglio

solare · 5 Luglio 2019

Ciao Asot, eccoti le ambate di luglio .

BA 40-42-44...………40 al 2 colpo
CA 50-52-56...……...56 al 1 colpo…….50 al 3 colpo
FI 83-84-86
GE 21-23-28...…..23 al 4 colpo
MI 65-67-69...….65-67 ambo secco al 5 colpo
NA 03-07-09......7 al 5 colpo
PA 33-35-38...…….33 al 2 colpo
RO 42-45-46
TO 01-05-09...……..9 al 1 colpo
VE 61-62-66...……..61 al 3 colpo
NZ 22-25-26...…….22 al 2 colpo…….22 al 5 colpo

Asot · 6 Luglio 2019

Grazie solare

queste ambate vanno in gioco dalla prima estrazione del mese di luglio?

solare · 6 Luglio 2019

Metodo fortissimo x ambata

Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Advanced Member

Rubino

Guest

Advanced Member

Rubino

Guest

Advanced Member

Banned

Advanced Member >PLATINUM<

Banned

Advanced Member >PLATINUM<