SE PO' FA'

[Alien.]

BA-CA POI SU TUTTE

Ciao

Spia 13 su Bari

Buon pomeriggio a tutti voi, Quando rileviamo la sortita del numero Spia 13 su Bari giochiamo per ambo su Bari - Cagliari. 15 Novembre 2022 13 su Bari in 3ª posizione procedimento: 1° estratto di Bari a cui sommiamo i fissi +32 +46 +79 e formiano la 1ª Terzina 1° estratto di Bari a cui...

forum.lottoced.com

grazie.

 

[GioRyuKen72]

BA-CA POI SU TUTTE

Ciao

Spia 13 su Bari

Buon pomeriggio a tutti voi, Quando rileviamo la sortita del numero Spia 13 su Bari giochiamo per ambo su Bari - Cagliari. 15 Novembre 2022 13 su Bari in 3ª posizione procedimento: 1° estratto di Bari a cui sommiamo i fissi +32 +46 +79 e formiano la 1ª Terzina 1° estratto di Bari a cui...

forum.lottoced.com

grazie.

ciao @Alien. ,

Anticipazione (Spoiler): METODO Spia 13 su BARI

Sub Main() ColoreTesto 0
   Scrivi " *****  Metodo SPIA 13 su BARI di THE MATHEMATIC -- listato GioRyuKen72 ***** ",1,,RGB(143,0,255),5,4
   Scrivi
   Scrivi "(https://forum.lottoced.com/threads/Spia-13-su-bari.2207255/#post-2475369)"
   Scrivi
   ColoreTesto 0
   Dim ruote(3),Spia,klp,FIn,Ini,es,casi,co,aa,aa1,aa2,aa3,n(12),s
   Dim postaT(3),terzina1(3),terzina2(3),terzina3(3),terzina4(3)
   Dim R1,P1,E1,P5,TUTTE
   FIn = EstrazioneFin
   R1 = ScegliRuota
   TUTTE = InputBox("Vuoi giocare anche su TUTTE le ruote? SI = 11 e  NO = 0 ?","GIOCATA a TUTTE","0")
   P1 = InputBox("1 per prima, 2 per seconda e così via","Posizione Spia",3)
   aa = InputBox("Inserisci i num. separati dal punto","Prima TERZINA","32.46.79")
   aa = "0." & aa
   s = Split(aa,".")
   n(1) = CInt(s(1))
   n(2) = CInt(s(2))
   n(3) = CInt(s(3))
   aa1 = InputBox("Inserisci i num. separati dal punto","Seconda TERZINA","32.79.80")
   aa1 = "0." & aa1
   s = Split(aa1,".")
   n(4) = CInt(s(1))
   n(5) = CInt(s(2))
   n(6) = CInt(s(3))
   aa2 = InputBox("Inserisci i num. separati dal punto","Terza TERZINA","32.57.79")
   aa2 = "0." & aa2
   s = Split(aa2,".")
   n(7) = CInt(s(1))
   n(8) = CInt(s(2))
   n(9) = CInt(s(3))
   aa3 = InputBox("Inserisci i num. separati dal punto","Quarta TERZINA","26.60.84")
   aa3 = "0." & aa3
   s = Split(aa3,".")
   n(10) = CInt(s(1))
   n(11) = CInt(s(2))
   n(12) = CInt(s(3))
   ' Call ScegliRange(Ini,FIn,Ini,EstrazioneFin)
   Ini = InputBox("Da quale estrazione vuoi iniziare?","Estrazioni",9800)
   For es = Ini To FIn
      AvanzamentoElab Ini,FIn,es
      Spia = Estratto(es,R1,P1)
      If Spia = 13 Then
         casi = casi + 1
         co = co + 1
         Scrivi String(40,"_") & " Caso " & FormattaStringa(casi,"0000 ") & String(40,"_"),1,,,1
         'Scrivi String(80,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         ColoreTesto 0
         Scrivi String(97,"*"),0,,,2
         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 = Spia Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi String(97,"*"),0,,,2
         ColoreTesto 0
         postaT(2) = 1
         postaT(3) = 0.5
         ruote(1) = R1 : ruote(2) = CA_ :  ruote(3)= TUTTE
         klp = 10
         a = Fuori90(Estratto(es,BA_,1) + n(1))
         b = Fuori90(Estratto(es,BA_,1) + n(2))
         c = Fuori90(Estratto(es,BA_,1) + n(3))
         d = Fuori90(Estratto(es,BA_,1) + n(4))
         e = Fuori90(Estratto(es,BA_,1) + n(5))
         f = Fuori90(Estratto(es,BA_,1) + n(6))
         g = Fuori90(Estratto(es,BA_,1) + n(7))
         h = Fuori90(Estratto(es,BA_,1) + n(8))
         i = Fuori90(Estratto(es,BA_,1) + n(9))
         l = Fuori90(Estratto(es,BA_,5) + n(10))
         m = Fuori90(Estratto(es,BA_,5) + n(11))
         o = Fuori90(Estratto(es,BA_,5) + n(12))
         terzina1(1) = a
         terzina1(2) = b
         terzina1(3) = c
         OrdinaMatrice terzina1,1
         ImpostaGiocata 1,terzina1,ruote,postaT,klp
         terzina2(1) = d
         terzina2(2) = e
         terzina2(3) = f
         OrdinaMatrice terzina2,1
         ImpostaGiocata 2,terzina2,ruote,postaT,klp
         terzina3(1) = g
         terzina3(2) = h
         terzina3(3) = i
         OrdinaMatrice terzina3,1
         ImpostaGiocata 3,terzina3,ruote,postaT,klp
         terzina4(1) = l
         terzina4(2) = m
         terzina4(3) = o
         OrdinaMatrice terzina4,1
         ImpostaGiocata 4,terzina4,ruote,postaT,klp
         Gioca es,1,,1
      End If
     Next
   ColoreTesto 0
   Scrivi String(65,"•")
   TestoInBandaPassante " *****  Metodo SPIA 13 su BARI di THE MATHEMATIC -- listato GioRyuKen72 ***** ",1,RGB(143,0,255),5
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Gio.