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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto