Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Metodo Firenze Effetto Speciale

Imaging

Super Member >GOLD<
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
Reactions: NEM

GioRyuKen72

Advanced Member
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ì 08 aprile 2021
    Bari
    24
    19
    57
    21
    42
    Cagliari
    81
    32
    60
    28
    54
    Firenze
    86
    77
    81
    12
    75
    Genova
    01
    31
    78
    45
    72
    Milano
    45
    46
    57
    03
    49
    Napoli
    48
    07
    56
    69
    01
    Palermo
    11
    56
    12
    61
    75
    Roma
    34
    74
    13
    53
    33
    Torino
    80
    68
    23
    88
    19
    Venezia
    76
    34
    78
    28
    90
    Nazionale
    45
    69
    76
    54
    06
    Estrazione Simbolotto
    Genova
    10
    22
    30
    36
    23

Ultimi Messaggi

Alto