Novità

Metodo fortissimo x ambata

R

Rubino

Guest
ciao solare

non ho avuto tempo di guardare anch io, ma le posizioni come vanno?
 

solare

Advanced Member >PLATINUM<
Ciao Rubino, per quanto riguarda l'estratto determinato guardando la tua statistica inserita nello script secondo me i più attendibili sono le posizioni più scompensate. Se si riuscisse a trovare qualcosa di forte per la posizione sarebbe una bomba. Pensa che nel mese di Giugno questo metodo ha sfornato 21 ambate. Se mi viene in mente qualcosa "Facendo delle prove" magari si può implementare lo script
 

solare

Advanced Member >PLATINUM<
E
cco 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 ancora 7 al 6 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 ancora 22 al 6 colpo
 
R

Rubino

Guest
Attenzione Roma !

c'è anche un bel 42 21 secco.


Attenzione FIRENZE 83 84 (2x1)
 
Ultima modifica di un moderatore:

Serpico 90

Advanced Member
ciao ...io giocherei a FIRENZE 86 in 1° 4° posizione determinata ............
Grazie del lavoro che state facendo ......
buona serata
 

solare

Advanced Member >PLATINUM<
AGGIORNAMENTO del mese 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 …...86 al 13 colpo

GE 21-23-28...…..23 al 4 colpo

MI 65-67-69...….65-67 ambo secco al 5 colpo 8 colpo 69

NA 03-07-09......7 al 5 colpo ancora 7 al 6 colpo

PA 33-35-38...…….33 al 2 colpo

RO 42-45-46 8 colpo 45

TO 01-05-09...……..9 al 1 colpo 8 colpo 9

VE 61-62-66...……..61 al 3 colpo

NZ 22-25-26...…….22 al 2 colpo…….22 al 5 colpo ancora 22 al 6 colpo all'ottavo colpo ambo 22-26
 
Ultima modifica:

Serpico 90

Advanced Member
Buongiorno Solare....sempre complimenti per questo metodo....
..speriamo di trovare qualcosa che ci fa individuare la posizione determinata ......
Saluti
Serpico
 

solare

Advanced Member >PLATINUM<
PER TUTTO IL MESE DI AGOSTO:

BA 02-04-09 al 3 colpo 2 al 4 colpo ambata 4
CA 50-57-59
FI 50-52-54 AL 1 COLPO AMBO 52-54 al 4 colpo ancora ambata 52
GE 50-52-55
MI 26-27-29 AL 1 COLPO 29
NA 32-34-35
PA 74-78-79 AL 1 COLPO 79
RO 60-64-65 al 4 colpo 60
TO 31-33-34
VE 50-54-58
NZ 25-26-29
 
Ultima modifica:
R

Rubino

Guest
Ciaodalle osservazioni visive
essendo uscito il 27 a cagluari come primo estratto alla prima del mese
bisogna abbinare la terzina 50 57 59 con numeri
della ventina per sorte ambo e terno

o comunque i numeri della ventina che avete da altri metodi. Sono da riternersi forti a cagliari.

ciao
le pos.det 3 4 5 per la terzina
 

Asot

Banned
Rubino;n2183906 ha scritto:
Ciaodalle osservazioni visive
essendo uscito il 27 a cagluari come primo estratto alla prima del mese
bisogna abbinare la terzina 50 57 59 con numeri
della ventina per sorte ambo e terno

o comunque i numeri della ventina che avete da altri metodi. Sono da riternersi forti a cagliari.

ciao
le pos.det 3 4 5 per la terzina

Grazie rubino :Dda metodo ho il 59 secco su Cagliari, della ventina ho il 21 e il 29.

Mentre per bari che è uscito il 10,teniamo in considerazione solo i numeretti ?
 
R

Rubino

Guest
Essendo la decinacabalistica quella che conta
a bari andrebbe valutata la 10:19
poi siccome il mese scorso sono usciti molti numeri
di questa decina. C e da stare un po attenti
si puo ripetere qualcuno di quelli usciti
ma non e detto .
non so ma mi ispira di piu cagliari.
 

solare

Advanced Member >PLATINUM<
Ciao RUBINO
ben tornato. Appena puoi potresti aggiungere a questo listato la richiesta di elaborare alla 1, 2 ,3 ecc del mese ?
Grazie
 

solare

Advanced Member >PLATINUM<
PER TUTTO IL MESE DI AGOSTO:

BA 02-04-09
3 colpo 2 - al 4 colpo ambata 4 - ottavo colpo 2
CA 50-57-59
5 colpo 57
FI 50
-
52-54
1 COLPO AMBO 52-54 - al 4 colpo ancora ambata 52
GE 50-52-55
MI 26-27
-29
1 COLPO 29 6 colpo 26
NA 32-34-35
PA 74-78
-79
1 COLPO 79
RO 60-64-65
4
colpo 60
TO 31-33-34
5 e 6 colpo 33 - 7 colpo 31
VE 50-54-58
NZ 25-26-29
6 colpo 29
 
R

Rubino

Guest
domanda :
era questo script l'ultima versione, è quello postato a pag.5

ho messo l'indice mensile da poter scegliere



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,ix
   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")
   ix = CInt(InputBox("Indice mensile 1:13",,1))
   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 "Indice Mensile Richiesto...." & ix,1
   Scrivi "_____________________________________________ ____ ____________________________"
   ar(1) = ru
   '''
   For n = 8945 To fine
      es = n
      If IndiceMensile(n) = ix 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
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto