Il mio primo metodo : lo chiamerò "Lascio o raddoppio"

[franca46]

ciao a tutti, @marina2009, @bubù nell'attesa di uno script fatto bene dagli scripter Senior vi posto il mio che è aperto a tante possibilità.

Dopo il lancio dello script potrete scegliere tante cose:
-su quante estrazioni fare la ricerca
-su quante estrazioni di differenza
-quale posizione fare la ricerca
-scelta della ruota di ricerca
-scelta delle ruote di gioco

Anticipazione (Spoiler): Metodo Lascio o Raddoppio di MARINA2009

Sub Main()
   'https://forum.lottoced.com/threads/il-mio-primo-metodo-lo-chiamer%C3%B2-lascio-o-raddoppio.2223308/#post-2744053
   Scrivi " TEST: LASCIO O RADDOPPIO di MARINA2009 [giugno 2025] ---- script di GioRyuKen72             ",1,,2,6,5,,1
   Dim Ru(1),Nn(2),E1,E2,P5,P6
   Dim Terno1(4),PostaT(3),Cinquina1(5),PostaC(5),Ambata(1),Ambo1(2),PostaA(2)
   Dim Num(4)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",54))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   estra = CInt(InputBox("Quante estrazioni di differenza ricerco?","Estrazioni indietro",1))
   p = CInt(InputBox("Posizione Estratto 1, 2, 3, 4 o 5 ?","In quale Posizione estrattiva?",5))
   r =InputBox("1=BARI, 2=CAGLIARI, 3=FIRENZE, 4=GENOVA, 5=MILANO, 6=NAPOLI, 7=PALERMO, 8=ROMA, 9=TORINO, 10=VENEZIA, 12=NAZIONALE","Scelta Ruota di Ricerca",7)
   ReDim Rg(0)
rr = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",,1)
   For es = ini To fin
   Ru(1)= r
    Messaggio es
      rr = Rg
       Nn(1) = Estratto(es -(estra),r,p) : Nn(2) = Estratto(es,r,p)
      Num(1) = Fuori90(Nn(1) + Nn(2))
      Num(2) = Fuori90(Num(1) + 3)
      Num(3) = Nn(1)
      Num(4) = Nn(2)
      Ambata(1) = Fuori90(Num(1) + Num(2))
      'rt(1) = CA_
      'rt(2) = FI_
      'rt(3) = TT_
      PostaA(2) = 1
      PostaT(2) = 1
      PostaT(3) = 0.5
      PostaC(2) = 1.6
      PostaC(3) = 0.9
      PostaC(4) = 0.4
      PostaC(5) = 0.1
      k = 15
      Ambo1(1) = Ambata(1)
      Ambo1(2) = Num(2)
      ImpostaGiocata 2,Ambo1,rr,PostaA,k,2 '2 significa che ferma le giocate solo dopo il primo ambo
      Terno1(1) = Ambata(1)
      Terno1(2) = Num(1)
      Terno1(3) = Num(2)
      ImpostaGiocata 3,Terno1,rr,PostaT,k,3 '3 significa che ferma le giocate solo dopo il primo terno (gli ambi vanno fino alla fine)
      Cinquina1(1) = Ambata(1)
      Cinquina1(2) = Num(1)
      Cinquina1(3) = Num(2)
      Cinquina1(4) = Num(3)
      Cinquina1(5) = Num(4)
      ImpostaGiocata 4,Cinquina1,rr,PostaC,k,4 '4 significa che ferma le giocate solo dopo il primo quaterna (i terni vanno fino alla fine)
      casi = casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
      ColoreTesto 0
      Scrivi("Estrazione n." & Format2(Es -(estra)) & " del " & DataEstrazione(Es -(estra))),1,0
      Scrivi "  " & SiglaRuota(r) & " ",1,0
      For P5 = 1 To 5
         E1 = Estratto(Es -(estra),r,P5)
         If E1 = Nn(1) Or E1 = Nn(2) 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(r) & " ",1,0
      For P6 = 1 To 5
         E2 = Estratto(Es,r,P6)
         If E2 = Nn(1) Or E2 = Nn(2) Then
            ColoreTesto 2
         Else
            ColoreTesto 0
         End If
         Scrivi Format2(E2) & " ",1,0
         ColoreTesto 0
      Next
      Scrivi
      Scrivi String(78,"-"),1
      ColoreTesto 1
      ' OrdinaMatrice Nn,1
      Scrivi "Numeri Ricercati:  " & Format2(Nn(1)) & " - " & Format2(Nn(2)),1,0
      Scrivi
      ColoreTesto 0
      Scrivi String(78,"-"),1
      Scrivi
      Gioca es,True,,1
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Fatemi sapere se ci sono errori..
Saluti, Gio.

ciao gio , il listato funziona , ho aggiunto la giocata su tutte e spuntano alcuni terni
cambiando ruota di ricerca e posizioni , ci sono buoni risultati