Novità

Metodo Firenze Effetto Speciale

Imaging

Advanced Member >PLATINUM<
Firenze
Data inizio Ricerca: 28/2/2017
Data fine Ricerca: 27/2/2021
Ruota di Ricerca: Fi
Ruota/e di Gioco: Fi
Colpi di gioco: 9
Combinazioni in gioco: 1 ambata + 1 ambi secchi + Lunghetta
Estrazione di calcolo: 12ª estrazione mensile

Previsioni Giocabili: 47
Previsioni Vincenti: 26(55,32%)
Previsioni Negative: 20(44,68%)
Previsioni in Gioco: 1
Ambate vinte: 26 (100%)
Ambi secchi vinti: 4 (20%)
Ambi in lunghetta vinti: 4 (20%)
Terni in lunghetta vinti: 0 (0%)
Quaterne in lunghetta vinte: 0 (0%)
Cinquine in lunghetta vinte: 0 (0%)
Tempo medio di attesa: 4,4
Calcolo delle combinazioni:
Ambata: 3° di Fi x 3° di Naz
Numeri fissi da abbinare per ambo: 50
Lunghetta: ambata + abbinamenti per ambo

Attenzione:
- Si è applicata la regola del fuori 90
Previsione n°1
Inizio di gioco: Prossima estrazione
Colpi ancora in gioco: 9
Ruota\e di gioco: Fi
Ambata da giocare: 46
Ambi da giocare: 46-50
Lunghetta per sorti superiori: 46-50-5-64
 
  • Like
Reazioni: NEM
Ciao a tutti,
ecco lo script per chi fosse interessato:
Codice:
Sub Main
   ' https://forum.lottoced.com/threads/metodo-firenze-effetto-speciale.2199081/
   ColoreTesto 0
   Scrivi "                            Metodo FIRENZE EFFETTO SPECIALE di IMAGING -- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/metodo-firenze-effetto-speciale.2199081/",1
   Scrivi
   ColoreTesto 0
   Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2,Abb3
   Dim Ambata1(1),ambo1(2),ambo2(2),Terzina1(3),Quartina1(4)
   Dim PostaABT(1),PostaA(2),PostaT(3),PostaQ(4),Fi3,Nz3,Fi3Nz3
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",160))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IndiceMensile(es) = 12 Then
         R1 = 3
         Fi3 = Estratto(es,R1,3)
         Nz3 = Estratto(es,NZ_,3)
         '______________________________________
         Cap = Fuori90(Fi3*Nz3)
         Abb1 = 50
         Abb2 = 5
         Abb3 = Vert(Cap)
         If Abb1 = Cap Then Abb1 = Abb1 + 1
         If Abb2 = Cap Then Abb2 = Abb2 + 1
         If Abb3 = Cap Then Abb3 = Abb3 + 1
         If Abb2 = Abb1 Then Abb2 = Abb2 + 1
         If Abb3 = Abb1 Then Abb3 = Abb3 + 1
         If Abb3 = Abb2 Then Abb3 = Abb3 + 1
         Fi3Nz3=Fi3*Nz3
         RuoABT(1) = R1
         ruo(1) = R1
         'ruo(2) = TT_
         'ruo(3) = NZ_
         PostaABT(1) = 2
         PostaA(2) = 1
        ' PostaT(2) = 0.8
         'PostaT(3) = 0.2
         PostaQ(2) = 1.6
         PostaQ(3) = 0.3
         PostaQ(4) = 0.1
         k = 13
         Ambata1(1) = Cap
         ImpostaGiocata 1,Ambata1,RuoABT,PostaABT,k,1
         ambo1(1) = Cap
         ambo1(2) = Abb1
         ImpostaGiocata 2,ambo1,ruo,PostaA,k
         ambo2(1) = Cap
         ambo2(2) = Abb2
         'ImpostaGiocata 3,ambo2,ruo,PostaA,k
         Quartina1(1) = Cap
         Quartina1(2) = Abb1
         Quartina1(3) = Abb2
         Quartina1(4) = Abb3
         ImpostaGiocata 4,Quartina1,ruo,PostaQ,k,3
         caso = 0
         casi = casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P5 = 1 To 5
            E1 = Estratto(Es,R1,P5)
            If E1 = Fi3 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(NZ_) & " ",1,0
         For P6 = 1 To 5
            E2 = Estratto(Es,NZ_,P6)
            If E2 = Nz3 Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi String(70,"-"),1
         'Scrivi "Capigioco  : " & Format2(Cap),1
         Scrivi "Calcolo il capogioco:  " & Format2(Fi3) & " per " & Format2(Nz3) & " = " & Format2(Fi3Nz3) &  " = " & Format2(Cap),1,,,1
         ColoreTesto 0 : Scrivi String(70,"-"),1
         Scrivi
         Gioca es,True,,1
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   TestoInBandaPassante " *****  Metodo FIRENZE EFFETTO SPECIALE di IMAGING  -- listato GioRyuKen72 ***** ",1,3,0
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Buonanotte ;)
Gio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
Indietro
Alto