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

GioRyuKen72

Advanced Member >PLATINUM PLUS<
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
    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